求助！流固耦合的第四部流体结构求解循环如何在GUI中实现？
!!!!!4.Fluid-Structure Interaction Loop!!
loop=25 ! Maximum allowed number of loops
toler=0.005 ! Convergence tolerance for maximum displacement
*dim,dismax,array,loop ! Define array of maximum displacement values
*dim,strcri,array,loop ! Define array of convergence values
*dim,index,array,loop
*do,i,1,loop !Execute fluid -> structure solutions do循环在GUI中怎么操作？
physics,read,fluid ! Read in fluid environment
*if,i,ne,1,then
flda,iter,exec,100 ! Execute 100 global iterations for
*endif ! each new geometry
solve ! FLOTRAN solution
fini
! end of fluid portion
physics,read,struc ! Read in structures environment
/assign,esave,struc,esav ! Files for restarting nonlinear structure
/assign,emat,struc,emat
*if,i,gt,1,then ! Structural restart loop
parsave,all ! Save parameters for convergence check
resume ! Resume DB - to return original node positions
parresume ! Resume parameters needed for convergence check
/prep7
antype,stat,rest
fini
*endif 顶！！！
最近做流固耦合分析，一直处于摸索中，最想知道这块怎么用GUI做呢！
页:
[1]