SHARE
TWEET

Untitled

a guest Jun 18th, 2019 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. s = ParametricNDSolve[{x'[t] == y[t], y'[t] == x[t], x[0] == param,
  2.     y[0] == param}, {x, y}, {t, 0, 1}, {param},
  3.    WorkingPrecision -> 70, PrecisionGoal -> 20];
  4. Plot[Evaluate[Table[x[param][t] /. s, {param, 1, 10}]], {t, 0, 1},
  5.  PlotLegends -> Automatic]
  6.      
  7. Plot[Evaluate[ Table[x[param][t] /. s, {param, 1, 10}]], {t, 0, 1},
  8.    PlotLabels->Range[10]]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top