Fx5800计算器程序对称平曲线.docx

1、Fx5800计算器程序对称平曲线Fx-5800计算器程序一、 程序名称：B-D-PQX(对称平曲线)Prog “ZJZB”:“A”?A：“R”?R：“LS”?L：“JDL”?N：“JX”?U：“JY”?V：“F”?F：180/RZ:ZL/2B:L2/24/R- L(4)/2688/R(3)+L(6)/506880/R(5)P:L/2-L(3)/240/R(2)+L(5)/34560/R(4) Q“T=”:(R+P)tan(Abs(A/2)+QT“L=”:(Abs(A)-2B)/Z+2Lo“E=”(R+P)/Cos(Abs(A/2)-RE“ZH=”:N-TE“HY=”:E+LZ1“QZ=”:E+

2、o/2Z2“YH=”:E+o-LZ3“HZ=”:E+oZ4LbI 8: “XL”?M:Prog“ZBJS”:Goto 8二、子程序：ZBJS180/RZ:ZL/2B:L(2)/24/R-L(4)/2688/R(3) +L(6)/506880/R(5)P:L/2-L(3)/240/R(2)+L(5)/34560/R(4)Q(R+P)tan(Abs(A/2)+QT(Abs(A)-2B)/Z+2Lo(R+P)/Cos(Abs(A/2)-REN-TEE+LZ1E+o/2Z2E+o-LZ3E+oZ40W:0Y:If ME:Then M-EX:Goto 3:IfEnd:If MZ1:Then Goto 1

3、:IfEnd:If MZ3:Then Goto 2:IfEnd:If MZ4:Then Goto 1:IfEnd: If MZ4:Then Z4-MX:Goto 3:IfEndLbI 1:If MZ1:Then M-EG:EIse Z4-MG: IfEnd:G-G(5)/(40R(2)L(2)+G(9)/3456/(RL)(4) X:G(3)-(6RL)-G(7)/(336R(3)L(3)+G(11)/42240/(RL)(5)Y:ZG(2)/2/LW:Goto 3LbI 2:M- Z1G:RSin(B+GZ)+QX:R-RCos(B+GZ)+PY:B+ZGWLbI 3:If MZ3:Then

4、 F+AC:If A0:Then C+90D:IfEnd:EIse C-90D:IfEnd:EIse F+180C:If A0:Then F+90D:EIse F-90D: IfEnd: IfEnd“X=”:U+(T-X)Cos(C)+YCos(D)Z7“Y=”: V+(T-X)Sin(C)+Y Sin(D)Z8Z7Z5: Z8Z6:Prog “J”LbI 4:“BZ”?S:If MZ3:Then Goto 5:EIse Goto 6:IfEndLbI 5:FC:If A0:Then -WW:EIse WW:IfEnd:Goto 7LbI 6:F+AC:If A0:Then -WW:EIse

5、WW:IfEndLbI 7:“X=”:Z7+SCos(C+W+90)Z5“Y=”:Z8+SSin(C+W+90)Z6Prog“J”三、子程序：JI=PoI(Z5-H, Z6-K):If J0:Then J+360J:EIse JJ: IfEnd“F=”:JDMS“D=”:I四、子程序：ZJZB30Dim Z:“HX”?Z5:“HY”?Z6: “ZX”?H: “ZY”?K:Prog“J”五、B-D-PQX(对称平曲线)说明1、代表计算器中显示符号（黑色实心三角符号，在计算器中输入方法：SHIFT+X2）。2、DMS在计算器中输入方法：FUNCTION+5+4。3、在程序中小写字母o代表大写字母O

6、，而0代表阿拉伯数字零，请注意区分。4、该程序只适用于对称平曲线放样，放样方法：方位角放样。5、该程序放样范围为该曲线及相邻两段直线。程序输入说明：HX？输入后视点X坐标 HY？输入后视点Y坐标ZX？输入置仪点X坐标 ZY？输入置仪点Y坐标F=显示置仪点至后视点方位角 D=显示置仪点至后视点水平距离A？输入偏角（左“-”右“+”） R？输入平曲线半径LS？输入缓和曲线长度 JDL？输入平曲线交点里程JX？输入交点X坐标 JY？输入交点Y坐标F？输入起边方位角 T=显示平曲线切线长度L=显示平曲线曲线长度 E=显示平曲线外距值ZH=显示直缓点里程 HY=显示缓圆点里程QZ=显示曲中点里程 HZ=

7、显示缓直点里程XL？输入放样点里程 X=显示放样点中桩X坐标Y=显示放样点中桩Y坐标 F=显示放样方位角D=显示置仪点至放样点距离 BZ？输入边距（左“-”右“+”，例如：放样左侧10m，输入-10，右侧8m则输入8）X=显示边桩X坐标 Y=显示边桩Y坐标F=显示放样方位角 D=显示置仪点至边桩距离XL？输入下一个放样点里程，从而至使程序循环运行。示例：JD20曲线要素：交点里程：K18+494.346 交点X坐标：2330.436 交点Y坐标：54893.459 半径（R）：150 缓和曲线（LS）长度：65 曲线偏角：右转554724 起边方位角(F): 2754430置仪点：X=2474

8、.344 Y=54806.836 后视点：X=2348.293 Y=54912.880HX？输入2348.293 HY？输入54912.880ZX？输入2474.344 ZY？输入54806.836F=显示1395537 D=显示164.725A？输入554724 R？输入150LS？输入65 JDL？输入494.346JX？输入2330.436 JY？输入54893.459F？输入2754430 T=显示112.474L=显示211.058 E=显示21.046ZH=显示381.872 HY=显示446.872QZ=显示487.401 YH=显示527.930 HZ=显示592.930XL？

9、输入360 X=显示2316.996 Y=显示55027.131F=显示1253212 D=显示270.718 BZ？输入-5X=显示2312.021 Y=显示55026.631 F=显示126-26-48D=显示273.237 XL? 输入360 X=显示2316.996 Y=显示55027.131 F=显示125-32-12 D=显示270.718 BZ？输入5 X=显示2321.971 Y=显示55027.631F=显示124-36-36 D=显示268.269 XL？输入下一个里程（循环运行）XL？400 BZ？右5m BZ？左5mX=2321.099 X=2326.064 X=231

10、6.133Y=54987.342 Y=54987.926 Y=54986.758F=130-19-50 F=129-18-40 F=131-19-34D=236.784 D=234.053 D=239.589XL？480 BZ？右5m BZ？左5mX=2344.012 X=2348.307 X=2339.718Y=54911.378 Y=54913.939 Y=54908.817F=141-15-58 F=139-38-35 F=142-51-20D=167.079 D=165.398 D=168.891XL？560 BZ？右5m BZ？左5mX=2400.661 X=2403.285 X=2

11、398.037Y=54856.075 Y=54860.331 Y=54851.819F=146-14-50 F=143-01-36 F=149-28-51D=88.621 D=88.944 D=88.579XL？600 BZ？右5m BZ？左5mX=2435.524 X=2437.908 X=2433.141Y=54836.476 Y=54840.871 Y=54832.081F=142-38-14 F=136-57-05 F=148-30-17D=48.842 D=49.860 D=48.322JD21曲线要素：交点里程：K18+928.675 交点X坐标：2724.458 交点Y坐标：54

12、679.804 半径（R）：150 缓和曲线（LS）长度：65 曲线偏角：左转755021 起边方位角(F): 3313154置仪点：X=2474.344 Y=54806.836 后视点：X=2348.293 Y=54912.880HX？输入2348.293 HY？输入54912.880ZX？输入2474.344 ZY？输入54806.836F=显示1395537 D=显示164.725A？输入-755021 R？输入150LS？输入65 JDL？输入928.675JX？输入2724.458 JY？输入54679.804F？输入3313154 T=显示150.216L=显示263.547 E=

13、显示41.630ZH=显示778.459 HY=显示843.459QZ=显示910.232 YH显示977.005 HZ=显示1042.005XL？输入760 X=显示2576.179 Y=显示54760.207F=显示3352351 D=显示112.003 BZ？输入-5X=显示2573.796 Y=显示54755.812 F=显示332-50-23D=显示111.777 XL? 输入760 X=显示2576.179 Y=显示54760.207 F=显示335-23-51 D=显示112.003 BZ？输入5 X=显示2578.563 Y=显示54764.602F=显示337-56-25 D

14、=显示112.451 XL？输入下一个里程（循环运行）XL？800 BZ？右5m BZ？左5mX=2611.260 X=2613.747 X=2608.773Y=54740.990 Y=54745.328 Y=54736.653F=334-18-58 F=336-11-30 F=332-25-54D=151.926 D=152.370 D=151.647XL？900 BZ？右5m BZ？左5mX=2681.899 X=2686.333 X=2677.465Y=54672.358 Y=54674.669 Y=54670.048F=327-03-37 F=328-03-29 F=326-02-33

15、D=247.312 D=249.815 D=244.886XL？1000 BZ？右5m BZ？左5mX=2696.480 X=2701.416 X=2691.543Y=54575.230 Y=54574.437 Y=54576.022F=313-48-15 F=314-20-09 F=313-15-34D=320.914 D=324.917 D=316.939XL？1100 BZ？右5m BZ？左5mX=2673.004 X=2677.849 X=2668.159Y=54478.051 Y=54476.816 Y=54479.287F=301-08-29 F=301-39-35 F=300-3

16、6-48D=384.142 D=387.721 D=380.595对称平曲线（可建立数据库）一、 程序名称：A-D-LCP1、假如该标段有7个交点的程序建立：30DimZ: “HX”?Z5:“HY”?Z6: “ZX”?H: “ZY”?K:Prog“J”LbI 9:“XL”?M:If M400:Then Prog“JD1”:EIse If M600:Then Prog“JD2”:EIse If M800:Then Prog“JD3”:EIse If M980:Then Prog“JD4”:EIse If M1200:Then Prog“JD5”:EIse If M1500:Then Prog“J

17、D6”:EIse Prog“JD7”:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd: IfEnd:Goto92、假如该标段有9个交点的程序建立：30DimZ: “HX”?Z5:“HY”?Z6: “ZX”?H: “ZY”?K:Prog“J”LbI 9:“XL”?M:If M400:Then Prog“JD1”:EIse If M600:Then Prog“JD2”:EIse If M800:Then Prog“JD3”:EIse If M980:Then Prog“JD4”:EIse If M1200:Then Prog“JD5”:EIse If M1500:Then Prog“J

18、D6”:EIse If M1800:Then Prog“JD7”: EIse If M2000:Then Prog“JD8”:EIse Prog“JD9”:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd: IfEnd: IfEnd: IfEnd:Goto93、假如该标段有11个交点的程序建立：30DimZ: “HX”?Z5:“HY”?Z6: “ZX”?H: “ZY”?K:Prog“J”LbI 9:“XL”?M:If M400:Then Prog“JD1”:EIse If M600:Then Prog“JD2”:EIse If M800:Then Prog“JD3”:EIse If

19、M980:Then Prog“JD4”:EIse If M1200:Then Prog“JD5”:EIse If M1500:Then Prog“JD6”:EIse If M1800:Then Prog“JD7”: EIse If M2000:Then Prog“JD8”: EIse If M2130:Then Prog“JD9”: EIse If M2200:Then Prog“JD10”:EIse Prog“JD11”:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd: IfEnd: IfEnd: IfEnd: IfEnd: IfEnd:Goto9说明：1、 根据上述三种情况可根

20、据实际情况对该程序（A-D-LCP）进行局部根改，红色部分是可以进行修改的。例如:“M400”中400代表的是JD1与JD2之间直线段上的桩号，“JD1JD11”要进行根改时除非数据库中名称发生改变。2、“IfEnd”的个数取决于交点个数，例如:有7个交点结尾时必须有6个“IfEnd”；有9个交点时结尾必须有8个“IfEnd”；有11个交点时必须有10个“IfEnd”。3、该程序最多可存储17个交点，若交点太多可有两个或两个以上同样的程序进行存储。4、程序完成运行正确后，在交点范围内任意点桩号都可以进行放样，免除了每次测量时都需输入曲线要素这一个环节。5、程序名为：“ZBJS”的程序也是该程序

21、的一个子程序。6、在路线中有断链时，需根据断链位置来确定M值。二、数据库的建立：（子程序）1、根据施工设计图可得知的曲线要素如下：JD1的曲线要素：交点里程：K0+247.815 交点X坐标：2579154.343 交点Y坐标：906527.4114 半径（R）：160 缓和曲线（LS）长度：0 曲线偏角：右转383308 起边方位角(F): 3462801JD2的曲线要素：交点里程：K0+501.097 交点X坐标：2579387.714 交点Y坐标：906636.3292 半径（R）：600 缓和曲线（LS）长度：0 曲线偏角：右转54600 起边方位角(F): 250109JD3的曲线要

22、素：交点里程：K0+659.124 交点X坐标：2579523.517 交点Y坐标：906717.2384 半径（R）：300 缓和曲线（LS）长度：0 曲线偏角：右转180623 起边方位角(F): 304709JD4的曲线要素：交点里程：K0+904.132 交点X坐标：2579685.128 交点Y坐标：906902.4459 半径（R）：90 缓和曲线（LS）长度：0 曲线偏角：右转413018 起边方位角(F): 485332JD5的曲线要素：交点里程：K1+097.035 交点X坐标：2579683.770 交点Y坐标：907098.3531 半径（R）：60 缓和曲线（LS）长度

23、：0 曲线偏角：左转520157 起边方位角(F): 902350JD6的曲线要素：交点里程：K1+429.804 交点X坐标：2579947.887 交点Y坐标：907307.425 半径（R）：150 缓和曲线（LS）长度：0 曲线偏角：右转372324 起边方位角(F): 382153JD7的曲线要素：交点里程：K1+586.834 交点X坐标：2579987.421 交点Y坐标：907463.1432 半径（R）：150 缓和曲线（LS）长度：0 曲线偏角：左转414953 起边方位角(F): 754517JD8的曲线要素：交点里程：K1+958.991 交点X坐标：2580300.4

24、96 交点Y坐标：907673.7074 半径（R）：700 缓和曲线（LS）长度：0 曲线偏角：右转60801 起边方位角(F): 335523JD9的曲线要素：交点里程：K2+092.249 交点X坐标：2580402.547 交点Y坐标：907759.5081 半径（R）：200 缓和曲线（LS）长度：0 曲线偏角：左转123607 起边方位角(F): 400324JD10的曲线要素：交点里程：K2+174.864 交点X坐标：2580476.0163 交点Y坐标：907797.6801 半径（R）：150 缓和曲线（LS）长度：0 曲线偏角：右转175744 起边方位角(F): 272

25、717JD11的曲线要素：交点里程：K2+259.136 交点X坐标：2580535.4428 交点Y坐标：907857.9781 半径（R）：100 缓和曲线（LS）长度：0 曲线偏角：左转311128 起边方位角(F): 4525012、子程序建立：（数据库）子程序：JD138338A:160R:0L:247.815N:2579154.343U:906527.4114V: 346281F:Prog “ZBJS”子程序：JD25460A:600R:0L:501.097N:2579387.714U:906636.3292V: 2519F:Prog “ZBJS”子程序：JD318623A:300

26、R:0L:659.124N:2579523.517U:906717.2384V: 30479F:Prog “ZBJS”子程序：JD4413018A:90R:0L:904.132N:2579685.128U:906902.4459V: 485332F:Prog “ZBJS”子程序：JD5-52157A:60R:0L:1097.035N:2579683.77U:907098.3531V: 902350F:Prog “ZBJS”子程序：JD6372324A:150R:0L:1429.804N:2579947.887U:907307.425V: 382153F:Prog “ZBJS”子程序：JD7-4

27、14953A:150R:0L:1586.834N:2579987.421U:907463.1432V: 754517F:Prog “ZBJS”子程序：JD8681A:700R:0L:1958.991N:2580300.496U:907673.7074V: 335523F:Prog “ZBJS”子程序：JD9-12367A:200R:0L:2092.249N:2580402.547U:907759.5081V: 40324F:Prog “ZBJS”子程序：JD10175744A:150R:0L:2174.864N:2580476.0163U:907797.6801V: 272717F:Prog

28、“ZBJS”子程序：JD11-311128A:100R:0L:2259.136N:2580535.4428U:907857.9781V: 45251F:Prog “ZBJS”三、程序运行说明：运行程序：A-D-LCPHX？输入后视点X坐标 HY？输入后视点Y坐标ZX？输入置仪点X坐标 ZY？输入置仪点Y坐标F=显示置仪点至后视点方位角 D=显示置仪点至后视点水平距离XL？输入放样点里程 X=显示放样点中桩X坐标Y=显示放样点中桩Y坐标 F=显示放样方位角D=显示置仪点至放样点距离 BZ？输入边距（左“-”右“+”，例如：放样左侧10m，输入-10，右侧8m则输入8）X=显示边桩X坐标 Y=显示边桩Y坐标F=显示放样方位角 D=显示置仪点至边桩距离XL？输入下一个放样点里程，从而至使程序循环运行。