Learning Forum

[Andreas Schaufler]

Solved it with the TUI-Command and the List in a do-Loop

(define list '(1e-07 3e-07 5e-07 7e-07 9e-07 1e-6 3e-6 5e-6))

(define iterations (length list)-1)

 

; Starten Sie die Schleife

(do ((i 0 (+ i 1))) ((>= i iterations)) ; i ist der Zähler, der von 1 bis iterations hochgezählt wird  

;Change the isosurfaces

(ti-menu-load-string (format #f "/surface/edit-surface mole-fraction-of-zn-89 molef-zing_g , () , () ~a" (list-ref list i) ())) ;
)