Guest User

Untitled

a guest
Aug 21st, 2019
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.67 KB | None | 0 0
  1. pts = RandomReal[{0, 1}, {19, 3}];
  2. Show[ListPointPlot3D@pts, Graphics3D@Line@pts]
  3.  
  4. data = RandomFunction[RandomWalkProcess[0.3], {0, 10^2}, 3];
  5. pts = Transpose@data["States"];
  6. Show[ListPointPlot3D@#, Graphics3D@Line@#] &@pts
  7.  
  8. ListPointPlot3D[...]/. Point[a___] :> {Thick, Line[a]}
  9.  
  10. data = RandomFunction[RandomWalkProcess[0.3], {0, 10^2}, 3];
  11. pts = Transpose@data["States"];
  12. ListPointPlot3D[pts, ColorFunction -> "SouthwestColors"]
  13.  
  14. ptsT = Transpose[{Range[1, Length@pts], pts}]
  15.  
  16. func = Interpolation[ptsT];
  17. ParametricPlot3D[func[[Tau]], {[Tau], 1, Length@pts},
  18. ColorFunction ->
  19. Function[{x, y, z, t}, ColorData["SouthwestColors"][z]]]
Advertisement
Add Comment
Please, Sign In to add comment