Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ListPlot[stepsd, PlotRange -> All]
- AbsoluteTiming[s = NDSolve[Flatten[{xf, yf, zf,vel, pos}], Flatten[{xt, yt, zt}], {t, 0, time}, MaxSteps -> ∞];]
- ListLogLinearPlot[Transpose[{α, σ}]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement