MaplePrimes Questions

I am relatively inexperienced with Maple and would like to either be pointed in the right direction or shown a similar example to my problem for reference.

My problem is I need to write a programme using the below equations

d^2x/dt^2=ax+by

d^2y/dt^2=cx+by

I then have to use the below values to show my programme works

a=b=c=d=1

x(0)=1

Dx(0)=0

y(0)=0

Dy(0)=1

After proving it works I have to apply it to a mass spring system using realistic parameters. Using visual and analytical ways to show findings.

md^2x/dt^2=-kx-k(x-y)

md^2y/dt^2=-k(y-x)-ky

when x and y are the displacement from the equilibrium. Initially the masses are displaced from their equilibrium posistions and released so that

x(0)=a, y(0)=b, Dy(0)=Dx(0)=0

then repeat with different smaller calculations

Any help would be much appreciated

Thanks

When I write in maple the following:

x*(x+y)

 

What do I need to write to make maple make the operation that will evaluate the expression and show the following?

 

x^2+x*y

 

simplify(%) or evaluate(%) only shows it the same way it was inputted to start with.

Hi,

 

  I have the following code for using "PolynomialSystem" solve equations of polynomial

 

*********

with(SolveTools):

f:=PolynomialSystem({x+y-3, x^2+y^2-5}, {x, y}):

print(x,y);
print(f);
f[1];f[2];
a:=f[1][1];b:=f[1][2];
print(a,b);
c:=-evalf(a);d:=-evalf(b);

****************

 

The output is

***

x, y
{x = 2, y = 1}, {x = 1, y = 2}
{x = 2, y = 1}
{x = 1, y = 2}
x = 2
y = 1
x = 2, y = 1
-x = -2.
-y = -1.

***

From what I have seen, I cannot subtract the values of x and y as 2 and 1. Is there any way that I can get the values of solutions of variables, namely I can assign a variable "a" as 2, and the other variable "b" as 1?

 

Thank you very much!

 

 

 

 

How can one deduce values of f(eta), diff(f(eta),eta) and diff(f(eta),eta$2) from values of f1,f2,f3,f4,.. in the results of the finite difference here Trial.mw . I need the outcome for f and its 1st and 2nd derivatives as listed above. Please help.

How do I compute the Lyapunov exponents for Lorenz system

Is it possible to organize output of plots in Mathematica-like manner

1
in one list (placed in one cell)?

In Maple I use tables for these purposes:

1

Maybe, does there exist a more elegant solution?

hi...plese help me

:

how i can solve set of non linear differential equation with a unknown parameter with numeric role in maple software??

thank a lot ...

Hello, my problem is that I've changed in tools maple default mode to "Maple input" from "2-d" I've aplied it globbaly and it doesnt'work. Still when type Enter it switch automatically to 2-d Math, and I have to change it by Ctrl-M to 1-d. Any ideas how to solve it? I want 2-d just to output.


eqn1 := (3*y/(y^2+1)^(5/2)+(3*(x+y))/(1+(x+y)^2)^(5/2)+(3*(y+z))/(1+(y+z)^2)^(5/2)+(3*(x+y+z))/(1+(x+y+z)^2)^(5/2))*(-2*x^2/(x^2+1)^2+1/(x^2+1)-2*x*(x+y)/(1+(x+y)^2)^2+1/(1+(x+y)^2)-2*x*(x+z)/(1+(x+z)^2)^2+1/(1+(x+z)^2)-2*x*(x+y+z)/(1+(x+y+z)^2)^2+1/(1+(x+y+z)^2))+(-3*x/(x^2+1)^(5/2)-(3*(x+y))/(1+(x+y)^2)^(5/2)-(3*(x+z))/(1+(x+z)^2)^(5/2)-(3*(x+y+z))/(1+(x+y+z)^2)^(5/2))*(-2*y^2/(y^2+1)^2+1/(y^2+1)-2*y*(x+y)/(1+(x+y)^2)^2+1/(1+(x+y)^2)-2*y*(y+z)/(1+(y+z)^2)^2+1/(1+(y+z)^2)-2*y*(x+y+z)/(1+(x+y+z)^2)^2+1/(1+(x+y+z)^2)):

eqn2 := x/(x^2+1)+x/(1+(x+y)^2)+x/(1+(x+z)^2)+x/(1+(x+y+z)^2)-y/(y^2+1)-y/(1+(x+y)^2)-y/(1+(y+z)^2)-y/(1+(x+y+z)^2):

eqn3 := subs({x = (tan(alpha)-tan(beta)+tan(gamma))*(1/2), y = (tan(alpha)+tan(beta)-tan(gamma))*(1/2), z = (-tan(alpha)+tan(beta)+tan(gamma))*(1/2)}, eqn1):

eqn4 := subs({x = (tan(alpha)-tan(beta)+tan(gamma))*(1/2), y = (tan(alpha)+tan(beta)-tan(gamma))*(1/2), z = (-tan(alpha)+tan(beta)+tan(gamma))*(1/2)}, eqn2):

My question is how to solve eqn3 and eqn4 of tan(alpha)&&tan(beta).

I want to solve the equations eqn3 and eqn4 to solve the  tan(alpha)  and tan(beta),  give me a help .thanks a lot 

Download 0112.mw

I just started my Calculus I class and I have a project to prove some various theorems. Maple rocks for this. 

 

How can I insert the Q.E.D. symbol (looks like a little black square) at the end of my proofs?

ok so I run Maple 18 , but the problem is that maple does not show me the phase portrait , it only keep showing me what i write,

for example , i write this  

  DE1 := diff(y(t),t) = z(t);
  DE2 := diff(z(t),t) = -y(t)*cos(t);
  phaseportrait([DE1,DE2],[y,z],t=-5..5,[[y(0)=1,z(0)=0],[y(0)=0,z(0)=2],[y(0)=0,z(0)=-2]],y=-Pi..Pi,z=-3..3,color=aquamarine,linecolor=blue);
  
and maple just show me these back
what should i do?

 

Hi there,

I am trying to simulate the behaviour of an equation in the continuous domain for two different populations given a set of parameters.

The equations reads:

S(t) = exp(-alpha·D(t)-beta·G·D^2(t))

where alpha and beta are known (and are different for two populations of cells), and G may be:

Case 1: G=1

Case 2: G = (D1^2+D2^2+2*D1*D2*exp(-lambda*T))/D^2 (where D1=D/3; D2=2·D/3; and lambda is also known)

 

For the Case 1, I need to simulate for different values of D. Even if for the purposes of this case, D(t) = D0 (a constant); I would like to know how I would do it for a time-dependent D, for example,  D(t) = D0·t, with a varying D0, for example in the range [1..8].

For the Case 2, I need to simulate under different values of T (for example in the range [1..8]), letting D be a constant, known value. In this case, D(t) is a piecewise function:

D(t) =
= D/3 if t=0

= 2·D/3 if t=T
= 0 for any other t

I really don't know how to write the expression for S(t) in this case.

 

I guess I need an array to store as many instances of S as numbers of parameters I have (8 values for D0 int he first case, and another eight for T).

And besides, it needs to be a function of t (even if in the first case, it is not; I'd like to simulate as if it were).

 

So I am at a loss when it comes to writing the expressions of S(t), and having it evaluated (and its values plot in the same graph using a palette for differente parameter values) for say, t=0..100.

 

Attached is my attempt: Mapleprimes_LQ_model_simulation.mw

 

Any ideas?

Thanks,

jon

Hi there,

I've got the following differential equation system:,

dU/dt = delta·dotD -lambda·U - kappa·U^2
dL/dt = (1-phi)·lambda·U + 1/4 ·kappa·U^2


being phi, delta, kappa, lambda, kappa some fixed parameters of the system, and where dotD (the derivative wrt time of a function D), which is defined a piecewise funtion:

dotD(t)=1/(3·T1)·DT for t in [0,T1]

dotD(t)=2/(3·(T2-T1-T))·DT for t in [T1+T,T2]

where T and DT are also known, and T1 approaches 0, and T2 approaches T1+T.

Setting the equation system in Maple and trying to solve it, gives a NULL result. However, trying to solve each piece separately seems to work fine.

Why is this?

 

Furthermore, taking limits for the [T1+T,T2] part (having solved each piece separately) yields an invalid limits point error. Ain't the possibility to take limits for both parameters at the same time?

Any ideas?

 

This is the Maple worksheet: MaplePrimes_LQ_model_solve.mw

Thank you.

jon

Hi, there

How can we plot implicit polar equations like r^2 =5-4cos(theta) in maple13?

Regards

Yegan

Hello,

I have a question: why does the following not work and how can I make it work:

f(x)*a*b;
subs(a*b=y,%);

The result is f(x) a b but I want f(x) y. What can I do? I also tried eval.


Thanks and best regards.

First 1330 1331 1332 1333 1334 1335 1336 Last Page 1332 of 2434