[求助] Fluent与Abaqus联合仿真计算的问题

(define do-simulation        (lambda (a b)
                (if (<= a b)
                        (begin
                                ;;(rpsetvar 'Current_Time (* (/ Cosimu_time Num_exchange) (rpgetvar 'CurrNum_exchange)))
                                (display "\n1")
                                (%udf-on-demand "init::libudf")
                                ;;(ti-menu-load-string "/define/user-defined/execute-on-demand \"init::libudf\"")
                                (display "\n2")
                                (ti-menu-load-string (format #f "/solve/dual-time-iterate ~d ~d" Num_timestep Max_iter_per_timestep))
                          (set! a (+ a 1))
                          (rpsetvar 'CurrNum_exchange a)
                          (do-simulation a b)
                  )
                )
        )
)