Message Boards Message Boards

Plot an equation of motion in 3D using (Parametic)Plot3D?

GROUPS:

Hello everyone,

I've attached a picture of three coordinates. The teacher told me I have to Plot them in 3D getting a equation of motion. How could I get it? And what about the ParameticPlot3D?

Thank you!

Attachment

Attachments:
POSTED BY: Lorenzo Cristofori
Answer
8 days ago

People here generally like users to post code as Mathematica code instead of images or TeX, so they can copy-paste it. It makes it convenient for them and more likely you will get someone to help you.

a = 1;(* Some  random values *)
x1 = -5;
x2 = 2;
y1 = -1;
y2 = 20;
z1 = 4;
z2 = -10;
T = 2;
x[t_] := (-a t^2 (t - T))/(2*T^3) + x1 - 6 (t^5 (x1 - x2))/T^5 + (15*t^4 (x1 - x2))/T^4 - (Pi*E*Glaisher*t^3 (x1 - x2))/T^3; 
y[t_] := y1 - 6*(t^5 (y1 - y2))/T^5 + (15*t^4 (y1 - y2))/T^4 - (10*t^3 (y1 - y2))/T^3;
z[t_] := (a t^3 (t - T))/(2*T^3) + z1 - 6 (t^5 (z1 - z2))/T^5 + (15*t^4 (z1 - z2))/T^4 - (10*t^3 (z1 - z2))/T^3
ParametricPlot3D[{x[t], y[t], z[t]}, {t, 0, 2}, AxesLabel -> {"x[t]", "y[t]", "z[t]"}, BoxRatios -> {1, 1, 1},PlotStyle -> {Blue,Thickness[0.005]}]

enter image description here

POSTED BY: Mariusz Iwaniuk
Answer
8 days ago

Sorry, you are totaly right. I don't know but I really forget it.

So, I get this:

Block[
 {a = 0.05, T = 90, x1 = 0, y1 = 20, z1 = 40, x2 = 10, y2 = 10, 
  z2 = 0}, ParametricPlot3D[
  {x[t], y[t], z[t]}, {t, 0, T}, 
  AxesLabel -> {"x[t]", "y[t]", "z[t]"}, BoxRatios -> {1, 1, 1}, 
  PlotStyle -> Red
  ]
 ]

But how can I get a Plot3D (if I can)?

Plot3D[{x[t], y[t], z[t]}, {t, 0, T}, ...]
Attachment

Attachments:
POSTED BY: Lorenzo Cristofori
Answer
7 days ago

Plot3D generates a 3D suface( or several surfaces at the same time) ,only ParametricPlot3D gives you parametric 3D curve (trajectory) ,or parametric 3D surface.

POSTED BY: Mariusz Iwaniuk
Answer
7 days ago

Group Abstract Group Abstract