[lcg44]

Hi, everyone.
I'm trying to do a loop. The velocity of dynamic mesh is adjusted every time step. If the result is not good enough then I need to read the case and data of last good result again to let the mesh back to the beginning of this time step. If the result is good enough then the date and case will be saved.I write a scheme file as following. But the problem is it doesn't read the case again when it has been read. It only calculate 5 step (as I set x max value is 5) after a case file is read in, which means the mesh has kept moving during the 5 steps. It is not I want.
Can you help me to find the problem?

Thank you very much.



yours,
Chenguang
(rp-var-define 'mlcg 1.0 'real #f)
(rp-var-define 'klcg 0.0 'real #f)
(rp-var-define 'nlcg 0.0 'real #f)
(rp-var-define 'setao 1.57 'real #f)
(rp-var-define 'omegao 0.0 'real #f)
(rp-var-define 'domegao 0.0 'real #f)
(rp-var-define 'mo 0.0 'real #f)
(define x 1)
(define y 0)
(format #f "heartvalve~03d~03d" y x)
(do ((x 1 (+ x 1)) ) ((> x 5))
(format #f "heartvalve~03d~03d" y x)
(ti-menu-load-string (format #f "file/read-case-data heartvalve~03d" y))
(ti-menu-load-string "solve/set/time-step 0.00245")
(ti-menu-load-string "solve/dual-time-iterate 1")
(ti-menu-load-string "file/write-case-data heartvalveo")
(if (> (rpgetvar 'mlcg) 0)
(begin
(set! y (+ y 1))
(ti-menu-load-string (format #f "file/write-case-data heartvalve~03d" y)))))