fx-5800P计算器程序(匝道程序).doc

《fx-5800P计算器程序(匝道程序).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、fx-5800P计算器程序（匝道）一、主程序Lbl4：“1.SZ⇒XY”:“2.XY⇒SZ”:N:“N”？N：S：“S”？S：C：D：E：F：U：V：H：G：P：Q：R：IfS＜曲线或直线终点桩号：Then起点桩号→O：起点X坐标→U：起点Y坐标→V：起点方位角→G：直线或曲线起点至终点长度→H：第一曲线半径→P：第二曲线半径→R：0或1或-1→Q：Goto0:ElseIfS≥本曲线起点桩号And＜曲线或直线终点桩号：Then起点桩号→O：起点X坐标→U：起点Y坐标→V：起点方位角→G：直线或曲线起

2、点至终点长度→H：第一曲线半径→P：第二曲线半径→R：0或1或-1→Q：Goto0:ElseIfS≥本段路线终点桩号AndIfEndLbl0：（1÷P）→C：（P-R）÷（2HPR）→D：180÷π→E：IfN=1：ThenGoto1：ElseGoto2：IfEndLbl1：Z：“Z”？Z：W：Abs（S-O）→W：Prog“SUB1”：“XS=”：X▲“YS=”：Y▲“FS=”：F-90▲Goto4Lbl2：“X”？X：“Y”？Y：X→I：Y→J：Prog“SUB2”：S：O+W→S：“S=”：S

3、▲Z：“Z=”：Z▲第6页共6页Goto4二、子程序“SUB1”如下：0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W（Acos(G+57.2958QKW(C+KWD))+Bcos(G+57.2958QLW(C+LWD))+Bcos(G+57.2958QFW(C+FWD))+Acos(G+57.2958QMW(C+MWD))）→X:V+W(Asin(G+57.2958QKW(C+KWD))+Bsin

4、(G+57.2958QLW(C+LWD))+Bsin(G+57.2958QFW(C+FWD))+Asin(G+57.2958QMW(C+MWD)))→Y:G+57.2958QW(C+WD)+90→F:X+Zcos(F)→X:Y+Zsin(F)→Y三、子程序“SUB2”如下：G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T)→W:0(零)→Z：Lbl0：Prog“SUB1”：T+57.2958QW（C+WD）→L：（J-Y）cos(L)-(I-X)sin(L)→Z:IfAbs(Z)﹤

5、10∧(-3):ThenGoto1ElseW+Z→W:Goto0:IfEndLbl1：0(零)→Z:Prog“SUB1”：(J-Y)÷sin(F)→Z:四、注意事项：1、当为直线时，第一曲线半径及第二曲线半径为10×10＜45＞，0或1或-1为0；2、当ZH至HY时，第一曲线半径为10×10＜45＞，第二曲线半径为圆曲线半径，0或1或-1（当曲线为左偏时为-1，当曲线为右偏时为1）；3、当HY至YH时，第一曲线半径为圆曲线半径，第6页共6页第二曲线半径为圆曲线半径，0或1或-1（当曲线为左偏时为-1

6、，当曲线为右偏时为1）；1、当YH至HZ时，第一曲线半径为圆曲线半径，第二曲线半径为10×10＜45＞，0或1或-1（当曲线为左偏时为-1，当曲线为右偏时为1）；2、N？输1为正算，输2为反算；S？输计算桩号；Z？输计算边距（左为负，右为正，中桩为0）；XS=为计算出的X坐标，YS=为计算出的Y坐标，FS=为计算出的方位角。3、本程序中0为零；其它的为O。4、本程序不能计算斜交边桩坐标。5、本程序曲线数据必须分段输入，（按直线段、ZH至HY段、HY至YH段、YH至HZ段）。第6页共6页TYQXJS程

7、序-fx-5800P一、主程序“1.SZ⇒XY”:“2.XY⇒SZ”:“N”？N：U：“X0”？U：V：“Y0”？V：O：“S0”？O：G：“F0”？G：H：“LS“？H：P：“R0”？P：R：“RN”？R：Q：“Q”？Q：C：（1÷P）→C：D：（P-R）÷（2HPR）→D：E：180÷π→E：IfN=1：ThenGoto1：ElseGoto2：IfEndLbl1：S：“S”？S：Z：“Z”？Z：W：Abs（S-O）→W：Prog“SUB1”：“XS=”：X▲“YS=”：Y▲“FS=”：F-90▲

8、Goto1Lbl2：“X”？X：“Y”？Y：X→I：Y→J：Prog“SUB2”：S：O+W→S：“S=”：S▲Z：“Z=”：Z▲Goto2二、子程序“SUB1”如下：0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W（Acos(G+57.2958QKW(C+KWD))+Bcos(G+57.2958QLW(C+LWD))+Bcos(G+57.2958QFW(C+FWD)