Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

Mathematica 10.3.0 was announced yesterday. This is the 6th release of Mathematica 10 during 16 months. I wonder its  MathematicaFunctionData and   FindFormula . At first sight, the former is an analog of FunctionAdvisor of Maple, but the latter isn't any analog. Also compare the outputs of

Residue[Binomial[n,k],{n,-j}]

(-1)^j/(j!*k!*(-j-k)!)

 and

>`assuming`([residue(binomial(n, k), n = -j)], [integer, j > 0]);

                residue(binomial(n, k), n = -j)
Let us wait for Maple 2016.

 

Hi

How  can we draw diagrams in tripartite coordinate system?

Hello,

How to Factorize the coefficients of this matrix :

 

> A:=Matrix([[x^3+x-2,x^2+x],[x,x+1]]);

 

factor(A) does not work !

 

Thank you,

Gérard.

Hello,

I have the following list made with dsolve:

num_n := dsolve({c_i1, c_i2, Ecuacion_1, Ecuacion_2}, numeric, method = classical[rk4], {u(x), v(x)}, stepsize = .1);
proc(x_classical) ... end;
for i by .1 to 2 do num_n(i) end do;
[x = 1., u(x) = 1., diff(u(x), x) = 0., v(x) = 0., diff(v(x), x) = 1.]

...

But when i do :

 

u(1);

u(1)

Should be u(1)=1 and not u(1)=u(1).

Regards.

Carmelo.

H := 1/(2*m)*diff(f(q,P,t), q)^2 = -diff(f(q,P,t),t);
assume f = f1(q) + f2(t);
H := 1/(2*m)*diff(f1(q), q)^2 = -diff(f2(t),t);
dsolve(H);

set each side of equation be a constant E which is anticipated integration constant
how to solve to S = q*sqrt(2*m*E) - E*t

and

p = diff(S,q) = sqrt(2*m*E);
Q = diff(S,E) = q*m/sqrt(2*m*E) - t;

There is a desire to explore the process of filtration combustion. To do this, you must solve a system of differential equations in partial derivatives.
I write down all the equations.
Boundary conditions in Maple 2015.0 interpreted incorrectly.
I need to write like that:

 

 

given that:


It turns out so:

 

 

ie somewhere lost derivatives

,....

 

 

As in Maple record boundary conditions correct?

Thanking you in advance.

can maple 18 install in mobile phone Lumia 950?

Hello everyone. 

I can not calculate it here


restart

with(VectorCalculus):

with(plots):

v1 := x^2+y+`-`(sin(z))

x^2+y-sin(z)

(1)

v2 := VectorCalculus:-`+`(VectorCalculus:-`+`(x^2, 1/y), VectorCalculus:-`-`(VectorCalculus:-`*`(2, z)))

x^2+1/y-2*z

(2)

v3 := VectorCalculus:-`+`(VectorCalculus:-`+`(VectorCalculus:-`*`(3, x), y^2), z)

y^2+3*x+z

(3)

vv := VectorField(`<,>`(v1, v2, v3), 'cartesian'[x, y, z])

Vector[column](%id = 18446744074235504150)

(4)

fieldplot3d(vv, x = -1 .. 1, y = -1 .. 1, z = -1 .. 1, arrows = `3-D`, grid = [5, 5, 5], axes = normal)

 

Flux(vv, Sphere(`<,>`(0, 0, 0), r))

Error, (in sprintf) Maple was unable to allocate enough memory to complete this computation.  Please see ?alloc

 

 

``


Probably, the problem with the calculation of surface integrals. I would be grateful for any help.

Download 1.mw

 

Hi all,

I want to know how we can have the result which is made in Maple in Latex in a good style... I must prepare a report of it today, but when I copy the result from Maple to Latex, there're a lot of things to edit, also the results that are obtained from Maple are a lot, so it's very difficult for me to type it in Latex...

Please help me

I have the solution to a heat PDE, v and the error esitmate u + cos(x+t) = v

 

I want to plot log v(1,t) as function of log u(1,t) in maple, but I seem to get an error:

Error, (in plot) unexpected option: ln(u(1, t))

 

I am attaching my code below.

How to fix this problem?

Thanks in advance.

PDE+cos.mw

Hello to all

 

I am Jorge Gracia an exchange student working on my Thesis.

I started working with maple recently, and I am having some problems to achieve the results that I am looking for.

My work consist in the next Steps.

Using maple and taking some fatigue tests data, create a wav file with the some of the following formats:

Supported data formats are wave type 1 (PCM integer Data 8 Bit unsigned, 16 Bit signed or 32 Bit

signed) and wave type 3 (PCM float data (32 Bit IEEE float).

 

In the same way, if I already have a wav file, read the values of every point of the wave in order to understand and study the results.

 

If I have a normal plot, convert it into a wav file plot with the formats from above

With all the results, I will be able to work with this wav files in a fatigue test machine achieving more realistic results than with the standard waves.

 

All the information about this will be welcome.

 

Thank you for all.

Hi,

Im trying to study some questions and I'm using maple to verify my answers.

Theres a few polynomial factoring questions and linear equation questions Im trying to get

maple to show its solutions steps using showsolution() no matter where I put it  the function wont work.

Ive switched between math/text functions. Im still pretty new to maple but I can't find any information on how to do it

on the web/youtube.

 

Thanks in advance!

For problem simplify(abs(1-b)+abs(1+b)), I want maple to take out the abs and get results for different ranges of b.

I have double indexed functiions f[j,k] of one variable and double indexed coefficients a[j,k].

I want my print do look like a[1,1]f11+a[1,2]f12 that is, the values of a[j,k] should appear beside the functions' names, like

7f11+2f12-3f21 etc.

Thank yopu for any help

Hi, 

     I'm trying to solve this PDE, and Maple 2015 gives me a solution quickly. I can test the solution with pdetest() and this verifies that it works. However, when I try to verify this myself I don't get zero. Is there some trick pdetest() is using to that I am missing? Or is pdetest() wrong in this case?

 

restart;

eq := I*exp(-(2*I)*k*t)*k*sin(theta)*r^2*cos(theta)^3+4*exp(-(2*I)*k*t)*r*cos(theta)^3+2*(diff(Vr(t, r, theta), theta, theta))*cos(theta)*exp(-I*k*(sin(theta)*r+t))-6*(diff(Vr(t, r, theta), theta))*sin(theta)*exp(-I*k*(sin(theta)*r+t))-4*Vr(t, r, theta)*cos(theta)*exp(-I*k*(sin(theta)*r+t))-4*exp(-(2*I)*k*t)*r*cos(theta);

I*exp(-(2*I)*k*t)*k*sin(theta)*r^2*cos(theta)^3+4*exp(-(2*I)*k*t)*r*cos(theta)^3+2*(diff(diff(Vr(t, r, theta), theta), theta))*cos(theta)*exp(-I*k*(sin(theta)*r+t))-6*(diff(Vr(t, r, theta), theta))*sin(theta)*exp(-I*k*(sin(theta)*r+t))-4*Vr(t, r, theta)*cos(theta)*exp(-I*k*(sin(theta)*r+t))-4*exp(-(2*I)*k*t)*r*cos(theta)

(1)

sol := pdsolve(eq);

Vt(t, r, theta) = _F2(t, r)/cos(theta)^2+sin(theta)*_F1(t, r)/cos(theta)^2-((1/2)*I)*(cos(theta)^2*k^2*r^2-2)*exp(I*(sin(theta)*r-t)*k)/(k^3*r^2*cos(theta)^2)

(2)

pdetest(sol, eq);

0

(3)

eq2 := eval(eq, Vr(t,r,theta) = rhs(sol)):
eq2 := simplify(%);

-((1/2)*I)*exp(-(2*I)*k*t)*k*r^2*cos(theta)^3+2*exp(-(2*I)*k*t)*r*sin(theta)*cos(theta)-3*(diff(Vt(t, r, theta), theta))*sin(theta)*exp(-I*k*(sin(theta)*r+t))-2*Vt(t, r, theta)*cos(theta)*exp(-I*k*(sin(theta)*r+t))+(diff(diff(Vt(t, r, theta), theta), theta))*cos(theta)*exp(-I*k*(sin(theta)*r+t))

(4)

evalb(eq2 = 0);

false

(5)

 

 

 

Download PDESolving.mw

First 1196 1197 1198 1199 1200 1201 1202 Last Page 1198 of 2223