2022年P计算器程序[参 .pdf

《2022年P计算器程序[参 .pdf》由会员分享，可在线阅读，更多相关《2022年P计算器程序[参 .pdf（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

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

2、序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按19 数子约半秒，则选择1 至 9 的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。程序名：0（数子 0）1.主程序：一般坐标计算及放样程序程序名:1XY Prog DX :Prog QX :90 A:PJ1?A:A B:PJ2?B:A Z1:B Z9:Do:KM?Z:Z=-1=Stop:Z=-2=Break:ProgK:?D:0 L:L0?L:L Z10:Porg A:Z2+Z1 A:A-Z9 E:I+Dcos(A)+Z10cos(E X:J+Dsin(A)+Z1

3、0sin(E Y:Prog XY :Prog JS:LpWhile Z-1 2.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZD Prog QX:Do:KM?Z:Z=-1=Stop:Z=-2=Break:ProgK:XO?X:Y0?Y:PorgB:ProgZD :LpWhile Z-1 3.主程序：任意点高程计算及横坡程序名:3GC Prog QX :0 B:H-B?B:B Z9:Do:KM?Z:Z=-1=Stop:Z=-2=Break:?D:ProgH:Fix 3:H=:Lcoate 6,4,H-Z9：I=:Locate 6,4,I：LpWhile Z-1 4.主程序:任意桩号位置的标准

4、路基宽度计算程序名:4GD Prog QX :Do:KM?Z:Z=-1=Stop:Z=-2=Break:-1 D:Prog C:L P：1 D:ProgC:Fix 3:LGD=:Lcoate 6,4,P：RGD=:Locate 6,4,L：LpWhile Z -1 5、主程序:路基开挖边线及填方坡脚线放样程序程序名：4BP Prog DX:ProgQX:0.5B:TH-GD?B:B Z7:Do:KM?Z:Z=-1=Stop:Z=-2=Break:ProgK:“X0?X:Y0?Y:Z8 M：M0?M:M Z8:Porg B:D P:ProgC:If D0:Then Goto T:IfEnd:-G

5、 H:If HE+F:Then L+M+N+U+C(H-E-F)+BF+AE S:Goto 0:IfEnd:If HE:Then L+M+N+B(H-E)+AE S:Goto 0:IfEnd:If HW Then L+Z7+V+J(G-W)+IWS:Else L+Z7+GI S:IfEnd:LbI 0:Fix 2:P D：Abs（D）-ST:LX=:Locate 6,4,T：ProgZD:TW=:Lcoate 6,4,G LpWhile Z -1 6、主程序：定值放样路基桩计算填挖值名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 7 页 -程序名：6FM Prog DX :Pro

6、g QX :Do:KM?Z:Z=-1=Stop:Z=-2=Break:Prog K:?D:Porg A:Z2+90 A:I+Dcos(A X:J+Dsin(A Y:Prog XY :Prog JS:Z8 M:”M0”?M:M Z8:Prog“H”:”TW=”:Locate 6,4,H-Z8:LpWhile Z-1 7、主程序：桥梁锥坡计算放样程序名：7ZP Prog DX:ProgQX:Z0?Z:LD:Z-,Y+?D:Abs(D)R:LR?R:D Z7:R Z10:ZZ9:Prog”C”:L Z10:Prog”K”:Do:Z10 Y:L0:SZ+,DZ-?Y:Y=-1=Stop:Y=-2=Br

7、eak:(Z72（1-Y2/Z102）)X：Z9+Y Z:Prog”C”:If D0:Then L+X D:Else L-X D:IfEnd:Prog”A”:Z2+90 A:I+Dcos(A X:J+Dsin(A Y:ProgXY :ProgJS:LpWhile Y -1 8、主程序：由坐标计算方位角及距离程序名：8JS Prog DX:Do:?X:X=-1=Stop:X=-2=Break:?Y:Prog”JS”:LpWhile X-1 9、主程序：隧道超欠挖放样计算程序名：9SD Prog DX :0.65 A:”CQHD”?A:A Z7:Do:KM?Z:Z=-1=Stop:Z=-2=Bre

8、ak:Prog K:“X0?X:Y0?Y:Z8 M：M0?M:M Z8:Porg B:D Z9:0 D:Prog”H”:Prog”SD1”:Z9 D:Z8 M:Z7 X:Rcos(P C:H+A A:H+B B:C+A E:If MGoto 1:(S2-(B-A)2)S Abs(S T:Abs(D-Q)-T T:(T2+(M-B)2)-V-X L:Goto 0:IfEnd:LbI 1:(D-Q)2+(M-A)2)-R-XL:LbI 0:Fix 2:”LX=”:Locate 6,4,L:Prog”ZD”:“H0=”:Locate 6,4,M-H LpWhile Z-1 10.交点法正算子程序()

9、程序名：A PAbs(PW:O-T+RAbs(P)180+H2-N2Q:H C:0M:If Z O-T:Then Z-O S:GZ2:Goto 1:IfEnd:If Z O-T+H:Then Z-O+T S:Prog“HX”:G+WK Z2:A-T A:GE:Goto 2:IfEnd:If Z Q:Then 180(Z-O+T-0.5H)R S:Prog”AB”:A+R(1-Cos(S E：B+Rsin(S A:E B:RM:G+WS Z2:A-T A:GE:Goto 2:IfEnd:If Z Q+N:Then Q+N-Z S:N H:Prog“HX”:G+PE:E-WK Z2:F-A A:C

10、 H:Goto 2:IfEnd:Z-Q-N+F S:G+PZ2:LbI 1:U+Scos(Z2 I:V+Ssin(Z2 J:Return:LbI 2:U+Acos(E)-WBsin(E I:V+Asin(E)+WBcos(EJ 11.交点法反算子程序()程序名：B 0 D:Do:Z+D D:Prog”A”:Pol(X-I,Y-J+10-9:J-Z2 J:Isin(J S:Icos(J D:If M 0:Then Pol(M-WS,D:JM 180D:IfEnd:LpWhile Abs(D.001:Z+D Z:SD 12.缓和曲线段直角坐标计算子程序(B)程序名：AB H2R 24-H(4)26

11、88R(3)+H (6)506880R(5)-H(8)154828800R(7)A:H 2-H(3)240 R2+H (5)34560 R(4)-H (7)8386560 R(6)+H (9)3158507520R(8)B 13.计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HX S-S(5)40R2H2+S(9)3456R(4)H(4)-S(13)599040R(6)H(6)+S(17)175472640 R(8)H(8)A:S(3)6 R H-S(7)336 R(3)H(3)+S(11)42240R(5)H(5)-S(15)9676800 R(7)H(7)+S(19)353009700

12、0 R(9)H名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 7 页 -(9)B:90S2 R H K:If S=0:Then 0 M:Else RH SM:IfEnd 14高程计算子程序（H）程序名：H Prog“S1”:N-I A:A Abs(A W:R Abs(A 2 T:If ZC-T:Then G+I(Z-C H:Goto 0:IfEnd:If ZC+T:Then G-TI+(I+(Z-C+T)W2 R)(Z-C+T H:Goto 0:IfEnd:N I:G+I(Z-C H:ILbI 0:If D=0:Then H H:Return:Else Prog“I”:H+I(A

13、bs(D)-K H:IfEnd 15.高程超高计算横坡子程序（I）程序名：I Prog“I1”：If S=0:Then M I:Return:Else If W=1:Then(N-M)(Z-C)S+M I:Return:Else(3(Z-C)S)2-2(Z-C)S)(3)(N-M)+M I:IfEnd:16路基宽度子程序程序名：C 1S:Prog“G1”:Z-CE:(B-A)E S+AL 17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JS Z5K：Z6L:Pol(X-K,Y-L:IF J0:Then J+360J:IFEnd:Int(J)+0.01Int(60Frac(J)+

14、0.006Frac(60Frac(JJ:Fix 4:”FWJ=”:Locate 6,4,J：Fix 3:”S=”:Locate 6,4,I 18导线点子程序（DX）程序名：DX Z5 K:Z6 L:“XZ”?K:”YZ”?L:K Z5:L Z6 19线路选择子程序(线路选择输0 时。则输曲线参数（QX）程序名：QX 1A:”QX:X1=1,X2=2”?A:AZ4:If A=0:Then”JDKM”?O:”JDX”?U:”JDY”?V:”FWJ”?G:”ZJ”?P:”LS1”?H:”LS2”?N:”T1”?T:”T2”?F:?R:IFEnd 20线路中线元段判别子程序（K）程序名：K If Z3

15、=0:Then Return:IfEnd:If Z3=1:Then Prog“X1”:Return:IfEnd：If Z3=2:Then Prog“X2”:Return:IfEnd 21坐标参数矩阵调用程序（F）程序名：F Mat 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:Mat F1,9 F:Mat F1,10 R 22显示子程序程序名：XY ix 3:=：Locate 6,4,：Locate 6,4,：程序名：ZD Fix 3:：Locate 6,4,：Locate

16、 6,4,23数据子程序(附后示例)匝道线元转交点数据程序（T）程序名：T Norm 2:“QKM”？Z：“XQ”？U：“YQ”？V：“LS1”？M：“LS2”？O：“A1”？A：“A2”？B：“FWJ“？G：”ZJ“？P：？R：P Abs(P Q:A2R H:HM H:H-M S:B2R N:N-O C:O N=O N:H=0=10-9 H:HX:90S2(RH K:G-QK G:N=0=10-9N:90C2(RND:P+QK+QD P:Prog”AB”:(H2-H2)24Rsin(Abs(P)-(H(4)-N(4)2688R(3)名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共

17、 7 页 -sin(Abs(P)+(H(6)-N(6)506880R(5)sin(Abs(P)-(H (8)-N(8)154828800R(7)sin(Abs(PE:(R+A)tan(Abs(P)2)+B-ET:N H:Prog”AB”:(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=”:Locate 6,4,U:”JDY=”:Locate 6,4,V:”FWJ=”:G?DMS”ZJ=”P?DMS

18、”LS1=”:Locate 6,4,H:”LS2=”:Locate 6,4,N:”T1=”:Locate 6,4,T:”T2=”:Locate 6,4,F”R=”:R 说明：运行后“QKM”？输入起点桩号；“XQ”？“YQ”？输入起点X、Y 坐标；“LS1”？“LS2”？输入前段缓和曲线长度，后段缓和曲线长度；“A1”？“A2”？输入前段缓和曲线参数，后段缓和曲线参数；“FWJ“？输入起点切线方位角；”ZJ“？输入转角（终点方位角减起点方位角之差，左转为负，右转为正）；计算结果要素同QX 子程序中要素字母。-1 程序名：X1（线路 1 坐标计算要素程序）If Z241.086:Then-336

19、.478，2600441.639，514392.519，280。2028.78”，203。0828.32”，106.667，81.667，-270.668，-283.056，60 Mat F:Prog”F”:IfEnd-2 程序名：X2（线路 2 坐标计算要素程序）If Z273.006:Then 171.674，2600784.547，514635.863，58。4917.2”，68。0926.91”，93.889，125，674.184，771，180 Mat F:Prog”F”:Return:IfEndIf Z466.227:Then 341.96，2600664.76，514799.8

20、65，123。4325.9”，15。5849.5”,0，138.211，68.954，125.273，445 Mat F:Prog”F”:Return:IfEnd 说明：1、交点法：If Z 计算交点段终点桩号：Then交点桩号，交点X 坐标，交点Y 坐标，起点至交点方位角，交点转角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点前段切线长度，交点后段切线长度，圆半径 Mat F:Prog”F”:Return:IfEnd（转角则为交点段终点方位角减起点方位角，分正负，左偏为负，右偏为正）如整条线无曲线，全为直线段，则交点为终点桩号，XY为终点坐标，方位角为起点方位角，转角和圆半径为1，其它全

21、为0。-1 程序名：S1(线路 1 高程竖曲线要素子程序)If Z3=1:Then Goto 1:Else Prog“S2”:Return:IfEnd:LbI 1:If Z 241.09:Then 95.356C:40.742G:2000R:-.03155 I:.00812N:IfEnd:-2 程序名：S2(线路 2 高程竖曲线要素子程序)If Z 133.601:Then 106 C:45.12 G:1525R:-.0064I:.0298 N:Return:IfEnd:If Z 466.23:Then 298C:50.841 G:1945R:.0298I:-.01968N:Return:If

22、End:程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；R-竖曲线半径；I竖曲线前纵坡;N竖曲线后纵坡-1 程序名：I1（线路 1 高程超高参数子程序）0K:1 W:If Z4=1:Then Goto 1:Else Prog“I2”:Return:IfEnd:LbI 1:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z 159.419:Then 0 S:.06M:Return:IfEnd:If Z 187.987:Then 28.568 S:159.419C:.06M:.02N:Return:IfEnd:If Z241.086:

23、Then 0S:.02M:Return:IfEnd:LbI R:If Z 159.419:Then 0 S:-.06 M:Return:IfEnd:If Z 187.987:Then 28.568S:159.419C:-.06 M:-.02 N:Return:IfEnd:If Z241.086:Then 0S:.-02M:Return:IfEnd-2 程序名：I2（线路 2 高程超高参数子程序）If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z 77.872:Then 0 S:.02M:Return:IfEnd:If Z 93.889:Then 16.

24、017 S:77.872C:.02M:.05 N:Return:IfEnd:If Z198.567:Then 0 S:.05M:Return:IfEnd:If Z 273.006:Then 74.439 S:198.567 C:.05 M:.02 N:Return:IfEnd:If Z335:Then 0 S:.02 M:Return:IfEnd:Z 346.235:Then 11.235 S:335 C:.02 M:.015 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 7 页 -N:Return:IfEnd:LbI R:If Z 77.872:Then 0S:-.02M:R

25、eturn:IfEnd:If Z 93.889:Then 16.017 S:77.872C:-.02M:-.05 N:Return:IfEnd:If Z 198.567:Then 0 S:-.05M:Return:IfEnd:If Z273.006:Then 74.439S:198.567C:-.05M:-.02 N:Return:IfEnd:If Z335:Then 0 S:-.02 M:Return:IfEnd:Z 346.235:Then 11.235 S:335 C:-.02 M:-.015 N:Return:IfEnd:子程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离

26、，无分隔带则为0）；W超高方式参数（W=1 为一般直线方式超高，W=2 为三次抛物线方式超高）;S超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。-1 程序名：G1(线路 1 路基标准半幅宽度参数子程序)If Z4=1:Then Goto 1:Else Prog“G2”:Return:IfEndLbI 1:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z 241.086:Then Z C:3.5A:Return:IfEnd:LbI R:Z40.85

27、7:Then 0C:5 A:5.25 B:40.857S:Return:IfEnd:If Z159.419:Then ZC:5.25A:Return:IfEnd:Z 187.987:Then 159.419 C:5.25 A:5.5 B:28.568 S:Return:IfEnd:If Z 241.086:Then Z C:5.5 A:Return:IfEnd-2 程序名：G2(线路 2 路基标准半幅宽度参数子程序)If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z 466.227:Then Z C:3.5A:Return:IfEnd:LbI R:Z

28、321.611:Then Z C:5 A:Return:IfEnd:If Z 346.235:Then 321.611 C:5 A:5.75 B:24.624 S:Return:IfEnd:If Z 466.227:Then ZC:5.75 A:Return:IfEnd 子程序中字母表示说明：C宽度渐变段起点桩号（不是渐变段C=Z）；A宽度渐变段起点宽度;B宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。-1 程序名：SD1(隧道参数子程序)If Z4=1:Then 5.1 R:1.8A:1.4 V:1.8B:0Q:109。01 30”P:Return:

29、IfEnd:If Z4=2:Then 8.75 R:-1.1A:4.77V:1.47 B:-.25Q:51。2857.1”P:Return:IfEnd:子程序中字母表示说明：R隧道上拱半径；A隧道上拱圆心至设计面高度；V隧道中腰部半径；B中腰圆心至设计面高度；Q设计隧道中线与设计路基中线偏移值，左为负数，右为正数；P上部拱跨隧道半幅角度；-1 程序名：W1(线路 1 路基填挖边坡参数子程序)If Z 4=1:Then Goto 1:Else Prog“W2”:Return:IfEnd:LbI 1:10 E:10 F:2.6 M:2 N:2 S:1.5 I:1.75 J:8 W:2 V:If D

30、0:Then Goto L:Else Goto R:IfEnd:LbI L:1 A:1.25B:1.25C:Return:LbI R:If Z 110:Then 1.25A:1.25B:1.5C:Return:Else Goto L:IfEnd-2 程序名：W2(线路 2 路基填挖边坡参数子程序)10 E:10F:2.6M:2N:2S:1.5I:1.75J:8W:2 V:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:0.75 A:0.75 B:0.75C:Return:LbI R:If Z445:Then Goto L:Else If Z506.9:The

31、n 0.25(Z-445)21.2Q:.75+QA:A B:AC:Return:IfEnd 子程序中字母表示说明：A挖方第一阶边坡边率；B挖方第二阶边坡边率；C挖方第三阶边坡边率；E挖方第一阶高名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 7 页 -度；F挖方第二阶高度；M挖方路基碎落台及水沟宽度；N挖方第二台阶平台宽度；S挖方第三台阶平台宽度；I填方第一阶边坡边率；J填方第二阶边坡边率;W填方第一阶高度；V-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序5BP 程序相应增加。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判

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

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

34、所求点的里程（反算输入大概桩号）输入-1，返回输入选择计算类型，输入-2,返回选择线路。？正算时所求点距中线的边距(左侧取负值,右侧取正值，在中线上取零)X0？反算时所求点的X 坐标（放样程序中实测X 坐标）Y0？反算时所求点的Y 坐标（放样程序中实测Y 坐标）显示部分：L0?涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.(即涵洞半幅宽度)M0?放样程序中原地面标高输入H-B？计算面至路面高差（默认路面为0）PJ1?PJ2?PJ1为路线中线与边线的右夹角。第二夹角为边线至路前进方向夹角,默认值均为90 度.TH-GH？边坡放样中填方超放宽值，默认值为0.5m.LD:Z-,Y+?桥梁锥坡向

35、左右方向边长，左为负数，右为正数。(即为锥坡高程减地面高程后乘以填方坡比)LR?锥坡向路线前进或向后退方向边长。Z0?锥坡顶边桩号L0:SZ+,DZ-?锥坡放样中，椭圆上分段放样距离，小桩号锥坡输正数，大桩号锥坡输负数。“CQHD”?隧道超欠挖程序中衬砌厚度,默认值为 0.5m.QX 子程序中和T 程序结果中：“JDKM”？输入交点桩号；“JDX”？“JDY”？输入交点X、Y坐标；“FWJ“？输入起点至交点方位角”ZJ“？输入转角（终点方位角-起点方位角之差，左转为负，右转为正）;“LS1”？“LS2”？输入交点前段缓和曲线长度，交点后段缓和曲线长度；“T1”？“T2”？输入交点前段切线长度，

36、交点后段切线长度；”R”?圆半径输出部分X=*正算时，计算得出的所求点的X 坐标Y=*正算时，计算得出的所求点的Y 坐标名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 7 页 -FWJ=*正算时，计算得出的所求点的至置仪点方位角S=*正算时，计算得出的所求点的至置仪点距离=*反算时，计算得出的所求点的里程=*反算时，计算得出的所求点的边距H=*所求点位置设计计算面顶标高I=*所求点位置设计路面横坡（D 输 0 时为，本段路基纵坡）LGD=*所求点位置设计路面顶左半幅标准宽度LGD=*所求点位置设计路面顶右半幅标准宽度LX=*边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移

37、。(隧道程序中为超欠挖值，正为超挖，负为欠挖)TW=*边桩放样程序中，实测放样边坡点至止桩号设计顶填挖高度值(负为挖方值,正为填方值)H0=*隧道放样程序中测量点至设计面高度四、结束语1、本套程序实例线路给二条，如标段像匝道有多条线时，同理增加。2、为了更好的开发计算器程序，本人特建一QQ 群，欢迎各位测友加入，QQ 群号是：24817026。3、所有对程序有建议或问题的，加本人 QQ 后可以直接留言，由于工作原因，可能不能马上给予答复，敬请谅解！(加 QQ 为好友时请注明:计算器程序)附后为坐标计算参数子程序X1、X2 和高程计算子程序S1、S2 数据来源（X1、S1 为 C 线，X2、S2

38、 为 I 线）交点数据均需先运行T 程序，计算出交点数据例如 X1 要素：先运行 T 程序，输入表中C 线参数：QKM 输 0；XQ 输 2600509.148；YQ 输 514063.566；LS1 输 40.857;LS2 输 81.667;A1 输 80，A2 输 70；FWJ 输 299。4339“；ZP 输 183。4518.1“;R输 60。计算后各要素结果记录在本上，再对应做X1 子程序就可以了。1、附带坐标计算面积小程序程序名：XY-S 0Q：Norm 2:1 I:?N:X1?X：Y1?Y：X A：Y B:X E:YF:Do:“XN?X：YN?Y：Q+(XF-YE)2Q:X E

39、:YF:I+1 I:Lpwhile I N：Q+(AF-BE)2S:MIAN JI=：Abs(S(运行后 N？，输入点数，然后输入第一点坐标，再着输入2 点一直输入N 点后就出来面积)2、另附一个导线点数据库程序：先修改原DX 子程序：程序名：DX Z5 K:Z6 L:“XZ”?K:If K=0:Then Prog”DX1”:Goto 0:IfEnd:”YZ”?L:LbI 0:K Z5:L Z6 导线点坐标存储程序程序名：DX1 0A：Do:”PH:A(1),B(2),C(3),D(4)”?A:If A=11:Then 11468.425 K:2275.035 L:Goto 0:IfEnd:If A=21:Then 11800.525K:4275.135 L:Goto 0:IfEnd:If A=31:Then 10500.05K:4575.635L:Goto 0:IfEnd:If A=41:Then 9500.05K:3575.635L:Goto 0:IfEnd:LbI 0:”XZ=”Locate 6,4,K:”YZ=”Locate 6,4,L:0 B:”OK”?B:LpWhile B 0 说明：在输导线点坐标时，X 输 0 则调出导线点存储程序，输入编号的数，则出来对应的XY 坐标，（编号可按字母用数子排）名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 7 页 -