这个命令是我根据help文件中的例子改的。我的问题是中间圆形向右边运动时,旁边的网格要随之运动,help文件中的命令是将那个圆形挖去然后施加载荷,采用remesh计算。可是我的问题希望能考虑中间的区域,希望能够得到中间的网格运动导致旁边网格的自适应变化,可是总是出错,对流体分析还不态懂,希望高手指教。
命令流如下:
/PREP7
RECTNG,0,70,0,10,
CYL4,10,5,3
AOVLAP,ALL
aglue,all
NUMCMP,ALL
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*SET,_FNCNAME,'DIS'
*DIM,_FNC_C1,,1
*SET,_FNC_C1(1),1.0
! /INPUT,force.func
*DIM,%_FNCNAME%,TABLE,6,3,1
!
! Begin of equation: a*{TIME}
*SET,%_FNCNAME%(0,0,1), 0.0, -999
*SET,%_FNCNAME%(2,0,1), 0.0
*SET,%_FNCNAME%(3,0,1), %_FNC_C1(1)%
*SET,%_FNCNAME%(4,0,1), 0.0
*SET,%_FNCNAME%(5,0,1), 0.0
*SET,%_FNCNAME%(6,0,1), 0.0
*SET,%_FNCNAME%(0,1,1), 1.0, -1, 0, 1, 17, 3, 1
*SET,%_FNCNAME%(0,2,1), 0.0, 99, 0, 1, -1, 0, 0
*SET,%_FNCNAME%(0,3,1), 0
et,1,141
KEYOPT,1,4,1
type,1
mat,1
asel,s,,,2
esize,0.5
mshape,1,2d
mshkey,0
amesh,all
et,2,141
KEYOPT,2,4,1
asel,s,,,1
aatt,1,1,2
esize,0.5
mshape,1,2d
mshkey,0
amesh,all
esel,s,type,,2
esel,s,mat,,1
cm,kongqi,elem
nsel,s,loc,x,0
D,ALL,VX,0.0,
D,ALL,VY, 0.0
D,ALL,UX,0.0,
D,ALL,UY, 0.0
nsel,s,loc,x,70
D,ALL,pres,0.0
D,ALL,UX,0.0,
D,ALL,UY, 0.0
nsel,s,loc,y,0
D,ALL,vy,0.0
D,ALL,UX,0.0,
D,ALL,UY, 0.0
nsel,s,loc,y,10
D,ALL,vy,0.0
D,ALL,UX,0.0,
D,ALL,UY,0.0,
asel,s,area,,1
da,all,UX,%DIS%
da,all,UY,0.0
da,all,VX,0.01
da,all,VY,0.0
allsel
! Flotran Setup
/solu
FLDATA30,QUAD,MOMD,2,
FLDATA30,QUAD,MOMS,2,
FLDATA30,QUAD,PRSD,2,
FLDATA30,QUAD,PRSS,2,
FLDATA30,QUAD,THRD,0,
FLDATA30,QUAD,THRS,0,
FLDATA30,QUAD,TRBD,0,
FLDATA30,QUAD,TRBS,2,
/solu
FLDATA4,TIME,numb,1000000
FLDATA4,TIME,TEND,44.0,
FLDA,SOLU,ALE,T ! ALE solution
FLDATA1,SOLU,FLOW,1
FLDATA1,SOLU,TRAN,1
!FLDATA1,SOLU,TURB,1
FLDATA2,TIME,GLOB,5
FLDATA7,PROT,DENS,CONSTANT
FLDATA8,NOMI,DENS,1.0
FLDATA7,PROT,VISC,CONSTANT
FLDATA8,NOMI,VISC,1.0
!FLDA,BULK,BETA,1.0e5
FLDA,TIME,STEP, 2.0
!
!!! Newmark method
!
FLDATA,OUTP,TAUW,T
FLDATA,TIME,METH,NEWM
FLDATA,TIME,DELT,0.5
!
!! Set ANSYS-STRUCTURE commands
SAVE
/COM
/COM Re-meshing Commands
/COM
FLDATA,REMESH,ELEM,kongqi ! all defined element re-meshing
FLDATA,REMESH,ARMA,10.0 ! maximum aspect ratio
FLDATA,REMESH,VOCH,5.0 ! maximum volume change
FLDATA,REMESH,ARCH,5.0 ! maximum aspect ratio change
SOLVE
SAVE
finish |