Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- \[Sigma]=10;
- b=8/3;
- r=28;
- s=NDSolveValue[{x'[t]==\[Sigma] (y[t] - x[t]),
- y'[t]==r x[t] - y[t] - x[t] z[t],
- z'[t]==x[t] y[t] - b z[t],
- x[0]==0.1,y[0]==0,z[0]==0},
- {x[t],y[t],z[t]},{t,0,50}];
- fx[t_]=s[[1]];
- fy[t_]=s[[2]];
- fz[t_]=s[[3]];
- ParametricPlot3D[{fx[t],fy[t],fz[t]},{t,10,50}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement