finish
/clear
!             ******Preprozessor******
/prep7
/title                    Optipro 
/com,                     Biegetest 
/com,          
/com,
/com,        
/com,
/com,
/com,
/com,
emunit,mks
et,1,63
r,1,300e-6


mp,ex,1,150e9
mp,ey,1,150e9
mp,ey,1,150e9

mp,prxy,1,0.3
mp,prxz,1,0.3
mp,pryz,1,0.3



last=2

k,1,0,0,0
k,2,laenge,0,0
k,3,laenge,laenge,0
k,4,0,laenge,0
a,1,2,3,4
lsel,s,line,,1,2,1      
lesize,all,,,100
allsel,all
mshape,0,2d
mshkey,1
amesh,all


d,1501,ux
d,1501,uy
d,1501,uz
d,9101,uz
f,1577,fz,last/2
f,9025,fz,last/2
allsel,all

/solu
antype,static
solve