!***************环境设置************************
finish
/clear
/title, tanhuang analysis
! ********* 参数设定*********
z1=-564.4136 !z轴坐标平移量
z2=-1234.3675
z3=-1400.0614
z4=-1439.3441
z5=-1492.0029
z6=-1494.7216
z7=-1453.6216
z8=-1491.8469
z9=-623.8469
R0 = 4383.55 !半径参数设置
R1 = 3840.5
R2 = 3184.7
R3 = 3043.95
R4 = 3017.22
R5 = 2977.1
R6 = 2984.4
R7 = 3035.5
R8 = 3007.35
R9 = 3887.75
!旋转角度左边值
THERT01 = -99.80175
THERT11 = -101.1891
THERT21 = -102.0162
THERT31 = -101.10545
THERT41 = -99.6847
THERT51 = -98.2756
THERT61 = -96.71945
THERT71 = -95.0963
THERT81 = -93.61985
THERT91 = -91.59165
!旋转角度右边值
THERT02 = -80.19825
THERT12 = -78.8109
THERT22 = -77.9838
THERT32 = -78.89455
THERT42 = -80.3153
THERT52 = -81.7244
THERT62 = -83.28055
THERT72 = -84.9037
THERT82 = -86.38015
THERT92 = -88.40835
! ********* 参数设定*********
!进入前处理模块
/PREP7
MP, EX, 1, 210E3 ! 定义第1类材料的弹性模量EX=210000N/mm^2
MP, PRXY,1,0.3
MP,DENS,1,7800e-12
ET,1,SOLID92
ET,2,TARGE170
ET,3,CONTA174
R,10
R,1,,,0.8, 0.15,,
R,2,,,0.8, 0.15,,
R,3,,,0.8, 0.15,,
R,4,,,0.8, 0.15,,
R,5,,,0.8, 0.15,,
R,6,,,0.8, 0.15,,
R,7,,,0.8, 0.15,,
R,8,,,0.8, 0.15,,
R,9,,,0.8, 0.15,,
PCIRC,R0,R0+12,THERT01 ,THERT02,
WPAVE,0,0,0
wpoff,0,z1,0
PCIRC,R1,R1+12,THERT11 ,THERT12,
WPAVE,0,0,0
wpoff,0,z2-10,0
PCIRC,R2,R2+12,THERT21 ,THERT22,
WPAVE,0,0,0
wpoff,0,z3,0
PCIRC,R3,R3+12,THERT31 ,THERT32,
WPAVE,0,0,0
wpoff,0,z4,0
PCIRC,R4,R4+12,THERT41 ,THERT42,
WPAVE,0,0,0
wpoff,0,z5,0
PCIRC,R5,R5+10,THERT51 ,THERT52,
WPAVE,0,0,0
wpoff,0,z6,0
PCIRC,R6,R6+10,THERT61 ,THERT62,
WPAVE,0,0,0
wpoff,0,z7,0
PCIRC,R7,R7+10,THERT71 ,THERT72,
WPAVE,0,0,0
wpoff,0,z8,0
PCIRC,R8,R8+12,THERT81 ,THERT82,
WPAVE,0,0,0
wpoff,0,z9,0
PCIRC,R9,R9+12,THERT91 ,THERT92,
WPAVE,0,0,0
!********************************************************
FLST,2,1,5,ORDE,1
FITEM,2,1
VEXT,P51X, , ,0,0,80,,,,
FLST,2,1,5,ORDE,1
FITEM,2,2
VEXT,P51X, , ,0,0,80,,,,
FLST,2,1,5,ORDE,1
FITEM,2,3
VEXT,P51X, , ,0,0,80,,,,
FLST,2,1,5,ORDE,1
FITEM,2,4
VEXT,P51X, , ,0,0,80,,,,
FLST,2,1,5,ORDE,1
FITEM,2,5
VEXT,P51X, , ,0,0,80,,,,
FLST,2,1,5,ORDE,1
FITEM,2,6
VEXT,P51X, , ,0,0,80,,,,
FLST,2,1,5,ORDE,1
FITEM,2,7
VEXT,P51X, , ,0,0,80,,,,
FLST,2,1,5,ORDE,1
FITEM,2,8
VEXT,P51X, , ,0,0,80,,,,
FLST,2,1,5,ORDE,1
FITEM,2,9
VEXT,P51X, , ,0,0,80,,,,
FLST,2,1,5,ORDE,1
FITEM,2,10
VEXT,P51X, , ,0,0,80,,,,
!********************************************************
/REPLO
FLST,5,20,4,ORDE,20
FITEM,5,28
FITEM,5,32
FITEM,5,45
FITEM,5,48
FITEM,5,53
FITEM,5,56
FITEM,5,61
FITEM,5,64
FITEM,5,69
FITEM,5,72
FITEM,5,77
FITEM,5,80
FITEM,5,85
FITEM,5,88
FITEM,5,96
FITEM,5,104
FITEM,5,109
FITEM,5,112
FITEM,5,117
FITEM,5,120
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,4, , , , ,1
FLST,5,18,4,ORDE,18
FITEM,5,10
FITEM,5,46
FITEM,5,54
FITEM,5,63
FITEM,5,70
FITEM,5,-71
FITEM,5,78
FITEM,5,-79
FITEM,5,86
FITEM,5,-87
FITEM,5,94
FITEM,5,-95
FITEM,5,102
FITEM,5,-103
FITEM,5,110
FITEM,5,-111
FITEM,5,118
FITEM,5,-119
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,4, , , , ,1
/REPLO
FLST,5,20,4,ORDE,20
FITEM,5,2
FITEM,5,6
FITEM,5,10
FITEM,5,14
FITEM,5,18
FITEM,5,22
FITEM,5,26
FITEM,5,30
FITEM,5,34
FITEM,5,38
FITEM,5,42
FITEM,5,50
FITEM,5,58
FITEM,5,66
FITEM,5,74
FITEM,5,82
FITEM,5,90
FITEM,5,98
FITEM,5,106
FITEM,5,114
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,1, , , , ,1
/REPLO
FLST,5,20,4,ORDE,20
FITEM,5,4
FITEM,5,8
FITEM,5,12
FITEM,5,16
FITEM,5,20
FITEM,5,24
FITEM,5,28
FITEM,5,32
FITEM,5,36
FITEM,5,40
FITEM,5,44
FITEM,5,52
FITEM,5,60
FITEM,5,68
FITEM,5,76
FITEM,5,84
FITEM,5,92
FITEM,5,100
FITEM,5,108
FITEM,5,116
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,1, , , , ,1
!*
/REP,FAST
FLST,5,4,4,ORDE,4
FITEM,5,1
FITEM,5,3
FITEM,5,41
FITEM,5,43
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,60, , , , ,1
/REPLO
FLST,5,4,4,ORDE,4
FITEM,5,1
FITEM,5,5
FITEM,5,49
FITEM,5,51
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,60, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,9
FITEM,5,11
FITEM,5,57
FITEM,5,59
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,50, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,13
FITEM,5,15
FITEM,5,65
FITEM,5,67
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,45, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,17
FITEM,5,19
FITEM,5,73
FITEM,5,75
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,40, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,21
FITEM,5,23
FITEM,5,81
FITEM,5,83
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,35, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,25
FITEM,5,27
FITEM,5,89
FITEM,5,91
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,30, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,29
FITEM,5,31
FITEM,5,97
FITEM,5,99
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,25, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,33
FITEM,5,35
FITEM,5,105
FITEM,5,107
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,20, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,37
FITEM,5,39
FITEM,5,113
FITEM,5,115
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,16, , , , ,1
!**************************************************
!*
TYPE, 2
MAT, 1
REAL, 1
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 12
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 3
MAT, 1
REAL, 1
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 19
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!**************************************************
!*
TYPE, 2
MAT, 1
REAL, 2
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 17
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 3
MAT, 1
REAL, 2
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 24
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!**************************************************!*
TYPE, 2
MAT, 1
REAL, 3
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 22
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 3
MAT, 1
REAL, 3
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 29
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!**************************************************!*
TYPE, 2
MAT, 1
REAL, 4
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 27
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 3
MAT, 1
REAL, 4
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 34
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!**************************************************!*
TYPE, 2
MAT, 1
REAL, 5
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 32
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 3
MAT, 1
REAL, 5
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 39
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!**************************************************!*
TYPE, 2
MAT, 1
REAL, 6
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 37
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 3
MAT, 1
REAL, 6
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 44
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!**************************************************!*
TYPE, 2
MAT, 1
REAL, 7
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 42
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 3
MAT, 1
REAL, 7
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 49
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!**************************************************!*
TYPE, 2
MAT, 1
REAL, 8
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 47
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 3
MAT, 1
REAL, 8
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 54
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!**************************************************!*
TYPE, 2
MAT, 1
REAL, 9
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 52
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 3
MAT, 1
REAL, 9
ESYS, 0
SECNUM,
!*
CM,_Y,AREA
ASEL, , , , 59
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!**************************************************
/PREP7
TYPE, 1
MAT, 1
REAL, 10
ESYS, 0
SECNUM,
!*
MSHAPE,1,3D
MSHKEY,0
!*
FLST,5,10,6,ORDE,2
FITEM,5,1
FITEM,5,-10
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
力的模型自己加载 |