*SET,fi,5
*SET,r,50
*SET,theta,15
/PREP7
ET,1,BEAM188
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1e11
MPDATA,EY,1,,
MPDATA,EZ,1,,
MPDATA,PRXY,1,,0.3
MPDATA,PRYZ,1,,
MPDATA,PRXZ,1,,
MPDATA,GXY,1,,8e10
MPDATA,GYZ,1,,
MPDATA,GXZ,1,,
SECTYPE, 1, BEAM, CTUBE, section1, 0
SECOFFSET, CENT
SECDATA,0.09,0.0925,36,0,0,0,0,0,0,0
SECTYPE, 2, BEAM, CTUBE, section2, 0
SECOFFSET, CENT
SECDATA,0.08,0.083,36,0,0,0,0,0,0,0
CSYS,2
*do,i,1,6
*do,j,1,24,1
n,24*(i-1)+j,r,(j-1)*theta,(i-1)*fi+60
*enddo
*enddo
n,2000,100,0,90
type,1
mat,1
secnum,1
*do,i,1,6
*do,j,1,23,1
e,24*(i-1)+j,24*(i-1)+j+1,2000
*enddo
e,i*24,i*24-23,2000
*enddo
SAVE
EPLOT
NPLOT
*do,i,1,5
*do,j,1,24,1
e,24*(i-1)+j,24*(i-1)+j+24,2000
*enddo
*enddo
n,1000,50,0,90
*do,i,121,144,1
e,i,1000,2000
*enddo
secnum,2
*do,i,1,5
*do,j,1,23,1
e,24*(i-1)+j,24*(i-1)+j+25,2000
*enddo
e,i*24,i*24+1,2000
*enddo
nummrg,all
numcmp,all
finish
eplot
SAVE
FLST,2,24,1,ORDE,2
FITEM,2,1
FITEM,2,-24
D,P51X, , , , , ,UX,UY,UZ, , ,
SAVE
FLST,2,121,1,ORDE,2
FITEM,2,25
FITEM,2,-145
F,P51X,FZ,-1
ANTYPE,0
ALLSEL,ALL
/SOLU
SOLVE |