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?输入下一个放样点里程,从而至使程序循环运行。
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1