Items tagged with plot3d plot3d Tagged Items Feed

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)

 

 

Why maple is not plotting the whole surface in the domain specified?

Thanks for the help.

if there is a funciton like f(i,j)=i+2*j
and I have already print out a 3D picture use the commend
"plot3d(f,i=1..10,j=1..10);"
the 3D picture just like the link : http://imgur.com/eLYhYEs
how can I convert the datas in 3D picture to text file?
the type may be like as follow I think.
-------------------------------------
(i,j)=f(i,j)
(1,1)=3
(1,2)=5
(1,3)=7...
-------------------------------------
I had try
"writedata("C:\\desktop\\a.txt",3Ddatas)"
but it seems can only output one variable parameter in a function, what else can I do?
thanks a lot.


(1,1,0), (0,0,0), (0,1,0)

1-0, 1-0, 0-0
0-0, 1-0, 0-0

with(LinearAlgebra):
m := Matrix([[i, j, k], [1, 1, 0], [0, 1, 0]]);
Determinant(m);
1*z = 0;

plot3d(z=0, x=0..1, z=0..1); #this can not plot

0*(x-0) + 0*(y-0) + 1*(z-0) = 0

would like to draw 3d rectangle in 3d plot with one formula

Hi!

For my lecture advanced dynamics, I got the question to make a sketch of the coordinate system and the particle’s motion, with the following position vector:

r(t) = (a cos(ωt))i + (b sin(ωt))j + (ct)k

In this function, ω is in [rad/s], a and b are in [m], t in [s] and c is [m/s].

I have no idea what this should look like, and I was thinking about plotting this with Maple, but thus far I'm not succeeding in plotting it. Which function or method can I use to visualize this in Maple?

Thanks a lot!

 

I want to make a nested loop and store the data(with complex numbers) in matrix in order to make 3D plot.

I want to plot two functions on the same 3D plot. X axis is Pa, Y axis is Pb, and Z axis is the value of each functions. (Profit1 an Profit 3)

I want to see dots (preferably different color) for each function's values based on different Pa and Pb combinations. So, it will be easy to navigate how these functions approach (or drift apart) based on Pa and Pb. 

I attached the maple file. My functions are Profit1 and Profit3.

Pa and Pb are probability values ranging 0 to 1, with 0.01 increment. I have the condition that Pa<Pb, always.

So, Pb = 0:0.01:1

      Pa = 0:0.01:(Pb - 0.01)  (This the for loop I use in MATLAB, I am not sure it is the same in Maple)

The constant values are:

c = 0;
p = 1;
wu = 0.8;
w = 0.5;
Ha = 100;
Hb = 200;

How should I plot these functions on 3D? I also wonder that if it is possible to plot this scenario on 2D. scenario1.mw

I have a linear problem with 4 variables (p0, p1,p2, p3) and a list of inequality constraints (shown below).  I would like to plot a polyhedral in 3 dimensions (p1,p2, p3 and omitting p0) showing the region that satisfies the inequalities.  That is, something similar to plots[inequal] but in 3d.  Any pointers would be appreciated.

/* Constraints */
+p0 <= 60;
-p0 +p1 >= 4;
-p0 +p2 >= 5;
-p0 +p3 >= -12;
+p0 -p2 >= -33;
+p1 -p2 >= -36;
+p2 <= 67;
-p2 +p3 >= -35;
+p0 -p3 >= 2;
+p1 -p3 >= 0;
+p2 -p3 >= 11;
+p3 <= 57;
+p0 -p1 >= -7;
+p1 <= 43;
-p1 +p2 >= 0;
-p1 +p3 >= -9;

 

Hi fellow Maple users,

I'm trying to solve an eigenvalue problem of Ax=wx, where A is a 6 by 6 Hermitian matrix with two parameters x and y. I want to solve it for w and then plot3d it with x and y as unknowns. The way I have been doing is first find the characteristic equation Determinant(A-wI)=0 and then solve it for w, and then plot3d the solutions within a range for x and y. My problem is sometimes solve(Determinant(A-wI)=0,w) would give me the 6 solutions expressed in x and y, but sometimes when the numbers in A are changed it will only give me a Rootof solution with which I cannot plot. I'm wondering if there is a better way to do this. I'm actually not very interested in the symbolic solution of w expressed in x and y, just the plot, so if there is a numerical alternative it's good too.

Thank you in advance!

Dear Maple users

I am delighted that Maple has builtin commands to plot so many polyhedrons in 3D. Here I am talking about the polyhedraplot command in the plots package. I was however disappointed that the socalled Truncated Icosahedron is not supported (not present in the supported list ...). My first question is:

1. Why isn't it supported?

It seems more relevant than many of the other polyhedrons which are supported. It is a member of the Archimedian Solids (see https://en.wikipedia.org/wiki/Truncated_icosahedron). Besides it is the basic structure for soccer footballs. I found out that a TruncatedIcosahedron command is available in the geom3d package. This command is able to deliver data for the faces and more. With this command I succeded in writing a small program to actually plot this polyhedron in 3D:

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

restart;
with(geom3d):
with(plots):
TruncatedIcosahedron(football,point(C,(0,0,0)),1):

PlotFootball:=proc(tr::float)
    
    local i::integer,
         FootballFace::Vector(datatype=float[8]),
         plotFace::Vector(datatype=float[8]);    
    
    for i from 1 to 32 do
        FootballFace[i]:=faces(football)[i];
        plotFace[i]:=polygonplot3d(Matrix(FootballFace[i]),axes=none,scaling=constrained,transparency=tr);
    end do;
    
    display(seq(plotFace[i],i=1..32)):
    
end proc:

PlotFootball(0.00);

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

Since I am not really experienced in programming in Maple, here is my last question:

2. Can I simplify something in my code above?

 

Best wishes,

Erik

 

please i need assistance on how to go about contructing a 3d plot of the fuction below:

((Pi*BesselJ(1, x)*HermiteH(0, x)+2*BesselJ(0, x)-Pi*BesselJ(0, x)*BesselJ(1, x)*HermiteH(0, x))*exp(-x^2*D*t/`&alpha;k`)*BesselJ(0, x/chi)/BesselJ(1, x)^2)-M[0]*T[2]*`&gamma;gr`*exp(-T[g/T[0]]*(t-delta))

please i will appreciate a code or sort of syntax or guidline on how to do it,pls i want to plot the value of the function on the y axis, chai on the x axis and t[2] on the z axis.

M[0]=8,g=9.8,T[2]=300,500,700,900,gamma=1.17,r=1.15,T[g]=1.11111,T[0]=3.666667,t=5e-9,delta=0.002,x=3.478505,alpha=5.36,k=1.2,chi=0.22,0.23,0.24,0.25,r=1.15,D=7.46

I'm trying to plot the region bounded by the coordinate planes, the plane z=2-y and the cylinder x=4-y^2

This is what I have so far.  I want to know how to get rid of the portions of the planes and cylinder that are not enclosing the region.

restart;

with(plots);

xmin := 0;
xmax := 4;
ymin := 0;
ymax := 2;
zmin := 0;
zmax := 2;

a := plot3d([2-y], x = xmin .. xmax, y = ymin .. ymax, orientation = [40, 70], transparency = 0, color = green, filled = false, title = "");
%;

b := implicitplot3d([z = 0, y = 0, x = 0], x = xmin .. xmax, y = ymin .. ymax, z = zmin .. zmax, transparency = .5, axes = normal);
%;
c := implicitplot3d([x = -y^2+4], x = xmin .. xmax, y = ymin .. ymax, z = zmin .. zmax, transparency = .5, filled = true, axes = normal, color = blue, orientation = [45, 35]);


display(a, b, c);

1 2 3 4 5 6 7 Page 1 of 7