Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- s = NDSolve[{f'''[eta] + 0.5*f[eta]*f''[eta] == 0.0, f[0] == 0.0,
- f'[0] == 0.0, f'[Infinity] = 1.0}, f, {eta, 0, 1}];
- Plot[Evaluate[f[eta] /. s], {eta, 0, 1}, PlotRange -> All]
- NDSolve::deqn: Equation or list of equations expected instead of 1.` in the first argument
- s = NDSolve[{Derivative[3][f][x] + 1/2 f[x] Derivative[2][f][x] == 0,
- f[0] == 0, f'[0] == 0, f'[#] == 1}, f, {x, 0, 1}] & /@ Range[1, 50, 5];
- Plot[Evaluate[f[eta] /. s], {eta, 0, 1}, PlotRange -> All,
- PlotLegends -> (ToString[#] & /@ Range[1, 50, 5])]
- sol = NDSolve[{f'''[η] + 0.5 f[η] f''[η] == 0,
- f[0] == f'[0] == 0, f'[10] == 1}, f, η]
- Plot[f[η] /. First[sol], {η, 0, 10}]
- Plot[f'[η] /. First[sol], {η, 0, 10}]
- Plot[f''[η] /. First[sol], {η, 0, 10}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement