道路测量程序大全

发布时间:2008-10-26 09:19:48

（会员：lwz504发布于论坛）

一、程序设计

1． 测量放样计算主程序CLFY V=19:Fixm:Rad

{OEFG}:O”1.XL 2.SD”:E”DZ”:F”DH”:G”AH” Pol(Z[F+52]-Z[E+52],Z[F+62]-Z[E+62]) D=πG÷180-J Lbl 1

Goto 2◣1O {KQ}:K”KF”:Q”BL” Prog ”ZB”

X=X+Rec(Q,U+π÷2):Y=Y+J Goto 3 Lbl 2

{XY}:X”XF”:Y”YF” Lbl 3

Pol(X-Z[E+52],Y-Z[E+62]) I”S=”◢ I=J+D

I>I=I-2π◣2π I<I=I+2π◣0 I=180I÷π I”A=”◢ Goto 1

2．线路坐标计算主程序XLZB Rad Fixm

{O}:O”1.ZX 2.BX” Q=0 Lbl 1 {K}:K”K”

{QG}:Q”L”:G”AJ” ◣1O

Prog ”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J X”X=” ◢ Y”Y=” ◢

U=180U÷π:U”AT=” ◢O=1 ◣ Goto 1

3．线路高程计算主程序XLGC V=11:Fixm Lbl 0

{KQ}:K”K”:Q”L” Prog ”KD” Prog ”GC” C”H=”◢ Goto 0

4．边桩放样计算主程序BZFY Fixm Rad

{Z}:Z”1.CJ 2.QZ 3.QS” Z[11]=0:Goto 1◣Z=2  Goto 1◣Z=3

{MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH” Z[8]=Z[M+52]:Z[9]=Z[M+62] C=Z[N+52]:A=Z[N+62]

Pol(C-Z[8],A-Z[9]):Z[10]=J-πU÷180:Z[11]=G Lbl 1

Goto 2◣Z=2

{EBFD}:B”AQ”:E”S”:D”HD”:F”HY”

Rec(E,Z[10]+πB÷180):X=Z[8]+I:Y=Z[9]+J:Goto 3 Lbl 2

{EBD}:E”N”:B”E”:D”Z”:F=0:X=E:Y=B Lbl 3 Prog “FQ”

G=D+Z[11]-F:G”H”◢ Prog “FY” Goto 1

5． 线路坐标计算子程序ZB Prog ”YS” X=74445.797 Y=501515.278 S=771.296-K B=A+C+π S>Goto 1◣L I=SSS÷6÷R÷L J=S-S^5÷(40RRLL) U=B-SS÷(2RL)-π:Goto 2 Lbl 1

U=(2S-L)÷R÷2

I=R(1-cos U)+Z[5]:J=Rsin U+Z[6]

U=B-(S-L÷2)÷R+π Lbl 2

Pol(I,J):J=J+B-π÷2 X=Rec(I,J)+X Y=Y+J

U6．曲线要素计算子程序YS R=280 L=84.7

S=-0.6769479859 A=-2.415291254 N=-1

C=1.738343268 Z[5]=1.067572917 Z[6]=42.31770592 T=374.91465 Z[7]=RC+L

7．线路高程计算子程序GC W=13 Lbl 1 P=Z[W+7]

K>W=W+1:Goto 1◣Z[W]-P W=14◣W=13 Goto 2◣V=W-1 V=W-1 J=Z[V+4]

R=(J-Z[V+3])÷(Z[V]-Z[V-1]) S=(Z[V+5]-J)÷(Z[V+1]-Z[V]) T=Z[V+7] Lbl 2 L=K-Z[V]

H=J+RL:Goto 3◣L≤-T H=J+SL:Goto 3◣L≥T A=2T÷(S-R) X=L+A(R+S)÷2 H=J+XX÷2÷A-ARS÷2 Lbl 3 H=H-Z[1] A=Abs Q

C=0:Goto 6◣A≤Z[4] I=-1 Q>I=1◣0

Lbl 4 Y=23 Lbl 5

Y=Y+1:Goto 5◣K≥Z[Y]

O=Z[Y+2]:X=Z[Y+3]:O=IO:X=IX O=2◣Z[Y+2]=0 X=2◣Z[Y+3]=0

N=(Z[Y]-K)÷(Z[Y]-Z[Y-1]) M=(X-O)(1-3NN+2NNN)+O

C=(Z[4]-A)M÷100:Goto 6◣A≤Z[2] C=0.04(Z[2]-A)-M(Z[2]-Z[4])÷100 M>C=(Z[4]-A)M÷100◣4 Lbl 6 C=H+C

8．反求线路桩号子程序FQ Prog ”YS” Z[4]=74445.797 Z[3]=501515.278

K=771.296:Q=0:Goto 2◣◣Z[3]=YZ[4]=X Q=Z[4]:K=Z[3]:G=S+π÷2 Prog ”ZH”

G=LL÷6÷R:Q=L-LLL÷40÷R÷R Pol(G-H,Q-W):K=J+π÷2+L÷2÷R cos K<Goto 1◣0 Pol(H-(R+Z[5]),W-Z[6]) K=771.296-R(π-J)-L÷2 Q=R-I Goto 2 Lbl 1 K=1:U=L Prog ”HQ”

K=771.296-O:Q=-Q Lbl 2 M=1000

K=Intg (MK+0.5)÷M Q=Intg (MQ+0.5)÷M Z”KD=”◢ Q”WB=”◢

9．坐标转换计算子程序ZH H=X-Q:W=Y-K Pol(H,W) G=J-G

H=Icos G:W=Isin G

10．反求缓曲长度子程序HQ A=K÷46080÷R^6÷U^6 P=H÷3840÷R^5÷U^5 C=13K÷5760÷R^4÷U^4 T=KW÷384÷R^4÷U^4 G=H÷48÷R^3÷U^3 I=K÷(15RRUU) J=KW÷(8RRUU) L=H÷(2RU) N=KW S=W Lbl 7

M=AS^13+PS^10-CS^9+TS^8-GS^6+IS^5-js^4+LSS-KS+N Q=13AS^12+10PS^9-9CS^8+8TS^7-6GS^5+5IS^4-4js^3+2LS-K O=S-M÷Q

Abs (O-S)<Goto 8◣1E-5 S=O Goto 7 Lbl 8

T=KOOO÷6÷U÷R P=O-O^5÷(40RRUU) Q=0:Goto 9◣◣P=WT=H Pol(H-T,W-P)

Q=sin (J+KOO÷2÷R÷U-π÷2) S=-1 Q>S=1◣0 Q=SI Lbl 9

11．边桩放样计算子程序FY V=11 U=Q Prog ”KD”

Q=-0.75-Z[2]:Z[3]=-1 U>Q=0.75+Z[2]:Z[3]=1◣0 Prog ”GC” X=G-C

Goto 7◣X≤0

N=Int ((X-0.1)÷8.9)+1 N>N=5◣5 I=1 Lbl 2

O=Z[28+I] {O}:O”M” Z[28+I]=O I=I+1

I>Goto 4◣N+1 Goto 2 Lbl 4 I=0

W=3.55+Z[2]:H=0.04 Lbl 5 I=I+1

I>Goto 6◣N-1 W=W+2+9Z[I+28] H=H+8.9 Goto 5 Lbl 6

A=X-H:A”C=”◢ W=W-Abs U P=WZ[3]◢A≤1 ◣

P=(9Z[I+28]+W+2)Z[3]◢A≥8 ◣

A=AZ[I+28]+W Goto 8 Lbl 7 X=-X

A=1.5X+0.75+Z[2]-Abs U◣X≤8

X>A=12.75+Z[2]+1.75(X-8)-Abs U◣◣X≤128 X>A=14.75+Z[2]+1.75(X-8.04)-Abs U◣12 Lbl 8 A=AZ[3] A”DB=”◢

12.路面宽度计算子程序KD Z[2]=10.5 Z[4]=0.5

K>K460<Z[4]=0◣◣540 Goto 6◣Abs Q≤Z[4] Q>Goto 1◣0

K<I=50:X=K-370.6255:Goto 2◣370.6255 K>I=41:X=K-430:Goto 2◣◣K≤467.384430 K>K467.384<Goto 3◣◣532.616

KK≥532.616<I=41:X=570-K:Goto 2◣◣570 K>I=35:X=K-686.596:Goto 2◣686.596

Goto 5◣ Lbl 1

K<I=47:X=K-350.4277:Goto 2◣350.4277 K>I=44:X=K-430:Goto 2◣◣K≤463.545430 K>K463.545<Goto 4◣◣536.455

KK≥536.455<I=44:X=570-K:Goto 2◣◣570 K>I=38:X=K-686.596:Goto 2◣686.596 Goto 5◣ Lbl 2

Z[2]=Z[I]XXX+Z[I+1]XX+Z[I+2]X+10.5:Goto 5 Lbl 3

Z[2]=299.104÷sin (1.4543+(K-467.384)÷280)-280:Goto 5 Lbl 4

Z[2]=280-267.304÷sin (1.4406+(K-463.545)÷280) Lbl 5

L=Z[2]+0.75:L”LD=”◢ Lbl 6

二、扩展变量设置数值 扩展变量设置实际数值表 名 称 福宁线A14-A 变坡点数目b 2 起超点数目c 3 台阶数目d 6 导线点数目e 10 曲线方程数f 6 变量总数目 72 Z[1] 0

Z[2] 变量(路面宽度) Z[3] 变量(左右系数) Z[4] 变量(带宽) Z[5] 空 Z[6] 空 Z[7] 空 Z[8] 空 Z[9] 空 Z[10] 空 Z[11] 空 Z[12] 284.56 Z[13] 305.00 Z[14] 600.00 Z[15] 840.00 Z[16] 9.838

Z[17] 9.9 Z[18] 15.8 Z[19] 29 Z[20] 20.44576 Z[21] 52.5 Z[22] 空 Z[23] 284.56 Z[24] 686.596 Z[25] 771.296 Z[26] 3 Z[27] 3 Z[28] 0

Z[29] 第一边坡坡度 Z[30] 第二边坡坡度 Z[31] 第三边坡坡度 Z[32] 第四边坡坡度 Z[33] 第五边坡坡度 Z[34] 第六边坡坡度 Z[35] 4.36072E-07 扩展变量设置实际数值表(续表) 名 称 福宁线A14-A Z[36] 7.827E-05 Z[37] 3.59504E-04 Z[38] 1.01209E-05 Z[39] -1.E-04 Z[40] 2.21E-03 Z[41] -4.00801E-04 Z[42] 0.0224987 Z[43] 3.792E-03 Z[44] 3.31567E-06 Z[45] -1.99117E-04 Z[46] 3.56071E-04 Z[47] -2.23383E-04 Z[48] -1.76709E-03 Z[49] -0.011245 Z[50] -2.25118E-05 Z[51] -1.69988E-04 Z[52] -1.32568E-03 Z[53] Z[54] Z[55] Z[56] Z[57] Z[58]

Z[59] Z[60] Z[61] Z[62] Z[63] Z[] Z[65] Z[66] Z[67] Z[68] Z[69] Z[70] Z[71] Z[72] Z[73] Z[74] Z[75] Z[76]