Items tagged with plot plot Tagged Items Feed

Hi

I have this diagram

Sys := -(diff(p(z), z)) = 1.289*10^10*(.675+77/(Pi*1.2^2))*(1+x(z))/(Pi*1.2^2*p(z)), diff(x(z), z) = 1.134*10^(-8)*Pi*1.2^2*(1-x(z))*p(z)/(1+x(z)); Inc := p(0) = 2*10^6, x(0) = 0; Sol := dsolve({Inc, Sys}, numeric); plots[odeplot](Sol, [[z, p(z)], [z, x(z)]], z = 0 .. 26, color = [red, blue], thickness = 2)

according to the diagram data,I should be plotted another diagram in terms of P vers w.

that

w = 1560*Pi*(9*z-(1/3)*(z-2.7)^3*((1/3)*2.7^3)).

 

Hi all, I am new to MAPLE, I have been using Mathematica mostly. Here is what i am trying to do in MAPLE, 

Use the procedure plotmotion 2 on the plotmo worksheet to animate the motion of a marble in a bowl of the shape of the bottom half of the ellipsoid x^2/16 + y^2/12 +z^2/9 = 1

Can anyone help? It will be greatly appreciated.

Hi,

I want to display several plots insequence and tried creating a list of polygonplot3d objects called "plotlist" and using them as an argument like this:

display(plotlist)

which triggered the error message:

Error, (in plots:-display) expecting plot structure but received: plotlist

Where's my mistake and how could I achieve the desired outcome? (displaying polygon3dplots in sequence)

 

Best Regards

 

 

I have generated a picture using pointplot and display that creates a grid of colors based on the angle between vectors and (1,0) in R^2. Each angle is given a unique color via the HSV color space. I would like to provide a legend explaining the colour, something along the lines of

red (brown) green (blue) red
0                Pi                 2*Pi

and possibly

red       (brown)       green 
angle1                     angle2   

Is there an easy way to do this, or will I have to mess around with a custom pointplot/textplot solution?

Hello,

I am solving a large system of ODEs, using the following command,


> Sol := dsolve({seq(ode[j], j = 0 .. 21), seq(v[j](0) = 0, j = 1 .. 21), v[0](0) = 1}, [seq(v[j](t), j = 0 .. 21)]);

>

 

and then plot the quantities I want by something like

> plots:-odeplot(Sol, [t, v[3](t)+v[5](t)], t = 0 .. 1.5);

My problem is that, I do not know a priori which quantity I want to plot, and plotting using above method requires solving the ODEs each time separately, which takes a long time.

 

So I was curious if there is a scheme that I can solve my system for once and for all, and then plot any quantities that I would like to see.

i want to make a solution that makes sphere not using Sphereplot()

i mean it`s fomula for a sphere that x^2+y^2+z^2=r^2

but, as you know

if i do like this

plot3d(x^2+y^2+z^2,x=0..1,y=0..1)

Warning, expecting only range variables [x, y] in expression x^2+y^2+z^2 to be plotted but found name z

 

how to make a sphere !?

Dear all,

I want to plot for example cos(theta) from 0 to 2*Pi inside a circle at a radius R. The axis theta of the ploted function is at a radius R.

Is it possible ?

Thanks

plot.mw

 

Hi all. Please help me to plot this. I don't know why it doesn't work correctly.

Regards

I have a surfdata-plot which - by interpolation - goes through different circles with different inclinations with respect to each other. The surface is color-coded with zhue from violet to red. In order to see the valleys behind peaks I would like to have a filled 2D-plot of my zhue-surfdata colors with contours wherever the surface passes z-coordinate integers located somewhere below the surface (e.g. at z=-7). Unfortunately, I haven't found examples of contourplots for surfdata plots so far.

restart

with(plots);

[animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, densityplot, display, dualaxisplot, fieldplot, fieldplot3d, gradplot, gradplot3d, graphplot3d, implicitplot, implicitplot3d, inequal, interactive, interactiveparams, intersectplot, listcontplot, listcontplot3d, listdensityplot, listplot, listplot3d, loglogplot, logplot, matrixplot, multiple, odeplot, pareto, plotcompare, pointplot, pointplot3d, polarplot, polygonplot, polygonplot3d, polyhedra_supported, polyhedraplot, rootlocus, semilogplot, setcolors, setoptions, setoptions3d, spacecurve, sparsematrixplot, surfdata, textplot, textplot3d, tubeplot]

(1)

with(CurveFitting);

[ArrayInterpolation, BSpline, BSplineCurve, Interactive, LeastSquares, PolynomialInterpolation, RationalInterpolation, Spline, ThieleInterpolation]

(2)

R := [30, 32.5, 37.5, 42.5, 47.5, 50]:

incl := [0, .5, 1, -2, 5, 0]:

phases := [0, (1/12)*Pi, (1/8)*Pi, (1/4)*Pi, (1/2)*Pi, 0]:

colors := [grey, black, blue, red, green, grey]:

orbit := [R[j]*cos(t), R[j]*sin(t), incl[j]*cos(t-phases[j])]:

display(seq(spacecurve(orbit, t = 0 .. 2*Pi, color = colors[j], view = [-56 .. 56, -56 .. 56, -15 .. 15], labels = ["x [AU]", "y [AU]", "z [AU]"]), j = 1 .. 6));

 

NULL

R := [30, 32.5, 37.5, 42.5, 47.5, 50]:

incl := [0, .5, 1, -2, 2*evalf(Pi)-1.75, 0]:

pointplot(R, incl, color = [grey, red, blue, green, black, grey], labels = ["radius", "incl"]);

 

NewR := [seq(30+.4*i, i = 0 .. 50)]:

Newincl := ArrayInterpolation(R, incl, NewR, method = spline):

pointplot(NewR, Newincl, labels = ["radius", "incl"]);

 

phases := [0, (1/12)*evalf(Pi)+.3, 3*evalf(Pi)*(1/4), (1/4)*evalf(Pi)+.2, evalf(Pi)/(2.5)+.5, 0]:

pointplot(R, phases, labels = ["radius", "phase"]);

 

Newphases := ArrayInterpolation(R, phases, NewR, method = spline):

pointplot(NewR, Newphases, labels = ["radius", "phase"]);

 

t := [seq(0+i*(2*Pi*(1/50)), i = 0 .. 50)]:

f := proc (i, j) options operator, arrow; [NewR[i]*cos(t[j]), NewR[i]*sin(t[j]), Newincl[i]*cos(t[j]-Newphases[i])] end proc;

proc (i, j) options operator, arrow; [NewR[i]*cos(t[j]), NewR[i]*sin(t[j]), Newincl[i]*cos(t[j]-Newphases[i])] end proc

(3)

Surface := [seq([seq([NewR[i]*cos(t[j]), NewR[i]*sin(t[j]), Newincl[i]*cos(t[j]-Newphases[i])], i = 1 .. 51)], j = 1 .. 51)]:

plots[surfdata](Surface, labels = ["x [AU]", "y [AU]", "z [AU]"]);

 

``


Download Worksheet_Surfdata-contourplot.mwWorksheet_Surfdata-contourplot.mw

When trying to plot "Example1" from this page www.rhitt.com/courses/227/su99/Maple/html/surfaces2.html I get an error message that Maple cannot make a plot structure from an object with the transformation proc( (x,y) -> [x,y,-.3] end proc) . How can I plot this example?

I have a system of pdes and solved numerically using pdsolve (numeric) command.

The system consists of four first order partial differentia equations.

for example u(x,t), R(x,t)....

what command should I give to the Maple and get the graph of u(x,t) at a specific point x_0?

For example, I need a plot for u(30,t).

Is it possible with the maple plot?

I really appreciate your help.

Thank you for reading this post. :)

 

Velocity_distribution.mw

 

Hi, I plotted this, but I don't know if it is true or not...!!!

Help me please.

Regards.

In a plot command, how do I indicate not to show the legend ?

(I know about unchecking "show legend" with a right click, and I have searched mapleprimes.)

 

Thanks, all !

I'd like to plot a surface from three lists in the following way:

For each item in the list X we have a specific curve "plotted" in the plane Y vs Z.

In other terms, we have something like that: each X[i] will be related to two lists, say, Z[1], Z[2], Z[3] and Y[1], Y[2], Y[3], X[i+1] will be related to Z[4],Z[5],Z[6], and Y[4],Y[5],Y[6] and so on...

A very 'thin' surface following this would be, as a example:

X=[1,2]

Y=[[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29], [2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30]]

Z=[[20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49], [21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50]]

I am looking for some tutorial showing something similar but without any success. Please, any kind of help certainly will be absolutely very appreciated. Thanks in advance! Best regards,

 

 

with(plots);

polarplot(1+2*sin(theta),theta=0..2*Pi);

 

it makes a graph made up of polar coordinate.

i wannna solve the question in cartesian coordinate

i wouldnt come up with ideas to solve it!!

please help me

 

for example)

y= r*sin(theta)

1+2y/r=r

y=(r^2-r)/2

...

...

y=x^n+x^n ....

x= something , something, something

 

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