Items tagged with plot3d plot3d Tagged Items Feed

I am trying to have the output of DETOOLS as 3dpolarplot. As in the following example:

 

EF := {2*(diff(w[2](t), t)) = 10, diff(w[1](t), t) = sqrt(2/w[1](t)), diff(w[3](t), t) = 0}; with(DEtools); DEplot3d(EF, {w[1](t), w[2](t), w[3](t)}, t = 0 .. 100, [[w[1](0) = 1, w[2](0) = 0, w[3](0) = 0]], scene = [w[1](t), w[2](t), w[3](t)], stepsize = .1, orientation = [139, -106])

 

how can I get the output as a polarplot in 3d where, w[2] and w[3] have range 0..2*pi.

Please help in this respect asap.

 

Hello everyone!

Is this a bug that the following two commands work differently?:

densityplot(sin(x*y), x = -5 .. 5, y = -5 .. 5, colorscheme = ["zgradient", ["blue", "green", "yellow", "red"], zrange = -5 .. 5], style = surface)

plot3d(sin(x*y), x = -5 .. 5, y = -5 .. 5, view = -10 .. 10, colorscheme = ["zgradient", ["blue", "green", "yellow", "red"], zrange = -5 .. 5], style = surface)

The second one works fine in that if you increase the magnitude of sin(x*y) (e.g. 3sin(x*y)) the coloring changes accordingly. But the first one plots sin(x*y) or 5sin(x*y), etc. just the same!

Many thanks for you comments in advance!

So, I have the following inputted into Maple 2015, but the plots are not displaying.  I've double checked the syntax, but I don't see anything wrong.  Any thoughts?  Thank you!

 

plot3d(cos(theta)^2, phi = 0 .. 2*Pi, theta = 0 .. Pi, axes = BOX, style = line, grid = [50, 50], view = [-1 .. 1, -1 .. 1, -1 .. 1], coords = spherical);

 

Trying to plot that here actually displays the plot, but it isn't showing up in my Maple worksheet.

how draw a line x+y = 1 on a sphere x^2+y^2+z^2 = 1 in maple

Let us consider the maximum value of the polynomial

x^4+c*x^2+x^3+d*x-c-1

on the interval x=-1..1 as a function g of the parameters c and d. General considerations suggest its continuity. However, a plot3d of g does not  confirm it.  Also the question arises "Is the function g(c,d) bounded from below?". Here is my try with the DirectSearch and NLPSolve:

 

restart;
``

g(10, -10)

9.

(1)

plot(x^4+x^3+10*x^2-10*x-10-1, x = -1 .. 1)

 

plot3d(g, -5 .. 5, -5 .. 5, grid = [100, 100], style = surface, color = "DarkOliveGreen")

 

DirectSearch:-GlobalOptima(proc (a, b) options operator, arrow; g(a, b) end proc, {a = -1000 .. 1000, b = -1000 .. 1000}, variables = [a, b])

[-167.208333252089, Vector(2, {(1) = 999.9999999975528, (2) = 166.20833325208952}, datatype = float[8]), 815]

(2)

DirectSearch:-GlobalOptima( (a, b) -> g(a, b), variables = [a, b])

DirectSearch:-GlobalOptima(proc (a, b) options operator, arrow; g(a, b) end proc, variables = [a, b])

Error, (in Optimization:-NLPSolve) invalid input: PolynomialTools:-CoefficientVector expects its 1st argument, poly, to be of type polynom(anything, x), but received HFloat(HFloat(undefined))*x^4+HFloat(HFloat(undefined))*x^3+HFloat(HFloat(undefined))*x^2+HFloat(HFloat(undefined))*x+HFloat(HFloat(undefined))

 

``

 

Download bound.mw

 

I have an equation for r(t) that involves 3 (slidable) constants; an equation for phi(t) that involves the same three constants and is written in terms of arctan; theta is a slidable constant. How do I plot this on an x,y,z plot? I want an animation in terms of t.

plot3d(x^2+y^2, x = -1 .. 1, y = -1 .. 1);

i searched this 

http://www.maplesoft.com/support/helpJP/Maple/view.aspx?path=NAG/d06abc

and

DelaunayTriangulation(points) in help file

is there any example to show how to use these?

 

(in plot3d) the legend option is not available for 3-D plots

Is there other method to replace the legend option?

 

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

To the world you may be one person,but to one person you may be the world!

How I can sketch a line with equation (x-2)/3 = (y-1)/4 = (z-3)/3 in three dimentional space?

Hi,

Can anyone please suggest a way to set the zoom factor for a 3D plot from the plot commands or using DocumentTools or in some other way that doesn't involve the interactive tools?

What I'm trying to achieve is the following:

I'm developing MapleCloud worksheets for a course I'm teaching and want to give my students several 3D plots to interact with through their web browser.  When I make the plots, Maple determines the scaling so that boxed axes with labels will fit in the area of the plot component.  However, I'm making plots with axes=none that look better at a higher zoom factor (the corners of the unseen boxed axes would be out of the plot area but all the plot components still fit) and I'm keen to create the plots that look like this if possible.

My ideal solution would be for there to be a zoomfactor option for the plots[display] command or to be able to use some code like SetProperty("Plot0",zoomfactor,1.25) but I haven't been able to find a way to achieve this.  The closest I found was setting the viewpoint option, but that locked the view, preventing rotation, and I want to just set the initial view.  Is there some other method I haven't found?

Thank you for your help,

Alex

 

 

I have a set of differential equations on 3 variables, B[1],B[2] and C. Its not physically meaningful for B[1]+B[2]>0.5 so i would ideally like to replace the cube that the solutions are displayed on (the axis take the limits B[1]=0...0.5,B[2]=0...0.5,C=0...100 ) with a triangular prism (the axis take the limits B[1]=0...0.5,B[2]=0...0.5,B[1]+B[2]<0.5,C=0...100 ).

Failing that i'd like the plot to display a plane showing where the meaningful values for the variables end.

here is the code I use to put the ODEplot together

Model := [diff(B[1](t), t) = k[a1]*C(t)*(R-B[1](t)-B[2](t))-k[d1]*B[1](t), diff(B[2](t), t) = k[a2]*C(t)*(R-B[1](t)-B[2](t))-k[d2]*B[2](t), diff(C(t), t) = (-(k[a1]+k[a2])*C(t)*(R-B[1](t)-B[2](t))+k[d1]*B[1](t)+k[d2]*B[2](t)+k[m]*((I)(t)-C(t)))/h];
DissMod := subs((I)(t) = 0, Model);
AssMod := subs((I)(t) = C[T], Model);

Pars1a := [k[a1] = 6*10^(-4), k[d1] = 7*10^(-3), k[a2] = 6*10^(-4), k[d2] = (7/5)*10^(-3), R = .5, k[m] = 10^(-4), C[T] = 100, h = 10^(-6)];

Pars := Pars1a; thing11 := subs(Pars, AssMod[1]), subs(Pars, AssMod[2]); thing12 := diff(C(t), t) = piecewise(t <= 100, subs(Pars, rhs(AssMod[3])), subs(Pars, rhs(DissMod[3]))); sol := dsolve({thing11, thing12, C(0) = 0, B[1](0) = 0, B[2](0) = 0}, {C(t), B[1](t), B[2](t)}, numeric, output = listprocedure, maxstep = 2, maxfun = 1000000); ParsPlot1a := odeplot(sol, [B[1](t), B[2](t), C(t)], t = 0 .. 700, color = blue, view = [0 .. .5, 0 .. .5, 0 .. 100], tickmarks = [[0 = 0, .5 = R], [0 = 0, .5 = R], [0 = 0, 25 = (1/4)*C[T], 50 = (1/2)*C[T], 100 = C[T]]]);


But I can't see a way of either making the plane or making the ODEplot axis into something other than a cube.

Hello,

I need to plot these functions in two different plots. (Profit_A and Profit_B together, Profit_AA and Profit_BB together).

The file is attached. plot_new.mw

I need to use these constant:

P[A]: 0 to P[B]-0.01 (with 0.01 increments)

P[B]: 0 to 0.50 (with 0.01 increments)   P[A] is always less than P[B] These are probabilities

p=1,

w[u] = 0.8,

w = 0.5,

v=0.5,

D[A] = 1000,

D[B] = 1000,

H = 2500,

 

> restart;
> u := -3*sqrt(mu)*tanh*(A+sqrt(-mu)*(x-(1/2)*mu*t))/sqrt(6*a)+3*sqrt(mu)*sech*(A+sqrt(-mu)*(x-(1/2)*mu*t))/sqrt(-6*a);

>
> mu := .5;
0.5
> lambda := 1;
1
> a := 0.5e-1;
0.05
> A := 1.5;
1.5
> plot3d([abs(u)], x = -3 .. 3, t = -3 .. 3);

How plot two functions of two variables to (2-dimension)?

restart;
approximate := exp(-2*t)+x*exp(-2*t)+(1/2)*exp(-2*t)*x^2+(1/6)*exp(-2*t)*x^3+(1/24)*exp(-2*t)*x^4+(1/120)*exp(-2*t)*x^5+(1/720)*exp(-2*t)*x^6+(1/5040)*exp(-2*t)*x^7+(1/40320)*exp(-2*t)*x^8+(1/362880)*exp(-2*t)*x^9+(1/3628800)*exp(-2*t)*x^10+(1/39916800)*exp(-2*t)*x^11+(1/479001600)*exp(-2*t)*x^12+(1/6227020800)*exp(-2*t)*x^13+(1/87178291200)*exp(-2*t)*x^14+(1/1307674368000)*exp(-2*t)*x^15+(1/20922789888000)*exp(-2*t)*x^16+(1/355687428096000)*exp(-2*t)*x^17+(1/6402373705728000)*exp(-2*t)*x^18+(1/121645100408832000)*exp(-2*t)*x^19+(1/2432902008176640000)*exp(-2*t)*x^20+(1/51090942171709440000)*exp(-2*t)*x^21;
apr := unapply(approximate, x, t);
Exact := (x, t)-> exp(x-2*t) ;
plot3d(exp(x-2*t)-approximate, x = 0 .. 5, t = 0 .. 5);

 

plot.mw

I want to plot the curve of a pythagorean quadruple. Any suggestions? I think I have to use space curve. I never liked the options for color on those though. I'm guessing it's just a single curve based on what I know about these things. I have no idea what to expect but I'm sure it will please me no matter what.

X=2*m*p/(m^2+n^2+p^2)

y=2*n*p/(m^2+n^2+p^2)

z=(p^2-(m^2+n^2))/(m^2+n^2+p^2)

 

 

1 2 3 4 5 6 7 Page 1 of 8