# 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! Attachments:
3 Replies
Sort By:
Posted 7 months 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]}] 
 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}, ...]  Attachments: