pier.mac

《ANSYS工程分析进阶实例》-王呼佳-源代码 看文件吧.不多说了.

/UNITS,SI		!
*AFUN,DEG		!
*SET,H,78		!
*SET,D,12.6		!
*SET,DD,10.44		!
*SET,DT,11		!
*SET,HT,2.5		!
*SET,TT,3		!
*SET,KO,45		!
*SET,KI,50		!
*SET,EE,29E9		!
*SET,NU,0.3		!
*SET,DEN,2500		!
*SET,ALPHA,0.05		!设定质量阻尼ALPHA为0.05
*SET,BETA,0.01		!设定刚度阻尼BETA为0.01
*SET,OMEGA,2		!设定激励角频率2
!
/PREP7
ET,1,MESH200
KEYOPT,1,1,6		!
ET,2,SOLID45
MP,EX,1,EE
MP,NUXY,1,NU
MP,DENS,1,DEN
!
!
K,1
K,2,DD/2+TT/KI
K,3,D/2
K,4,,TT
K,5,DD/2,TT
K,6,D/2-TT/KO,TT
K,7,,H-TT
K,8,DD/2-(H-2*TT)/KI,H-TT
K,9,D/2-(H-TT)/KO,H-TT
K,10,,H
K,11,DD/2-(H-TT)/KI,H
K,12,D/2-H/KO,H
K,13,DT/2,H
K,14,,H+HT
K,15,DD/2-(H-TT+HT)/KI,H+HT
K,16,D/2-(H+HT)/KO,H+HT
K,17,DT/2,H+HT
!
A,2,3,6,5
A,5,6,9,8
A,8,9,12,11
A,11,12,16,15
A,12,13,17,16
!
WPROT,,-90			!绕X轴旋转-90
WPOFFS,,,TT			!
CYL4,,,,,DD/2			!
WPOFFS,,,H-TT			!
CYL4,,,,,DD/2-(H-TT)/KI		!
WPCSYS,				!
ASEL,S,AREA,,6,7,1		!
ASBW,ALL,,DELETE		!
WPROT,,,90			!绕Y轴旋转90
ASEL,S,AREA,,8,11,1		!
ASBW,ALL,,DELETE		!
ALLS				!
/PNUM,LINE,1			!
/PNUM,AREA,1			!
!
!
MAT,1
TYPE,1
CSYS,
LSEL,S,LINE,,1,1,1
LSEL,A,LINE,,3,12,3
LSEL,A,LINE,,14,16,2
LESIZE,ALL,,,2			!网格划分数2
LSEL,S,LINE,,2,4,2
LSEL,A,LINE,,8,10,2
LSEL,A,LINE,,11,15,2
LESIZE,ALL,,,2			!网格划分数2
LSEL,S,LINE,,5,7,2
LESIZE,ALL,,,40
ASEL,S,AREA,,1,5,1
AMESH,ALL
!
ALLS
WPCSYS,				!
WPROT,,-90			!绕X轴旋转-90
LSEL,S,LINE,,17,24,1		!
LESIZE,ALL,,,6			!网格划分数6
LSEL,S,LINE,,27,34,1		!
LESIZE,ALL,,,6			!网格划分数6
ASEL,S,AREA,,6,7,1
ASEL,A,AREA,,12,17,1
AMESH,ALL
!
!
TYPE,2
ASEL,S,AREA,,14,17,1
EXTOPT,ESIZE,2			!设置延伸份数2
EXTOPT,ACLEAR,0			!
VEXT,ALL,,,,HT,,1-HT/(DD*KI/2-H+TT),,1-HT/(DD*KI/2-H+TT)
!设置X,Y,Z方向延伸长度0,-TT,0
!
ASEL,S,AREA,,14,17,1
EXTOPT,ESIZE,2			!设置延伸份数2
EXTOPT,ACLEAR,1			!
VEXT,ALL,,,,-TT,,1+TT/(DD*KI/2-H+TT),,1+TT/(DD*KI/2-H+TT)
!设置X,Y,Z方向延伸长度0,-TT,0
!
ASEL,S,AREA,,6,7,1
ASEL,A,AREA,,12,13,1
EXTOPT,ESIZE,2			!设置延伸份数2
EXTOPT,ACLEAR,1			!
VEXT,ALL,,,,-TT,,1+2*TT/(DD*KI),,1+2*TT/(DD*KI)
!设置X,Y,Z方向延伸长度0,-TT,0
!
ASEL,S,AREA,,1,5,1
EXTOPT,ESIZE,6			!设置延伸份数6
EXTOPT,ACLEAR,1			!
VROTA,ALL,,,,,,1,14		!旋转面生成体网格,关键点1与14
NUMMRG,ALL			!
NUMCMP,ALL			!
!
NSEL,S,LOC,Y,			!
D,ALL,UX				!约束所选节点X
D,ALL,UY				!约束所选节点Y
D,ALL,UZ				!约束所选节点Z
ALLS				!
EPLOT				!
/VIEW,1,1,1,1			!
SAVE				!