马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
!!!!! 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 |