can someone assist me to animate the following:

 A ladder is leaning against a wall. The base of the ladder starts sliding away from the wall, with the top of the ladder sliding down the wall. As the ladder slides, you watch the red point in the middle of the ladder. What figure does the red point trace? (a circle)

[24+24*beta[1]*x+24*beta[2]*x^2+24*beta[3]*x^3+24*beta[4]*x^4]+(2*[[beta[1]+2*beta[2]*x+3*beta[3]*x^2+4*beta[4]*x^3]])*(-24+24*x)+[2*beta[2]+6*beta[3]*x+12*beta[4]*x^2]*(12-24*x+12*x^2)-L^4*m[0]*Omega^2*[-(1/2)*x^2-R*x+R+1/2]*(12-24*x+12*x^2)/EI[0]-F*L^2*(12-24*x+12*x^2)/EI[0]-L^4*m[0]*Omega^2*[-x-R]*(12*x-12*x^2+4*x^3)/EI[0]-L^4*m[0]*omega^2*(6*x^2-4*x^3+x^4)/EI[0]

This is the result of a mathematical procedure. I need to be able to extract the series...

I have already solved my ODEs and used odeplot to analyse the change over time (0 to 10).

Below is my ODE,

d(a(t))/dt = x - y*(a(t))

d(b(t))/dt = m*a - n*(b(t))

My query here is,

I need to substitute a(t) and b(t) in a seperate equation,

h(t) = 60/0.98 * (a(t))*(b(t))

and i need to plot 'h' over time (0 to 10)

How do I go about doing this?

Please help.

Thanks.

Hi,

i am trying to simulate a costum component, but i get this error when starting to compile initial values i get this error:

(in dsolve/numeric/RunSimulation) keyword event_blindeye not recognized
Simulation failed.

Why? This costum component was tested on another PC and worked.

Thanks

Bear with, I'm a noob. This is my code so far:

    > ball := proc (x, y) plots[pointplot]([[x, y]], color = blue, symbol = solidcircle, symbolsize = 20) end proc;

    > animate(ball, [1+sin(t), 1-sin(t)], t = 0 .. 2*Pi, scaling = constrained, frames = 100);

I like the output I have but my aim is to have, say, 8 of these balls, all with their own trajectories, and animated on the same axis. All the trajectories would depend only on one parameter, t.

Hello,

could you pls help me with this code, i dont understand why i get the error.

---------------------------------------------------------------------------------------------

NewtonZweiVariablen := proc (funktion1, funktion2, startwertX, startwertY)

local Ableitung, StartwertNeuVektor, DurchgangsZaehler, Differenz, StartwertVektor, FunktionsVektor, Jacobi, g, h;

Jacobi := linalg:-inverse(Jacobian([funktion1, funktion2], [x, y]));

Hi!

How to solve attached equation in Maple?

Is there a possiblity to solve using units?

wzel

PS

Solution was done in Mathcad

Hello Community,

Wondering if anyone has run into the problem outlined in my code below. I am looking to evalute a commutator involving Pauli spin matrices. One of the matrices is squared. Such a commutator should evaluate to zero. However, the way I implemented it below doesn't give such a simplified result. See Result 7 below. Any suggestions as to how to get Maple to evaluate the exponential before the Commutator? Or to otherwise get to a final, simplified result?

Hi,

I am trying to solve the following system using the function "solve", but the message "warning solutions may have been lost" appears.

This is my script (a,b,c,d,e,f, Resp, Malcyt,Pyrcyt are parameters). The unknown variables are Citcyt, Citmt,Malmt,Pyrmt:

e1 := 0 = a.Pyrcyt-a.Pyrmt+(b-c).Malmt;
 e2 := 0 = d.Malcyt+e.Citmt-(d+b+c).Malmt;
 e3 := 0 = f.Citcyt+c.Malmt-(e+f).Citmt;

 e4 := 0 = 2.*e.Citmt+(b+c).Malmt-Resp;

Hello every one,

I have a question about summing data from an ode.

ode:=diff(T(x),x$2)-T(x)^2=0;

bc:=T(0)=1,T(n)=0;

n:=3:

Thanks

I am new to Maple. I need to measure the time complexity of computing the GCD for a set of 1024-bit numbers. I have an equation as:

O(nm × log^2 m × log log m). Where n is the number of bits in the numbers in my set (say, 1024-bit) and m is the number of times I am going to do a computation. How can I perform this computation in Maple ?

does anyone see what i'm doing wrong, trying to solve for n

add(length(i), i = 1 .. n) = 2893;

o/p: Error, unable to execute add

fsolve(sum(length(i), i = 1 .. n) = 2893,n=500..2000);

o/p: n=2893

but if i do a procedure i get the right answer: 

s := 0; for i to 5000 do t := length(i); s := s+t; if s <> 2893 then next else print(i) end if end do;

1000

Start with the numbers 1, 1/2, 1/3, ... , 1/100. Choose any two numbers M and N from this list and replace them by the single number M + N + M x N. Repeat the process until only one number is left.

eq, take pair (1,1/2)-->1+1/2+1*1/2=2

then (2,1/3)-->3 and so on .... and you obtain 100.

Can someone show me procedure to accomplish this, because when i try to do it i get into a tiz

Hi

Can you please let me about the folowing integral in Maple 13

 int(sech(1/2*k*Pi)/(k^2+1)*exp(I*k*x),k=-infinity..infinity);
 Is there any general precedure for finding these kind integrals

Let function so that