FINISH
/CLEAR
! /UIS,MSGPOP,2
KEYW,PR_SGVOF,0
/NERR,99999,99999, ,0,99999,
/PREP7
et,1,beam189
et,2,beam189
et,3,shell181
keyopt,3,3,2
mp,ex,1,2.0e10
mp,dens,1,2500
mp,prxy,1,0.2
mp,ex,2,2.0e10
mp,dens,2,2500
mp,prxy,2,0.2
mp,ex,3,2.0e10
mp,dens,3,2500
mp,prxy,3,0.2
sectype,1,beam,rect
secdata,0.25,0.6
secoffset,user,-0.125,0.3
sectype,2,beam,rect
secdata,0.25,0.6
secoffset,user,0.125,0.3
sectype,3,beam,rect
secdata,0.6,0.6
secoffset,user,-0.3,0.3
sectype,4,beam,rect
secdata,0.6,0.6
secoffset,user,-0.3,0
sectype,5,beam,rect
secdata,0.6,0.6
secoffset,user,-0.3,-0.3
sectype,6,beam,rect
secdata,0.6,0.6
secoffset,user,0,0.3
sectype,7,beam,rect
secdata,0.6,0.6
secoffset,user,0,-0.3
sectype,8,beam,rect
secdata,0.6,0.6
secoffset,user,0.3,0.3
sectype,9,beam,rect
secdata,0.6,0.6
secoffset,user,0.3,0
sectype,10,beam,rect
secdata,0.6,0.6
secoffset,user,0.3,-0.3
sectype,11,beam,rect
secdata,0.25,0.5
secoffset,user,0,0.25
sectype,12,beam,rect
secdata,0.6,0.6
sectype,13,shell
secdata,0.1
secoffset,top
!*************************
*do,i,0,4
k,i+1,i*3.6,,3.3
*enddo
kgen,2,1,5,1,,4.2
kgen,2,1,5,1,,4.2+2.4
kgen,2,1,5,1,,4.2+2.4+4.2
*do,i,1,4
l,i,i+1
*enddo
*do,i,6,9
l,i,i+1
*enddo
*do,i,11,14
l,i,i+1
*enddo
*do,i,16,19
l,i,i+1
*enddo
*do,i,1,15
l,i,i+5
*enddo
*do,i,1,4
a,i,i+1,i+6,i+5
*enddo
*do,i,6,9
a,i,i+1,i+6,i+5
*enddo
*do,i,11,14
a,i,i+1,i+6,i+5
*enddo
免责声明:本文系网络转载或改编,未找到原创作者,版权归原作者所有。如涉及版权,请联系删