finish
/clear
/prep7
et,1,shell181
et,2,beam188
mp,ex,1,200e9
mp,prxy,1,0.3
mp,dens,7800
sectype,1,shell
secdata,0.3
sectype,2,beam,rect
secdata,0.2,0.5
secoffset,user,,-0.4
k,1,-2
k,2,2
k,3,-2,,10
l,1,3
csys,1
l,1,2
adrag,2,,,,,,1
agen,2,all,,,,180
csys,0
nummrg,kp
wprota,,90,45
asbw,all
wprota,,,45
asbw,all
wprota,,,45
asbw,all
wpcsys,-1,0
allsel
wpoffs,,,5
asbw,all
wpcsys,-1,0
esize,0.15
aatt,1,,1
amesh,all
kgen,2,kp(2,0,0),,,2
csys,1
kgen,8,kp(4,0,0),,,,45
csys,0
csys,1
*do,i,1,8
lsel,s,loc,y,(i-1)*45
latt,1,,2,,kp(4,(i-1)*45,0),,2
lmesh,all
*enddo
k,,4,0,5
lsel,s,loc,z,5
lsel,r,loc,y,-90,90
latt,1,,2,,kp(4,0,5),,2
lmesh,all
allsel
k,,-4,0,5
lsel,s,loc,z,5
lsel,r,loc,y,90,270
latt,1,,2,,kp(-4,0,5),,2
lmesh,all
allsel
/eshape,1
|