!本文件計算成橋3年后恒荷載+活荷載工況1作用下的結構
/prep7
!--------------------------------------------------------------
ET,1,SOLID187   !定義單元類型,采用10節點四面體單元
!混凝土C40
MP,EX,1,3.25e4
MP,NUXY,1,0.2
MP,DENS,1,2.5e-6
!鋼材
MP,EX,2,2.06e5
MP,NUXY,2,0.3
MP,DENS,2,7.85e-6
!--------------------------------------------------------------
!下面開始實體建模
!--------------------------------------------------------------
!樁承臺
k,1,0,    0,0
k,2,11000,0,0
k,3,11000, 3500,0
k,4,    0, 3500,0
k,5,0,    0,2000
k,6,11000,0,2000
k,7,11000, 3500,2000
k,8,    0, 3500,2000
V,1,2,3,4,5,6,7,8
k,15,1000 ,0,3000
k,16,10000,0,3000
k,17,10000, 2500,3000
k,18,1000 , 2500,3000
V,5,6,7,8,15,16,17,18
k,21,3200 ,0   , 3000
k,22,6850 ,0   , 3000
k,23,6850 ,0   ,10920
k,24,3200 ,0   ,10920
k,25,3200 ,1500, 3000
k,26,6850 ,1500, 3000
k,27,6850 ,1100,10920
k,28,3200 ,1100,10920
V,21,22,23,24,25,26,27,28
!--------------------------------------------------------------
!主桿牛腿以下部分
k,31,4200 ,0   , 3000
k,32,4200 ,0   , 9120
k,33,4200 ,1500, 9120
k,34,4200 ,1500, 3000
A,31,32,33,34
k,35,3200 ,0   ,10320
k,36,3200 ,1500,10320
A,32,33,36,35
k,41,5592 ,0   , 6220
k,42,5200 ,0   ,10920
k,43,5592 ,1500, 6200
k,44,5200 ,1500,10920
A,41,42,44,43
k,45,6850 ,0   , 5065
k,46,6850 ,1500, 5065
L,45,46
LARC,41,45,23,1260,
LARC,43,46,27,1260,
AL,43,45,44,46
ASEL,,,,18,21
VSBA,3,all
ALLSEL,ALL
VDELE,4
VDELE,5
NUMCMP,VOLU
!--------------------------------------------------------------
!主桿牛腿以上部分
k,51,4200 ,0    ,10920
k,52,5200 ,0    ,10920
k,53,5200 ,0    ,26600
k,54,4200 ,0    ,26600
k,55,4200 ,1100 ,10920
k,56,5200 ,1100 ,10920
k,57,5200 ,1100 ,26600
k,58,4200 ,1100 ,26600
V,51,52,53,54,55,56,57,58
!--------------------------------------------------------------
!附桿牛腿以上部分
k,61,5200 ,0    ,10920
k,62,9050 ,0    ,10920
k,63,9050 ,0    ,28000
k,64,5200 ,0    ,28000
k,65,5200 ,400  ,10920
k,66,9050 ,400  ,10920
k,67,9050 ,400  ,28000
k,68,5200 ,400  ,28000
V,61,62,63,64,65,66,67,68
k,69,5700 ,0    ,28000
k,70,5700 ,400  ,28000
L,69,70
k,71,6798.82,0,25000
k,72,6798.82,400,25000
L,71,72
LARC,69,71,61,45566,
LARC,70,72,65,45566,
AL,79,81,80,82
k,73,8122.9,0,20000
k,74,8122.9,400,20000
L,73,74
LARC,71,73,61,45566,
LARC,72,74,65,45566,
AL,80,84,83,85
k,75,8861.8,0,15000
k,76,8861.8,400,15000
L,75,76
LARC,73,75,61,45566,
LARC,74,76,65,45566,
AL,83,87,86,88
LARC,75,62,61,45566,
LARC,76,66,65,45566,
AL,86,89,46,90
k,81,8300,0,10920
k,82,8300,400,10920
k,83,8108.6,0,15000
k,84,8108.6,400,15000
L,81,82
LARC,81,83,61,44086
L,83,84
LARC,82,84,65,44086
AL,91,92,93,94
k,85,7357.1,0,20000
k,86,7357.1,400,20000
L,85,86
LARC,83,85,61,44086
LARC,84,86,65,44086
AL,93,96,95,97
k,87,6374.2,0,23850
k,88,6374.2,400,23850
L,87,88
LARC,85,87,61,44086
LARC,86,88,65,44086
AL,95,98,99,100
k,89,5200,0,23675
k,90,5200,400,23675
L,89,90
LARC,87,89,61,600
LARC,88,90,65,600
AL,98,101,102,103
ASEL,,,,42,49
VSBA,5,all
ALLSEL,ALL
VDELE,6
VDELE,7
NUMCMP,VOLU
ALLSEL,ALL
!--------------------------------------------------------------
!附桿牛腿以下部分
k,101,6850,0,3000
k,102,9050,0,3000
k,103,9050,0,10920
k,104,6850,0,10920
k,105,6850,400,3000
k,106,9050,400,3000
k,107,9050,400,10920
k,108,6850,400,10920
V,101,102,103,104,105,106,107,108
k,201,6850,0,5065
k,202,8106.4,0,6272.2
k,203,8300,0,10920
k,204,6850,800,5065
k,205,8106.4,800,6272.2
k,206,8300,800,10920
k,207,6850,0,6320
k,208,6850,800,6320
NUMCMP,LINE
L,201,204
L,202,205
L,203,206
LARC,201,202,207,1260
L,202,203
LARC,204,205,208,1260
L,205,206
NUMCMP,AREA
AL,122,127,123,125
AL,123,128,124,126
ASEL,,,,63,64
VSBA,6,all
VDELE,7
NUMCMP,AREA
NUMCMP,LINE
k,301,6850,700,3000
k,302,6850,700,5065
k,303,7150,400,3000
k,304,7150,400,5101.8
k,305,6850,400,3000
k,306,6850,400,5065
V,301,303,305,302,304,306
ALLSEL,ALL
VPLOT
!--------------------------------------------------------------
!鋼索墊
k,401,4200,0,28000
k,402,4200,0,26600
k,403,4200,1100,26600
k,404,4200,1500,27413
k,405,5200,0,28000
k,406,5200,0,26600
k,407,5200,1100,26600
k,408,5200,1500,27413
k,409,4200,400,28000
k,410,5200,400,28000
V,409,402,403,404,410,406,407,408
V,401,402,409,405,406,410
!--------------------------------------------------------------
!將各塊合成一個volumn
VADD,5,8
VADD,ALL              !將各塊合成一個塊
VSYMM,Y,ALL,,,,0,0    !鏡像得到模型的另一半
VADD,ALL              !再合成
NUMMRG,ALL, , , ,LOW  !消除重復的點線面
NUMCMP,ALL            !重新編號
!--------------------------------------------------------------
!將鋼材和混凝土分開
A,46,47,88,87
A,21,117,92,86
ASEL,,,,105,106
VSBA,1,ALL
ALLSEL,ALL
NUMMRG,ALL, , , ,LOW  !消除重復的點線面
NUMCMP,ALL            !重新編號
VSEL, , , ,2
VATT,1, , 1, 0
VSEL, , , ,1
VATT,2, , 1, 0
ALLSEL,ALL
!--------------------------------------------------------------
!合并一些面,以便優化網格的劃分
AADD,95,76
AADD,52,50
NUMMRG,ALL, , , ,LOW  !消除重復的點線面
NUMCMP,ALL            !重新編號
!--------------------------------------------------------------
!找出牛腿處的加載面
k,301,3700,0,10920
k,302,3375,0,10920
k,303,4025,0,10920
k,304,3700,375,10920
k,305,3700,-375,10920
LARC,302,304,301,375
LARC,302,305,301,375
LARC,303,304,301,375
LARC,303,305,301,375
FLST,3,2,4,ORDE,2
FITEM,3,215
FITEM,3,217
ASBL,      96,P51X
FLST,3,2,4,ORDE,2
FITEM,3,216
FITEM,3,218
ASBL,      54,P51X
!--------------------------------------------------------------
!找出頂點的關鍵點
k,201,4700,-400,28000
k,202,4700,0,28000
k,203,4700,400,28000
L,201,202
L,202,203
ASBL,93,222
ASBL,50,167
NUMMRG,ALL, , , ,LOW  !消除重復的點線面
NUMCMP,ALL            !重新編號
!--------------------------------------------------------------
!施加位移約束及荷載
DA,7,ALL
DA,74,ALL
ACEL,0,0,1                    !自重
FK,119,FZ,-2.3845e7            !頂點恒載+活載
FK,119,FY,2.138e5             !頂點恒載+活載
SFA,95,1,PRES,8.377776         !牛腿上恒載+活載
SFA,104,1,PRES,8.377776        !牛腿上恒載+活載
!--------------------------------------------------------------
!網格劃分
SMRT,1
VMESH,ALL
!--------------------------------------------------------------
!求解
finish
/solu
solve!---------------------------------------------------------
!觀察結果
FINISH
/POST1
PLNSOL,U,Y,0,1