请问这段程序是什么意思？
看一个流体分析，可是在加载旋转速度和位移这块，我看得不太懂就是下面的DIM部分，不知道这些数据怎么来的
请高手赐教，谢谢！
这个例子，是ansys帮助文件中flotran部分的ALE分析。
/nopr
LX = 1.0 ! Plate Length in X direction
NDX = 40 ! Number of X divisions
H = 0.01 ! Gap in Y-direction
NDY = 10 ! Number of Y divisions
POUT= 0.0 ! Outlet relative pressure
RHO = 1.0000 ! Fluid density
MU = 1.00 ! Fluid viscosity
nts = 40 ! number of time steps
time = 10. ! total simulation time
delta = time/nts ! time step size
appf = delta ! append results every time step
*AFUN,RAD ! angles are in radians
AMAX = (2*H/LX)/8 ! adjust angular amplitude << 1
OMEGA = 2*3.14159/time ! complete 1 cycle in given time
X0 = LX/2 ! pivot point x-coord
Y0 = H ! pivot point y-coord
H0 = H
*DIM,UXTAB,TABLE,6,4,1
UXTAB(0,0,1) = 0.0,-999,1, X0,AMAX, 0.0, 0.0
UXTAB(0,1,1) = 1.0,-1,0, 1.0 , 27 , 2, 17 ! Radius = XR - X0
UXTAB(0,2,1) = 0.0,-2,9,OMEGA, 1, 3, 18 ! Angle=amax*sin(omega*t)
UXTAB(0,3,1) = 0.0,-3, 10, 1.0 ,-2, 3,-1 ! Radius*cos(Angle)
UXTAB(0,4,1) = 0.0,99,0, 1.0 ,-3, 2,-1 ! Radius*cos(Angle)-Radius
*DIM,UYTAB,TABLE,6,3,1
UYTAB(0,0,1) = 0.0,-999,1, X0,AMAX, 0.0, 0.0
UYTAB(0,1,1) = 1.0,-1,0, 1.0 , 27 , 2, 17 ! Radius = XR - X0
UYTAB(0,2,1) = 0.0,-2,9,OMEGA, 1, 3, 18 ! Angle=amax*sin(omega*t)
UYTAB(0,3,1) = 0.0,99,9, 1.0 ,-2, 3,-1 ! Radius*sin(Angle)
*DIM,VXTAB,TABLE,6,5,1
VXTAB(0,0,1) = 0.0,-999,1, X0,AMAX,OMEGA*AMAX, 0.0
VXTAB(0,1,1) = 1.0,-1,0,-1.0 , 27 , 1, 17 ! -Radius = -(XR-X0)
VXTAB(0,2,1) = 0.0,-2,9,OMEGA, 1, 3, 18 ! Angle=amax*sin(omega*t)
VXTAB(0,3,1) = 0.0,-3, 10,OMEGA, 1, 3 , 19 ! Anglespeed=
! amax*omega*cos(omega*t)
VXTAB(0,4,1) = 0.0,-4,9, 1.0 ,-2, 3, -1 ! -Radius*sin(angle)
VXTAB(0,5,1) = 0.0,99,0, 1.0 ,-4, 3, -3 !-Radius*sin(angle)*anglespeed
*DIM,VYTAB,TABLE,6,5,1
VYTAB(0,0,1) = 0.0,-999,1, X0,AMAX,OMEGA*AMAX, 0.0
VYTAB(0,1,1) = 1.0,-1,0, 1.0 , 27 , 2, 17 !Radius = XR - X0
VYTAB(0,2,1) = 0.0,-2,9,OMEGA, 1, 3, 18 !Angle=amax*sin(omega*t)
VYTAB(0,3,1) = 0.0,-3, 10,OMEGA, 1, 3 , 19 !Anglespeed=
!amax*omega*cos(omega*t)
VYTAB(0,4,1) = 0.0,-4, 10, 1.0 ,-2, 3, -1 !Radius*cos(angle)
VYTAB(0,5,1) = 0.0,99,0, 1.0 ,-4, 3, -3 !Radius*cos(angle)*anglespeed
页:
[1]