FINI
/CLE
!ò
/CONFIG,NRES,2000
*SET,LONG,40			!
*SET,NE,20			!Ԫ
*SET,DL,LONG/NE			!Ԫ
*SET,NN,NE+1			!ڵ
*SET,FF,5000			!ƶļ
*SET,VV,80			!ƶٶ
*SET,DT,DL/VV*3.6		!ƶһԪʱ
!嵥Ԫʵ
/PREP7
ET,1,BEAM3			!Ԫ
MP,EX,1,50E9			!ģ
MP,DENS,1,2500			!ܶ
MP,NUXY,1,0.2
R,1,0.5,0.041667,1		!γ
!ģ
*DO,I,1,NN,1
N,I,(I-1)*DL			!
*ENDDO
*DO,I,1,NE
E,I,I+1
*ENDDO
FINI
!
/SOL
D,1,ALL
D,NN,ALL
ANTYPE,4			!˲̬
TRNOPT,FULL
TIMINT,OFF
OUTRES,BASIC,ALL			!ÿһ
KBC,1						!ָغ
TIME,1E-10				!ָغɲʱ
NSUB,4,8					!ָغӲΪ4ӲΪ8
SSTIF,ON					!ӦջЧӦ
ACEL,0,9.8,0				!ʩٶ
ALLS						!ѡԪ
SOLVE						!һغɲ
TIMINT,ON
*DO,II,1,NN,1
	OUTRES,ALL,ALL			!мӲн
	TIME,II*DT			!ÿزʱ
	NSUBST,5			!ÿزӲ
	FDELE,ALL,ALL			!ɾеļ
	NSEL,S,LOC,X,(II-1)*DL	!ѡýڵ
	F,ALL,FY,-FF			!ʩӼк
	ALLSEL			!ѡ
	SOLVE
*ENDDO
SAVE
FINI
/POST1
SET,NE/2+1,LAST			!趨ȡغɲ
/ESHAPE,1			!ʾ״
PLNSOL,U,Y,0,1.0		!Yλ
PLNSOL,S,EQV,0,1.0		!ЧӦ
FINI
/POST26
NSOL,2,NE/2+1,U,Y,UY_M       !ȡвڵYλ
XVAR,1                   !ʱΪ
PLVAR,2                  !λʱ仯ͼ
DERIV,3,2,1,,,,,1        !вڵYλƽ΢㣬õYٶ
PLVAR,3                  !ٶʱ仯ͼ
DERIV,4,3,1,,,,,1        !вڵYٶȽ΢㣬õYٶ
PLVAR,4                  !Ƽٶʱ仯ͼ
