卡西欧4850公路计算设计标高程序

主程序

BIAOGAO Defm 2

[b] 0:u:fixm:｛KBX ｝:prog”canshu ” R

B ≥0＝＞W=H-0.02(B-1): ＝＞W=H+0.02(B+1) △ prog ”JJ ”: GOTO 0 [b] 1: prog”BB ”

N=1＝＞GOTO 2△ N=-1＝＞GOTO 2△N=2＝＞GOTO 3△ N=-2＝＞GOTO 3△ N=3＝＞GOTO 4△N=-3＝＞GOTO 4△N=4＝＞GOTO G △N=-4＝＞GOTO G△N=5＝＞GOTO K△N=-5＝＞GOTO K△ [b] 3

K ≤F ＝＞GOTO A△ K ≤I ＝＞GOTO B △K ≤I+L＝＞GOTO C△K ≤I+L+Z＝＞GOTO 9△:≠>GOTO T△

[b] A:Z[1]=K-(F-S):N=N/2: prog”CC ”: prog”HH ”: prog”JJ ”:GOTO 0 [b] B:Z[1]=K-F:N=N/2: prog”II ”: prog”JJ ”:GOTO 0

[b] C:Z[1]=I+L-K:N=N/2: prog”DD ”: prog”HH ”: prog”JJ ”:GOTO 0 [b] 9:Z[1]=I+L+Z-K:N=N/2: prog”EE ”: prog”GG ”: prog”JJ ”:GOTO 0 [b] 2

K ≤F-L-Z ＝＞GOTO T△K ≤F-L ＝＞GOTO 5△K ≤F ＝＞GOTO 6△K ≤I ＝＞GOTO 7△K ≤I+S＝＞GOTO 8△

[b] 5:Z[1]=K-(F-L-Z): prog”EE ”: prog”GG ”: prog”JJ ”:GOTO 0 [b] 6:Z[1]=K-(F-L): prog”DD ”: prog”HH ”: prog”JJ ”:GOTO 0 [b] 7:Z[1]=K-F: prog”II ”: prog”JJ ”:GOTO 0

[b] 8:Z[1]=I+S-K: prog”CC ”: prog”HH ”: prog”JJ ”:GOTO 0 [b] 4

K ≤F ＝＞GOTO D△K ≤I ＝＞GOTO E△K ≤I+S＝＞GOTO F△ [b] D:Z[1]=K-(F-S):N=N/3: prog”CC ”: prog”HH ”: prog”JJ ”:GOTO 0 [b] E:Z[1]=K-F:N=N/3: prog”II ”: prog”JJ ”:GOTO 0

[b] F:Z[1]=I+S-K:N=N/3: prog”CC ”: prog”HH ”: prog”JJ ”:GOTO 0 [b] K

K ≤F-L-Z ＝＞GOTO T △K ≤F-L ＝＞GOTO L △K ≤F ＝＞GOTO M △K ≤I ＝＞GOTO N △K ≤I+L＝＞GOTO O △K ≤I+L+Z＝＞GOTO P:≠>GOTO T△

[b] L:Z[1]=K-(F-L-Z):N=N/5: prog”EE ”: prog”GG ”: prog”JJ ”:GOTO 0 [b] M:Z[1]=K-(F-L):N=N/5: prog”DD ”: prog”HH ”: prog”JJ ”:GOTO 0 [b] N:Z[1]=K-F:N=N/5: prog”II ”: prog”JJ ”:GOTO 0

[b] O:Z[1]=I+L-K:N=N/5: prog”DD ”: prog”HH ”: prog”JJ ”:GOTO 0 [b] P:Z[1]=I+L+Z-K:N=N/5: prog”EE ”: prog”GG ”: prog”JJ ”:GOTO 0

子程序

E=C-D:T=V×abs E÷2:Q=J-T

E>0=>Y=-(K-Q) ^2÷2V: ≠> Y=(K-Q)^ 2÷2V △ K ≤Q=>H=A-(J-K)C: ≠>K≤J+T=> H=A-(J-K)C+Y△ K ≥J+T=> H=A-(J-K)D△ CC M=(P/S)Z[1] DD

M=-0.02+((P+0.02)/L)Z[1] EE

M=(0.02/Z)Z[1] GG

N=-1=>B≥0=>W=H-MN(B-1): ≠>W=H+0.02(B+1) △△ N=1=>B≥0=>W=H-0.02(B-1): ≠>W=H-MN(B+1) △△ HH

B ≥0=>W=H-MN(B-1): ≠>W=H-MN(B+1) △ II

B ≥0=>W=H-NP(B-1): ≠>W=H-NP(B+1) △ CANSHU(数字库)

K ≥133000=>A=107.00:J=133500:C=-0.005:D=0.015:R=900:V=25000: S=80:F=133400:I=133600:N=3:P=0.06△K ≥133800=>A=……….. △

JJ Z[2]=U-X W ▲

Fix 3:O=W-Z[2] ▲ W-H Norm 说明

A-----交点标高 J----交点桩号 C----第一纵坡 D----第二纵坡 R----平曲线半径 V----竖曲线半径 L Z S----缓和曲线长(分段长) F----HY I----YH P----全超高横坡 N----1 2 3 4 5 偏左. 偏右 U----视线高 X----前视读数

K----桩号 B----距中距离(左负右正) W----设计标高 O----填挖值

超高形式

N=±3

N=±1

N=±2

N=±5

隆林至百色高速公路№10标

黄英德编