Maple 14 Questions and Posts Maple 14 Questions and Posts Feed

These are Posts and Questions associated with the product, Maple 14

I try to repeat lines (25)-(28) at

 

http://www.maplesoft.com/support/help/maple/view.aspx?path=Physics%2fTrace#commentform

 

I use Maple 14. However, instead of (28) I get the following result:

 

It means that Maple 14 does not perceive p_\mu, k_\nu and m as scalar quantities. I would like to ask how to define these variables correctly.

 

Thank you in advance!

Hi!

I am comptuing the eigenvalues and the characteristic polynomial of a 8 by 8 symmetric matrix, say M. Thus, we define the matrix M, and compute its charast. plynm. by

 

 

and its eigenvalues with the command

 

 

Well, Maple returns the charast. polynm. an dthe eigenvalues. But, if we compute p(E[k]), for k=1,...,8, thats is, the values of the polynomial p(x) in the eingenvalues, Maple not turns cero!!! I'm really confused ... anyone know what could be happening?

 

Maple attached file with this example. Thank very much for your help!!

 

Download exam_eigenvalues.mw

Error, (in fsolve/polynom) Digits cannot exceed 38654705646

 

I am using fsolve to find numerical approximations to the roots of many fairly large polynomials (degrees up to ~80).  I often get this error message and I'm not sure why.  Is there any workaround?  Any help is much appreciated.

Hello,

I am trying to use Apollonius procedure from geometry package. Here is an example:

restart;
with(geometry):
circle( c1, [ point( c1c, 0 , 0 ), 5 ] );
circle( c2, [ point( c2c, 5 , 4 ), 2 ] );
circle( c3, [ point( c3c, 13 , 0 ), 3 ] );
A := Apollonius( c1, c2, c3 );

Unfortunatelly the Apollonius method does not give any result. The only message is:

intersection: there is no point of intersection

 

Anyone know what is wrong in my code?

Best regards

Rafał Nowak

   Hi there,

   How can we pl0t the volume or surface of revolution of cardioid r=1-cos(\theta) about  polar axis or the vertical axis in maple14.

 Any help will be appreciated.

M.R.Yegan

Published by:-

Packers and Movers Chennai

Movers and Packers Chennai

Moving with Packers and Movers in create Stress Free

Are you currently moving from Indore? Do you consider creating your shift simple, smoothing? If so, implement a excellent moving service in Indore creating your shift as simple & sleek since you need. You will discover many professional movers or packers and moving organizations companies within this town to select from, keen for everyone you to your home, from appearance of first item at the present you will discover unpacking or purchasing of last item at the new property.

 

For a moment implement a excellent moving service in Indore you can be certain that you simply shift is going to be much simpler and softer. All your close family members products and belongings is going to be packed by professional hands using top high quality appearance materials. After appearance, professional employees will fill products correctly onto transit automobiles. Goods is going to be moved into appropriate automobiles and shipped at the new property at your home.. Though professional Packers Movers Indore centered organizations take utmost excellent appropriate excellent care of factors throughout whole moving way to avoid harm, if and regrettably any harm happened, they'll also cover loss using their comprehensive insurance plan plan policy. Hence, excellent moving organizations and packers in Indore is going to be truly excellent buddies in your modify from Indore to elsewhere.

 

Packers and Movers Indore centered organizations offer door-to-door appearance and moving solution to help you at the home. They offer services for example appearance & moving support, running & unloading support, unpacking support, purchasing support, automobile company & transportation support, insurance plan plan support, logistical support, corporate moving organizations, warehousing & storage support, etc. So implement a excellent moving service in Indore and help your home be modify much more comfortable and fewer problematic. It is essential to implement a registered, efficient, efficient and knowledgeable moving service for moving of the precious home goods and belongings.

Visit more information:-

http://www.expert5th.in/packers-and-movers-chennai/

 

Published by:-

Packers and Movers Bangalore

Movers and Packers Bangalore

 

Relocation is a procedure that is risky as well as uncomfortable, as you would be in constant fear of harm of your valuable goods. To avoid this, we usually do the hiring of the movers and packers Bhopal. To help you in looking the Best Packers and Moving organizations Bhopal that would satisfy all your needs, we have established a website called moving service packers.com. To look for for a moving organizations more quickly, we have installed special features like getting completely free several estimates by just providing initial details like contact details and types of alternatives you would be requiring.  You can also create use of our fast and easy look for feature where you have to provide the name of location and types of alternatives you would be requiring and within a moment allin formation regarding every moving organizations would be offered to you.

In the procedure of moving, product packaging holdsan important position as improper product packaging and use of faulty product packaging materials will lead to harm of products. Hence in this article we provide you with some of the useful guidelines which would be beneficial to follow and create the job of the moving organizations as well as for you, easy.

As products like furnishings and breakable products should be packaged by the group of professionals, you can manage the product packaging of non- breakable products like garments, books, beddings etc. In this way you can also cut the expenses as well plenty of duration of product packaging.

Leave the product packaging of large products like furnishings and electronics to the packers and movers Bhopal, as these are challenging to package and should require professional side.

Precious products like gold jewelry, documentation, family heirlooms etc. should be loaded by your own. It is better to package them in the storage containers that would be quickly identifiable by you and do not get them loaded in the automobile.

Visit for More Information:-

http://www.expert5th.in/packers-and-movers-bangalore/

choosing the best teeth whitener can prove challenging. We've broken down all the information we could find about teeth whitening and organized it here so that you can find what you need in just a few clicks. Whether you're thinking about whitening your teeth or you've already started the process, you've come to the right place. Take a look around to answer your important questions.. The break providese you a habitual way to spend time with others. Some increase was one of the proven solutions. Nobody wants to relieve that, but pay attention to it.

http://lumalifteye.com/idol-white-teeth-whitening-pen/

Hello. I have a question. If you can help me, i am pleasure.

Have nice day. :)

 

restart;
soru := proc(n,x)
local top::0;
for x from 2 to n do
top =top+(((x^(2+i))*top)^(1/(n+2-i)));
print(top);
od;
end proc;

 

soru(5,1);

Error, (in soru) illegal use of a formal parameter

Hello. I have a question. If you can help me, i am pleasure.

Have nice day. :)

 

Question: Enter a number after maple find(understand) to prime number or normal number.

 

restart;
> asal := proc(n)
> local m;
> if n<2 then
> m := s=n/2+1;
> print(m);
> else
> for i from 2 to n do
> if irem(n,i,0) then
> print("asal değil");
> if i = m then
> print("asaldir");
> end do;
> end if;
> end if;
> end proc;

 

Hi

I want to run the following code repeatedly displays but do not draw diagrams.

>restart;`read`(orbit.sav)
> dsnumsort := proc (numpr::list, Coor::list)
local i, j, n; global C1, C2, C3, V1, V2, V3;
n := nops(Coor); print("Order of the variables:");
for i from 2 to 2*n+1 do
for j to n do
if [numpr[i]] = select(has, numpr, diff(Coor[j](t), t)) then C[j] := i-1; V[j] := i;
print(Coor[j], C[j], " ", diff(Coor[j](t), t), V[j])
fi;
od;
od;
end:
>dx := diff(x(t), t, t) = -G*Mz*x(t)/(x(t)^2+y(t)^2)^(3/2);
>dy := diff(y(t), t, t) = -G*Mz*y(t)/(x(t)^2+y(t)^2)^(3/2);
>IniC := x(0) = 7*10^6, (D(x))(0) = 1, y(0) = 0, (D(y))(0) = 9*10^3;
>Ns := dsolve({dx, dy, IniC}, {x(t), y(t)}, numeric);
>dsnumsort(Ns(0), [x, y]):
>for i from 0 to 328 do T := 40*i; NsT := Ns(T);
>X[i], Y[i], Vx[i], Vy[i] := (eval([x(t), y(t), diff(x(t), t), diff(y(t), t)], NsT))[]
>od:
>i := 'i'; j := i+1;
>with(plots);
> plot([seq([X[i]-XS[j], Y[i]-YS[j]], i = 0 .. 328)], labels = ['dx', 'dy']);
>plot([seq([Vx[i]-VxS[j], Vy[i]-VyS[j]], i = 0 .. 328)], labels = ['dx', 'dy'])
> R := sqrt(XS[j]^2+YS[j]^2);
>sin := YS[j]/R; cos := X[j]/R;
> GCX := (X[i]-XS[j])*cos-(Y[i]-YS[i])*sin;
> GCY := (X[i]-XS[j])*sin+(Y[i]-YS[i])*cos;
> GCVx := (Vx[i]-VxS[j])*cos-(Vy[i]-VyS[i])*sin;
> GCVy := (Vx[i]-VxS[j])*sin+(Vy[i]-VyS[i])*cos;
> plot([seq([GCX, GCY], i = 0 .. 328)], labels = ['dx', 'dy']);
>plot([seq([GCVx, GCVy], i = 0 .. 327)], labels = ['dVx', 'dVy'])

Hi,

I want to run this code, but I do not draw diagrams. You can help me?

>restart;`read`(orbit.sav)
> dsnumsort := proc (numpr::list, Coor::list)
local i, j, n; global C1, C2, C3, V1, V2, V3;
n := nops(Coor); print("Order of the variables:");
for i from 2 to 2*n+1 do
for j to n do
if [numpr[i]] = select(has, numpr, diff(Coor[j](t), t)) then C[j] := i-1; V[j] := i;
print(Coor[j], C[j], " ", diff(Coor[j](t), t), V[j])
fi;
od;
od;
end:
>dx := diff(x(t), t, t) = -G*Mz*x(t)/(x(t)^2+y(t)^2)^(3/2);
>dy := diff(y(t), t, t) = -G*Mz*y(t)/(x(t)^2+y(t)^2)^(3/2);
>IniC := x(0) = 7*10^6, (D(x))(0) = 1, y(0) = 0, (D(y))(0) = 9*10^3;
>Ns := dsolve({dx, dy, IniC}, {x(t), y(t)}, numeric);
>dsnumsort(Ns(0), [x, y]):
>for i from 0 to 328 do T := 40*i; NsT := Ns(T);
>X[i], Y[i], Vx[i], Vy[i] := (eval([x(t), y(t), diff(x(t), t), diff(y(t), t)], NsT))[]
>od:
>i := 'i'; j := i+1;
>with(plots);
> plot([seq([X[i]-XS[j], Y[i]-YS[j]], i = 0 .. 328)], labels = ['dx', 'dy']);
>plot([seq([Vx[i]-VxS[j], Vy[i]-VyS[j]], i = 0 .. 328)], labels = ['dx', 'dy'])
> R := sqrt(XS[j]^2+YS[j]^2);
>sin := YS[j]/R; cos := X[j]/R;
> GCX := (X[i]-XS[j])*cos-(Y[i]-YS[i])*sin;
> GCY := (X[i]-XS[j])*sin+(Y[i]-YS[i])*cos;
> GCVx := (Vx[i]-VxS[j])*cos-(Vy[i]-VyS[i])*sin;
> GCVy := (Vx[i]-VxS[j])*sin+(Vy[i]-VyS[i])*cos;
> plot([seq([GCX, GCY], i = 0 .. 328)], labels = ['dx', 'dy']);
>plot([seq([GCVx, GCVy], i = 0 .. 327)], labels = ['dVx', 'dVy'])

Hi,

I want to run this code, but I do not draw diagrams. You can help me?

>restart;`read`(orbit.sav)
> dsnumsort := proc (numpr::list, Coor::list)
local i, j, n; global C1, C2, C3, V1, V2, V3;
n := nops(Coor); print("Order of the variables:");
for i from 2 to 2*n+1 do
for j to n do
if [numpr[i]] = select(has, numpr, diff(Coor[j](t), t)) then C[j] := i-1; V[j] := i;
print(Coor[j], C[j], " ", diff(Coor[j](t), t), V[j])
fi;
od;
od;
end:
>dx := diff(x(t), t, t) = -G*Mz*x(t)/(x(t)^2+y(t)^2)^(3/2);
>dy := diff(y(t), t, t) = -G*Mz*y(t)/(x(t)^2+y(t)^2)^(3/2);
>IniC := x(0) = 7*10^6, (D(x))(0) = 1, y(0) = 0, (D(y))(0) = 9*10^3;
>Ns := dsolve({dx, dy, IniC}, {x(t), y(t)}, numeric);
>dsnumsort(Ns(0), [x, y]):
>for i from 0 to 328 do T := 40*i; NsT := Ns(T);
>X[i], Y[i], Vx[i], Vy[i] := (eval([x(t), y(t), diff(x(t), t), diff(y(t), t)], NsT))[]
>od:
>i := 'i'; j := i+1;
>with(plots);
> plot([seq([X[i]-XS[j], Y[i]-YS[j]], i = 0 .. 328)], labels = ['dx', 'dy']);
>plot([seq([Vx[i]-VxS[j], Vy[i]-VyS[j]], i = 0 .. 328)], labels = ['dx', 'dy'])
> R := sqrt(XS[j]^2+YS[j]^2);
>sin := YS[j]/R; cos := X[j]/R;
> GCX := (X[i]-XS[j])*cos-(Y[i]-YS[i])*sin;
> GCY := (X[i]-XS[j])*sin+(Y[i]-YS[i])*cos;
> GCVx := (Vx[i]-VxS[j])*cos-(Vy[i]-VyS[i])*sin;
> GCVy := (Vx[i]-VxS[j])*sin+(Vy[i]-VyS[i])*cos;
> plot([seq([GCX, GCY], i = 0 .. 328)], labels = ['dx', 'dy']);
>plot([seq([GCVx, GCVy], i = 0 .. 327)], labels = ['dVx', 'dVy'])

Hi,

this code not answer:

> whit*evalf; tx := evalf((t1+t2)*(1/2));
> t1 := 326*40; t2 := 327*40;
> y1, y2 := eval([y1, y2], Ns(t1), Ns(t2));
>while (t1 < tx) and (tx < t2) do:
yx := rhs(Ns(tx)[c2]):
if yx > 0 then
y2 := yx: t2 := tx:
else
y1 := yx: t1 := tx:
fi;
od;
>Tx = evalf(tx);
> Hx := floor((1/3600)*tx):
> Mx := floor((tx-3600*Hx)*(1/60)):
> Sx := tx-3600*Hx-60*Mx:
> Hx, Mx, Sx;
> XS := [seq(X[i], i = 0 .. 328)]: YS := [seq(Y[i], i = 0 .. 328)]:
> VxS := [seq(Vx[i], i = 0 .. 328)]: VyS := [seq(Vy[i], i = 0 .. 328)]:
> save(G,Mz,Xs,VxS,VyS, 'orbit.sav'):

 can you help me?

hi friends

I encountered a problem and I can not draw the plot of this code

> sol := fsolve({diff(S, x) = 0, diff(S, y) = 0}, {x, y});



> with(VectorCalculus);
> with(linalg);
> s1 := evalf(subs(sol, linalg[grad](S, [x, y])));

> with(VectorCalculus);
> with(LinearAlgebra);
> s2 := evalf(subs(sol, linalg[hessian](S, [x, y]))); pmp0 := [x-subs(sol, x), y-subs(sol, y)]; sapprox := s0+evalm(`&*`(`&*`(transpose(pmp0), s2), pmp0));
> with(Statistics);
>
> with(stats); statevalf[icdf, chisquare[4]](.95);

> with(VectorCalculus);
> with(plottools);
> with(plots);
> with(linalg); ellips := {seq(stats*([statevalf[icdf, chisquare[4]]])(c) = sapprox, c = [.5, .95, .999])};
> plots(ellips(x, y), x = 950 .. 1000, y = 700 .. 750, grid = [50, 50], view = [950 .. 1000, 700 .. 750]);

 

 

can you helpe me?Thank you

1 2 3 4 5 6 7 Last Page 1 of 36