Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

assuming a equations likes this:

tan(x)+y*sin(x)=1;

tan(x)-y*sin(x)=0;

I want to solve this equations using LinearSolve function(do not use solve()). I  fisrtly change tan(x)=u,y*sin(x)=v and then solve u,v using LinearSolve. finally, I obtain x=atan(u), y=v/sin(x).

the question is how can I perform the above operates neatly? I know I can achive this by using a lot of subs().but is there any tools in maple do this neatly just like IntegrationTools[Change]?

Hai everyone. I used maple 12 and have an equation as follow:

int(int(lambda[v]*lambda[t]*exp(-lambda[v]*v-lambda[t]*t), v = (1/2)*(q[p]+q[p]*t[c]*t+2*S[di]*h*t)/(h*t) .. infinity), t = 0 .. infinity)

 

and try to get an outcome as follow:

However, I cannot get the outcome like I want. The maple just diplay the equation. Any tips or suggestion?

Thanks

Regards,

Dolby87

I say 

 

A:=1

R:=8.3

T=298

 

And do A/RT and I get a number answer. Sucess!.

 

Then I close the program. Open it again. Type A/RT and it spits out A/RT.

 

How do I get to not forget what the numbers were? 

question_4.pdf

I am reciving an error code when trying to graph the right circular cylinder in the questions

Attached is what I have done with the question.

 

Any help will be greatly appreciated. 

 

I have numerically solved a system of ODEs and plotted the graphs of a[j](t) for each j=0..21.

It was clear from the picture that each a[j] has a unique zero. Is there a maple command to

locate these zeroes?

Plz help me friends ...

I gave this function ...

fuction_A.docx

i wanna extract coeffitions from this function ... for example what is the coeffition of phi(X)*psi(x)?

i used coeff ... but it had an error ..

unable compute coeff ...

i used collect ... but it had an error

what am i doing with this problem?

:(

 

I have just begun thinking of trying to make some mathematically defined objects using a 3d printer. I would be happy to hear from anyone who has done this using Maple to prepare input. Pointers for a novice in 3d printing would be appreciated.  I have access to a MakerBot Replicator 2. But the people who have it have only used it to scan objects and make 3d copies of them. 

---Edwin

Find parametric equations for the right circular cylinder having radius 3, length 12, whose axis is the z-axis and whose bottom edge lies in the plane: z=0.

 

 

Do I just define B={u1, u2, u3} being a basis for R3 and use the gram-schmidt operator to find the parametric equations?

I know that would give me an orthonrmal basis, but how do i find parametirc equations?

Hello there

I have to plot wavelet frame functions (framelet) using Maple. Can I send you the figure and help me to learn how to plot it and send me the code. I will pay for you if you can do it. 

Thank you

I'm trying to analytically solve for a Laplace's equation in a unit square with the following BCs: u(x,0) = 0, u(y,0) = 0, u(1,y) = 0, u(x,1) = 1

The series solution to this problem is well-known, where u(x,y) is solved with separation of variables to obtain u in terms of sin and sinh series.

I try to recreate the solution with pdsolve but am stuck with it.

My attempt:

 

lap2d := diff(u(x,y), x, x) + diff(u(x,y), y, y) = 0

sol := pdsolve(lap2d, HINT = X(x)*Y(y), build)  % saw this in mapleprimes

With this I managed to get an expression for u(x,y). My trouble is with the coefficients: _C1, _C2, _C3, _C4, _c_1

_C1 .. _C4 are clearly from integrations, but I am not clear about _c_1?

To solve for the constants of integrations, I tried to set up simultaneuous equations with the BCs.

For example,

eq1 := eval( rhs(sol), x=0) = 0

Similarly, repeat for the other 3 BCs to get eq2, eq3, eq4

I tried to solve these simultaneous eqns with:

solve({eq1, eq2, eq3, eq4}, {_C1, _C2, _C3, _C4})

but Maple does not output anyting.

Need your advice if this is the right way and I just goofed up with the syntax, or there are better ways to construct the series solution of the problem. Should I use linearsolve to find the C's?

I use Maple 17.

 

Thanks in advance

 

 

Who knows: is there a maple command for two matrix multiplication element by element without summing?

 

As am trying to solve this integration:

int(B*eta^(-B)*t^(B-1)*exp(-(t/eta)^B)*(t-n*h), t = n .. (n+1)*h)

where,

ETA:=1000

B:=2.5

But this error keeps coming :

Error, (in Optimization:-NLPSolve) integration range or variable must be specified in the second argument, got 1. = 1. .. 2.

 

Please Help ..

hi all

I want to plot a 2D fig by maple. my data are in an excel file and they are too much to import them one by one manually. When I copy and paste them in maple, they appear in a column... 

thank a lot for your help.

i want to plot two difrent graph in one diagram.. anyone how to do it?

restart; with(plots); n := .2; B := .5; Ec := 2.0; Pr := 1.0; N := .5; l := 1; rho := .5; c := 1; T := .5; T1 := .5; c1 := .2; c2 := .2; Gr := .5; blt := 5;

Eq1 := diff(f(eta), eta, eta, eta)+f(eta)*(diff(f(eta), eta, eta))-(diff(f(eta), eta))^2+l*B*H(eta)*(F(eta)-(diff(f(eta), eta)))+Gr*theta(eta)-Mn*(diff(f(eta), eta)) = 0;

Eq2 := G(eta)*(diff(F(eta), eta))+F(eta)^2+B*(F(eta)-(diff(f(eta), eta))) = 0;


Eq3 := G(eta)*(diff(G(eta), eta))+B*(f(eta)+G(eta)) = 0;

Eq4 := G(eta)*(diff(H(eta), eta))+H(eta)*(diff(G(eta), eta))+F(eta)*H(eta) = 0;
                 
Eq5 := diff(theta(eta), eta, eta)+Pr*((diff(theta(eta), eta))*f(eta)-2*(diff(f(eta), eta))*theta(eta))+N*Pr*(theta1(eta)-theta(eta))/(rho*c*T)+N*Pr*Ec*(F(eta)-(diff(f(eta), eta)))^2/(rho*T1) = 0;

Eq6 := 2*F(eta)*theta1(eta)+G(eta)*(diff(theta1(eta), eta))+c1*(theta1(eta)-theta(eta))/(c*c2*T) = 0;

bcs1 := f(0) = 0, (D(f))(0) = 1, (D(f))(blt) = 0, F(blt) = 0, G(blt) = -f(blt), H(blt) = n, theta(0) = 1, theta(blt) = 0, theta1(blt) = 0;

L := [0, 1, 2];

for k to 3 do R := dsolve(eval({Eq1, Eq2, Eq3, Eq4, Eq5, Eq6, bcs1}, Mn = L[k]), [f(eta), F(eta), G(eta), H(eta), theta(eta), theta1(eta)], numeric, output = listprocedure); Y || k := rhs(R[3]); YP || k := rhs(R[5]); YR || k := rhs(R[6]); YQ || k := rhs(R[7]); YA || k := rhs(R[8]); YB || k := rhs(R[10]) end do;

plot([Y || (1 .. 3)], 0 .. 10, labels = [eta, (D(f))(eta)]);

 

this comands will comeout to diffrent graph in two diagram.. but i want two graph in one diagram.. any one know how to do it.. beside that.. i want to know how to insert arrow in diagram..

what is the wrong with Pi set ::: in this function ::: Warning, no iterations performed as initial point satisfies first-order conditions

Optimization[Minimize](x^2 + y^2 + 25*(sin(x)^2+sin(y)^2), x=-2*Pi .. 2*Pi , y= -2*Pi .. 2*Pi);

Warning, no iterations performed as initial point satisfies first-order conditions
[0., [x = HFloat(0.0), y = HFloat(0.0)]]


Optimization[Maximize](x^2 + y^2 + 25*(sin(x)^2+sin(y)^2), x=-2*Pi .. 2*Pi , y= -2*Pi .. 2*Pi);

Warning, no iterations performed as initial point satisfies first-order conditions
[-0., [x = HFloat(0.0), y = HFloat(0.0)]]

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

I got my good result when I apply it with this function :


f:= (x,y)->cos(x)*sin(y) -(x/(y^2+1));


Optimization[Maximize](f(x,y), x = -1 .. 2, y = -1 .. 1);


[0.994945017202501170,[x = HFloat(-0.6362676080636113), y = HFloat(1.0)]]

Optimization[Minimize](f(x,y), x = -1 .. 2, y = -1 .. 1);


[-2.02180678335978703,[x = HFloat(2.0), y = HFloat(0.10578346945175972)]]

First 1382 1383 1384 1385 1386 1387 1388 Last Page 1384 of 2255