/FILNAME, 906
/prep7
et,1,beam3
mp,ex,1,2.1e11
mp,nuxy,1,0.2
mp,dens,1,7800
r,1,0.18,0.0054,1
*do,i,1,6
n,i,(i-1)
*enddo
*do,i,1,5
e,i,i+1
*enddo
d,1,ux,,,,,uy
d,6,uy
/solu
antype,trans
outres,all,all
time,1
kbc,1
nsubst,10
f,3,fy,-10000
solve
time,2
kbc,1
nsubst,10
f,3,fy,-5000
solve
/post26
*get,v2,node,3,uy
*status,v2
parsave,all!!!!!!!!!!!!!!!!!!
fini
/solu
antype,,rest,2
parresume !!!!!!!!!!!!!!!!!!
time,3
kbc,1
nsubst,10
*status,v2
f,3,fy,-5000*v2
solve
v1=uy(3)
status,v1 |