finish
/clear
/GO
! /UIS,MSGPOP,3
/NERR,5,10000,
!*
/COM, Structural
/GOPR
/PREP7
*set,a,0.2
!/PREP7
ET,3,SOLID186
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1e11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7860
K,1, 0.2 , 0.25 , -0.2 ,
K,2, 0.2 , 0.25 , 0.2 ,
K,3, -0.2 , 0.25 , 0.2 ,
K,4, -0.2 , 0.25 , -0.2 ,
K,5, 0.2 , 0.3 , -0.2 ,
K,6, 0.2 , 0.3 , 0.2 ,
K,7, -0.2 , 0.3 , 0.2 ,
K,8, -0.2 , 0.3 , -0.2 ,
K,9, 0.2 , -0.25 , -0.2 ,
K,10, 0.2 , -0.25 , 0.2 ,
K,11, -0.2 , -0.25 , 0.2 ,
K,12, -0.2 , -0.25 , -0.2 ,
K,13, 0.2 , -0.3 , -0.2 ,
K,14, 0.2 , -0.3 , 0.2 ,
K,15, -0.2 , -0.3 , 0.2 ,
K,16, -0.2 , -0.3 , -0.2 ,
LSTR, 1, 2
LSTR, 2, 3
LSTR, 3, 4
LSTR, 4, 1
LSTR, 5, 6
LSTR, 6, 7
LSTR, 7, 8
LSTR, 8, 5
LSTR, 5, 1
LSTR, 6, 2
LSTR, 7, 3
LSTR, 8, 4
LSTR, 9, 10
LSTR, 10, 11
LSTR, 11, 12
LSTR, 12, 9
LSTR, 13, 14
LSTR, 14, 15
LSTR, 15, 16
LSTR, 16, 13
LSTR, 13, 9
LSTR, 14, 10
LSTR, 15, 11
LSTR, 16, 12
!——————————————到此为止点线已经建好
SAVE
SAVE
FINISH
/SOL
FINISH
/PREP7
FLST,2,4,4
FITEM,2,3
FITEM,2,4
FITEM,2,1
FITEM,2,2
AL,P51X
FLST,2,4,4
FITEM,2,7
FITEM,2,8
FITEM,2,5
FITEM,2,6
AL,P51X
FLST,2,4,4
FITEM,2,19
FITEM,2,20
FITEM,2,17
FITEM,2,18
AL,P51X
FLST,2,4,4
FITEM,2,15
FITEM,2,16
FITEM,2,13
FITEM,2,14
AL,P51X
LPLOT
FLST,2,4,4
FITEM,2,11
FITEM,2,3
FITEM,2,7
FITEM,2,12
AL,P51X
FLST,2,4,4
FITEM,2,11
FITEM,2,2
FITEM,2,6
FITEM,2,10
AL,P51X
FLST,2,4,4
FITEM,2,12
FITEM,2,4
FITEM,2,8
FITEM,2,9
AL,P51X
FLST,2,4,4
FITEM,2,10
FITEM,2,5
FITEM,2,1
FITEM,2,9
AL,P51X
FLST,2,4,4
FITEM,2,23
FITEM,2,15
FITEM,2,19
FITEM,2,24
AL,P51X
FLST,2,4,4
FITEM,2,24
FITEM,2,16
FITEM,2,20
FITEM,2,21
AL,P51X
FLST,2,4,4
FITEM,2,23
FITEM,2,14
FITEM,2,18
FITEM,2,22
AL,P51X
FLST,2,4,4
FITEM,2,22
FITEM,2,17
FITEM,2,13
FITEM,2,21
AL,P51X
SAVE
SAVE
FLST,2,6,5,ORDE,4
FITEM,2,1
FITEM,2,-2
FITEM,2,5
FITEM,2,-8
VA,P51X
FLST,2,6,5,ORDE,4
FITEM,2,3
FITEM,2,-4
FITEM,2,9
FITEM,2,-12
VA,P51X
SAVE
!----------------到此为止实体模型已经建好
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
!*
FLST,5,8,4,ORDE,4
FITEM,5,9
FITEM,5,-12
FITEM,5,21
FITEM,5,-24
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,2, , , , ,1
!*
FLST,5,16,4,ORDE,4
FITEM,5,1
FITEM,5,-8
FITE
M,5,13
FITEM,5,-20
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,4, , , , ,1
!*
MSHAPE,0,3D
MSHKEY,1
!*
FLST,5,2,6,ORDE,2
FITEM,5,1
FITEM,5,-2
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
NPLOT
TYPE, 2
MAT, 1
REAL, 2
ESYS, 0
SECNUM,
TSHAP,LINE
!*
FLST,2,2,1
FITEM,2,49
FITEM,2,359
E,P51X
TYPE, 1
MAT, 1
REAL, 1
ESYS, 0
SECNUM,
TSHAP,LINE
!*
E, 359
FINISH
/SOL
!*
ANTYPE,3
HARFRQ,0,50,
NSUBST,50,
KBC,1
!*
FLST,2,1,1,ORDE,1
FITEM,2,49
!*
/GO
D,P51X, , , , , ,UX,UZ,ROTX,ROTY,ROTZ,
FLST,2,1,1,ORDE,1
FITEM,2,359
!*
/GO
D,P51X, , , , , ,UX,UZ,ROTX,ROTY,ROTZ,
FLST,2,1,1,ORDE,1
FITEM,2,49
!*
/GO
F,P51X,FY,2000,
FLST,2,1,1,ORDE,1
FITEM,2,359
!*
/GO
F,P51X,FY,-2000,
/STATUS,SOLU
SOLVE
finish
/clear
/GO
! /UIS,MSGPOP,3
/NERR,5,10000,
!*
/COM, Structural
/GOPR
/PREP7
*set,a,0.2
!/PREP7
ET,3,SOLID186
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1e11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7860
K,1, 0.2 , 0.25 , -0.2 ,
K,2, 0.2 , 0.25 , 0.2 ,
K,3, -0.2 , 0.25 , 0.2 ,
K,4, -0.2 , 0.25 , -0.2 ,
K,5, 0.2 , 0.3 , -0.2 ,
K,6, 0.2 , 0.3 , 0.2 ,
K,7, -0.2 , 0.3 , 0.2 ,
K,8, -0.2 , 0.3 , -0.2 ,
K,9, 0.2 , -0.25 , -0.2 ,
K,10, 0.2 , -0.25 , 0.2 ,
K,11, -0.2 , -0.25 , 0.2 ,
K,12, -0.2 , -0.25 , -0.2 ,
K,13, 0.2 , -0.3 , -0.2 ,
K,14, 0.2 , -0.3 , 0.2 ,
K,15, -0.2 , -0.3 , 0.2 ,
K,16, -0.2 , -0.3 , -0.2 ,
LSTR, 1, 2
LSTR, 2, 3
LSTR, 3, 4
LSTR, 4, 1
LSTR, 5, 6
LSTR, 6, 7
LSTR, 7, 8
LSTR, 8, 5
LSTR, 5, 1
LSTR, 6, 2
LSTR, 7, 3
LSTR, 8, 4
LSTR, 9, 10
LSTR, 10, 11
LSTR, 11, 12
LSTR, 12, 9
LSTR, 13, 14
LSTR, 14, 15
LSTR, 15, 16
LSTR, 16, 13
LSTR, 13, 9
LSTR, 14, 10
LSTR, 15, 11
LSTR, 16, 12
!——————————————到此为止点线已经建好
SAVE
SAVE
FINISH
/SOL
FINISH
/PREP7
FLST,2,4,4
FITEM,2,3
FITEM,2,4
FITEM,2,1
FITEM,2,2
AL,P51X
FLST,2,4,4
FITEM,2,7
FITEM,2,8
FITEM,2,5
FITEM,2,6
AL,P51X
FLST,2,4,4
FITEM,2,19
FITEM,2,20
FITEM,2,17
FITEM,2,18
AL,P51X
FLST,2,4,4
FITEM,2,15
FITEM,2,16
FITEM,2,13
FITEM,2,14
AL,P51X
LPLOT
FLST,2,4,4
FITEM,2,11
FITEM,2,3
FITEM,2,7
FITEM,2,12
AL,P51X
FLST,2,4,4
FITEM,2,11
FITEM,2,2
FITEM,2,6
FITEM,2,10
AL,P51X
FLST,2,4,4
FITEM,2,12
FITEM,2,4
FITEM,2,8
FITEM,2,9
AL,P51X
FLST,2,4,4
FITEM,2,10
FITEM,2,5
FITEM,2,1
FITEM,2,9
AL,P51X
FLST,2,4,4
FITEM,2,23
FITEM,2,15
FITEM,2,19
FITEM,2,24
AL,P51X
FLST,2,4,4
FITEM,2,24
FITEM,2,16
FITEM,2,20
FITEM,2,21
AL,P51X
FLST,2,4,4
FITEM,2,23
FITEM,2,14
FITEM,2,18
FITEM,2,22
AL,P51X
FLST,2,4,4
FITEM,2,22
FITEM,2,17
FITEM,2,13
FITEM,2,21
AL,P51X
SAVE
SAVE
FLST,2,6,5,ORDE,4
FITEM,2,1
FITEM,2,-2
FITEM,2,5
FITEM,2,-8
VA,P51X
FLST,2,6,5,ORDE,4
FITEM,2,3
FITEM,2,-4
FITEM,2,9
FITEM,2,-12
VA,P51X
SAVE
!----------------到此为止实体模型已经建好
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
!*
FLST,5,8,4,ORDE,4
FITEM,5,9
FITEM,5,-12
FITEM,5,21
FITEM,5,-24
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,2, , , , ,1
!*
FLST,5,16,4,ORDE,4
FITEM,5,1
FITEM,5,-8
FITE
M,5,13
FITEM,5,-20
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,4, , , , ,1
!*
MSHAPE,0,3D
MSHKEY,1
!*
FLST,5,2,6,ORDE,2
FITEM,5,1
FITEM,5,-2
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
NPLOT
TYPE, 2
MAT, 1
REAL, 2
ESYS, 0
SECNUM,
TSHAP,LINE
!*
FLST,2,2,1
FITEM,2,49
FITEM,2,359
E,P51X
TYPE, 1
MAT, 1
REAL, 1
ESYS, 0
SECNUM,
TSHAP,LINE
!*
E, 359
FINISH
/SOL
!*
ANTYPE,3
HARFRQ,0,50,
NSUBST,50,
KBC,1
!*
FLST,2,1,1,ORDE,1
FITEM,2,49
!*
/GO
D,P51X, , , , , ,UX,UZ,ROTX,ROTY,ROTZ,
FLST,2,1,1,ORDE,1
FITEM,2,359
!*
/GO
D,P51X, , , , , ,UX,UZ,ROTX,ROTY,ROTZ,
FLST,2,1,1,ORDE,1
FITEM,2,49
!*
/GO
F,P51X,FY,2000,
FLST,2,1,1,ORDE,1
FITEM,2,359
!*
/GO
F,P51X,FY,-2000,
/STATUS,SOLU
SOLVE