/FILNAME,me
/TITLE,Transient Response of a Roll-ball Isolator
/REP
/PREP7
ET,1,solid45
ET,2,solid73
MP,EX,1,2.1E11
MP,PRXY,1,0.3
MP,DENS,1,7.8E3
K,1,-0.11,0.03,0
K,2,-0.10,0.03,0
K,3,-0.10,-0.04,0
K,4,-0.06,-0.04,0
K,5,-0.06,0.03,0
K,6,-0.05,0.03,0
K,7,-0.05,-0.04,0
K,8,0.41,-0.04,0
K,9,0.41,0.03,0
K,10,0.42,0.03,0
K,11,0.42,-0.04,0
K,12,0.46,-0.04,0
K,13,0.46,0.03,0
K,14,0.47,0.03,0
K,15,0.47,-0.05,0
K,16,-0.11,-0.05,0
A,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
K,17,-0.085,-0.03,0
K,18,-0.085,0.05,0
K,19,0.445,0.05,0
K,20,0.445,-0.03,0
K,21,0.435,-0.03,0
K,22,0.435,0.04,0
K,23,-0.075,0.04,0
K,24,-0.075,-0.03,0
A,17,18,19,20,21,22,23,24
VEXT,ALL,,,,,-0.5
LSEL,ALL
LESIZE,ALL,0.01
VSWEEP,1
VSWEEP,2
CYL5,-0.04,0,0.04,0
VEXT,29,,,,,-0.5
LESIZE,73,,,0.01PI
LESIZE,74,,,0.01PI
LESIZE,75,,,0.01PI
LESIZE,76,,,0.01PI
TYPE,2
VSWEEP,3
VGEN,4,3,3,0,0.12
/REP
/solu
outr,all,all
anty,trans
trnopt,full
timint,on
*dim,acex,array,100
*vread,acex,acex,txt
(e14.4)
*voper,acex(1),acex(1),mult,9.8,,
csys,0
*do,tm,0.00,40,0.02
time,tm
acel,acex(tm),
lswrite,tm/0.02
*enddo
lssolve,1,100,1
fini
/POST26
FILE,,rasp
NSOL,2,1,U,Y,UY
/GRID,1
PLVAR,2
FINISH