/prep7
ET,1,SHELL91,32,1
KEYOPT,1,11,0,
KEYOPT,1,8,1
ET,2,SHELL91,30,1
KEYOPT,2,11,0,
KEYOPT,2,8,1
MP,EX,1,135000
MP,EY,1,8800
MP,EZ,1,8800
MP,PRXY,1,0.33
MP,PRYZ,1,0.33
MP,PRXZ,1,0.33
MP,GXY,1,4470
MP,GYZ,1,4470
MP,GXZ,1,4470
RECTNG,0,10,0,10,
RECTNG,10,20,0,10,
AGLUE,all
LESIZE,all, , ,20, , , , ,1
!*
ASEL,S,LOC,X,0,10
MSHAPE,0,2D
MSHKEY,0
TYPE, 1
AMESH,all
allsel,all
ASEL,S,LOC,X,10,20
MSHAPE,0,2D
MSHKEY,0
TYPE, 2
AMESH,all
allsel,all
CSWPLA,11,0,1,1,
esys,11
*GET,MXNODE,NODE,,NUM,MAX,
*GET,MXELE,ELEM,,NUM,MAX,
*DIM,THICK,,MXNODE
ESEL,S,TYPE,,1
NSLE,S
*DO,ELE,1,MXELE
*IF,ESEL(ELE),EQ,1,THEN
R,ELE
RMODIF,ELE,1,32,0, , , ,0
RMODIF,ELE,13,1,45,0.125,0,0,0, !1
RMODIF,ELE,19,1,135,0.125,0,0,0, !2
RMODIF,ELE,25,1,90,0.125,0,0,0, !3
RMODIF,ELE,31,1,135,0.125,0,0,0, !4
RMODIF,ELE,37,1,45,0.125,0,0,0, !5
RMODIF,ELE,43,1,90,0.125,0,0,0, !6
RMODIF,ELE,49,1,135,0.125,0,0,0, !7
RMODIF,ELE,55,1,45,0.125,0,0,0, !8
RMODIF,ELE,61,1,0,0.125,0,0,0, !9
RMODIF,ELE,67,1,45,0.125,0,0,0, !10
RMODIF,ELE,73,1,135,0.125,0,0,0, !11
RMODIF,ELE,79,1,90,0.125,0,0,0, !12
RMODIF,ELE,85,1,135,0.125,0,0,0, !13
RMODIF,ELE,91,1,45,0.125,0,0,0, !14
RMODIF,ELE,97,1,0,0.125,0,0,0, !15
RMODIF,ELE,103,1,45,0.125,0,0,0, !16
RMODIF,ELE,109,1,135,0.125,0,0,0, !17
RMODIF,ELE,115,1,90,0.125,0,0,0, !18
RMODIF,ELE,121,1,45,0.125,0,0,0, !19
RMODIF,ELE,127,1,135,0.125,0,0,0, !20
RMODIF,ELE,133,1,90,0.125,0,0,0, !21
RMODIF,ELE,139,1,135,0.125,0,0,0, !22
RMODIF,ELE,145,1,45,0.125,0,0,0, !23
RMODIF,ELE,151,1,0,0.125,0,0,0, !24
RMODIF,ELE,157,1,45,0.125,0,0,0, !25
RMODIF,ELE,163,1,135,0.125,0,0,0, !26
RMODIF,ELE,169,1,90,0.125,0,0,0, !27
RMODIF,ELE,175,1,45,0.125,0,0,0, !28
RMODIF,ELE,181,1,135,0.125,0,0,0, !29
RMODIF,ELE,187,1,90,0.125,0,0,0, !30
RMODIF,ELE,193,1,135,0.125,0,0,0, !31
RMODIF,ELE,199,1,45,0.125,0,0,0, !32
*ENDIF
*ENDDO
*DO,NODE,1,MXNODE
*IF,NSEL(NODE),EQ,1,THEN
THICK(node) = 0.125-0.0125*NX(NODE)
*ENDIF
*ENDDO
RTHICK,THICK(1),105,106,107,108
RTHICK,THICK(1),111,112,113,114
*DO,NODE,1,MXNODE
THICK(node) =0
*ENDDO ALLSEL,ALL
ESEL,S,TYPE,,2
NSLE,S
*DO,ELE,1,MXELE
*IF,ESEL(ELE),EQ,1,THEN
R,ELE
RMODIF,ELE,1,30,0, , , ,0
RMODIF,ELE,13,1,45,0.125,0,0,0, !1
RMODIF,ELE,19,1,135,0.125,0,0,0, !2
RMODIF,ELE,25,1,90,0.125,0,0,0, !3
RMODIF,ELE,31,1,135,0.125,0,0,0, !4
RMODIF,ELE,37,1,45,0.125,0,0,0, !5
RMODIF,ELE,43,1,90,0.125,0,0,0, !6
RMODIF,ELE,49,1,135,0.125,0,0,0, !7
RMODIF,ELE,55,1,45,0.125,0,0,0, !8
RMODIF,ELE,61,1,0,0.125,0,0,0, !9
RMODIF,ELE,67,1,45,0.125,0,0,0, !10
RMODIF,ELE,73,1,135,0.125,0,0,0, !11
RMODIF,ELE,79,1,90,0.125,0,0,0, !12
RMODIF,ELE,85,1,135,0.125,0,0,0, !13
RMODIF,ELE,91,1,45,0.125,0,0,0, !14
RMODIF,ELE,97,1,0,0.125,0,0,0, !15
RMODIF,ELE,103,1,45,0.125,0,0,0, !16
RMODIF,ELE,109,1,135,0.125,0,0,0, !17
RMODIF,ELE,115,1,90,0.125,0,0,0, !18
RMODIF,ELE,121,1,45,0.125,0,0,0, !19
RMODIF,ELE,127,1,135,0.125,0,0,0, !20
RMODIF,ELE,133,1,90,0.125,0,0,0, !21
RMODIF,ELE,139,1,135,0.125,0,0,0, !22
RMODIF,ELE,145,1,45,0.125,0,0,0, !23
RMODIF,ELE,151,1,0,0.125,0,0,0, !24
RMODIF,ELE,157,1,45,0.125,0,0,0, !25
RMODIF,ELE,163,1,135,0.125,0,0,0, !26
RMODIF,ELE,169,1,90,0.125,0,0,0, !27
RMODIF,ELE,175,1,45,0.125,0,0,0, !28
RMODIF,ELE,181,1,135,0.125,0,0,0, !29
RMODIF,ELE,187,1,90,0.125,0,0,0, !30
*ENDIF
*ENDDO
*DO,NODE,1,MXNODE
*IF,NSEL(NODE),EQ,1,THEN
THICK(node) = 0.125-0.0125*(NX(NODE)-10)
*ENDIF
*ENDDO
RTHICK,THICK(1),99,100,101,102
RTHICK,THICK(1),105,106,107,108
*DO,NODE,1,MXNODE
THICK(node) =0
*ENDDO
ALLSEL,ALL
/ESHAPE,1.0
EPLOT |