fini
/clear
/prep7
et,1,188
MP,EX,1,0
MP,PRXY,1,0
MP,DENS,1,0
MP,ALPX,1,0
k,1,-1000,0,0
k,21,1000,0,0
k,1700,999,10
numstr,line,1
l,1,21
sectype,101,beam,mesh
secread,1,,,mesh
sectype,102,beam,mesh
secread,1,,,mesh
sectype,103,taper
secdata,101,kx(1),ky(1),kz(1)
secdata,102,kx(21),ky(21),kz(21)
numstr,node,1
numstr,elem,1
lesize,1,,,20
latt,1,,1,,1700,,103
lmesh,1
k,111,2000,0,0
k,1800,1999,10
numstr,line,101
l,21,111
sectype,201,beam,mesh
secread,1,,,mesh
sectype,202,beam,mesh
secread,1,,,mesh
sectype,203,taper
secdata,201,kx(21),ky(21),kz(21)
secdata,202,kx(111),ky(111),kz(111)
numstr,node,101
numstr,elem,101
lesize,101,,,10
latt,1,,1,,1800,,203
lmesh,101
nsym,x,50,101,121,1
esym,,50,101,110,1
/eshape,1
eplot
|