I adopted the approach suggested in an earlier post (http://www.mapleprimes.com

/questions/137320-Plotting-A-System-Of-Ode) for the known results,

but some part of curve is missing.

The output I got is

I need to write a recursive method to reverse a string.

The hint given is to convert the string inputed to a character sequence, then apply recursive method, then reverse character sequence, then convert back to  string and output it.

So "abcd" gives output "dcba"

I came up with what is below, but I don't know if that's a recursive method.

>with(StringTools):

>Reverse("abcd")

        "dcba"

Hello All ,

I would liek to know if ther is a way to tabulate the results in a matrix form , like matlab does .Each time i copy paste it in excel and do the text to colum to sort out the results.It would save me a lot of time if anyone has an idea about this.

Like in the file i have results of various parameters displayed but how do i tabulate it.

Steam_800_below_crit.mw

Hi folks,

I'm trying to find the x value of my data set that corresponds to 50% of area under the curve. I've used curvefitting and splines to generate a piecewise function, and am able to find the area under the curve between my two approximated zeros (as this is the only relevant region). I would greatly appreciate any help, as I've been pulling my hair out for a couple hours now!

Cheers!

Hi everyone,

Do you know how to displya this kind of things on the screen: 

[12 Elements Column Vector

Data Type: anything

Storage: rectangular

Order: Fortran_order]

I think it is just that the vector is too big, but I want to see it. Any suggestions?

Thanks.

have some problem with Numerical Integration this function:

 > f221 := (0.1255914626e-2*(375.*sin(2.*a)*cos(b)*cos(w)-150))*Heaviside(abs(375.*sin(2.*a)*cos(b)*cos(w)-375.*sin(a)^2*sin(b)*sin(w))-150.)*sin(a)*cos(b)^3*sin(w)*(1.+.25*cos(2.*b));

> evalf(Int(f221, [a = 0 .. 2*Pi, b = 0 .. (1/2)*Pi, w = 0 .. 2*Pi], method = _cuhre, epsilon = .1)) 

How can i take this integral and  decrease calculation's time? I was trying different...

Couple of questions, what did I do wrong to calculate time to fall as negative and how do I find how long it takes to reach certain velocity?

Maple Worksheet - Error

Failed to load the worksheet /maplenet/convert/my_skydive_problem.mw .

Download my_skydive_problem.mw

restart:
with(PDEtools):with(plots):
declare(u(x,y,t)):
PDE1:=diff(u(x,y,t),t$1)+a*u(x,y,t)*diff(u(x,y,t),x$1)+diff(u(x,y,t),x$3)+

b*diff(u(x,y,t),y$2)=0;
Sol1:=pdsolve(PDE1);

Test1:=pdetest(Sol1,PDE1);

params:={a=6,b=1,_C1=1,_C2=1,_C3=1,_C4=1};

Sol2:=subs(params,Sol1);

plot3d(subs(t=1,rhs(Sol2)),x=-10..10,y=-10..10,axes=boxed,grid=[50,50],

style=patchnogrid,shading=Z,orientation=[-40,50]);

Hi everyone

I have solved an ODE in Maple with the following command:

soln := dsolve({ode1, f(0) = 0, f(1) = 1, (D(f))(0) = 0, (D(f))(1) = 0}, f(eta), numeric)

where ode1 is:

ode1 := diff(f(eta), [`$`(eta, 4)])+R*(eta*(diff(f(eta), [`$`(eta, 3)]))+3*(diff(f(eta), [`$`(eta, 2)]))-f(eta)*(diff(f(eta), [`$`(eta, 3)]))+(diff(f(eta), eta))*(diff(f(eta), [`$`(eta, 2)]))) = 0

then I saved the soln plot in p1 as:

p1 := odeplot(soln, [eta, f(eta)...

Hi everyone,

Can somebody help me to make this code faster? Or if somebody have fast computer and can execute it and give me the result.

When I execute it, I don't have the result of the last command and get the error of not enough memory allocation or something.

Here is the code:

>restart;with(LinearAlgebra):with(VectorCalculus):with(linalg):
> a1:=1:
> a2:=1:
> T:=<x1,x2,x3,x4,y1,y2,y3,y4,u1,u2,u3,u4>:
> 

I have created the following:

a := proc (b, r)
local x, n;
x := [seq(b, x = 0 .. 99)];
for n from 1 to 99 do x[n+1] := r*x[n]*(1-x[n])
end do;
return x
end proc;

> a(.5, 2.5);

This returns a list of points in a list representing a population at each generation from x_0 to x_99.  How can I get Maple to plot these points as a time series?

I have the following procedure that I am working with. I would like to store the result of the procedure in a variable called "result".

[code]
f := proc(result, x)
     if x <= -7 then
         result :=  1:
     elif x > -7 and x <= 7 then
         result := 2:
     elif x > 7 then
 ...

The new VolumeOfRevolution command in the Student[Calculus1] package has lots of nice features for controlling the output (Riemann sum, 3D plot, animation, inert integral, numerical approximation, ...).

The default colors for the plot are not very appealing. Not only is the pink easily washed out by a projector in a moderately light room, but the detail is missing. To illustrate, consider

with(Student[Calculus1]):
VolumeOfRevolution(2-x^2, x, x=0..1, output=plot );

Hi,

I want to put some code into a Maple library. I'm new to producing packages. The following code runs OK, but when I try to use one of the procedures added by the LibraryTools[Save] command, Maple returns

input: MySum(a, b);
output: MyMapleLibrary:-MySum(a, b)

Why does Maple return an unevaluated call to MySum?

The code is below:

restart:
with(LibraryTools):

MyMapleLibrary:=module()
  description "A sample Maple library.":

Hi,

In chapter 2 of the Advanced Programming Guide, it says:

"Important Always ensure that the standard Maple library is write-protected to avoid saving expressions in it. If you accidentally save something to the standard Maple library, you may need to restore the original from media on which you obtained the Maple software".

How do I make the standard Maple library write-protected? Is it by marking as read-only the following folder?