
/FILNAME,PIER
/TITLE,ANALYSIS OF A BRIDGE'S PIER 
*CREATE,PIER,MAC	!ļPIER
/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		!ת,ؼ114ת
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				!ģ
*END				!ļ
PIER				!кģ
FINI				!˳ǰ
!
/SOLU
ANTYPE,2				!÷Ϊģ̬
MODOPT,SUBSP,10			!ģ̬Ϊsubspace
MXPAND,10,,,1			!ģ̬չ10
LUMPM,ON				!򿪽Ƽ
ACEL,0,9.8,0			!ٶ
ALLS				!ѡеԪ
SOLVE				!
SAVE				!
FINI				!˳SOLU
!*******************************
/POST1
FILE,'PIER','rst'			!ļ
SET,LIST				!гƵ
SET,1,1				!ȡ1
PLNSOL,S,EQV,0,1.0		!ʾЧӦ
ANMODE,10,0.5,,0			!1׶
SET,1,3				!ȡ2
PLDI				!ʾ2ױ
ANMODE,10,0.5,,0			!2׶
SET,1,5				!ȡ3
PLNSOL,U,Y,0,1.0		!ʾYλ
ANMODE,10,0.5,,0			!3׶
SET,1,6				!ȡ4
PLNSOL,S,Y,0,1.0    		!ʾYӦ
ANMODE,10,0.5,,0			!4׶



