Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

I typed (x-a)(x-a) into Maple 18 (the only thing in a new document) and got x(x-a)-a 

I'm wondering why it is evaulated like this?

Is this because of a setting?

BTW, I evaluated at a=4 first. 

I tried to find the root distritubion of a polynomial? 

When p=1, q=3, the following command works.


with(plots):

eq:=u^(2*q)+1-2*K*u^(q-p);

p:=1;   q:=3;

unitcircle:=implicitplot(x^2+y^2 = 1, x = -1 .. 1, y = -1 .. 1, scaling = constrained);

animate(complexplot,[[solve(eq, u)],style = point,symbolsize=10,color="red"],frames=50,K=-1..1,background=unitcircle, scaling=constrained, trace=20 );

However, when I tried p=2, q=3, only one root was shown on the animation.  

But   "complexplot([solve(eq,u)],style=point)"      showed  6 roots anyway.

I have no idea what was wrong. 

 

 


k:=0.99: with(RealDomain):

m:=1: Digits:=2:

x:=(Pi*csc(Pi*(k-m)))/(0.693*GAMMA(k)*GAMMA(m));

x := -1.4*Pi*csc(0.1e-1*Pi)

m1:=MeijerG([[-m],[1-m]],[[0,-m,-m],[k-m]],(-m*k)/snr);

m1 := MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)

m2:=MeijerG([[-k],[1-k]],[[0,-k,-k],[m-k]],(-m*k)/snr);

m2 := MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr)

c:=x*((((m*k)/snr)^m)*m1-(((m*k)/snr)^k)*m2);

c := -1.4*Pi*csc(0.1e-1*Pi)*(.99*MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)/snr-.99*(1/snr)^.99*MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr))

with(plots):

Warning, the name changecoords has been redefined

plot(c,snr=0..10);

Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Error, empty plot

 

 


Download capacity_kfading.mw

k:=0.99: with(RealDomain):

m:=1: Digits:=2:

x:=(Pi*csc(Pi*(k-m)))/(0.693*GAMMA(k)*GAMMA(m));

x := -1.4*Pi*csc(0.1e-1*Pi)

m1:=MeijerG([[-m],[1-m]],[[0,-m,-m],[k-m]],(-m*k)/snr);

m1 := MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)

m2:=MeijerG([[-k],[1-k]],[[0,-k,-k],[m-k]],(-m*k)/snr);

m2 := MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr)

c:=x*((((m*k)/snr)^m)*m1-(((m*k)/snr)^k)*m2);

c := -1.4*Pi*csc(0.1e-1*Pi)*(.99*MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)/snr-.99*(1/snr)^.99*MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr))

with(plots):

Warning, the name changecoords has been redefined

plot(c,snr=0..10);

Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Error, empty plot

 

 


Download capacity_kfading.mw

k:=0.99: with(RealDomain):

m:=1: Digits:=2:

x:=(Pi*csc(Pi*(k-m)))/(0.693*GAMMA(k)*GAMMA(m));

x := -1.4*Pi*csc(0.1e-1*Pi)

m1:=MeijerG([[-m],[1-m]],[[0,-m,-m],[k-m]],(-m*k)/snr);

m1 := MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)

m2:=MeijerG([[-k],[1-k]],[[0,-k,-k],[m-k]],(-m*k)/snr);

m2 := MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr)

c:=x*((((m*k)/snr)^m)*m1-(((m*k)/snr)^k)*m2);

c := -1.4*Pi*csc(0.1e-1*Pi)*(.99*MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)/snr-.99*(1/snr)^.99*MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr))

with(plots):

Warning, the name changecoords has been redefined

plot(c,snr=0..10);

Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Error, empty plot

 

 


Download capacity_kfading.mw

k:=0.99: with(RealDomain):

m:=1: Digits:=2:

x:=(Pi*csc(Pi*(k-m)))/(0.693*GAMMA(k)*GAMMA(m));

x := -1.4*Pi*csc(0.1e-1*Pi)

m1:=MeijerG([[-m],[1-m]],[[0,-m,-m],[k-m]],(-m*k)/snr);

m1 := MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)

m2:=MeijerG([[-k],[1-k]],[[0,-k,-k],[m-k]],(-m*k)/snr);

m2 := MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr)

c:=x*((((m*k)/snr)^m)*m1-(((m*k)/snr)^k)*m2);

c := -1.4*Pi*csc(0.1e-1*Pi)*(.99*MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)/snr-.99*(1/snr)^.99*MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr))

with(plots):

Warning, the name changecoords has been redefined

plot(c,snr=0..10);

Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Error, empty plot

 

 


Download capacity_kfading.mw

require help to overcome this warning. Thanks.

How do I mark a value on circles

I want to plot Smith Chart and calculate the value Correspond to circles.

Any one can give me some suggestions or better idea to plot Smith Chart.

There are my code:Doc1.doc

 

 

Hi Maple friends.

x(x+y)^4 = y(3*x-y)^2

When I differentiate implicitly by hand, I get:

-5*x^4-4*x^3*y+3*y^2/x^4-6*x*y+3*y^2 (my lecturer also got this solution)

Maple gives the result as: 

(-2*x(x+y)^3*(D(x))(x+y)+3*y(3*x-y)*(D(y))(3*x-y))/(2*x(x+y)^3*(D(x))(x+y)+y(3*x-y)*(D(y))(3*x-y))

Maybe I am doing something wrong in Maple? From the context menu, I choose implicit differentiation, and then select y as the dependent variable. How can I get Maple to give the same solution?

Thanks in advance.

I have some lengthy formulas in the maple. I don't want to waste time on rewritting them in a word document.
Is there a way to import those equations in a clean and tidy form to a word document or the mathtype program or something else! :)

I've been instructed to create an animation showing the changing plots of a single square waveform using 5,10,20,40,80,160,320, and 640 terms in my Fourier series. This is my code right now: 

 

with (plots):
L := [seq(2^i, i = 0 .. 6)];


[1, 2, 4, 8, 16, 32, 64]


animate( plot, [2/((2*n-1)*Pi))*sin((2*n-1)*Pi*x], n=L);
Error, `)` unexpected

 

It doesn't work. Can anyone explain what I'm doing wrong, or how to solve my question?

dualaxisplot(listplot(sols[2], color = red), listplot(sols[1], color = blue), style = line, gridlines = false);

How can I define general matrices in Maple and do symbolic manipulation - for example specifying a matirx M to be of dimension n x m where n and m are integers ?

1-Suppose that after applying the command "factor(f)" the "f "takes the form:

f=(BesselJ(0,r))*(A very lengthy term)

Is there a way to force maple to show f like below:

f=(A very lengthy term)*(BesselJ(0,r))


2-Suppose f is written as follows:

f=a*b*x+a*b*y

Can you suggest a way (without using "op" command) to write f as:

f=a*(b*x+b*y)

Hi Everyone

Is there a built-in way to fit a regression using generalized least squares in Maple ?

 

Hi,

 

I am using densityplot function to produce different plots of a function. The function depends on two variables q and yi .

densityplot(f, q = 0 .. 1, yi = 0 .. 1, grid = [100, 100], style = patchnogrid, color = "Red", axes = boxed, axesfont = [Times, Roman, 15], labelfont = [Times, Roman, 15])


I pass the command style = patchnogrid, but still I get these white lines which I believe are grid lines. 
In the example provided in maple tutorial, when they used this command, all gridlines were removed. Why are they not removed in my plots?

if the plot is not visible, click the link

https://www.dropbox.com/s/7xxfefv8n1arr4q/Example.jpg?dl=0

plot

I have used the command "op" in a code that I have written with Maple 17. When I restart the maple server and run the whole code again, the result of the "op" command changes! why is this happening?

Hi all

How can I produce following matrix by maple?

the order of matrix should be {N*(m+1)}*{N*(m+1)} where N is known constant

 

thanks for any guide

 

Mahmood   Dadkhah

Ph.D Candidate

Applied Mathematics Department

How do you use algcurves and Puiseux series in Maple?

First 1350 1351 1352 1353 1354 1355 1356 Last Page 1352 of 2256