Hi,

I try to solve the folowing task:

Simulate the behaviour of a skyscraper with eight floors during an earthquake. (assumption: cosinus stimulation). Determine the resonance frequency of the skyscraper. When does it collapse. Ignore damping.

Hi,

I'm writing an animation of the Spiral of Theodorus. I'm trying to get it to display a composition of the triangles as it animates. If i change the code to insequence=false it displays them all at once, and doesn't animate. Here is the little bit of code I wrote:

 

g := sum(arctan(1/sqrt(n)), n = 1 .. i)

p := seq(plots[polygonplot]([[0, 0], [sqrt(k+1)*cos(subs(i = k, g)), sqrt(k+1)*sin(subs(i = k, g))], [sqrt(k)*cos(subs(i = k-1, g)), sqrt(k)*sin(subs(i = k-1, g))]], color = white), k = 1 .. 16); plots[display]([p], insequence = true);

HI, URGENT! pls help.

the monster is

f := int(x^2/(e^x-1), x = y .. infinity);

y is some finite positive number. My goal is to plot f against y

I've tried to use either evalf or ApproximateInt to get a number but failed. The error msg either says object is too big or maple can't allocate enough resource.

pls help!

Hi everybody

I want to plot the piecewise function:

f(x)={ -1<=x<=0,-1<=y<=0,  x+y

0<x>1, 0< y <1, 3xy

I write en maple:

k := proc (x, y) if -1 <= x and x <= 0 and -1 <= y and y <= 0 then x^2+y^2 else if 0 <= x and x <= 1 and 0 <= y and y <= 1 then 3*x*y end if end if end proc;

with(plots):

plot3d(k, x = -1 .. 1, y = -1 .. 1);

the PC's send me this message:

I got this code in Maple >restart: lambda[1] := 3; lambda[2] := 4; lambda[3] := 5; lambda[s] := lambda[1]+lambda[2]+lambda[3]; u := 20; deltat:= 1; c:=1; Q:=10; >MultivariateNormalSample := proc (Sigma, N) local A, R, d; d := LinearAlgebra[RowDimension](Sigma); R := Matrix(LinearAlgebra[LUDecomposition](evalf(Sigma), 'method' = 'Cholesky'), datatype = float[8]); A := Statistics[Sample](Normal(0, 1), d*N); A := ArrayTools[Alias](A, [1 .. d, 1 .. N]); rtable_options(A, subtype = Matrix); return R.A; end proc; >with(Statistics): U:=u;

Hello! I have been learning Maple recently. My teacher gave me the task to simulate the kinematics of heart ventricles with subsequent calculation of their volume.

Hi everyone.

I have a loop in which initial data of ODE is found on every iteration and is substituted to find new solution. The system is striking 1 or -1 and x'(t) changes its sign, to -x'(t)

I do it this way (k[i] stands for the values of time t):

Hi everyone.

I have a loop in which initial data of ODE is found on every iteration and is substituted to find new solution. The system is striking 1 or -1 and x'(t) changes its sign, to -x'(t)

I do it this way (k[i] stands for the values of time t):

Is there a way to display a table of all variables (name, type, dimensions), that I defined in my worksheets. Something like the workspace in MATLAB. Maybe also to edit the values in a fast way.

 

Hi, can anyone point out what I've done wrong in setting up this PDE solution: PDE:=diff(u(x,t),t$2)+diff(u(x,t),t)-diff(u(x,t),x$2)=sin(Pi*x/l); BCs:=u(0,t)=0,u(l,t)=0; ICs:=u(x,0)=0,D[2](u)(x,0)=0; ans := pdsolve([PDE,BCs,ICs],u(x,t)) assuming l

Hi colleagues,
How to determine if a point belongs to a plane, considering the uncertainties of the coordinates of the point?
I'm stuck in this task. I remember seeing a taks that makes this task, but does not take into account uncertainties;
Gracias
 

How can I have a 3d plot rotate? 

 

Hello. There is a random value X with normal distribution and there is a function f=e^(r*X). So how can I get a variance for f? I'm doing T := Distribution(PDF = (proc (x) options operator, arrow; e^(r*piecewise(x

Am I using map correctly here?  And is this a good way to vary the size of points for a set of data?

a:=[[1,1,1],[2,2,1],[3,4,4.5],[2,1,2.4]]

b:=map(a->[a[1],a[2]],a)

c:=ListTools[Flatten](map(a->[a[3]],a))

d:=seq(pointplot(b[i],symbolsize=c[i]*10),i=1..nops(b))

display(d);

                               

 

Hello

Please answer my question about my math lab class.

when I solve the equation about "     cos(2*theta)=1/2       "   by   " solve(cos(2*theta)=1/2,theta);"

I just get the answer "Pi/6" only

but I want the all root within "0 to 2*Pi"

How can I get the all root by limitting area of root??