Changeset 30945 in project for release/4/flsim/trunk/flsim.scm


Ignore:
Timestamp:
05/31/14 07:50:39 (7 years ago)
Author:
Ivan Raikov
Message:

flsim: bug fix in adaptive integrate

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/flsim/trunk/flsim.scm

    r30942 r30945  
    630630                    in {tstep=hs, stn=stn} end)
    631631              else (let val (stn, etn) = (stepper hs) (x,ys)
    632                     in case predictor tol (h,etn) of
     632                    in case predictor tol (hs,etn) of
    633633                       Left bad => (if Int.<(it,maxit)
    634634                                    then recur (bad,x,ys,Int.+(it,1))
Note: See TracChangeset for help on using the changeset viewer.