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?

How can I see the steps of solving a PDE ( partial differential equation ) in maple .
for example see the sepration variables and other equations that lead to final Eq .

a=5/6

then how to plot the function in Maple 12 

restart:with(plots):

eq := diff(f(eta), eta, eta, eta)+.11-(diff(f(eta), eta));

bc2 := f(0) = 0, (D(f))(0) = 1, (D(f))(10) = .1;

dsolve({eq,bc2}):

F1:=evalf(rhs(%));

contourplot(x*F1,x=-3..3,eta=-0.2..0.2);

I need to get the data from the above plot in a .txt file.

Thanks