MaplePrimes Questions

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.

hi 

 

i solved my equation as follow , i want to know a compelet describtion that which method of pde/numeric methods is using .

 

thanks 


 

 

 

 

In Maple15, in spherical coordinates, what statements plot covariant vector [1,r^2*sin(theta),sin^2(theta)] and its contravariant equivalent [1,sin(theta),1/r^2] within their respective bases vectors. Assume r = 2, theta = pi/6 and phi = pi/4. I presume each plot will display the same space vector.

Hi I'm new to maple

I wanted to use dsolve to solve and equation but instead of getting an answer, maple returns an integration.

What could the promblem be?

Thanks

I try to save results of numeric integration of ODE, returned by dsolve. I address very simple equation and before saving all works as needed:

S1 := dsolve([diff(z(x), x$2)+z(x) = -2, z(0)=0, z(1)=1], z(x), 'numeric', 'output' = listprocedure);

F1 := unapply(rhs(S1[2])(x), x); plot(F1, 0..1, thickness=3);
1

Next I save solution S1 by save operator:

save S1,  filename;

S1 saved and likely looks correctly:

S1 := [x = proc (x) local _res, _dat, _solnproc; option
`Copyright (c) 1993 by the University of Waterloo. All rights reserved.`; _dat
:= Array(1..4, {1 = proc (outpoint) local X, Y, YP, yout, errproc, L, V, i; ........................................................

Operator read reads S1 from file:
read filename;

but

F1 := unapply(rhs(S1[2])(x), x);

returns an error:

Error, (in unknown) invalid input: the 1st argument to pointto is not a valid pointer handle

How to save solution correctly?

 

M := Matrix([[0,1,1,1,1],[1,0,1,1,1],[1,1,0,1,1],[1,1,1,0,1],[1,1,1,1,0]]);

how to multiply M[1] which is [0,1,1,1,1] with Matrix([[x0], [x1], [x2], [x3], [x4]])
to become [0,x1,x2,x3,x4]

may not use Matrix([[x0], [x1], [x2], [x3], [x4]])

just want to use first element as x0 when it is not 0

second element as x1, etc

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