Items tagged with plot3d

Feed

I want to highlight the intersection between 2 graphs; pp(m,a) and the plane m=-0.2

PP := .8707945038*exp(-50.00000000*(m-0.842e-1)^2+(2.745342070*(m-0.842e-1))*(a-2.3722)-.1046792095*(a-2.3722)^2)

How can I do that?

Thank you

Is there a simple way to reverse the handedness of the axes? I have the following figure:

shadebetween(0, 2-x-y, x = 0 .. 1, y = x^2 .. sqrt(x), scaling = unconstrained, color = yellow, axes = normal, labels = [Z, Y, X], transparency = .9)

and I want the X and Y-axes reversed from a left-handed orientation to a right-handed orientation.

I have Imported a CAD model (.sty) into maple. What I want to do is rotate the model along several axes. At first I want to rotate it around its center. This can be done via 

rotate(Zylinder, 2, 3, 56)

where Zylinder is the Object I importet via

Zylinder := Import("C:/...")

this works fine, but I want the rotation to be a continuous animation. I tried:

animate(rotate(Zylinder, A, 0, 0), A = 0 .. 360)

but that does not work. Can you please tell me how to make it work? And it would be great if the aproach would work for rotations around an axis away from the center, too.

I have the following inequalty

GAMMA*sigma^2 < 1+2*sigma[H]^2*p[th]-2*K*(1+sigma[H]^2*p[th])/N, assuming all of the variables are positive.

How could I make a 3d plot with three axes for Г, K and N for example?

I want to plot a function f(x,y)=x^3-2x^2y. But I only want to plot values where $x^2+y^2 <= 1$. So far I specified the plotting range in the standard way, but I really need to specify it like I described. I want to use plot3d.

Hi, everybody.

I have a problem when I try to plot3d a sub-surface from a surface as follows:


 

S := proc (u, v) options operator, arrow; Matrix([[40*u], [80*v], [10*u^2*v+20*u*v+15]]) end proc;

proc (u, v) options operator, arrow; Matrix([[40*u], [80*v], [10*u^2*v+20*u*v+15]]) end proc

(1)

S(u, v)

Matrix(3, 1, {(1, 1) = 40*u, (2, 1) = 80*v, (3, 1) = 10*u^2*v+20*u*v+15})

(2)

 

p:= proc(u,v) if u<v then S(u,v) else S(u,v)+10 end if end proc:

h:= proc(u) 2*u  end proc:

plot3d(p, 0 .. 1, 0 .. h)

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

 

 

``


 

Download sub-surface.mw

sub-surface.mw

 

Please help me!

 

Thanks and have a nice day.

 

 

Hello

I solved a complex PDE equation in maple but I can not plot the output.

The manner was like bellow:

PDE := [diff(A(z, t), z)+(1/2)*alpha*A(z, t)+(I*beta[2]*(1/2))*(diff(A(z, t), t, t))-(I*beta[3]*(1/6))*(diff(A(z, t), t, t, t))-I*(GAMMA(omega[0]))(abs(A(z, t))^2*A(z, t)) = 0];
IBC := {(D[2](A))(z, 1), A(0, t) = -sin(2*Pi*t), A(z, 0) = sin(2*Pi*z), (D[2](A))(z, 0) = 2*z};
pds := pdsolve(PDE, IBC, type = numeric, time = t, range = 0 .. 1);
pds:-plot3d(A(z, t)*conjugate(A(z, t)), t = 0 .. 1, z = 0 .. 10, shading = zhue, axes = boxed, labels = ["x", "t", "A(z,t)"], labelfont = [TIMES, ROMAN, 20], orientation = [-120, 40]);

It is solved but there is an error like:

Error, (in pdsolve/numeric/plot3d) unable to compute solution for z>INFO["failtime"]:
unable to store 11.2781250000000+4390.00000040000*I when datatype=float[8]

could you please help me?

what is the problem?

 

 

Can't understand what's wrond. This text from my academic books but it doesn't work on practice. Help please

 

plot3d(polygons([[0, 0, 0], [1, 0, 0], [1, 0, 0], [0, 1, 0]], [[0, 0, 0], [0, 1, 0], [0, 1, 1], [0, 0, 1]], [[1, 0, 0], [1, 1, 0], [1, 1, 1], [1, 0, 1]], [[0, 0, 0], [1, 0, 0], [1, 0, 1], [0, 0, 1]], [[0, 1, 0], [1, 1, 0], [1, 1, 1], [0, 1, 1]], [[0, 0, 1], [1, 0, 1], [1, 1, 1], [0, 1, 1]]), light(0, 0, 0.0, 0.7, 0.0), light(100, 45, 0.7, 0.0, 0.0), light(100, -45, 0.0, 0.0, 0.7), ambientlight(.4, .4, .4), title(cube), style(patch), color(zhue));

Error, (in plot3d) bad range arguments: light(0, 0, 0., .7, 0.), light(100, 45, .7, 0., 0.)
 

With the following command I can plot two spheres and plot them.

f1 := x^2+y^2+z^2 = 1

f2 := x+y+z = 1

with(plottools);

with(plots);

S1 := implicitplot3d(f1, x = -1 .. 1, y = -1 .. 1, z = -1 .. 1, style = patchnogrid, color = blue, scaling = constrained, axes = boxed)

S2 := implicitplot3d(f2, x = -1 .. 1, y = -1 .. 1, z = -1 .. 1, style = patchnogrid, color = gold, scaling = constrained, axes = boxed)

dispaly(S1,S2)

My questions are:

1- How can I display (highlight) the circle which is the intersection between these two sphere on the same figure?

2- How can I find the equation of this circle?

Thank you.

Dear All,

The excel file consists of data (v2, Re, t) and I would like plot the variable "t" aginst the variables "v2" and "Re". Could anyone point me out?

Attached is the excel data.Collapsetime.xlsx 

Thank you.

Very kind wishes,

Wang Zhe

Dear all,

 

Is there any way to fill the upper region in plot3d?

e.g. if I put the filled option in 

plot3d(y^3+x^2, x = 0 .. 1, y = -1 .. 1, filled)

then the region between the x-y plane and my plot will be filled. What if I want to fill the upper region?

The reason is that I want to show the upper region is acceptable for me, but I couldn't find any other way. 

If you have any solutions for me, I appreciate it.

Hello

I have two vectors of angle Theta and Phi  given by

Theta=[ 0, Pi/3, 2*Pi/3, Pi];

Phi=[ 0, Pi/3 , 2*Pi/3 , Pi,4*Pi/3, 5*Pi/3, 2*Pi, 7*Pi/3];

I would like a general procedure how can I put on the unit sphere only the point 

x=cos(Phi).*sin(Theta);
 y=sin(Theta).*sin(Phi);
 z=cos(Theta);

where

(Theta, Phi) in the set {(0,Pi/3),  (0,Pi),  , (0,5*Pi/3),  

(Pi/3,0),   (Pi/3,2*Pi/3),   (Pi/3,4*Pi/3),   (Pi/3,2*Pi), 

(2*Pi/3,Pi/3),   (2*Pi/3,Pi),   (2*Pi/3,5*Pi/3),   (2*Pi/3,7*Pi/3), 

(PI,2*Pi/3),   (Pi,4*Pi/3),   (Pi,2*Pi) }

can we extract these set of point fro the definition of the two vectors Phi and Theta and then make the plot

of course we use 
Many thanks

 

plot3d([[1,3,5],[10,30,55],[50,70,25]]);

there is no lines in plot3d

plot can do this, plot3d seems different

plot([[1,1],[10,20],[5,7],[2,3]]);

Hi dears,

How can I draw the solution of the following 3d linear inequalities in Maple?

A:={-x-y+3*z >= 0, -x+2*y >= 0, 3*x-2*y-z >= 0, x > 0, y > 0, z > 0}

I am looking forward to hearing from you

Sincerely yours.

 

When trying to perform the following:

p1 := proc (x, y) if x^2+y^2 <= 1 then x*y-y^2 else 0 end if end proc;
plot3d(p1, x = -1 .. 1, y = -1 .. 1);
Error, (in plot3d) expected ranges but received x = -1 .. 1 and y = -1 .. 1
 

I get this strange error message. To the best of my knowledge x and y ARE provided as ranges. What am I missing/not understanding?

If I omit the ranges in plot3d Maple returns a correct plot, but the default range (-10 .. 10) does not display sufficient details

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