/filname,plytka1
/prep7
/title,plytka1
Blc4,0,0,200,100
Cyl4,100,50,20
/pnum,kp,1
/pnum,line,1
/pnum,area,1
/pnum,node,1
Aplot
Asba,1,2
Et,1,plane82
Keyopt,1,3,3
Keyopt,1,5,2
R,1,20
Mp,ex,1,210000
Mp,prxy,1,0.3
Aesize,all,2
Amesh,all
/eshape,1
Eplot
Finish
/solu
Antype,0
Lplot
Dl,4,all,0
Sfl,2,pres,-1
Alist
Aplot
Sfllist
Save
Solve
Finish
/filename,uchwyt1
/prep7
/title,uchwyt1
Blc4,0,0,80,100
Cyl4,80,50,50
Cyl4,0,20,20
Cyl4,0,80,20
Blc4,-20,20,20,60
/pnum,kp,1
/pnum,line,1
/pnum,area,1
/pnum,node,1
Aplot
Aadd,all
Cyl4,80,50,30
Cyl4,0,20,10
Cyl4,0,80,10
Asba,6,all
Et,1,plane82
Keyopt,1,3,3
Keyopt,1,5,2
R,1,20
Mp,ex,1,210000
Mp,prxy,1,0.3
Aesize,all,5
Amesh,all
/eshape,1
Eplot
Finish
/solu
Antype,0
Lplot
Dl,7,,all,0
Dl,8,,all,0
Dl,9,,all,0
Dl,10,,all,0
Dl,11,,all,0
Dl,12,,all,0
Dl,13,,all,0
Dl,14,,all,0
Fk,9,fy,-1000
Save
Solve
Finish