/PREP7
!*
ET,1,BEAM3
!*
ET,2,MASS21
!*
KEYOPT,1,6,1
KEYOPT,1,9,0
KEYOPT,1,10,0
!*
KEYOPT,2,1,0
KEYOPT,2,2,0
KEYOPT,2,3,4
!*
R,1,0.04,0.04*0.04/12,0.2, , , ,
!*
!*
R,2,1000,
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2E11
MPDATA,PRXY,1,,0.2
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,0
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,2,,2E11
MPDATA,PRXY,2,,0.2
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,2,,7800
SAVE
K,1,0,0,0,
K,2,0,10,0,
LSTR, 1, 2
TYPE, 1
MAT, 1
REAL, 1
ESYS, 0
SECNUM,
!*
CM,_Y,LINE
LSEL, , , , 1
CM,_Y1,LINE
CMSEL,S,_Y
!*
!*
CMSEL,S,_Y1
LATT,1,1,1, , , ,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,KP
KSEL, , , , 2
CM,_Y1,KP
CMSEL,S,_Y
!*
CMSEL,S,_Y1
KATT, 2, 2, 2, 0
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
ESIZE,0,1,
LMESH, 1
FLST,5,1,3,ORDE,1
FITEM,5,2
CM,_Y,KP
KSEL, , , ,P51X
CM,_Y1,KP
CMSEL,S,_Y
!*
!*
CMSEL,S,_Y1
KESIZE,ALL,1
CMSEL,S,_Y
CMDELE,_Y1
CMDELE,_Y
!*
KMESH, 2
*SET,NT,751
*SET,DT,0.02
*DIM,AC(1),ARRAY,751,1,0,ACEL,TIME,
!*
*CREATE,ansuitmp
*VREAD,AC(1),'Acc','txt','Seismic\',1, , , , , ,
(F12.8)
*END
/INPUT,ansuitmp
!*
FINISH
/SOL
FLST,2,1,3,ORDE,1
FITEM,2,1
!*
/GO
DK,P51X, , , ,0,ALL, , , , , ,
!*
ANTYPE,4
!*
TRNOPT,FULL
LUMPM,0
!*
NSUBST,1,0,0
OUTRES,ERASE
OUTRES,ALL,ALL
ALPHAD,1.4
BETAD,0.0020
!*
OUTPR,BASIC,ALL,
*DO,I,1,NT
ACEL,AC(I)*0.01,0,0
TIME,I*DT
SOLVE
*ENDDO
FINISH
/POST26
FILE,'single degree freedom system','rst','.'
/UI,COLL,1
NUMVAR,200
SOLU,191,NCMIT
STORE,MERGE
FILLDATA,191,,,,1,1
REALVAR,191,191
!*
NSOL,2,2,U,X,UX_2
STORE,MERGE
!*
NSOL,3,2,V,X,VX_3
STORE,MERGE
!*
NSOL,4,2,A,X, AX_4
STORE,MERGE
PLVAR,2, , , , , , , , , ,
PLVAR,3, , , , , , , , , ,
PLVAR,4, , , , , , , , , ,
SAVE,,,,ALL
FINISH
/CLEAR,START
/COM,ANSYS RELEASE 10.0 UP20050718 18:32:47 05/10/2007
/input,start100,ans,'C:\Program Files\Ansys Inc\v100\ANSYS\apdl\',,,,,,,,,,,,,,,,1 |