fx5800P计算器程序匝道程序.docxVIP

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：直线或曲线起点至终点长度→H：第一曲线半径→P：第二曲线半径→R：0或1或-1→Q：Goto0:ElseIfS≥本段路线终点桩号AndIfEnd Lbl0：（1÷P）→C：（P-R）÷（2HPR）→D：180÷π→E：IfN=1： ThenGoto1：ElseGoto2：IfEnd Lbl1：Z：“Z”？Z：W：Abs（S-O）→W：Prog“SUB1”：“XS=”： X▲ “YS=”：Y▲ “FS=”：F-90▲ Goto4 Lbl2：“X”？X：“Y”？Y：X→I：Y→J：Prog“SUB2”：S：O+W →S：“S=”：S▲ Z：“Z=”：Z▲ 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(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:If Abs(Z)﹤10∧(-3):ThenGoto1ElseW+Z →W:Goto0:IfEnd Lbl 1：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时，第一曲线半径为圆曲线半径，第二曲线半 径为圆曲线半径，0或1或-1（当曲线为左偏时为-1，当曲 线为右偏时为1）； 4、当YH至HZ时，第一曲线半径为圆曲线半径，第二曲线半 径为10×10＜45＞，0或1或-1（当曲线为左偏时为-1，当曲 线为右偏时为1）； 5、N？输1为正算，输2为反算；S？输计算桩号；Z？输计算 边距（左为负，右为正，中桩为0）；XS=为计算出的X坐标， YS=为计算出的Y坐标，FS=为计算出的方位角。 6、本程序中0为零；其余的为O。 7、本程序不能计算斜交边桩坐标。 8、本程序曲线数据必须分段输入，（按直线段、ZH至HY段、 HY至YH段、YH至HZ段）。 TYQXJS程序-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：IfEnd Lbl1：S：“S”？S：Z：“Z”？Z：W：Abs（S-O）→W：Prog“SUB1”： “XS=”：X▲ “YS=”：Y▲ “FS=”：F-90▲ Goto1 Lbl2：“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