N=79
*DIM,FCAR,ARRAY,N
*DO,I,1,N
TT=(I-1)*0.7
FCAR(I)=736.92*ABS(cos(0.7143*3.1416*TT))
ENDDO
/CONFIG,NRES,10000
/SOLU
ANTYPE,TRANS
*DO,I,1,N
TIME,I*0.7
AUTO,OFF
DELTIM,0.35
KBC,0
OUTRES,BASIC
ACEL,0,0,10
*IF,I,EQ,1,THEN
NSEL,S,LOC,X,-546
NSEL,R,LOC,Y,0
NSEL,R,LOC,Z,15.2
F,ALL,FZ,-FCAR(I)
ALLSEL
*ELSE
*DO,J,2,N
NSEL,S,LOC,X,-546+(J-1)*14
NSEL,R,LOC,Y,0
NSEL,R,LOC,Z,15.2
F,ALL,FZ,-FCAR(J)
ALLSEL
NSEL,S,LOC,X,-546+(J-2)*14
NSEL,R,LOC,Y,0
NSEL,R,LOC,Z,15.2
FDELE,ALL,FZ
ALLSEL
*ENDDO
*ENDIF
LSWRITE,I
*ENDDO
LSSOLVE,1,N
FINISH |