ansys 地震波输入

ansys 地震波输入
FINISH
/CLEAR
/PREP7
T1=0.02
H=0.6
B=0.2
L=0.2
N=1500
ET,1,SHELL163
KEYOPT,1,1,2
R,1,1,T1
EDMP,RIGI,1,3,7
MP,DENS,1,2500
MP,EX,1,7.2e10
MP,NUXY,1,0.25
MP,DENS,2,450
MP,EX,2,1.627E9
MP,PRXY,2,0.47
MP,DMPR,0.6
EDMP,RIGI,2,0,0
N,1,-L*2,0,-L*2,
N,2,-L*2,0,2*L,
N,3,L*2,0,2*L,
N,4,L*2,0,-L*2,
E,1,2,3,4
BLC5,0,H/2+T1,B,H,L
VDELE,1
AATT,2,1,1
MSHKEY,0
LESIZE,ALL,10
AMESH,ALL
ESLA,S
NSLE,S
CM,SPHERE,NODE
ALLSEL,ALL
NSEL,S,LOC,Y,0
CM,TABLE,NODE
ALLSEL,ALL
EDCGEN,ASTS,SPHERE,TABLE,0.3,0.3,0,0,0,0,10000000 ^^^^^^^^^^^^摩擦系数
EDVE,VELO,SPHERE,0,0,0,0,0,0
*DIM,TIME,ARRAY,N+1,1,1
*DO,I,1,N+1,1
TIME(I,1,1)=(I-1)*0.02
*ENDDO
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
*DIM,GY1,ARRAY,N+1,1,1
*DO,I,1,N+1,1
GY1(I,1,1)=9.8
*ENDDO
EDLOAD,ADD,ACLY,0,SPHERE,TIME,GY1,0
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
*DIM,ACCX,ARRAY,N+1,1,1
*CREATE,ANSUITMP
*VREAD,ACCX,'ELCENTRO','TXT',1,
(E16.6)
*END
/INPUT,ANSUITMP
*DO,I,1,N+1,1
ACCX(I,1,1)=ACCX(I,1,1)*1.17!^^^^^^^^^^^调整加速度大小比例
*ENDDO
*DIM,ACCY,ARRAY,N+1,1,1
*CREATE,ANSUITMP
*VREAD,ACCY,'ELCENTROZ','TXT',1,
(E16.6)
*END
/INPUT,ANSUITMP
*DO,I,1,N+1,
ACCY(I,1,1)=ACCY(I,1,1)*1.17!^^^^^^^^^^^调整加速度大小比例
*ENDDO
EDLOAD,ADD,AX,0,TABLE,TIME,ACCX,0
EDLOAD,ADD,AY,0,TABLE,TIME,ACCY,0
CMSEL,S,TABLE
D,ALL,UY,ROTX,ROTY,ROTZ
ALLSEL,ALL
FINISH
/SOL!^^^^^^^^^^^^^^^^^^^^^^^^
EDOPT,ADD,BOTH
TIME,20
EDRST,1000
EDHTIME,1
EDDUMP,1
EDENERGY,1,1,1,1
SOLVE
尽量帮我解释每一行,真心求帮助,越详细越好.

私信告诉你