a BCCfʻ@sdZddgZddlZddlZddlmZmZmZmZm Z m Z m Z ddl m Z ddl mZdd l mZejjjZe jjjZejjjZGd ddZd d ZGd ddeZddZGdddeZGdddZddZGdddeZejdurej !eGdddeZ"e"jdur$ej !e"GdddeZ#e#jdurLej !e#Gddde#Z$e$jdurtej !e$GdddeZ%e%jrej !e%dS) a5 First-order ODE integrators. User-friendly interface to various numerical integrators for solving a system of first order ODEs with prescribed initial conditions:: d y(t)[i] --------- = f(t,y(t))[i], d t y(t=0)[i] = y0[i], where:: i = 0, ..., len(y0) - 1 class ode --------- A generic interface class to numeric integrators. It has the following methods:: integrator = ode(f, jac=None) integrator = integrator.set_integrator(name, **params) integrator = integrator.set_initial_value(y0, t0=0.0) integrator = integrator.set_f_params(*args) integrator = integrator.set_jac_params(*args) y1 = integrator.integrate(t1, step=False, relax=False) flag = integrator.successful() class complex_ode ----------------- This class has the same generic interface as ode, except it can handle complex f, y and Jacobians by transparently translating them into the equivalent real-valued system. It supports the real-valued solvers (i.e., not zvode) and is an alternative to ode with the zvode solver, sometimes performing better. ode complex_odeN)asarrayarrayzerosisscalarrealimagvstack)_vode)_dop)_lsodac@sjeZdZdZdddZeddZddd Zd d Zdd dZ ddZ ddZ ddZ ddZ ddZdS)ra$ A generic interface class to numeric integrators. Solve an equation system :math:`y'(t) = f(t,y)` with (optional) ``jac = df/dy``. *Note*: The first two arguments of ``f(t, y, ...)`` are in the opposite order of the arguments in the system definition function used by `scipy.integrate.odeint`. Parameters ---------- f : callable ``f(t, y, *f_args)`` Right-hand side of the differential equation. t is a scalar, ``y.shape == (n,)``. ``f_args`` is set by calling ``set_f_params(*args)``. `f` should return a scalar, array or list (not a tuple). jac : callable ``jac(t, y, *jac_args)``, optional Jacobian of the right-hand side, ``jac[i,j] = d f[i] / d y[j]``. ``jac_args`` is set by calling ``set_jac_params(*args)``. Attributes ---------- t : float Current time. y : ndarray Current variable values. See also -------- odeint : an integrator with a simpler interface based on lsoda from ODEPACK quad : for finding the area under a curve Notes ----- Available integrators are listed below. They can be selected using the `set_integrator` method. "vode" Real-valued Variable-coefficient Ordinary Differential Equation solver, with fixed-leading-coefficient implementation. It provides implicit Adams method (for non-stiff problems) and a method based on backward differentiation formulas (BDF) (for stiff problems). Source: http://www.netlib.org/ode/vode.f .. warning:: This integrator is not re-entrant. You cannot have two `ode` instances using the "vode" integrator at the same time. This integrator accepts the following parameters in `set_integrator` method of the `ode` class: - atol : float or sequence absolute tolerance for solution - rtol : float or sequence relative tolerance for solution - lband : None or int - uband : None or int Jacobian band width, jac[i,j] != 0 for i-lband <= j <= i+uband. Setting these requires your jac routine to return the jacobian in packed format, jac_packed[i-j+uband, j] = jac[i,j]. The dimension of the matrix must be (lband+uband+1, len(y)). - method: 'adams' or 'bdf' Which solver to use, Adams (non-stiff) or BDF (stiff) - with_jacobian : bool This option is only considered when the user has not supplied a Jacobian function and has not indicated (by setting either band) that the Jacobian is banded. In this case, `with_jacobian` specifies whether the iteration method of the ODE solver's correction step is chord iteration with an internally generated full Jacobian or functional iteration with no Jacobian. - nsteps : int Maximum number of (internally defined) steps allowed during one call to the solver. - first_step : float - min_step : float - max_step : float Limits for the step sizes used by the integrator. - order : int Maximum order used by the integrator, order <= 12 for Adams, <= 5 for BDF. "zvode" Complex-valued Variable-coefficient Ordinary Differential Equation solver, with fixed-leading-coefficient implementation. It provides implicit Adams method (for non-stiff problems) and a method based on backward differentiation formulas (BDF) (for stiff problems). Source: http://www.netlib.org/ode/zvode.f .. warning:: This integrator is not re-entrant. You cannot have two `ode` instances using the "zvode" integrator at the same time. This integrator accepts the same parameters in `set_integrator` as the "vode" solver. .. note:: When using ZVODE for a stiff system, it should only be used for the case in which the function f is analytic, that is, when each f(i) is an analytic function of each y(j). Analyticity means that the partial derivative df(i)/dy(j) is a unique complex number, and this fact is critical in the way ZVODE solves the dense or banded linear systems that arise in the stiff case. For a complex stiff ODE system in which f is not analytic, ZVODE is likely to have convergence failures, and for this problem one should instead use DVODE on the equivalent real system (in the real and imaginary parts of y). "lsoda" Real-valued Variable-coefficient Ordinary Differential Equation solver, with fixed-leading-coefficient implementation. It provides automatic method switching between implicit Adams method (for non-stiff problems) and a method based on backward differentiation formulas (BDF) (for stiff problems). Source: http://www.netlib.org/odepack .. warning:: This integrator is not re-entrant. You cannot have two `ode` instances using the "lsoda" integrator at the same time. This integrator accepts the following parameters in `set_integrator` method of the `ode` class: - atol : float or sequence absolute tolerance for solution - rtol : float or sequence relative tolerance for solution - lband : None or int - uband : None or int Jacobian band width, jac[i,j] != 0 for i-lband <= j <= i+uband. Setting these requires your jac routine to return the jacobian in packed format, jac_packed[i-j+uband, j] = jac[i,j]. - with_jacobian : bool *Not used.* - nsteps : int Maximum number of (internally defined) steps allowed during one call to the solver. - first_step : float - min_step : float - max_step : float Limits for the step sizes used by the integrator. - max_order_ns : int Maximum order used in the nonstiff case (default 12). - max_order_s : int Maximum order used in the stiff case (default 5). - max_hnil : int Maximum number of messages reporting too small step size (t + h = t) (default 0) - ixpr : int Whether to generate extra printing at method switches (default False). "dopri5" This is an explicit runge-kutta method of order (4)5 due to Dormand & Prince (with stepsize control and dense output). Authors: E. Hairer and G. Wanner Universite de Geneve, Dept. de Mathematiques CH-1211 Geneve 24, Switzerland e-mail: ernst.hairer@math.unige.ch, gerhard.wanner@math.unige.ch This code is described in [HNW93]_. This integrator accepts the following parameters in set_integrator() method of the ode class: - atol : float or sequence absolute tolerance for solution - rtol : float or sequence relative tolerance for solution - nsteps : int Maximum number of (internally defined) steps allowed during one call to the solver. - first_step : float - max_step : float - safety : float Safety factor on new step selection (default 0.9) - ifactor : float - dfactor : float Maximum factor to increase/decrease step size by in one step - beta : float Beta parameter for stabilised step size control. - verbosity : int Switch for printing messages (< 0 for no messages). "dop853" This is an explicit runge-kutta method of order 8(5,3) due to Dormand & Prince (with stepsize control and dense output). Options and references the same as "dopri5". Examples -------- A problem to integrate and the corresponding jacobian: >>> from scipy.integrate import ode >>> >>> y0, t0 = [1.0j, 2.0], 0 >>> >>> def f(t, y, arg1): ... return [1j*arg1*y[0] + y[1], -arg1*y[1]**2] >>> def jac(t, y, arg1): ... return [[1j*arg1, 1], [0, -arg1*2*y[1]]] The integration: >>> r = ode(f, jac).set_integrator('zvode', method='bdf') >>> r.set_initial_value(y0, t0).set_f_params(2.0).set_jac_params(2.0) >>> t1 = 10 >>> dt = 1 >>> while r.successful() and r.t < t1: ... print(r.t+dt, r.integrate(r.t+dt)) 1 [-0.71038232+0.23749653j 0.40000271+0.j ] 2.0 [0.19098503-0.52359246j 0.22222356+0.j ] 3.0 [0.47153208+0.52701229j 0.15384681+0.j ] 4.0 [-0.61905937+0.30726255j 0.11764744+0.j ] 5.0 [0.02340997-0.61418799j 0.09523835+0.j ] 6.0 [0.58643071+0.339819j 0.08000018+0.j ] 7.0 [-0.52070105+0.44525141j 0.06896565+0.j ] 8.0 [-0.15986733-0.61234476j 0.06060616+0.j ] 9.0 [0.64850462+0.15048982j 0.05405414+0.j ] 10.0 [-0.38404699+0.56382299j 0.04878055+0.j ] References ---------- .. [HNW93] E. Hairer, S.P. Norsett and G. Wanner, Solving Ordinary Differential Equations i. Nonstiff Problems. 2nd edition. Springer Series in Computational Mathematics, Springer-Verlag (1993) NcCs(d|_||_||_d|_d|_g|_dS)Nr)Zstifffjacf_params jac_params_yselfrrrrP/var/www/html/django/DPS/env/lib/python3.9/site-packages/scipy/integrate/_ode.py__init__\s z ode.__init__cCs|jSNrrrrrydszode.ycCsZt|r|g}t|j}|s&|dt||jj|_||_|jt|j|j du|S) Set initial conditions y(t) = y.N) rlenrset_integratorr _integratorscalartresetr)rrr$Zn_prevrrrset_initial_valuehs  zode.set_initial_valuecKs|t|}|dur,d|d}tj|ddnL|fi||_t|js^d|_tdg|jj|_|j t|j|j du|S)z Set integrator by name. Parameters ---------- name : str Name of the integrator. **integrator_params Additional parameters for the integrator. NzNo integrator name match with z or is not available. stacklevelr) find_integratorwarningswarnr"r rr$rr#r%r)rnameintegrator_paramsZ integratormessagerrrr!ts   zode.set_integratorFc Cs|r|jjr|jj}n|r,|jjr,|jj}n|jj}z4||j|jpHdd|j|j ||j |j \|_|_ Wn.t y}zt d|WYd}~n d}~00|jS)Find y=y(t), set y as an initial condition, and return y. Parameters ---------- t : float The endpoint of the integration step. step : bool If True, and if the integrator supports the step method, then perform a single integration step and return. This parameter is provided in order to expose internals of the implementation, and should not be changed from its default value in most cases. relax : bool If True and if the integrator supports the run_relax method, then integrate until t_1 >= t and return. ``relax`` is not referenced if ``step=True``. This parameter is provided in order to expose internals of the implementation, and should not be changed from its default value in most cases. Returns ------- y : float The integrated value at t cSsdSrrrrrrzode.integrate..z.Function to integrate must not return a tuple.N)r" supports_stepstepsupports_run_relax run_relaxrunrrrr$rr SystemError ValueError)rr$r4relaxZmtherrr integrates"     z ode.integratecCs4z |jWnty&|dYn0|jjdkS)z$Check if integration was successful.rr )r"AttributeErrorr!successrrrr successfuls   zode.successfulcCs0z |jWnty&|dYn0|jjS)a Extracts the return code for the integration to enable better control if the integration fails. In general, a return code > 0 implies success, while a return code < 0 implies failure. Notes ----- This section describes possible return codes and their meaning, for available integrators that can be selected by `set_integrator` method. "vode" =========== ======= Return Code Message =========== ======= 2 Integration successful. -1 Excess work done on this call. (Perhaps wrong MF.) -2 Excess accuracy requested. (Tolerances too small.) -3 Illegal input detected. (See printed message.) -4 Repeated error test failures. (Check all input.) -5 Repeated convergence failures. (Perhaps bad Jacobian supplied or wrong choice of MF or tolerances.) -6 Error weight became zero during problem. (Solution component i vanished, and ATOL or ATOL(i) = 0.) =========== ======= "zvode" =========== ======= Return Code Message =========== ======= 2 Integration successful. -1 Excess work done on this call. (Perhaps wrong MF.) -2 Excess accuracy requested. (Tolerances too small.) -3 Illegal input detected. (See printed message.) -4 Repeated error test failures. (Check all input.) -5 Repeated convergence failures. (Perhaps bad Jacobian supplied or wrong choice of MF or tolerances.) -6 Error weight became zero during problem. (Solution component i vanished, and ATOL or ATOL(i) = 0.) =========== ======= "dopri5" =========== ======= Return Code Message =========== ======= 1 Integration successful. 2 Integration successful (interrupted by solout). -1 Input is not consistent. -2 Larger nsteps is needed. -3 Step size becomes too small. -4 Problem is probably stiff (interrupted). =========== ======= "dop853" =========== ======= Return Code Message =========== ======= 1 Integration successful. 2 Integration successful (interrupted by solout). -1 Input is not consistent. -2 Larger nsteps is needed. -3 Step size becomes too small. -4 Problem is probably stiff (interrupted). =========== ======= "lsoda" =========== ======= Return Code Message =========== ======= 2 Integration successful. -1 Excess work done on this call (perhaps wrong Dfun type). -2 Excess accuracy requested (tolerances too small). -3 Illegal input detected (internal error). -4 Repeated error test failures (internal error). -5 Repeated convergence failures (perhaps bad Jacobian or tolerances). -6 Error weight became zero during problem. -7 Internal workspace insufficient to finish (internal error). =========== ======= r)r"r=r!istaterrrrget_return_codes U  zode.get_return_codecGs ||_|S)z2Set extra parameters for user-supplied function f.)rrargsrrr set_f_paramsszode.set_f_paramscGs ||_|S)z4Set extra parameters for user-supplied function jac.)rrBrrrset_jac_params"szode.set_jac_paramscCsF|jjr:|j||jdurB|jt|j|jduntddS) Set callable to be called at every successful integration step. Parameters ---------- solout : callable ``solout(t, y)`` is called at each internal integrator step, t is a scalar providing the current independent position y is the current solution ``y.shape == (n,)`` solout should return -1 to stop integration otherwise it should return None or 0 Nz?selected integrator does not support solout, choose another one)r"supports_solout set_soloutrr%r rr9rsoloutrrrrH's   zode.set_solout)N)r)FF)__name__ __module__ __qualname____doc__rpropertyrr&r!r<r?rArDrErHrrrrrgsu    -[cCspt|jdd|jdf}|dddddf|dddddf<|dddddf|dddddf<|S)a Convert a real matrix of the form (for example) [0 0 A B] [0 0 0 B] [0 0 C D] [0 0 A D] [E F G H] to [0 F C H] [I J K L] [E J G L] [I 0 K 0] That is, every other column is shifted up one. rr Nr')rshape)ZbjacZnewjacrrr_transform_banded_jac>s ((rRc@sZeZdZdZdddZddZddZed d Zd d Z dddZ dddZ ddZ dS)ra A wrapper of ode for complex systems. This functions similarly as `ode`, but re-maps a complex-valued equation system to a real-valued one before using the integrators. Parameters ---------- f : callable ``f(t, y, *f_args)`` Rhs of the equation. t is a scalar, ``y.shape == (n,)``. ``f_args`` is set by calling ``set_f_params(*args)``. jac : callable ``jac(t, y, *jac_args)`` Jacobian of the rhs, ``jac[i,j] = d f[i] / d y[j]``. ``jac_args`` is set by calling ``set_f_params(*args)``. Attributes ---------- t : float Current time. y : ndarray Current variable values. Examples -------- For usage examples, see `ode`. NcCs<||_||_|dur&t||jdnt||j|jdSr)cfcjacrr_wrap _wrap_jacrrrrrns zcomplex_ode.__init__cGs\|j||dddd|dddf|}t||jddd<t||jddd<|jSNr'?r )rSrtmpr )rr$rZf_argsrrrrrUvs.zcomplex_ode._wrapcGs|j||dddd|dddf|}td|jdd|jdf}t||ddddddf<|ddddddf<t||ddddddf<|ddddddf |ddddddf<t|jdd}t|jdd}|dus|durt|}|S)Nr'rXr rmlmu)rTrrQrr getattrr"rR)rr$rZjac_argsrZjac_tmprZr[rrrrV~s. 4.zcomplex_ode._wrap_jaccCs$|jdddd|jdddSrWrrrrrrsz complex_ode.ycKsp|dkrtd|d}|d}|dus4|dur\d|p=t1 and return (y1,t).z&%s does not support run_relax() methodNr{rwrrrr6/szIntegratorBase.run_relax)rKrLrMrunnerr>r@r5r3rGrfrar#rrrsr%r7r4r6rrrrresrecsfdd}|S)zm Wrap a banded Jacobian function with a function that pads the Jacobian with `ml` rows of zeros. cs4t||gR}t|t|jdff}|Srn)rr rrQ)r$rrZ padded_jacrjacfuncrZrr jac_wrapper=sz-_vode_banded_jac_wrapper..jac_wrapperr)r~rZrrrr}r_vode_banded_jac_wrapper7src @sheZdZeeddZddddddd Zd Zd Zd Z dddZ ddZ ddZ ddZ ddZddZdS) vodeZdvodeNz2Excess work done on this call. (Perhaps wrong MF.)z2Excess accuracy requested. (Tolerances too small.)z.Illegal input detected. (See printed message.)z0Repeated error test failures. (Check all input.)zcRepeated convergence failures. (Perhaps bad Jacobian supplied or wrong choice of MF or tolerances.)zbError weight became zero during problem. (Solution component i vanished, and ATOL or ATOL(i) = 0.))rPr radamsFư>-q= rc Cst|dtjrd|_n$t|dtjr0d|_n td|||_||_||_||_||_ ||_ ||_ | |_ | |_ | |_d|_d|_dS)Nrr Zbdfr'zUnknown integration method %sF)rgrhrimethr9 with_jacobianrtolatolr[rZordernstepsmax_stepmin_step first_stepr> initialized) rmethodrrrr^r_rrrrrrrrrUs"  z vode.__init__cCs|jdup|jdu}|r8|jdur(d|_|jdur8d|_|rL|rFd}qd}n<|rx|j|jkrhdkrrnnd}qd}n|jrd}nd}d|j|}|S) a Determine the `MF` parameter (Method Flag) for the Fortran subroutine `dvode`. In the Fortran code, the legal values of `MF` are: 10, 11, 12, 13, 14, 15, 20, 21, 22, 23, 24, 25, -11, -12, -14, -15, -21, -22, -24, -25 but this Python wrapper does not use negative values. Returns mf = 10*self.meth + miter self.meth is the linear multistep method: self.meth == 1: method="adams" self.meth == 2: method="bdf" miter is the correction iteration method: miter == 0: Functional iteration; no Jacobian involved. miter == 1: Chord iteration with user-supplied full Jacobian. miter == 2: Chord iteration with internally computed full Jacobian. miter == 3: Chord iteration with internally computed diagonal Jacobian. miter == 4: Chord iteration with user-supplied banded Jacobian. miter == 5: Chord iteration with internally computed banded Jacobian. Side effects: If either self.mu or self.ml is not None and the other is None, then the one that is None is set to 0. Nrr r' )r[rZrr)rruZ jac_is_bandedZmitermfrrr_determine_mf_and_set_bandsvs&  z vode._determine_mf_and_set_bandscCs||}|dkr dd|}n|dvrBdd|d||}n|dkrXdd|}n|d vrdd |d |jd|j|}n|dkrdd |}nt|d vrdd |d||}nR|dkrdd|}n<|dvrdd|d |jd|j|}n td||ddvr$d}nd|}t|ft}|j|d<|j|d<|j|d<||_ t|ft }|jdur~|j|d<|jdur|j|d<|j |d<|j |d<d|d<||_ |j|jdd|j |j |g|_d|_d|_dS)Nr rr' r rrzUnexpected mf=%srrrrrr F)rrZr[r9rrarrrrwork_vode_int_dtyperriworkrr call_argsr>r)rrtrurlrwliwrrrrrr%sP & &              z vode.resetc Cs|jr|nd|_||jdur@|jdkr@t||j|}|||||ft|j||f}|j|\} } } | |_| dkrd| d} t j d |j j |j| | ddd|_nd|jd<d|_| | fS) NTrUnexpected istate=d {:s}: {:s}r'r(r)rrsrrrZrtuplerr|r@r+r,formatrorKmessagesr`r> rrrrxryrzrrrCy1r$r@unexpected_istate_msgrrrr7s,    zvode.runcGs,|jd}d|jd<|j|}||jd<|SNr'rr7rrCZitaskrrrrr4s     z vode.stepcGs,|jd}d|jd<|j|}||jd<|SNr'rrrrrrr6s     zvode.run_relax) rFrrNNrrrrr)rKrLrMr\r r|rr5r3rprrr%r7r4r6rrrrrEs4   !;0rc@s0eZdZeeddZdZdZeZ dZ ddZ dS)r]Nr rc Cs`||}|dvrd|}nR|dvr>d|d|d}n2|dvrZd||d}n|dvrnd|}n|dvrd |d |jd|j|}n|d vrd|d|j|j|}n|d vrd |}n|dvrd |d|d}n|dvr d ||d}nf|dvrd|}nR|dvrJd|d |jd|j|}n&|dvrpd|d|j|j|}d|}|ddvrd}nd|}t|ft}||_t|ft}|j|d<|j|d<|j |d<||_ t|ft } |jdur|j| d<|jdur|j| d<|j | d<|j | d<d| d<| |_|j|jdd|j|j |j|g|_d|_d|_dS)N)rrrr')ii)rrrrr)ii)rr)ii)rrrr)iirrrrrrrr F)rrZr[rrczworkrarrrrrrrrrrrr>r) rrtrurZlzwrrrrrrrrr%sd   "     "              z zvode.reset) rKrLrMr\r r|r5r3rcr#rpr%rrrrr]s  r]c @s^eZdZeeddZdZdZddddddd ZdddZ dddZ ddZ ddZ ddZ dS)dopri5NTzcomputation successfulz.computation successful (interrupted by solout)zinput is not consistentzlarger nsteps is neededzstep size becomes too smallz'problem is probably stiff (interrupted))r r'rPrrrrrrr?$@皙?rPc CsP||_||_||_||_||_||_||_||_| |_| |_ d|_ | ddSrn) rrrrrsafetyifactordfactorbeta verbosityr>rH rrrrrrrrrrrrrrrres zdopri5.__init__FcCs&||_||_|durd|_nd|_dS)Nrr )rJ solout_cmplxiout)rrJrcrrrrH~s zdopri5.set_soloutcCstd|dft}|j|d<|j|d<|j|d<|j|d<|j|d<|j|d<||_td t }|j |d <|j |d<||_ |j |j|j|j|j|j g|_d|_dS) Nrrr r'rrrrrrrrarrrrrrwork_dop_int_dtyperrrrr_soloutrrr>rrtrurrrrrr%s            z dopri5.resetc Csv|j||||ft|j|f\}} } } | |_| dkrnd| d} tjd|jj|j | | ddd|_ | |fS)Nrrrrr'r() r|rrr@r+r,rrorKrr`r>) rrrrxryrzrrxrrr@rrrrr7s  z dopri5.runcCsD|jdur<|jr0|dddd|ddd}|||SdSdSrW)rJr)rnrZxoldrrndZicompconrrrrs    zdopri5._solout) rrrrrrrrrNrP)F)rKrLrMr\r r|r-rGrrrHr%r7rrrrrrXs2     rc s6eZdZeeddZdZdfd d Zd d ZZ S)dop853Nrrrrr@333333?rPc s$t||||||||| | | dSr)superrrrorrrs  zdop853.__init__cCstd|dft}|j|d<|j|d<|j|d<|j|d<|j|d<|j|d<||_td t }|j |d <|j |d<||_ |j |j|j|j|j|j g|_d|_dS) Nrrr r'rrrrrrrrrrrr%s            z dop853.reset) rrrrrrrrrNrP) rKrLrMr\r r|r-rr% __classcell__rrrrrs rc@s\eZdZeeddZdZddddddd d d ZdddZddZ ddZ ddZ ddZ dS)lsodaNrzIntegration successful.z8Excess work done on this call (perhaps wrong Dfun type).z1Excess accuracy requested (tolerances too small).z(Illegal input detected (internal error).z.Repeated error test failures (internal error).zCRepeated convergence failures (perhaps bad Jacobian or tolerances).z(Error weight became zero during problem.z;Internal workspace insufficient to finish (internal error).)r'rPrrrrriFrrrrrrcCs^||_||_||_||_||_| |_| |_||_||_||_ | |_ | |_ | |_ d|_ d|_dS)Nr F)rrrr[rZ max_order_ns max_order_srrrrixprmax_hnilr>r)rrrrr^r_rrrrrrrrrrrrrszlsoda.__init__c Cs|rD|jdur|jdurd}q|jdur.d|_|jdur>d|_d}n>|jdur^|jdur^d}n$|jdurnd|_|jdur~d|_d}d|jd|}|dvrd|jd|||}n8|d vrd|jdd|j|j|}n td |t||}d|}t|ft}|j|d<|j |d<|j |d <||_ t|ft } |jdurT|j| d<|jdurj|j| d<|j | d<|j| d<|j| d <|j| d <|j| d <| |_|j|jdd|j |j|g|_d|_d|_dS)Nr rrr'rr)r r'r)rrzUnexpected jt=%srrF)r[rZrrr9maxrrarrrr_lsoda_int_dtyperrrrrrrr>r) rrtruZjtZlrnZlrsrrrrrrrr% sX    $                  z lsoda.resetc Cs|jr|nd|_|||||g|jdd||jd|d|g}|j|\} } } | |_| dkrd| d} tjd|j j |j | | ddd|_ nd|jd <d|_| | fS) NTrPrrrrr'r(r)rrsrrrr|r@r+r,rrorKrr`r>rrrrr7;s(    z lsoda.runcGs,|jd}d|jd<|j|}||jd<|Srrrrrrr4Ps     z lsoda.stepcGs,|jd}d|jd<|j|}||jd<|Srrrrrrr6Ws     zlsoda.run_relax)FrrNNrrrrrrrrN) rKrLrMr\rr|rprrr%r7r4r6rrrrrs8   !2r)&rN__all__rgr+numpyrrrrrr r rr r rtypesZintvarZdtyperrrrrRrr*rlrkrerrr|rfappendr]rrrrrrrsLO$      Z!0H  D  T  %