刚构耦合力筋.docx
《刚构耦合力筋.docx》由会员分享，可在线阅读，更多相关《刚构耦合力筋.docx（44页珍藏版）》请在冰豆网上搜索。
刚构耦合力筋
刚构耦合力筋.txt28生活是一位睿智的长者，生活是一位博学的老师，它常常春风化雨，润物无声地为我们指点迷津，给我们人生的启迪。
不要吝惜自己的爱，敞开自己的胸怀，多多给予，你会发现，你也已经沐浴在了爱河里。
!
宁蚌一标变截面连续纲构桥
!
单元太多，所以耦合很慢
finish
/clear
/prep7
/title,lianxvganggou
et,1,solid95
et,2,link8
et,3,solid95
mp,dens,1,2600
mp,ex,1,3.5e10
mp,prxy,1,0.1667
r,1
mp,dens,2,7800
mp,ex,2,1.95e11
mp,prxy,2,0.3
mp,dens,3,2600
mp,ex,3,3.0e10
mp,prxy,3,0.1667
r,3
areagjx=1.4e-4
*dim,gjarea,array,2
gjarea
（1）=15*areagjx
gjarea
（2）=19*areagjx
F=195.5e3
Ey=1.95e11
L=0.5
detL=F*L/（Ey*areagjx）
istrn=detL/（detL+L）
r,4,gjarea
（1）,istrn
r,5,gjarea
（2）,istrn
acel,,9.8
*dim,z,,15
*dim,x,,7
*dim,y,,8
z
（1）=0,-1,-4,-7,-10,-13.5,-17,-20.5,-24.5,-28.5,
z（11）=-32.5,-36.5,-38.5,-42.3,-47
x
（1）=0
x
（2）=-1.5
x（3）=-3.5
x（4）=-4
x（5）=-6
x（6）=-8.25
x（7）=-3.0
y
（1）=0
y
（2）=-0.15
y（3）=-0.25
y（4）=-0.3
y（5）=-0.65
y（6）=-3.45
y（7）=-3.7
y（8）=-4.2
k,1,x
（1）,y
（1）,z
（1）
k,2,x
（2）,y
（1）,z
（1）
k,3,x（3）,y
（1）,z
（1）
k,4,x（4）,y
（1）,z
（1）
k,5,x（5）,y
（1）,z
（1）
k,6,x（6）,y
（1）,z
（1）
k,7,x（6）,y
（2）,z
（1）
k,8,x（5）,y（4）,z
（1）
k,9,x（4）,y（5）,z
（1）
k,10,x（4）,y（6）,z
（1）
k,11,x（4）,y（8）,z
（1）
k,12,x（3）,y（8）,z
（1）
k,13,x（3）+0.5,y（8）,z
（1）
k,14,x
（1）,y（8）,z
（1）
k,15,x
（1）,y（7）,z
（1）
k,16,x（3）+0.5,y（7）,z
（1）
k,17,x（3）,y（6）,z
（1）
k,18,x（3）,y（5）,z
（1）
k,19,x
（2）,y（3）,z
（1）
k,20,x
（1）,y（3）,z
（1）
!
定义顶板预应力筋
!
腹板束T1
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-3.77,-1.44,-4.001
k,kp0+2,-3.77,-0.64,-1.211
k,kp0+3,-3.77,-0.64,1.211
k,kp0+4,-3.77,-1.44,4.001
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
LFILLT,LINE1+1,LINE1+2,4
LFILLT,LINE1+2,LINE1+3,4
lsel,s,loc,x,-3.77
LCOMB,ALL
cm,gjx_T1,line
latt,2,5,2
!
腹板束T2
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-3.77,-1.28,-7.001
k,kp0+2,-3.77,-0.48,-3.237
k,kp0+3,-3.77,-0.48,3.237
k,kp0+4,-3.77,-1.28,7.001
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
LFILLT,LINE1+1,LINE1+2,12
LFILLT,LINE1+2,LINE1+3,12
lsel,s,line,,LINE1+1,LINE1+5,1
LCOMB,ALL
cm,gjx_T2,line
latt,2,5,2
!
腹板束T3
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-3.77,-1.12,-10.001
k,kp0+2,-3.77,-0.32,-6.237
k,kp0+3,-3.77,-0.32,6.237
k,kp0+4,-3.77,-1.12,10.001
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
LFILLT,line1+1,line1+2,12
LFILLT,line1+2,line1+3,12
lsel,s,line,,line1+1,line1+5,1
LCOMB,ALL
cm,gjx_T3,line
latt,2,5,2
!
腹板束T4
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-3.77,-0.96,-13.501
k,kp0+2,-3.77,-0.16,-9.737
k,kp0+3,-3.77,-0.16,9.737
k,kp0+4,-3.77,-0.96,13.501
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
LFILLT,line1+1,line1+2,12
LFILLT,line1+2,line1+3,12
lsel,s,line,,line1+1,line1+5,1
LCOMB,ALL
cm,gjx_T4,line
latt,2,5,2
!
腹板束T5
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-4.11,-0.41,-17.0
k,kp0+2,-4.11,-0.41,17.0
l,kp0+1,kp0+2
lsel,s,line,,line1+1,,,
lgen,2,all,,,0.62,0,0
lsel,s,line,,line1+1,line1+2,1
cm,gjx_T5,line
latt,2,5,2
!
腹板束T6（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-4.11,-0.41,-20.5
k,kp0+2,-4.11,-0.16,-18.121
k,kp0+3,-4.11,-0.16,18.121
k,kp0+4,-4.11,-0.41,20.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
LFILLT,line1+1,line1+2,10
LFILLT,line1+2,line1+3,10
lsel,s,line,,line1+1,line1+5,1
LCOMB,ALL
lsel,s,line,,line1+1,,,
lgen,2,all,,,0.62,0,0
lsel,s,line,,line1+1,line1+2,1
cm,gjx_T6,line
latt,2,5,2
!
腹板束T7（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-4.39,-0.41,-24.5
k,kp0+2,-4.39,-0.16,-22.13
k,kp0+3,-4.39,-0.16,22.13
k,kp0+4,-4.39,-0.41,24.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
LFILLT,line1+1,line1+2,10
LFILLT,line1+2,line1+3,10
lsel,s,line,,line1+1,line1+5,1
LCOMB,ALL
lsel,s,line,,line1+1,,,
lgen,2,all,,,1.18,,,
lsel,s,line,,line1+1,line1+2,1
cm,gjx_T7,line
latt,2,5,2
!
腹板束T8（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-4.59,-0.41,-28.5
k,kp0+2,-4.59,-0.16,-26.13
k,kp0+3,-4.59,-0.16,26.13
k,kp0+4,-4.59,-0.41,28.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
LFILLT,line1+1,line1+2,10
LFILLT,line1+2,line1+3,10
lsel,s,line,,line1+1,line1+5,1
LCOMB,ALL
lsel,s,line,,line1+1,,,
lgen,2,all,,,1.58,0,0
lsel,s,line,,line1+1,line1+2,1
cm,gjx_T8,line
latt,2,5,2
!
腹板束T9（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-4.79,-0.41,-32.5
k,kp0+2,-4.79,-0.16,-30.13
k,kp0+3,-4.79,-0.16,30.13
k,kp0+4,-4.79,-0.41,32.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
lsel,s,loc,x,-4.79
LFILLT,line1+1,line1+2,10
LFILLT,line1+2,line1+3,10
lsel,s,line,,line1+1,line1+5,1
LCOMB,ALL
lsel,s,line,,line1+1,,,
lgen,2,all,,,1.98,0,0
lsel,s,line,,line1+1,line1+2,1
cm,gjx_T9,line
latt,2,5,2
!
腹板束T10（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-4.99,-0.41,-36.5
k,kp0+2,-4.99,-0.16,-34.13
k,kp0+3,-4.99,-0.16,34.13
k,kp0+4,-4.99,-0.41,36.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
LFILLT,line1+1,line1+2,10
LFILLT,line1+2,line1+3,10
lsel,s,line,,line1+1,line1+5,1
LCOMB,ALL
lsel,s,line,,line1+1,,,
lgen,2,all,,,2.38,0,0
lsel,s,line,,line1+1,line1+2,1
cm,gjx_T10,line
latt,2,5,2
!
腹板束PT1（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-3.21,-0.41,-36.5
k,kp0+2,-3.21,-0.41,36.5
l,kp0+1,kp0+2
lsel,s,line,,line1+1,,,
cm,gjx_PT1,line
latt,2,5,2
合拢束CT1（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-2.95,-0.16,28.5
k,kp0+2,-2.95,-0.16,37.5
l,kp0+1,kp0+2
lsel,s,line,,line1+1,,,
lgen,2,all,,,0.42,0,0
lsel,s,line,,line1+1,line1+2,1
cm,gjx_CT1,line
latt,2,4,2
!
底板束CB1（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-1.87,-3.289,10
k,kp0+2,-1.87,-3.017,13.5
k,kp0+3,-1.87,-2.766,17.0
k,kp0+4,-1.87,-2.536,20.5
k,kp0+5,-1.87,-2.302,24.5
k,kp0+6,-1.87,-2.105,28.5
k,kp0+7,-1.87,-1.935,32.5
k,kp0+8,-1.87,-1.87,36.5
k,kp0+9,-1.87,-1.87,37.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
l,kp0+4,kp0+5
l,kp0+5,kp0+6
l,kp0+6,kp0+7
l,kp0+7,kp0+8
l,kp0+8,kp0+9
lsel,s,line,,line1+1,line1+8,1
lcomb,all
cm,gjx_CB1,line
latt,2,5,2
!
底板束CB2（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-2.03,-3.017,13.5
k,kp0+2,-2.03,-2.766,17.0
k,kp0+3,-2.03,-2.536,20.5
k,kp0+4,-2.03,-2.302,24.5
k,kp0+5,-2.03,-2.105,28.5
k,kp0+6,-2.03,-1.935,32.5
k,kp0+7,-2.03,-1.87,36.5
k,kp0+8,-2.03,-1.87,37.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
l,kp0+4,kp0+5
l,kp0+5,kp0+6
l,kp0+6,kp0+7
l,kp0+7,kp0+8
lsel,s,line,,line1+1,line1+7,1
lcomb,all
lgen,2,line1+1,,,0.48,,,
lsel,s,line,,line1+1,line1+2,1
cm,gjx_CB2,line
latt,2,5,2
!
底板束CB3（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-2.19,-2.766,17.0
k,kp0+2,-2.19,-2.536,20.5
k,kp0+3,-2.19,-2.302,24.5
k,kp0+4,-2.19,-2.105,28.5
k,kp0+5,-2.19,-1.935,32.5
k,kp0+6,-2.19,-1.87,36.5
k,kp0+7,-2.19,-1.87,37.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
l,kp0+4,kp0+5
l,kp0+5,kp0+6
l,kp0+6,kp0+7
lsel,s,line,,line1+1,line1+6,1
lcomb,all
lgen,2,line1+1,,,0.48,,,
lsel,s,line,,line1+1,line1+2,1
cm,gjx_CB3,line
latt,2,5,2
!
底板束CB4（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-2.35,-2.536,20.5
k,kp0+2,-2.35,-2.302,24.5
k,kp0+3,-2.35,-2.105,28.5
k,kp0+4,-2.35,-1.935,32.5
k,kp0+5,-2.35,-1.87,36.5
k,kp0+6,-2.35,-1.87,37.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
l,kp0+4,kp0+5
l,kp0+5,kp0+6
lsel,s,line,,line1+1,line1+5,1
lcomb,all
lgen,2,line1+1,,,-0.48,,,
lsel,s,line,,line1+1,line1+2,1
cm,gjx_CB4,line
latt,2,5,2
!
底板束CB5（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-2.51,-2.302,24.5
k,kp0+2,-2.51,-2.105,28.5
k,kp0+3,-2.51,-1.935,32.5
k,kp0+4,-2.51,-1.87,36.5
k,kp0+5,-2.51,-1.87,37.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
l,kp0+4,kp0+5
lsel,s,line,,line1+1,line1+4,1
lcomb,all
lgen,2,line1+1,,,-0.48,,,
lsel,s,line,,line1+1,line1+2,1
cm,gjx_CB5,line
latt,2,5,2
!
底板束CB6（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-2.67,-2.105,28.5
k,kp0+2,-2.67,-1.935,32.5
k,kp0+3,-2.67,-1.87,36.5
k,kp0+4,-2.67,-1.87,37.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
lsel,s,line,,line1+1,line1+3,1
lcomb,all
lgen,2,line1+1,,,-0.48,,,
lsel,s,line,,line1+1,line1+2,1
cm,gjx_CB6,line
latt,2,5,2
!
底板束PB2（立面）
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-1.39,-3.289,10
k,kp0+2,-1.39,-3.017,13.5
k,kp0+3,-1.39,-2.766,17.0
k,kp0+4,-1.39,-2.536,20.5
k,kp0+5,-1.39,-2.302,24.5
k,kp0+6,-1.39,-2.105,28.5
k,kp0+7,-1.39,-1.935,32.5
k,kp0+8,-1.39,-1.87,36.5
k,kp0+9,-1.39,-1.87,37.5
l,kp0+1,kp0+2
l,kp0+2,kp0+3
l,kp0+3,kp0+4
l,kp0+4,kp0+5
l,kp0+5,kp0+6
l,kp0+6,kp0+7
l,kp0+7,kp0+8
l,kp0+8,kp0+9
lsel,s,line,,line1+1,line1+8,1
lcomb,all
cm,gjx_PB2,line
latt,2,5,2
!
建立桥墩拖拉面线32
*get,kp0,kp,0,num,max
*GET,LINE1,LINE,0,NUM,MAX
k,kp0+1,-2,-4.2,0
k,kp0+2,-2,-30.2,0
l,kp0+1,kp0+2
kgen,2,1,20,1,0,0,z
（2）,200
kgen,2,1,9,1,0,0,z（3）,400
kgen,2,18,20,1,0,0,z（3）,400
kgen,2,1,9,1,0,0,z（4）,600
kgen,2,18,20,1,0,0,z（4）,600
kgen,2,1,9,1,0,0,z（5）,800
kgen,2,18,20,1,0,0,z（5）,800
kgen,2,1,9,1,0,0,z（6）,1000
kgen,2,18,20,1,0,0,z（6）,1000
kgen,2,4,9,1,0,0,z（7）,1200
kgen,2,4,9,1,0,0,z（8）,1400
kgen,2,4,9,1,0,0,z（9）,1600
kgen,2,4,9,1,0,0,z（10）,1800
kgen,2,4,9,1,0,0,z（11）,2000
kgen,2,4,9,1,0,0,z（12）,2200
kgen,2,4,9,1,0,0,z（13）,2400
kgen,2,4,9,1,0,0,z（14）,2600
kgen,2,4,9,1,0,0,z（15）,2800
kgen,2,1,20,19,0,0,z（7）,1200
kgen,2,1,20,19,0,0,z（8）,1400
kgen,2,1,20,19,0,0,z（9）,1600
kgen,2,1,20,19,0,0,z（10）,1800
kgen,2,1,20,19,0,0,z（11）,2000
kgen,2,1,20,19,0,0,z（12）,2200
kgen,2,1,20,19,0,0,z（13）,2400
kgen,2,1,20,19,0,0,z（14）,2600
kgen,2,1,20,19,0,0,z（15）,2800
kgen,2,2,3,1,-0.1,0,z（7）,1200
kgen,2,2,3,1,-0.1,0,z（8）,1400
kgen,2,2,3,1,-0.1,0,z（9）,1600
kgen,2,2,3,1,-0.1,0,z（10）,1800
kgen,2,2,3,1,-0.1,0,z（11）,2000
kgen,2,2,3,1,-0.1,0,z（12）,2200
kgen,2,2,3,1,-0.1,0,z（13）,2400
kgen,2,2,3,1,-0.1,0,z（14）,2600
kgen,2,2,3,1,-0.1,0,z（15）,2800
kgen,2,18,19,1,-0.1,0,z（7）,1200
kgen,2,18,19,1,-0.1,0,z（8）,1400
kgen,2,18,19,1,-0.1,0,z（9）,1600
kgen,2,18,19,1,-0.1,0,z（10）,1800
kgen,2,18,19,1,-0.1,0,z（11）,2000
kgen,2,18,19,1,-0.1,0,z（12）,2200
kgen,2,18,19,1
升级会员 