1、拱桥拱轴系数的优选) F7 g! N f4 n# y3 c$ {4 q
在做拱桥时,一般基于无铰拱的恒载压力线即悬链线进行在恒载下的必选拱轴系数,参考相关文献,认为主要控制以下几点,可确定较为合理的拱轴系数:(1)拱顶预留一定的负弯矩(2)拱脚预留一定的正弯矩(3)跨径四分点的偏心距较小。为了实现这几个参数,必须在选定跨径、矢高后,进行不同的拱轴系数下的计算,计算出上述的3个关心参数。一般通过有限元软件实现。这就需要变更有限元单元节点的坐标,如何根据选定的跨径、矢高、拱轴系数的区间,输出不同拱轴系数下的各关键点的坐标,这是个需要解决的问题。
, h1 R( G5 r& I2、主拱圈施工参数的计算3 o) r) S0 e% B4 ^( K$ m5 k6 S
在施工图阶段,选定了拱桥的跨径、矢高、拱轴系数、拱圈高度(在此认为等高),需要输出不同关键节点的拱轴坐标、对应拱圈上下点的坐标及其倾角余弦值。2 h; M+ ]4 F w/ x
3、程序实现- Z( a8 D; Q; w; r8 t( s6 W
为了实现上面两个问题的快速求解,编制小程序。程序的功能是(1)计算不同拱轴系数下的拱轴关键点坐标,方便更新有限元中节点坐标,可快速求解关心的参数,方便拱轴系数的必选(2)选定拱轴系数后,可输出拱圈的施工图数据。程序的代码如下:* |0 f4 F9 C2 m. z
program gzzb
) ^6 D& y- p F3 Z9 h7 ?8 Zimplicit none3 t& Q5 k% p" \$ t3 S" k: b
integer i,j,k,n,nm,count,kc
" e T; ]! ]: s$ N2 F" {# Ureal l,f,ms,me,detm,x,kk,cosi,m,y0,y1,y2,h,w,cosb; z: v* ]% A9 l6 u
real,allocatable:: y(:),mi(:)( c/ o1 R. O2 D. s4 Y
character*24 fname,dat,out
, v* q W0 k, K4 N; Xread(*,'(a\)')fname
( Z% m: J6 O; t2 Zk=len_trim(fname)7 L) e, X5 I) G
dat=fname(1:k)//'.txt'; O( A8 L& n* P
out=fname(1:k)//'.out'% L6 D( O- S- [6 O- i
open(10,file=dat,status='old')9 [' m p/ ~& m7 f: y4 P0 \
read(10,*)kc# X4 W/ d/ c9 V$ E& V8 r9 a
if(kc==1)then !进行拱轴系数优选,计算不同拱轴系数下的拱轴坐标
; R' G! ` L6 sread(10,*)n,l,f,ms,me,detm
* H$ v( J- w3 felse
& P' P+ P/ j0 W8 A& G4 z3 Hread(10,*)n,l,f,m,h
. |- q! c9 Q- ^+ ~$ wendif9 M3 C0 N+ c# L6 m2 h* U& B
close(10); u8 H$ T0 J- U8 H" I" ^8 L9 \
open(11,file=out)
. \$ i7 W$ M) G7 h' @: [. X6 eif(kc==1)then
+ t$ c- Z8 I% s2 ^! _8 rwrite(11,'(12x,a)')'不同拱轴系数下拱轴线坐标计算程序'
" B2 {; @3 M% ielse8 y3 L- g W8 {5 e* E
write(11,'(12x,a)')'等截面拱圈坐标输出程序(可作施工图数据)'
) u8 M( i( w4 \' {# }/ _endif
3 K; g p5 W. h* B; gwrite(11,'(a)')'If you have any problem, you can contact with me! E_mail:yzbuilder@163.com'
% c9 ~5 y4 s; h* w7 v' K5 Z0 H* lif(kc==1)then !不同拱轴系数下拱轴坐标的计算
5 [/ G: p) ?; I$ U! ~1 O* X" a& t% Cnm=int((me-ms)/detm)+1( A6 C: z& u6 e
allocate(y(nm+1),mi(nm+1))
' A; {4 Q- {6 T# {! pdo i=1,nm+1# P o6 Y( r$ P' q! J4 j
mi(i)=ms+(i-1)*detm
( Y7 X: V" K, }4 K7 f1 \$ p4 d- U7 ^enddo
- @8 ~' p* J/ ?! l+ b0 swrite(11,'(a8,1x,a8,1x,100(f7.3,1x))')'SEC NO.','X cor',(mi(i),i=1,nm+1)
4 V ]9 N& o" J, E) P( ido i=0,n/2,1 !section number
) I. z* z# G$ D# x! Ocosi=i*(l/n)/(0.5*l)0 y" {$ `# e& F# S" U0 Z: Y
do j=1,nm+1,14 M% U: @6 X- q. V* B2 S, L }% t
m=ms+(j-1)*detm
6 m% D/ B9 u6 N: A* \kk=log(m+sqrt(m**2-1))1 @5 P+ Z7 q5 Q& w; D
y(j)=1-(cosh(kk*(1-cosi))-1)/(m-1)
E5 X% v5 k& z7 C" ?; cy(j)=y(j)*f
v. _! `1 Y6 E. P1 J, K) Aenddo8 q* K' R, C+ j* B' m; P
write(11,'(i8,1x,f8.3,1x,100(f7.3,1x))')i,i*l/n,(y(k),k=1,nm+1)- J1 I+ M$ z# D5 L7 A
enddo2 S o7 _; \- u+ g: M5 W2 X9 d
count=00 L; v+ E# G- N: f+ |; V& T
do i=n/2-1,0,-1
, a- c( J' Y* e$ Q% s, Pcount=count+1
6 ]" U: l/ n0 h+ Acosi=i*(l/n)/(0.5*l)' r/ Q, [" t5 A% @8 e3 R, d" |
do j=1,nm+1,10 e5 ~( s6 f4 M
m=ms+(j-1)*detm
. g4 v, a" |6 ~( |0 Akk=log(m+sqrt(m**2-1))( ?. x0 B! L7 O7 `
y(j)=1-(cosh(kk*(1-cosi))-1)/(m-1)
7 G: t0 c; z T/ l& ~$ Ny(j)=y(j)*f
N+ L, }: m9 R/ Oenddo
& h8 t# X; B7 l+ [1 } write(11,'(i8,1x,f8.3,1x,100(f7.3,1x))')i+2*count,l/2+count*l/n,(y(k),k=1,nm+1)
! u& s$ k$ Y* n( _6 Cenddo% p6 V- _1 B* D6 V
else !选定拱轴系数后,计算拱轴坐标及拱圈上下点的坐标,方便施工图相关数据的输出: Z0 O$ [8 C* `1 Y3 g
write(11,'(a8,1x,a8,1x,4(a7,1x))')'SEC NO.','X cor','y0','y1','y2','cosB'
: j9 k; n- q! Rdo i=0,n/2,1 !section number1 t, }/ ?' O; p' ~" F
cosi=i*(l/n)/(0.5*l)
; N3 f- [$ U! }, Pkk=log(m+sqrt(m**2-1))
: q/ ], f: E9 u* K9 j. Wy0=1-(cosh(kk*(1-cosi))-1)/(m-1)" k- v4 X' ?8 @- F1 k K0 r" z3 y
y0=y0*f
% E% R6 n5 o! {; ^( J5 |w=f*kk/(0.5*l*(m-1))*sinh(kk*(1-cosi))
$ {6 T1 k7 V2 }9 _: f; ?: y7 E; Xcosb=1/sqrt(w**2+1)
4 \/ H4 f5 e9 }) my1=y0+h/2/cosb/ r5 `/ r8 m4 q7 J v2 _3 E+ i
y2=y0-h/2/cosb6 [1 P5 R* c# V7 V9 W- c
write(11,'(i8,1x,f8.3,1x,4(f7.4,1x))')i,i*l/n,y0,y1,y2,cosB
$ F+ o! f9 Q0 v* @4 u2 [enddo, D4 m2 c- q6 s* |) K+ [# ]
count=0$ u! c- Y- m6 r H
do i=n/2-1,0,-1
* L$ c) r/ K& t% zcount=count+1) g' k9 a f1 z5 Y' {2 x
cosi=i*(l/n)/(0.5*l); I; k- l2 B9 M _7 d
kk=log(m+sqrt(m**2-1)) g/ I0 D7 y' ?( _
y0=1-(cosh(kk*(1-cosi))-1)/(m-1): M. G( q, t6 E
y0=y0*f) L; N" g; m9 m8 N! e7 x) |/ K
w=f*kk/(0.5*l*(m-1))*sinh(kk*(1-cosi))
A, n7 L k# o' Z8 D+ e4 icosb=1/sqrt(w**2+1)
7 j! f- S, y" sy1=y0+h/2/cosb
) ^9 b3 o- {/ ?5 c8 W) p! V5 Jy2=y0-h/2/cosb
0 q1 I% l3 {' m ywrite(11,'(i8,1x,f8.3,1x,4(f7.4,1x))')i+2*count,l/2+count*l/n,y0,y1,y2,cosB
% n' Y: L) i# S" y: xenddo3 t( d9 K0 f1 q
endif. c! Q& d b! P+ y9 U( a' y; R% Y, |
end program gzzb9 U. [$ K# Z, N& @
4、实例计算
Z! r1 M% f+ Y" ]" J: _(1)不同拱轴系数下的拱轴坐标的输出, j* Z$ N- {- j* ?
某钢筋混凝土拱桥,计算跨径为140m,矢高17.5m。试进行拱轴系数介于1.5和2.3之间的拱轴坐标的计算,沿拱桥跨径方向等分48等份。
- o. o Q" y: c. A+ I数据文件gq.txt的文件内容如下:, s1 v! s, o8 ?+ K8 x3 ?
1
; _; E& W+ M, c/ h! K, j2 A: G48,140,17.5,2.0,2.3,0.05, h; z, @# j. g
运行程序后结果文件内容如下:6 F/ u8 D8 e! G# W5 m' k
不同拱轴系数下拱轴线坐标计算程序0 o! B9 o& J/ ~' E1 Z2 E+ K5 v
If you have any problem, you can contact with me! E_mail:yzbuilder@163.com
. W/ z% n( F, l' T9 @SEC NO. X cor 2.000 2.050 2.100 2.150 2.200 2.250 2.300
& f$ |' H1 Z9 Q3 r' j9 T6 r 0 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.0005 y6 n$ P) S& U/ t: M
1 2.917 1.611 1.619 1.627 1.634 1.642 1.649 1.6564 X' L K& @1 y1 L; U( l
2 5.833 3.122 3.136 3.149 3.163 3.176 3.189 3.202
3 F2 u3 K/ C2 y( F 3 8.750 4.537 4.555 4.573 4.591 4.608 4.625 4.642
( n; E" `; X) p" @ 4 11.667 5.860 5.881 5.902 5.923 5.944 5.964 5.9833 u/ a1 B: H) s4 Q( n0 R
5 14.583 7.095 7.119 7.142 7.164 7.187 7.209 7.230: U8 j! r0 Z) j6 [3 S9 R" w( E
6 17.500 8.247 8.271 8.295 8.319 8.342 8.365 8.387. b1 s( e) s u# ]
7 20.417 9.317 9.342 9.366 9.390 9.413 9.436 9.4595 A0 J; u6 e3 x( |
8 23.333 10.311 10.335 10.358 10.382 10.405 10.427 10.450
6 I" z6 n% W% l5 ]: `7 _0 f 9 26.250 11.230 11.253 11.275 11.298 11.320 11.341 11.363
8 N0 q, W. ^1 I5 r+ o4 S! B$ P- v9 H 10 29.167 12.077 12.099 12.120 12.141 12.161 12.182 12.202
0 i: n- g( \9 X. J6 v& Q) ] 11 32.083 12.855 12.875 12.895 12.914 12.933 12.951 12.970% }! v% `: w6 c Y& o' q
12 35.000 13.567 13.585 13.602 13.620 13.637 13.653 13.670, S9 h, L: O9 \& G
13 37.917 14.214 14.230 14.245 14.261 14.275 14.290 14.305; }2 l, c1 r: I3 t3 P
14 40.833 14.799 14.812 14.825 14.839 14.851 14.864 14.8773 L' ?$ C! B' @
15 43.750 15.322 15.334 15.345 15.356 15.367 15.377 15.388( ~7 t9 O: S$ j p$ ^
16 46.667 15.787 15.796 15.805 15.814 15.823 15.831 15.840
5 n: E1 g5 x; `% R- O( | 17 49.583 16.193 16.200 16.207 16.215 16.221 16.228 16.235
' q: ]% e$ ]2 w* d 18 52.500 16.543 16.548 16.554 16.559 16.564 16.569 16.574
0 V5 ?9 b0 `6 m" R2 T+ ` 19 55.417 16.837 16.841 16.845 16.849 16.852 16.856 16.859+ u; h4 Q! C& f4 l l$ c( R7 p1 A' C
20 58.333 17.077 17.079 17.082 17.084 17.087 17.089 17.091
( k" l5 z/ @: J8 n" W0 I# {; c 21 61.250 17.262 17.264 17.265 17.267 17.268 17.269 17.271
8 l" `* u4 L# i% ]% {$ w4 f' j6 M2 } 22 64.167 17.395 17.395 17.396 17.396 17.397 17.398 17.398
8 Q5 X7 G7 C! g. F% U) v; M! ^/ U 23 67.083 17.474 17.474 17.474 17.474 17.474 17.474 17.4756 ^% ~3 R8 W3 D( t
24 70.000 17.500 17.500 17.500 17.500 17.500 17.500 17.500" `# D D; l6 X' z
25 72.917 17.474 17.474 17.474 17.474 17.474 17.474 17.4757 ]. t+ W; T0 e% o) W2 L6 H
26 75.833 17.395 17.395 17.396 17.396 17.397 17.398 17.398
+ X+ a: h& j& z( l& N7 L 27 78.750 17.262 17.264 17.265 17.267 17.268 17.269 17.271
% c/ o. S+ \$ I% J. g 28 81.667 17.077 17.079 17.082 17.084 17.087 17.089 17.091* J7 L* `# z, ^6 t1 I
29 84.583 16.837 16.841 16.845 16.849 16.852 16.856 16.859* T( B3 o4 \* u6 z& k2 |
30 87.500 16.543 16.548 16.554 16.559 16.564 16.569 16.574
& A9 F, K8 q, Z0 i2 r 31 90.417 16.193 16.200 16.207 16.215 16.221 16.228 16.235
( f/ }3 H) a+ @% q$ b7 ? 32 93.333 15.787 15.796 15.805 15.814 15.823 15.831 15.840* J' K( i# W( f0 n
33 96.250 15.322 15.334 15.345 15.356 15.367 15.377 15.388; w5 ^- D# N: W; q
34 99.167 14.799 14.812 14.825 14.839 14.851 14.864 14.877; O$ I8 m a, ?: X6 f# G4 t
35 102.083 14.214 14.230 14.245 14.261 14.275 14.290 14.305% ~5 Y( H5 x% V$ [3 L& e- Y: G
36 105.000 13.567 13.585 13.602 13.620 13.637 13.653 13.670
4 f4 N- _( b( {. o' s 37 107.917 12.855 12.875 12.895 12.914 12.933 12.951 12.970
9 p2 s3 o5 D* L0 Z$ R( Y 38 110.833 12.077 12.099 12.120 12.141 12.161 12.182 12.202
* y( z' Z; A, @ 39 113.750 11.230 11.253 11.275 11.298 11.320 11.341 11.363
7 S6 _: g) b9 @$ D2 U( {5 m 40 116.667 10.311 10.335 10.358 10.382 10.405 10.427 10.450
9 e1 F, |2 T" z$ y 41 119.583 9.317 9.342 9.366 9.390 9.413 9.436 9.459
* u: ~- ]. C5 _ 42 122.500 8.247 8.271 8.295 8.319 8.342 8.365 8.387
& c, S# A. n0 F7 B! ?/ q$ j. L 43 125.417 7.095 7.119 7.142 7.164 7.187 7.209 7.230
* o* X, ]2 c6 U. H% B 44 128.333 5.860 5.881 5.902 5.923 5.944 5.964 5.983
/ E4 `1 Q) D7 b4 {8 n) y0 F+ N" u 45 131.250 4.537 4.555 4.573 4.591 4.608 4.625 4.642* K0 U; q a! k) M
46 134.167 3.122 3.136 3.149 3.163 3.176 3.189 3.202
3 K) T0 t4 }" O/ D2 F2 W$ U" _ 47 137.083 1.611 1.619 1.627 1.634 1.642 1.649 1.656
; c2 D/ W$ G' g/ G: X) K7 L 48 140.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000/ S2 _. _* u2 y8 \2 E
2、选定拱轴系数后,拱轴坐标及拱圈上下点坐标,及余弦值' B4 z; G4 r$ C1 y# m0 i
仍以上个例题为算例,选定拱轴系数为2.24,拱圈高度3m,沿跨径方向48等分。
9 b- f7 i8 L2 }! M- H数据文件内容如下:
" Y5 k7 p* P) I% C- h2* A6 f* i9 \) k$ j* q7 Z/ r
48,140,17.5,2.24,3
. m" J$ d/ a2 R! ^! g运行程序后结果文件如下:
/ i1 Z( \3 _! q* n, N 等截面拱圈坐标输出程序(可作施工图数据). W( P" Y$ U6 C3 N
If you have any problem, you can contact with me! E_mail:yzbuilder@163.com8 C& z; }0 [8 b( v( l
SEC NO. X cor y0 y1 y2 cosB. M; I }" [" w
0 0.000 0.0000 1.7372 -1.7372 0.8635
7 d) J. X6 E$ p 1 2.917 1.6475 3.3565 -0.0614 0.8777
3 Z% O7 h* j0 r) N+ a 2 5.833 3.1863 4.8699 1.5028 0.8910
( f) q/ j8 r+ |8 p* A5 p0 @ 3 8.750 4.6219 6.2827 2.9612 0.9032
* L! j% o! `, r9 u/ o& `2 O( ?5 G 4 11.667 5.9596 7.5999 4.3194 0.9145# |( l# u* a' C0 C; h! G M9 D
5 14.583 7.2042 8.8261 5.5823 0.9248/ u: E) i. Z/ J1 e+ ?" ~ K
6 17.500 8.3602 9.9657 6.7546 0.9343
7 Y* s2 q& z7 J0 d# B( f5 E 7 20.417 9.4318 11.0227 7.8409 0.9429 J( a7 z+ U+ f
8 23.333 10.4229 12.0008 8.8450 0.95068 O- d+ V+ ]! G L3 w3 t
9 26.250 11.3371 12.9034 9.7707 0.9577
0 T# k# ~& l1 Q+ g: J) [+ o 10 29.167 12.1777 13.7338 10.6216 0.9640
* f1 T4 D1 J, ? 11 32.083 12.9478 14.4948 11.4008 0.9696
[8 i& ?! x O0 F) `1 o 12 35.000 13.6501 15.1891 12.1111 0.9747% y6 ~- V9 |4 v! q$ {1 X$ J
13 37.917 14.2873 15.8192 12.7553 0.9791- N, m0 K6 p. z% s, `: W
14 40.833 14.8615 16.3874 13.3357 0.9831% K7 s; p; F, V0 M1 [0 K, {. ^" X
15 43.750 15.3750 16.8955 13.8545 0.9865
/ R% b: |# t$ `8 X9 C+ m; T+ ~7 | 16 46.667 15.8296 17.3455 14.3137 0.98959 i! z4 K( u2 J" X. w! H5 v
17 49.583 16.2268 17.7388 14.7149 0.99216 ]7 X& F7 ?2 h0 g- m- ~# {: p5 m$ v% I
18 52.500 16.5683 18.0769 15.0596 0.9943
7 d# d/ o5 o- }% J9 l) h+ a. c 19 55.417 16.8551 18.3611 15.3492 0.9961
3 y2 K% S% i5 X4 U+ w 20 58.333 17.0884 18.5922 15.5846 0.9975
* R& B6 u) D) G( a( y 21 61.250 17.2690 18.7711 15.7669 0.9986
, L S& ^* ~# Y 22 64.167 17.3975 18.8984 15.8965 0.9994
# ~! F, T0 I9 q$ ] 23 67.083 17.4744 18.9746 15.9742 0.9998
) v; s: p& ^. s: I6 I& E1 W 24 70.000 17.5000 19.0000 16.0000 1.0000* a" Q/ C3 p N6 f6 |
25 72.917 17.4744 18.9746 15.9742 0.9998
# |) h, l( e+ C0 |$ P' K 26 75.833 17.3975 18.8984 15.8965 0.9994; _! \2 u- a) ]* U, M, y; T
27 78.750 17.2690 18.7711 15.7669 0.9986
5 A) `" k8 v1 V2 _ 28 81.667 17.0884 18.5922 15.5846 0.9975: D+ F( c. c! c8 S; K: N3 U7 m, K
29 84.583 16.8551 18.3611 15.3492 0.9961
1 n5 p, n5 U0 R# `! T' ? 30 87.500 16.5683 18.0769 15.0596 0.9943' y) z4 Y- V& v. R0 d
31 90.417 16.2268 17.7388 14.7149 0.9921
' Q+ O h/ T# I/ q 32 93.333 15.8296 17.3455 14.3137 0.9895
+ }9 _. k- L) |9 [! D: y 33 96.250 15.3750 16.8955 13.8545 0.9865
3 z0 ^9 ]- e: ]; _# B 34 99.167 14.8615 16.3874 13.3357 0.9831
$ {) q1 V4 z7 m. D2 W 35 102.083 14.2873 15.8192 12.7553 0.9791- i& B7 O9 l7 G9 l0 U; ]3 g
36 105.000 13.6501 15.1891 12.1111 0.9747 L4 [- l9 x* s5 x
37 107.917 12.9478 14.4948 11.4008 0.9696' D! \: u3 @" K8 }; c9 `, K0 \
38 110.833 12.1777 13.7338 10.6216 0.9640
2 R% U7 g% `( y ?. ~1 v" Z8 N 39 113.750 11.3371 12.9034 9.7707 0.9577
8 Y+ x' ]# u% W: S6 E# m 40 116.667 10.4229 12.0008 8.8450 0.9506
" A. a* ^/ i) H; X8 ]3 v9 ]( P" `$ T 41 119.583 9.4318 11.0227 7.8409 0.9429) g% _" g' N0 U2 i: D6 R% [* G1 J
42 122.500 8.3602 9.9657 6.7546 0.9343
6 J( b/ M' B+ u' \ 43 125.417 7.2042 8.8261 5.5823 0.9248
: J$ J+ }4 G# ~% | 44 128.333 5.9596 7.5999 4.3194 0.9145
# c0 N( H8 H' _0 @5 _ 45 131.250 4.6219 6.2827 2.9612 0.9032
; G' x; Y m- I7 h) k 46 134.167 3.1863 4.8699 1.5028 0.8910
i$ |3 s; k. b& k0 t& H# P' J% ]3 f 47 137.083 1.6475 3.3565 -0.0614 0.8777+ R0 U0 h8 T$ l, {: U
48 140.000 0.0000 1.7372 -1.7372 0.8635) @2 Q& x8 N2 ~" Y! I5 O) B
5 r; n5 X8 i/ i F6 X8 ], p |