Message Boards Message Boards

GROUPS:

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

Posted 7 months ago
768 Views
|
3 Replies
|
2 Total Likes
|

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:
3 Replies

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

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:

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

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract