Advertisement
Guest User

Untitled

a guest
Dec 4th, 2016
36
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. \[Sigma]=10;
  2. b=8/3;
  3. r=28;
  4.  
  5. s=NDSolveValue[{x'[t]==\[Sigma] (y[t] - x[t]),
  6. y'[t]==r x[t] - y[t] - x[t] z[t],
  7. z'[t]==x[t] y[t] - b z[t],
  8. x[0]==0.1,y[0]==0,z[0]==0},
  9. {x[t],y[t],z[t]},{t,0,50}];
  10.  
  11. fx[t_]=s[[1]];
  12. fy[t_]=s[[2]];
  13. fz[t_]=s[[3]];
  14. ParametricPlot3D[{fx[t],fy[t],fz[t]},{t,10,50}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement