SHARE
TWEET

Untitled

a guest Mar 24th, 2012 86 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Attributes[LSODA] = {HoldAllComplete, Protected}
  2.  
  3. LSODA[MethodData[v_, __]]["Version"] := v
  4.  
  5. LSODA[_]["StepMode"] := Automatic
  6.  
  7. LSODA[data_]["DenseOutputQ"] := DOQ[data]
  8.  
  9. LSODA /: InitializeMethod[LSODA, {stepmode_, denseoutput_}, nf_, ndstate_, rawmopts_] := Catch[Module[{denseQ, mdo, lsm, imps}, {lsm, mdo} = GetMethodOptionValues[LSODA, LSODAProperties, rawmopts]; CheckMaxDifferenceOrder[LSODA, mdo]; imps = TestImplicitSolver[LSODA, {"Newton", "LinearSolveMethod" -> lsm}]; denseQ = denseoutput === True; CreateMethodData[LSODA, {{}, False, mdo, imps, None, denseQ}]]]
  10.  
  11. Options[LSODA] = {"LinearSolveMethod" -> Automatic, "MaxDifferenceOrder" -> 12}
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