[rayolau]

Hi all! I need help with this code scheme.

I want that in each iteration, Fluid expected to create a profile (1.prof), and then, when there is this file, read the file 1.prof, and got on a correct boundary condition. After this, another profile is deleted.

At the moment, my code wait 1.prof file creation, and when this file exists, read 1.prof profile and put in the boundary condition I want. However, this process is repeated again and again and never get to clear another profile and continue to the next iteration.

To make the wait for the file to each iteration, I put the file.smc as a command that repeats at each iteration.

Does anyone know how to make a counter waiting for the profile creation 1.prof repeat x times, then leave the "loop"?


Thanks in advance =)
My scheme code is this:

(define nit 1)
(let loop ()

    ; to continue, must exist profile 1.prof
(if (file-exists? "C:\path\1.prof") (ti-menu-load-string "file read-profile C:\path\1.prof"))
	
;if file exists --> put the profile in the bc
(if (file-exists? "C:\path\1.prof") (ti-menu-load-string "define/boundary-conditions/...""))  ; set profile in bc
(if (file-exists? "C:\path\1.prof") (set! nit (+ nit 1)))  ; counter
(cx-pause 1)
(loop))

;delete other profile
(if (file-exists? ""C:\path\5.prof") (system "del C:\path\5.prof"))  ;

[fox000002]

You can add an if-condition to your tail recursion.

(let loop ()
  ; ...
  (if (< nit 10)
    (begin
       (cx-pause 1)
       (loop))))