Fx5800计算器程序(对称平曲线)

实用标准文案Fx-5800计算器程序一、 程序名称：B-D-PQX(对称平曲线)Prog“ZJZB”:“A”?→A：“R”?→R：“LS”?→L：“JDL”?→N：“JX”?→U：“JY”?V：“F”?→F：180/π/R→Z:ZL/2→B: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))+Q→T▲“L=”:(Abs(A)-2B)/Z+2L→o▲“E=”(R+P)/Cos(Abs(A/2))-R→E▲“ZH=”:N-T→E▲“HY=”:E+L→Z〔1〕▲“QZ=”:E+o/2→Z〔2〕▲“YH=”:E+o-L→Z〔3〕▲“HZ=”:E+o→Z〔4〕▲LbI8: “XL”?→M:Prog“ZBJS”:Goto8二、子程序：ZBJS180/π/R→Z:ZL/2→B: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))+Q →T(Abs(A)-2B)/Z+2L→o(R+P)/Cos(Abs(A/2))-R →EN-T→EE+L→Z〔1〕E+o/2→Z〔2〕E+o-L→Z〔3〕E+o→Z〔4〕0→W:0→Y:If M≤E:ThenM-E→X:Goto3:IfEnd:If M≤Z〔1〕:ThenGoto1:IfEnd:IfM≤Z〔3〕:ThenGoto2:IfEnd:If M＜Z〔4〕:ThenGoto1:IfEnd: If M≥Z〔4〕:ThenZ〔4〕-M→X:Goto3:IfEndLbI 1:If M≤ Z〔 1〕 :Then M-E→ G:EIse Z〔 4〕 -M→ G: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:Goto3LbI2:M-Z 〔1〕→G:RSin(B+GZ)+Q→X:R-RCos(B+GZ)+P→Y:B+ZG→WLbI3:IfM≥Z〔3〕:ThenF+A→C:IfA＞0:ThenC+90→D:IfEnd:EIseC-90→D:IfEnd:EIseF+180→C:IfA＞0:ThenF+90→D:EIseF-90→D:IfEnd:IfEnd文档实用标准文案“X=”:U+(T-X)Cos(C)+YCos(D)→Z〔7〕▲“Y=”:V+(T-X)Sin(C)+YSin(D) →Z〔8〕▲Z〔7〕→Z〔5〕:Z〔8〕→Z〔6〕:Prog “J”LbI4:“BZ”?→S:IfM≤Z〔3〕:ThenGoto5:EIseGoto6:IfEndLbI5:F→C:IfA＜0:Then-W→W:EIseW→W:IfEnd:Goto7LbI6:F+A→C:IfA＞0:Then-W→W:EIseW→W:IfEndLbI7:“X=”:Z〔7〕+SCos(C+W+90)→Z〔5〕▲“Y=”:Z〔8〕+SSin(C+W+90)→Z〔6〕▲Prog“J”三、子程序：JI=PoI(Z〔5〕-H,Z〔6〕-K):IfJ ＜0:ThenJ+360→J:EIseJ→J:IfEnd“F=”:J◆DMS“D=”:I▲四、子程序：ZJZB30→DimZ:“HX”?→Z〔5〕:“HY”?→Z〔6〕:“ZX”?→H:“ZY”?→K:Prog“J”文档实用标准文案五、B-D-PQX(对称平曲线)说明1、▲——代表计算器中显示符号（黑色实心三角符号，在计算器中输入方法：2SHIFT+X）。2、◆DMS——在计算器中输入方法： FUNCTION+5+4。3、在程序中小写字母 o——代表大写字母 O，而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= ——显示缓直点里程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曲线偏角：右转55°47′24″起边方位角(F):275°44′30″置仪点：X=2474.344 Y=54806.836 后视点：X=2348.293Y=54912.880HX？——输入2348.293 HY ？——输入54912.880文档实用标准文案ZX？——输入2474.344 ZY ？——输入54806.836F=——显示139°55′37″ D= ——显示164.725A？——输入55°47′24″ R ？——输入150LS？——输入65 JDL ？——输入494.346JX？——输入2330.436 JY ？——输入54893.459F？——输入275°44′30″ T= ——显示112.474L=——显示211.058 E= ——显示21.046ZH=——显示381.872 HY= ——显示446.872QZ=——显示487.401 YH= ——显示527.930 HZ= ——显示592.930XL？——输入360 X= ——显示2316.996 Y=——显示55027.131F=——显示125°32′12″ D=——显示270.718 BZ ？——输入-5X=——显示2312.021 Y= ——显示55026.631F=——显示126-26-48D=——显示273.237 XL? ——输入360 X= ——显示2316.996Y=——显示55027.131 F=——显示125-32-12 D= ——显示270.718BZ？——输入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=2316.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=2398.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.579文档实用标准文案XL？—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坐标：54679.804半径（R）：150缓和曲线（LS）长度：65曲线偏角：左转75°50′21″起边方位角(F):331°31′54″置仪点：X=2474.344 Y=54806.836 后视点：X=2348.293Y=54912.880HX？——输入2348.293 HY ？——输入54912.880ZX？——输入2474.344 ZY ？——输入54806.836F=——显示139°55′37″ D= ——显示164.725A？——输入-75°50′21″ R ？——输入150LS？——输入65 JDL ？——输入928.675文档实用标准文案JX？——输入2724.458 JY ？——输入54679.804F？——输入331°31′54″ T= ——显示150.216L=——显示263.547 E= ——显示41.630ZH=——显示778.459 HY= ——显示843.459QZ=——显示910.232 YH ——显示977.005 HZ= ——显示1042.005XL？——输入760 X= ——显示2576.179 Y=——显示54760.207F=——显示335°23′51″ D=——显示112.003 BZ ？——输入-5X=——显示2573.796 Y= ——显示54755.812F=——显示332-50-23D=——显示111.777 XL? ——输入760 X= ——显示2576.179Y=——显示54760.207 F=——显示335-23-51 D= ——显示112.003BZ？——输入5 X= ——显示2578.563 Y= ——显示54764.602F=——显示337-56-25 D= ——显示112.451 XL？——输入下一个里程（循环运行）XL？—800 BZ？—右5m BZ？—左5mX=2611.260 X=2613.747 X=2608.773Y=54740.990 Y=54745.328 Y=54736.653文档实用标准文案F=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-33D=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-36-48文档实用标准文案D=384.142 D=387.721 D=380.595对称平曲线（可建立数据库）一、 程序名称：A-D-LCP1、假如该标段有 7个交点的程序建立：30→DimZ:“HX”?→Z〔5〕:“HY”?→Z〔6〕: “ZX”?→H:“ZY”?→K:Prog“J”LbI9:“XL”?→M:If M＜400:ThenProg“JD1”:EIseIf M＜600:ThenProg“JD2”:EIseIf M＜800:ThenProg“JD3”:EIseIf M＜980:ThenProg“JD4”:EIseIf M＜1200:ThenProg “ JD5” :EIse If M＜ 1500:Then Prog“ JD6” :EIse Prog“JD7”:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:Goto92、假如该标段有 9个交点的程序建立：30→DimZ:“HX”?→Z〔5〕:“HY”?→Z〔6〕: “ZX”?→H:“ZY”?→K:Prog“J”LbI9:“XL”?→M:If M＜400:ThenProg“JD1”:EIseIf M＜600:ThenProg“JD2”:EIseIf M＜800:ThenProg“JD3”:EIseIf M＜980:ThenProg“JD4”:EIseIf M＜1200:ThenProg“JD5”:EIseIf M＜1500:ThenProg“JD6”:EIseIf M＜1800:ThenProg“JD7”:EIse If M ＜ 2000:Then Prog “ JD8 ” :EIse Prog“JD9”:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:Goto93、假如该标段有11个交点的程序建立：30→DimZ:“HX”?→Z〔5〕:“HY”?→Z〔6〕: “ZX”?→H:“ZY”?→K:Prog“J”文档实用标准文案LbI9:“XL”?→M:If M＜400:ThenProg“JD1”:EIseIf M＜600:ThenProg“JD2”:EIseIf M＜800:ThenProg“JD3”:EIseIf M＜980:ThenProg“JD4”:EIseIf M＜1200:ThenProg“JD5”:EIseIf M＜1500:ThenProg“JD6”:EIseIf M＜1800:ThenProg“JD7”:EIseIf M＜2000:ThenProg“JD8”:EIseIfM＜2130:ThenProg“JD9”:EIseIfM＜2200:ThenProg“JD10”:EIseProg“JD11”:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd :Goto9说明：1、 根据上述三种情况可根据实际情况对该程序（A-D-LCP）进行局部根改，红色部分是可以进行修改的。例如:“M＜400”中400代表的是JD1与JD2之间直线段上的桩号，“JD1～JD11”要进行根改时除非数据库中名称发生改变。2、“IfEnd”的个数取决于交点个数，例如:有7个交点结尾时必须有6个“IfEnd”；有9个交点时结尾必须有8个“IfEnd”；有11个交点时必须有10个“IfEnd”。3、该程序最多可存储 17个交点，若交点太多可有两个或两个以上同样的程序进行存储。4、程序完成运行正确后，在交点范围内任意点桩号都可以进行放样，免除了每次测量时都需输入曲线要素这一个环节。5、程序名为：“ZBJS”的程序也是该程序的一个子程序。6、在路线中有断链时，需根据断链位置来确定 M值。二、数据库的建立：（子程序）文档实用标准文案1、根据施工设计图可得知的曲线要素如下：JD1的曲线要素：交点里程：K0+247.815交点X坐标：2579154.343交点Y坐标：906527.4114半径（R）：160缓和曲线（LS）长度：0曲线偏角：右转38°33′08″起边方位角(F):346°28′01″JD2的曲线要素：交点里程：K0+501.097交点X坐标：2579387.714交点Y坐标：906636.3292半径（R）：600缓和曲线（LS）长度：0曲线偏角：右转5°46′00″起边方位角(F):25°01′09″JD3的曲线要素：交点里程：K0+659.124交点X坐标：2579523.517交点Y坐标：906717.2384半径（R）：300缓和曲线（LS）长度：0曲线偏角：右转18°06′23″起边方位角(F):30°47′09″JD4的曲线要素：交点里程：K0+904.132交点X坐标：2579685.128交点Y坐标：906902.4459半径（R）：90缓和曲线（LS）长度：0曲线偏角：右转41°30′18″起边方位角(F):48°53′32″JD5的曲线要素：文档实用标准文案交点里程：K1+097.035交点X坐标：2579683.770交点Y坐标：907098.3531半径（R）：60缓和曲线（LS）长度：0曲线偏角：左转52°01′57″起边方位角(F):90°23′50″JD6的曲线要素：交点里程：K1+429.804交点X坐标：2579947.887交点Y坐标：907307.425半径（R）：150缓和曲线（LS）长度：0曲线偏角：右转37°23′24″起边方位角(F):38°21′53″JD7的曲线要素：交点里程：K1+586.834交点X坐标：2579987.421交点Y坐标：907463.1432半径（R）：150缓和曲线（LS）长度：0曲线偏角：左转41°49′53″起边方位角(F):75°45′17″JD8的曲线要素：交点里程：K1+958.991交点X坐标：2580300.496交点Y坐标：907673.7074半径（R）：700缓和曲线（LS）长度：0曲线偏角：右转6°08′01″起边方位角(F):33°55′23″JD9的曲线要素：交点里程：K2+092.249交点X坐标：2580402.547交点Y坐标：907759.5081半径（R）：200缓和曲线（LS）长度：0曲线偏角：左转12°36′07″起边方位角(F):40°03′24″文档实用标准文案JD10的曲线要素：交点里程：K2+174.864交点X坐标：2580476.0163交点Y坐标：907797.6801半径（R）：150缓和曲线（LS）长度：0曲线偏角：右转17°57′44″起边方位角(F):27°27′17″JD11的曲线要素：交点里程：K2+259.136交点X坐标：2580535.4428交点Y坐标：907857.9781半径（R）：100缓和曲线（LS）长度：0曲线偏角：左转31°11′28″起边方位角(F):45°25′01″2、子程序建立：（数据库）子程序：JD138°33′8″→A:160→R:0→L:247.815→N:2579154.343→U:906527.4114→V:346°28′1″→F:Prog “ZBJS”子程序：JD25°46′0″→A:600→R:0→L:501.097→N:2579387.714→U:906636.3292→V:25°1′9″→F:Prog“ZBJS”子程序：JD318°6′23″→A:300→R:0→L:659.124→N:2579523.517→U:906717.2384→V:30°47′9″→F:Prog“ZBJS”文档实用标准文案子程序：JD441°30′18″→A:90→R:0→L:904.132→N:2579685.128→U:906902.4459→V:48°53′32″→F:Prog “ZBJS”子程序：JD5-52°1′57″→A:60→R:0→L:1097.035→N:2579683.77→U:907098.