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

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〕▲ LbI 8: “XL”?→M:Prog“ZBJS”:Goto 8 二、子程序：ZBJS 180/π/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→E N-T→E E+L→Z〔1〕 E+o/2→Z〔2〕 E+o-L→Z〔3〕 E+o→Z〔4〕 0→W:0→Y:If M≤E:Then M-E→X:Goto 3:IfEnd:If M≤Z〔1〕:Then Goto 1:IfEnd:If M≤Z〔3〕:Then Goto 2:IfEnd:If M＜Z〔4〕:Then Goto 1:IfEnd: If M≥Z〔4〕:Then Z〔4〕-M→X:Goto 3:IfEnd LbI 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/L→W:Goto 3 LbI 2:M- Z〔1〕→G:RSin(B+GZ)+Q→X:R-RCos(B+GZ)+P→Y:B+ZG→W LbI 3:If M≥Z〔3〕:Then F+A→C:If A＞0:Then C+90→D:IfEnd:EIse C-90→D:IfEnd:EIse F+180→C:If A＞0:Then F+90→D:EIse F-90→D: IfEnd: IfEnd “X=”:U+(T-X)Cos(C)+YCos(D)→Z〔7〕▲ “Y=”: V+(T-X)Sin(C)+Y Sin(D)→Z〔8〕▲ Z〔7〕→Z〔5〕: Z〔8〕→Z〔6〕:Prog “J” LbI 4:“BZ”?→S:If M≤Z〔3〕:Then Goto 5:EIse Goto 6:IfEnd LbI 5:F→C:If A＜0:Then -W→W:EIse W→W:IfEnd:Goto 7 LbI 6:F+A→C:If A＞0:Then -W→W:EIse W→W:IfEnd LbI 7:“X=”:Z〔7〕+SCos(C+W+90)→Z〔5〕▲ “Y=”:Z〔8〕+SSin(C+W+90)→Z〔6〕▲ Prog“J” 三、子程序：J I=PoI(Z〔5〕-H, Z〔6〕-K):If J＜0:Then J+360→J:EIse J→J: IfEnd “F=”:J◆DMS “D=”:I▲ 四、子程序：ZJZB 30→Dim Z:“HX”?→Z〔5〕:“HY”?→Z〔6〕: “ZX”?→H: “ZY”?→K:Prog“J” 五、B-D-PQX(对称平曲线)说明 1、▲——代表计算器中显示符号（黑色实心三角符号，在计算器中输入方法：SHIFT+X2）。 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？——