Guest User

Untitled

a guest
Jan 10th, 2018
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.59 KB | None | 0 0
  1. ListPlot[{{0, 0}, {1, 1}}, Joined -> True, PlotStyle -> Dashed]
  2.  
  3. Graphics3D[{
  4. Tube[{{0, 0, 0}, {1, 1, 1}}],
  5. Tube[BezierCurve[{{0, 0, 0}, {1/2, 1/2, 1}, {1, 1, 1}}]],
  6. Tube[BSplineCurve[{{0, 0, 0}, {1, 1, 1/2}, {1, 1, 1}}]]
  7. }]
  8.  
  9. bsf1 = BezierFunction[{{0, 0, 0}, {1/2, 1/2, 1}, {1, 1, 1}}];
  10. bsf2 = BezierFunction[{{0, 0, 0}, {1, 1, 1/2}, {1, 1, 1}}];
  11.  
  12. ln1 = Tube[#, .01] & /@ Partition[Table[bsf1[n], {n, 0, 1, .01}], 2][[1 ;; -1 ;; 2]];
  13. ln2 = Tube[#, .01] & /@ Partition[Table[bsf2[n], {n, 0, 1, .03}], 2][[1 ;; -1 ;; 1]];
  14.  
  15. Graphics3D[{Tube[{{0, 0, 0}, {1, 1, 1}}], ln1, ln2}]
Add Comment
Please, Sign In to add comment