SHARE
TWEET

Untitled

a guest Jul 17th, 2017 37 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Asol = NDSolve[{A'[r] + A[r] == 0, A[1] == 1}, A, {r, 1, 0}, WorkingPrecision -> 30]
  2.    
  3. {{A -> InterpolatingFunction[{{0, 1.00000000000000000000000000000}}, <>]}}.
  4.    
  5. NDSolve[{(B'[r] + Sqrt[A[r]] /. Asol) == 0, B[1] == 2}, B, {r, 0, 1}].
  6.    
  7. InterpolatingFunction::dmval: Input value {1.} lies outside the range
  8.   of data in the interpolating function. Extrapolation will be used. >>
  9.  
  10.   {{B -> InterpolatingFunction[{{0., 1.}}, <>]}}
RAW Paste Data
Top