5800计算器全线贯通桥梁隧道道路高程边坡程序

1、FX5800 计算器公路测量常用程序集 2.3 版一、程序功能 主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复 杂线型及立交匝道，包括 C型，S型、卵型、回头曲线等；极坐标放样，全 线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅 宽度. 隧道欠超挖放样计算。 新版本优化： 1、优化程序语句、 2、取消原线元法计算，化线元法为交点法。3、高程计算修改 ,4 、附计算坐标及高程参数设计要素输入实例 二、源程序（绿色为程序名；蓝色为输入计算器内容） 红色为网友调试 后修改笔误。0. 总主程序（ 1、坐标计算放样程序 2、坐标反算程序； 3、高程计算查 阅程序； 4、路

2、基半幅标准宽度查阅程序； 5、路基边坡及开挖口放样程 序； 6、路基标准距离放样； 7、桥梁锥坡计算放样程序； 8、极坐标计 算程序； 9、隧道超欠挖计算程序）运行后按 19数子约半秒，则选择 1 至 9 的程序，返回时，在桩号输入 -1, 返回选择计算类型。输入 -2, 返回 选择线路。程序名： 0（数子 0）ClrMat:ClrVar:12 DimZ: Norm 2: Do:" （XY =1, ZD=2 , GC=3 GD=4 BP=5 FM=6 ZP=7, JS=8, SD=9）=>QINGAN1 -9 " : GetkeyZ3:While Z3=35:Prog

3、 1XY”:WhileEnd:While Z3=36:Prog 2ZD: WhileEnd: While Z3=37:Prog 3GC: WhileEnd: While Z3=21:Prog 4GD: WhileEnd:WhileZ3=22:Prog 5BP :WhileEnd:WhileZ3=23:Prog 6FM: WhileEnd: While Z3=31:Prog 7ZP: WhileEnd:WhileZ3=32:Prog 8JS :WhileEnd:WhileZ3=33:Prog " 9SD: WhileEnd:LpWhile Z3丰 25: ” XIE XIE SHIYO

4、NG” :1. 主程序:一般坐标计算及放样程序程序名 :1XYProg " DX' :Prog " QX :90 A: H PJ1H ?A:A B: H PJ2H ?B:A Z 1:B Z9: Do: ' KM ?Z:Z=-仁>Stop:Z二2=>Break: Prog ' K ' : ? D: 0 L: L0 ?L:LZ10: Porg A :Z2+Z1 A :A-Z9 E:I+Dcos(A)+Z10cos(E X:J+Dsin(A)+Z10sin(E Y:Prog XY : Prog' JS ' ' :

5、LpWhile Z 丰-12. 主程序:由大概桩号及坐标反算桩号及距离程序名:2ZDProg QX :Do:KM ?Z:Z=-1=>Stop:Z=-2=>Break: Prog K :XO ?X: ' Y0 ?Y: Porg ' B' : Prog ' ZD ' :LpWhile Z 丰-13. 主程序:任意点高程计算及横坡程序名 :3GCProg QX :0B:H-B ?B: B Z9: Do:KM ?Z:Z=-1=>Stop:Z=-2=>Break:?D:ProgH :Fix 3:H=: Locate 6,4,H-Z9 :&#

6、39; I= ' ' :Locate 6,4,1: LpWhile Z 丰-14. 主程序: 任意桩号位置的标准路基宽度计算程序名 :4GDProg QX : Do:KM ?Z:Z=-1=>Stop:Z=-2=>Break:-1D:ProgC :L P: 1D: Prog C :Fix 3:LGD= : Locate 6,4,P :RGD=' ' :Locate 6,4,L: LpWhile Z 丰-15. 主程序 : 路基开挖边线及填方坡脚线放样程序程序名: 5BPProg " DX' :Prog " QX :0.5 B

7、: ' ' TH-GD ?B: B Z7: Do: ' ' KM ?Z:Z=-1=>Stop:Z=-2=>Break: Prog K : “X0 ?X: Y0 ?Y:Z8 M： M0 ?M:MZ8: Porg B :DP :Prog C :If D<0:Then 0. 75-LD:Else L-0.75 D: IfEnd: Prog “H”:H-0.03-Z8G: Prog“W1”:If G>0:Then Goto T: IfEnd:-GH:If H>E+F:Then L+M+N+S+C(H-E-F)+BF+AES:Goto 0:I

8、fEnd:If H>E:Then L+M+N+ B(H-E)+AE S:Goto 0:IfEnd:If H<E:Then L+M+HAS:Goto 0:IfEnd:LbI T:If G>W ：Then L+Z7+V+J(G-W)+IW S : Else L+Z7+GIS:IfEnd:LbI 0: Fix 2: PD ：Abs(D)-ST:LX= :Locate 6,4,T ：Prog' ZD : ' TW= ' : Locate 6,4,G 丄 LpWhile Z 丰-16、主程序：定值放样路基桩计算填挖值程序名： 6FMProg DX :Prog Q

9、X : Do: KM ?Z:Z=-1=>Stop:Z=-2=>Break: P rog K : ?D: Porg A :Z2+90 A :I+Dcos(A X:J+Dsin(A Y:P rog XY :Prog JS :Z8 M:”M0”?M:MZ8:Prog “H”: ” T W= :Locate 6,4,H -Z8: LpWhile Z丰-17、主程序：桥梁锥坡计算放样程序名： 7ZPProg DX :Prog QX : Z0 ?Z: LD:Z-,Y+ ? D:Abs(D) R:LR ?R: DZ7:R Z10:Z Z9:Prog ” C” :LZ10:Prog ” K” :

10、Do:Z10 Y:' L0:SZ+,DZ-' ?Y: Y=-1=>Stop:Y=-2=>Break: V(Z7 2 (1-Y2/Z10 2)X：Z9+YZ: Prog ” C” : If D>0:Then L+X D:E Ise L-XD:lfEnd:Prog ” A” : Z2+90 A :l+Dcos(A X:J+Dsin(A Y:Prog' XY :Prog ' ' JS' : LpWhile Y 丰-18、主程序：由坐标计算方位角及距离程序名： 8JSProg DX :Do:?X: X=-1=>Stop:X=-2=

11、>Break:?Y:Prog”JS” : LpWhile X 丰-19、主程序：隧道超欠挖放样计算程序名： 9SDProgH DX :0.65 A: ” CQHD ?A:A Z7:Do: " KM ?Z:Z=-1=>Stop:Z =-2=>Break: Prog " K :“X0H ?X:' ' Y0 ?Y:Z8 M ' ' M0' ?M:MZ8: Porg B :DZ9:0 D:Prog” H” :Prog ” SD1” :Z9 D:Z8 M:Z7 X:Rcos(P C:H+AA:H+BB:C+AE:If M<

12、;E:Then R-V S: S=0=>Goto 1: V(S2-(B-A) 2)S 一 Abs(S T:Abs(D-Q)-T T: V(T2+(M-B)2) -V-X L:Goto 0:lfEnd:Lbl 1:V(D-Q) 2+(M-A)2)-R-X L:Lbl 0:Fix 2:” LX= ” : Locate 6,4,L:Prog ” ZD” : “H0= ” : Locate 6,4,M-HJ LpWhile Z 丰-110. 交点法正算子程序(A)程序名： AP一 Abs(P WOT+ nRX Abs(P) 一 180+H一2-N一2Q:H C:0M:If Z w C-T:The

13、n Z- C S:G Z2:Goto 1: IfEnd:If Z w C-T+H:Then Z- C+T S:Prog“HX :G+W Z2:A-T A:G E:Goto 2:IfEnd:If Z w Q: Then 180(Z- C+T-0.5H) 一 R- n S : Prog ” AB' :A+R(1 -Cos(SE： B+Rsin(SA:EB:RM:G+WSZ2:A-T A:GE:Goto 2: If End:If ZW Q+N:Then Q+NS:N H:Prog “ HX :G+LE:E-WQZ2:F-2 A:C H:Goto 2:lfE nd:Z-Q-N+i S:G+i

14、Z2: LbI 1:U+Scos(Z2 l:V+Ssi n(Z2 J:Return:Lbl 2:U+Acos(E) WBsi n(E I:V+Asi n(E)+WBcos(E J11. 交点法反算子程序(B)程序名： B0 D:Do:Z+D Z:Prog ” A” :Pol(X-l,Y-J+x 10-9:J-Z2 J:Isin(J S:Icos(J D:If M 丰 0:Then Pol(M-WS,D:JM n一 180 D:IfEnd: LpWhile Abs(D)>.001:Z+DZ:SD12. 缓和曲线段直角坐标计算子程序(A B)程序名： ABA 一 R一 24-H,4) 一 2

15、688 一 R,3)+H A (6) 一 506880 一 RA (5)- H A (8) 一 154 828800一 Ra (7) A:H一 2-HA(3) 一240- R2+ H A(5) 一 34560- RA(4)- H A (7) 一一 Ra (6)+ H A (9) 一 3158507520- RA (8) B13. 计算缓和曲线段坐标增量及偏角子程序 (HX)程序名： HXS-SA (5) 一 40 - R2一 *+SA (9) 一 3456- RA (4) 一-S A (13) 一 599040一 目(6) 一(6)+S A (17) 一 175472640一 RA (8) 一

16、(8) A:S A(3) 一 6- R一 H-SA (7) 一 336 - RA (3) 一 Ha(3)+S 卜(11) 一 42240- RA (5) 一(5)-S A (15) 一一 Ra (7) 一(7)+S A (19) 一 3530097000- RA(9) 一(9) B:90S2 一 n一 R一 H K:If S=0:Then 0 M:Else RH 一 S M:IfEnd14高程计算子程序( H)程序名： HProg “S1” ：N-I A:A一 Abs(AW:RX Abs(A一 2T:If Z<C-T:Then G+ l(Z-C H:Goto 0:IfEnd:lf Z&l

17、t;C+T:Then G-TI+(I+(Z-C+T)W一 2-R) x(Z-C+Tf H:Goto 0: IfEnd:N I: G+I(Z-C H:Lbl 0:If D=O:Then Hf H:Return:Else Prog“I ” ：H+l(Abs(D)-K H:IfEnd15. 高程超高计算横坡子程序( I )程序名： IProg “I1”：If S=0:Then M I: Return:Else If W=1:Then (N-M)x (Z-C) 一 S+Mf I:Return:Else (3(Z-C)一S)2-2(Z-C) 一 S)A (3) x(N-M)+MI:IfEnd:16路基宽

18、度子程序程序名： C1f S: Prog“G1” ：Z-C f E:(B-A)E 一 S+Af L17：极坐放样计算程序 ( 计算放样点至置仪点方位角及距离 ) 程序名： JSZ5 f K： Z6 fL:Pol(X-K, Y-L:IF J<0:Then J+360 fJ:IFEnd: Int(J) +0.01Int(60Frac(J)+0.006Frac(60Frac(JfJ: Fix 4: ” FWJ=” : Locate 6,4,J : Fix 3: ” S= ” :Locate 6,4,1 丄如果要显示度分秒，可将粉色部分去掉，后面的改成：“FWJ=”： J?DMSJ”S= ” :

19、Locate 6,4,I 丄18导线点子程序( DX)程序名: DXZ5 fK:Z6 fL: “XZ” ?K:” YZ” ?L:KfZ5:L fZ6 19线路选择子程序 ( 线路选择输 0 时。则输曲线参数( QX) 程序名: QX1fA:” QX:X1=1,X2=2，X3=3” ?A:AfZ4:If A=0:Then ” JDKM” ?O: ”JDX” ?U:” JDY” ?V:” FWJ” ?G:” ZJ” ?P:” LS1” ?H:” LS2” ?N:” T1” ? T: ” T2” ?F:?R:IFEnd20线路中线元段判别子程序( K)程序名： KIf Z 4=0:Then Retu

20、rn: IfEnd:If Z 4=1:Then Prog“ X1”:Return:IfEnd ：If Z 4=2:Then Prog “X2”:Return:IfEnd ：If Z 4=3:T hen Prog “ X3”:Return:IfEnd21坐标参数矩阵调用程序( F)程序名： FMat F1,1 O： Mat F1,2 U: Mat F1,3 V: Mat F1,4 G: Mat F1,5 P: Mat F1,6 H: Mat F1,7 N: Mat F1,8 T:MatF1,9 F: Mat F1,10R22显示子程序程序名： XYF ix 3: " Xi：Locate

21、 6,4,X:HY = H :Locate 6,4,Y:程序名： ZDFix 3: " KM = H:Locate 6,4,Z:HD = H :Locate 6,4,D23数据子程序 (附后示例 )匝道线元转交点数据程序( T)程序名: TNorm 2: “QKM”？ Z: “ XQ”？ U: “ YQ”？ V: “ LS1”？ M: “ LS2”？O “ A1”？ A: “A2”？ B:“FWJ“？ G: ” ZJ “？ P:? R: P一 Abs(PQ:A2一 F H:H<M=>H:H-M S:B2一 F N:N-C C:O>N=< N:H=0=>-

22、9 2 -9 2X 109 H:HX:90S2一 (RHn K:G-QK G:N=0=>X 109 N: 90C2一 (RNn D:P+QK+QP:Prog ” AB' : (H 2-M) 一24- R一 sin(Abs(P)-(H A(4)-N a(4) 一 2688 一 Ra (3) 一 sin(Abs(P)+(H A (6)-N A (6) 一 506880一 RA (5)一 sin(Abs(P)-(H,8)-N ,8) 一 154828800一 RA(7) 一 sin(Abs(P E:(R+A)tan(Abs(P) 一2)+B-E T:N H:Prog ” AB'

23、 : (R+A)tan(Abs(P)一 2)+B+EF: X H: Z-S+T O:Prog ” HX” :U-(A-T)cos(G)+QBsin(G U:V- (A-T)sin(G)-QBcos(G V:Fix 3: ” JDKM=” :Locate 6,4, O:” JDX=” :L ocate 6,4,U:” JDY兰：Locate 6,4,V 丄 ” FWJ= :G?DMSI” ZJ=” ：P? DMST LS仁” :Locate 6,4,H:” LS2=” : Locate 6,4,N:” T仁”:Locate 6,4,T:” T2=' : Locate 6,4,F 丄” R

24、=” :R丄说明：运行后“ QKM?输入起点桩号；“ XQ ?“ YQ ?输入起点X、Y坐标；“ LS1”？“LS2”？输入前段缓和曲线长度，后段缓和曲线长度；“ A1”？“A2'?输入前段缓和曲线参数，后段缓和曲线参数；“FWJ “？输入起点切线方位角；”ZJ “？输入转角(终点方位角减起点方位角之差，左转为负，右转为正)；计算结果要素同QX子程序中要素字母。 -1程序名：X1 (线路1坐标计算要素程序)If Z < 241.086:Then -336.478 , 2600441.639 , 514392.519 , 280。 20'28.78” ， 203。08

25、9;28.32”， 106.667 ， 81.667 ， -270.668 ， -283. 056， 60 Mat F:Prog ” F” : IfEnd -2程序名：X2 (线路2坐标计算要素程序)If Z < 273.006:Then 171.674, 2600784.547 , 514635.863 , 58° 49'17.2”，68。09'26.91 ”， 93.889 ， 125， 171.674， 184.771 ， 180Mat F:Prog ” F” : Return: IfEndIf Z w 466.227:Then 341.96, 26006

26、64.76 , 514799.865 , 123° 43'25.9”，15。 58' 49.5” ,0 ， 138.211 ， 68.954， 125.273， 445 MatF:Prog ” F” : Return: IfEnd说明：1、交点法：If Z W计算交点段终点桩号：Then交点桩号，交 点X坐标，交点Y坐标，起点至交点方位角，交点转角，交点前段缓和 曲线长度，交点后段缓和曲线长度，交点前段切线长度，交点后段切线 长度，圆半径Mat F: Prog ” F” : Return: IfEnd（转角则为交点段终点方位角减起点方位角，分正负，左偏为负，右偏 为正

27、）如整条线无曲线，全为直线段，则交点为终点桩号，XY为终点坐标，方位角为起点方位角，转角和圆半径为 1，其它全为 0。 -1程序名：S1（线路1高程竖曲线要素子程序）If Z 4=1:Then Goto 1: IfEnd: If Z4=2:Then Prog “S2” : Return: IfEnd:LbI 1:If Z w 241.09:Then 95.356 C:40.742 G:2000R:-.03155I:.00812 N:IfEnd: -2程序名：S2（线路2高程竖曲线要素子程序）If Z w133.601:Then 106 C:45.12G:1525R:-.0064 I:.0298

28、 N: Return:IfEnd:If Z w466.23:Then 298 C:50.841 G:1945R:.0298I:-.01968 N: Return:IfEnd:程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）； R-竖曲线半径；I 竖曲线前纵坡；N 竖曲线后纵坡 -1 程序名： I1 （线路 1 高程超高参数子程序）If Z4=1:Then Goto 1:IfEnd: If Z4=2:Then Prog “I2” :Return: IfEnd:LbI 1:0K:1W:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:I

29、f Z w159.419:Then 0 S:.06 M: Return:IfEnd:If Z w 187.987:Then 28.568 S:159.419 C:.O6 M:.O2 N: Return:IfEn d:lf Zw 241.086:Then 0 S:.02 M: Return:lfE nd:LbI R:If Z w159.419:Then 0 S:-.06 M: Return:IfEnd:If Z w187.987:Then 28.568 S:159.419 C:-.06 M:-.02 N: Retu rn:IfEnd:If Z w241.086:Then 0 S:.-02 M:

30、Return:IfEnd -2程序名：I2 （线路2高程超高参数子程序）0K:1W:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z w77.872:Then 0 S:.02 M:Return:IfEnd:If Z w93.889:Then 16.017 S:77.872 C:.02 M:.05N:Return:If End:If Z w198.567:Then 0 S: .05 M:Return:IfEnd: If Z w273.0 06:Then 74.439 S:198.567 C:.05 M:.02N:Return:IfEnd:If

31、Z w335:Then 0 S: .02 M:Return:IfEnd: If Zw346.235:Then 11.2 35S:335C:.02 M:.015N:Return:IfEnd:LbI R:If Z w77.872:Then 0 S:-.02 M:Return:IfEnd:If Z w93.889:Then 16.017 S:77.872 C:-.02 M:-.05 N: Return: IfEnd:If Z w198.567:Then 0 S: -.05 M: Return:IfEnd: If Z w2 73.006:Then 74.439 S:198.567 C:-.05 M:-

32、.02 N: Return:IfEn d:If Z w335:Then 0 S: -.02 M: Return:IfEnd:If Zw346.235:Then 11.235 S:335C:-.02 M:-.015 N: Return:IfEnd: 子程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）;W超高方式参数（W=1为一般直线方式超高， W=2为三次抛物线方式超 高）；S超高渐变段距离（不是渐变段则输入 0）； C-超高渐变段起点 桩号（不是渐变段，无需输入）；M-超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。 -1程序名：G1（线路1路基

33、标准半幅宽度参数子程序）If Z4=1:Then Goto 1:IfEnd: If Z4=2:Then Prog “G2”:Return: IfEndLbI 1:If D<0:Then Goto L:Else Goto R:IfEnd:Lbl L:lf Z w 241.086:Then Z C:3.5 A:Return:lfE nd:Lbl R: If Z w40.857:Then 0 C:5 A:5.25 B:40.857 S:Return:I fEnd:lf Z w159.419:Then Z C:5.25 A:Return:lfEnd:lf Zw187.987:Then 159.4

34、19 C:5.25 A:5.5 B:28.568 S:Return:lfEnd:lfZw 241.086:Then Z C:5.5 A:Return:lfEnd -2程序名：G2（线路2路基标准半幅宽度参数子程序）lf D<0:Then Goto L:Else Goto R:lfEnd:Lbl L:lf Z w466.227:Then Z C:3.5 A:Return:lfEnd:Lbl R: lf Zw321.611:Then Z C:5A:Return:lfEnd:lf Z w346.235:Then 321.611 C:5A:5.75 B:24.624 S:Return:lfEnd

35、:lf Z w4 66.227:Then Z C:5.75 A:Return:lfEnd子程序中字母表示说明：C宽度渐变段起点桩号（不是渐变段 C=Z ； A宽度渐变段起点宽度；B 宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。 -1程序名：SD1隧道参数子程序）lf Z4=1:Then 5.1R:1.8 A:1.4 V:0.59B:0Q: 109。01'30” P: Return:lfEnd:lf Z4=2:Then 8.75R:-1.1 A:4.77 V:1.47 B:-.25 Q: 51 。28'57.1 ”P: Return:l

36、fEnd:子程序中字母表示说明：R-隧道上拱半径；A-隧道上拱圆心至设计面高度； V-隧道中腰部半 径；B-中腰圆心至设计面高度； Q-设计隧道中线与设计路基中线偏移 值，左为负数，右为正数；P-上部拱跨隧道半幅角度； -1程序名：W1线路1路基填挖边坡参数子程序）If Z4=1:Then Goto 1:IfEnd: If Z4=2:Then Prog “W2 : Return:IfEnd:LbI 1: 10 E:10 F:2.6 M:2 N:2f U:1.5 f 1:1.75 f J:8 f W:2 V: If D<0:Then Goto L:Else Goto R:IfEnd:LbI

37、 L:1 fA:1.25 fB:1.25 fC:Return:LbI R:If Zw 110:The n 1.25 A:1.25 B:1.5 C: Return:Else GotoL: IfEnd-2程序名：W2线路2路基填挖边坡参数子程序）10fE:10fF:2.6 fM:2fN:2fU:1.5 fI:1.75 fJ:8 fW:2fV:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:0.75 fA:0.75 fB:0.75 fC:Return:LbI R:If Z w445:Then Goto L:Else If Z w 506.9:Then 0.

38、25 x （Z-44 5） 21.2 Q:.75+Q A:AB:AC:Return:IfE nd子程序中字母表示说明：A-挖方第一阶边坡边率；B-挖方第二阶边坡边率；C-挖方第三阶边 坡边率；E挖方第一阶高度；F挖方第二阶高度；M-挖方路基碎落 台及水沟宽度；N挖方第二台阶平台宽度；U挖方第三台阶平台宽度； I -填方第一阶边坡边率；J填方第二阶边坡边率；W填方第一阶高 度；V-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填 方二个台阶，如需增加，先需在程序5BP程序相应增加。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）三、使用说明1、规定（1）坐标计算以交

39、点方式计算，一般情况下一个交点计算一段线 是：直线 +缓和曲线 +圆曲线+缓和曲线 +直线。在匝道中先根据实际线来 调整，可以单独计算一段不完整的缓和曲线+圆曲线。也可以单独计算一段缓和曲线或一段圆曲线，需先运行 T 程序整理成交点数据。无缓和 曲线时，缓和长度输 0。（2）程序中：X 10-9为10的负9次方即0.000000001; n为圆周 率即3.1415926;"为根号；"X = ": X前有空格二个，为了显示效果（3）为了区别字母 O及数子0，特把字母0加粗。2、输入与显示说明输入提示部分：A:XY= 1 ， ZD=2 ， GC=3， GD=4， BP

40、=5， FM=6， ZP=7， JS=8 ， SD=9? 按对应数子键约半秒 :1 、坐标计算放样程序 2、坐标反算程 序； 3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序； 6、路基标准距离放样； 7、桥梁锥坡计算放样 程序； 8、极坐标计算程序； 9、隧道超欠挖计算程序XZ？ YZ？ 为置仪点坐标，第一次运行输一次，以下运行不需再输 入，下次再运行此程序调上次输值，如需改，则输入，不需改，则按确 认键。 （ 后附有导线点坐标存储子程序 , 有兴趣的可加上 ）“QX:X1=1,X2=2” ？选择经路，坐标计算中输入0值，变为输入线元段曲线要素。输 1 为第一

41、条线路。输 2 为第二条线路，本程序暂设计 实例为 2 条线路。KM?正算时所求点的里程（反算输入大概桩号）输入 -1，返回输 入选择计算类型，输入 -2, 返回选择线路。D ?正算时所求点距中线的边距（左侧取负值，右侧取正值， 在中线上取零 ）X0 ?反算时所求点的X坐标（放样程序中实测 X坐标）Y0 ?反算时所求点的 Y坐标（放样程序中实测 Y坐标） 显示部分：L0？ 涵洞放样程序中涵距中心桩号前后距离, 前为正, 后为负 .（ 即涵洞半幅宽度 ）M0? 放样程序中原地面标高输入H-B ?计算面至路面咼差（默认路面为0）PJ1? PJ2? PJ1 为路线中线与边线的右夹角。第二夹角为边线至

42、路 前进方向夹角 ,默认值均为 90度.TH-GH边坡放样中填方超放宽值，默认值为0.5m.LD:Z-,Y+ ? 桥梁锥坡向左右方向边长，左为负数，右为正数。（ 即为锥坡咼程减地面咼程后乘以填方坡比 ） LR ? 锥坡向路线前进或向后退方向边长。Z0? 锥坡顶边桩号L0:SZ+,DZ- ?锥坡放样中，椭圆上分段放样距离，小桩号锥坡输正 数，大桩号锥坡输负数。“CQH”D ? 隧道超欠挖程序中衬砌厚度 , 默认值为 0.65m.QX子程序中和T程序结果中：“ “ JDKM ?输入交点桩号；“ JDX'?“JDY'?输入交点X、Y坐标；“ FWJ“？输入起点至交点方位角”ZJ“？输

43、入转角（终点方位角 -起点方位角之差，左转为负，右转为正） ;“LSI”？“LS2”？输入交点前段缓和曲线长度，交点后段缓和曲线长度；“T1” ？ “T2” ？输入交点前段切线长度，交点后段切线长度；”R” ?圆半径输出部分X=*正算时，计算得出的所求点的X坐标Y=*正算时，计算得出的所求点的 Y坐标FWJ=* 正算时，计算得出的所求点的至置仪点方位角S=* 正算时，计算得出的所求点的至置仪点距离KM =*反算时，计算得出的所求点的里程D =*反算时，计算得出的所求点的边距H=*所求点位置设计计算面顶标咼1=*所求点位置设计路面横坡（D输0时为，本段路基纵坡）LGD=*所求点位置设计路面顶左半

44、幅标准宽度LGD=*所求点位置设计路面顶右半幅标准宽度LX=*边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。 （隧道程序中为超欠挖值，正为超挖，负为欠挖 ）TW=*边桩放样程序中，实测放样边坡点至止桩号设计顶填挖咼度值 （负为挖方值 , 正为填方值 ）H0=* 隧道放样程序中测量点至设计面高度 四、结束语 1、本套程序实例线路给二条，如标段像匝道有多条线时，同理增加。2、 为了更好的开发计算器程序， 本人特建一 QC群,欢迎各位测友加入， QC群号是：24817026。3、 所有对程序有建议或问题的，加本人QQ后可以直接留言，由于工作原因，可能不能马上给予答复，敬请谅解！（加QQ为

45、好友时请注明:计算器程序 ）附后为坐标计算参数子程序 XI、X2和高程计算子程序 S1、S2数据来 源（ XI、S1 为 C 线，X2、S2 为 I 线）直线、曲线及转角表工程名称：广州至河源高速公路（惠州段）SJ-2合同段（第11标公庄立交C匝道）第1页共1页S11-6-5(3)交 点 号交点坐标曲线要素值（m）曲线主点桩号直线长度及方向N (X)E (Y)交点桩号转角值半径缓和曲缓和曲切线曲线夕卜距校正值第一缓和曲线第一缓和曲线终曲线中点第二缓和曲线起第二缓和曲线直线段交点间计算方位角备注线长度线参数长度长度起点点或圆曲线起点点或圆曲线终点终点长（m）距(m)123456789101112

46、131415161718192021BP2600509.148514063.566CK0+0000.0009999299° 43' 39"JD12599561.392515723.308C-K1+911.279183° 45 18.T6040.85780.000-1911.279241988CK0+000CK0+040.857CK0+100.138CK0+159.419CK0+241.086(Y)81.66770.000-1878.62365.720299° 43' 39"ID1-12600541.7

47、37514006.49588° 09 09.765.720(Y)130.09727° 52 48.8"ID1-22600656.733514067.33295° 36 08.4 “(Y)106.8310.000106.831123° 28 57.1 "EP2600597.796514156.435CK0+241.086工程名称：广州至河源高速公路（惠州段）SJ-2合同段（第11标公庄立交1匝道）第1页共1页S11-6-5(9)交 点 号交点坐标曲线要 素值 （m）曲线 主点桩 号直线长度及方向N (X)E (Y)交点桩号转角值半径缓和

48、曲缓和曲切线曲线夕卜距校正值第一缓和曲线第一缓和曲线终曲线中点第二缓和曲线起第二缓和曲线直线段交点间计算方位角备注线长度线参数长度长度起点点或圆曲线起点点或圆曲线终点终点长(m)距(m)123456789101112131415161718192021BP2600695.670514488.986IK0+000162.20358° 49 17.2"JD12600779.643514627.760IK0+162.20364° 54 08.7"18093.889130.000162.203273.00635.51327.169IK0+000IK0+093.8

49、89IK0+146.228IK0+198.567IK0+273.006(Y)74.438150.000137.972206.926123° 43' 25.9 "JD22600664.760514799.865IK0+341.96015° 58 49.5"4450068.954193.2215.31071.006IK0+273.006IK0+300.510IK0+328.015(Y)138.211248.000125.273125.273139° 42' 15.5"EP2600569.212514880.883IK0+4

50、66.2271 / 22桩号坐标N (X)E (Y)CKO+OOO2600509.148514063.566CK0+0202600520.937514047.468CK0+0402600536.548514035.086CK0+040.8572600537.297514034.668CK0+0602600555.256514028.277CK0+0802600575.161514027.965CK0+1002600594.072514034.182CK0+1202600609.909514046.245CK0+1402600620.926514062.826CK0+159.4192600625

51、.860514081.521CK0+1602600625.913514082.099CK0+1802600624.611514101.986CK0+2002600618.432514120.970CK0+2202600609.161514138.676CK0+2402600598.395514155.529CK0+241.0862600597.796514156.435桩号坐标桩号坐标N (X)E (Y)N (X)E (Y)IKO+OOO2600695.670514488.986IK0+4202600604.295514850.784IK0+0202600705.956514506.138IK0+4402600589.184514863.884IK0+0402600715.833514523.528IK0+4602600573.960514876.856IK0+0602