Code:
finish
/cle/prep7
k,,
k,,1
k,,1,1
k,,,1
a,1,2,3,4
/PNUM,LINE,1
cm,arealines,line
lsel,none
k,,-1.25
k,,0.5
k,,2.25
l,5,6
l,6,7
cm,beamlines,line
lplot
sectype,1,beam,hrec
secdata,0.5,0.5,0.1,0.1,0.1,0.1
secoffset,user,0.5,0.25
sect,11,shell,,sec_window_edge,1
secdata,0.1,1,0,3
secoffset,mid
seccontrol,0,0,0, 0, 1, 1, 1
et,2,beam188
keyopt,2,1,1
keyopt,2,3,2
r,2
et,3,shell181
r,3,0.1,0.1,0.1,0.1
keyopt,3,3,2
keyopt,3,8,2
et,4,targe170
r,4
et,5,conta175!6
keyopt,5,2,2
!keyopt,5,3,0
!keyopt,5,4,1
!keyopt,5,5,4
keyopt,5,12,5
r,1,0.25,0.25,0.25,0.25
mp,ex,1,206000
mp,nuxy,1,0.3
mp,dens,1,7850 !kg/m^3 -> Help: solving units, density
cmsel,s,beamlines
latt,1,2,2,,,,1
lmesh,all
type,5
real,1
mat,1
esurf
esel,none
nsel,none
cmsel,s,arealines
aatt,1,3,3,,11
amesh,all
type,4
mat,1
real,1
esurf
alls
f,2,fy,-5000
d,1,all
d,5,all
/eshape,1
gplot
/solu
alls
solve
/POST1
/EFACET,1
PLNSOL, S,EQV, 0,1.0