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

fx-5800P计算器程序（匝道）
一、主程序
Lbl 4：“1.SZ⇒XY”: “2. XY ⇒SZ”:N: “N”？N：S：“S”？S：C：D：E：F：U：V：H：G：P：Q：R：
If S ＜曲线或直线终点桩号：Then起点桩号→O：起点X坐标→U：起点Y坐标→V：起点方位角→G：直线或曲线起点至终点长度→H：第一曲线半径→P：第二曲线半径→R：0或1或-1→Q：Goto 0 :ElseIf S ≥本曲线起点桩号And＜曲线或直线终点桩号：Then起点桩号→O：起点X坐标→U：起点Y坐标→V：起点方位角→G：直线或曲线起点至终点长度→H：第一曲线半径→P：第二曲线半径→R：0或1或-1→Q：Goto 0 :Else If S≥本段路线终点桩号And IfEnd
Lbl 0：（1÷P）→C：（P-R）÷（2HPR）→D：180÷π→E：If N=1：Then Goto1：Else Goto2：IfEnd
Lbl 1：Z：“Z”？Z：W：Abs （S-O）→W：Prog“SUB1”： “XS=”：X▲
“YS=”：Y▲
“FS=”：F-90▲
Goto 4
Lbl 2：“X”？X：“Y”？Y：X→I：Y→J：Prog“SUB2”：S：O+W→S： “S=”：S▲
Z：“Z=”：Z▲
Goto 4
二、子程序“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：Lbl 0：Prog“SUB1”：
T+57.2958QW（C+WD）→L：（J-Y）cos(L)-(I-X)sin(L) →Z:If Abs(Z)﹤10∧(-3): Then Goto 1 Else W+Z→W:Goto 0: 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：If N=1：Then Goto1：Else Goto2：IfEnd
Lbl 1：S：“S”？S：Z：“Z”？Z：W：Abs （S-O）→W：Prog“SUB1”： “XS=”：X▲
“YS=”：Y▲
“FS=”：F-90▲
Goto 1
Lbl 2：“X”？X：“Y”？Y：X→I：Y→J：Prog“SUB2”：S：O+W→S： “S=”：S▲
Z：“Z=”：Z▲
Goto 2
二、子程序“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：Lbl 0：Prog“SUB1”：
T+57.2958QW（C+WD）→L：（J-Y）cos(L)-(I-X)sin(L) →Z:If Abs(Z)﹤10∧(-3): Then Goto 1 Else W+Z→W:Goto 0: IfEnd
Lbl 1：0(零)→Z: Prog“SUB1”：(J-Y)÷sin(F) →Z:
四、注意事项：
1、 本程序不需要曲线数据库子程序，曲线数据必须分段输入，（按直线段、ZH至HY段、HY至YH段、YH至HZ段）；TYQXJS程序的输入方法：N？输1为正算，输2为反算；X0？输起点X坐标；Y0？输起点Y坐标；S0？输曲线或直线起点桩号；F0？输曲线或直线起点方位角；LS？输本段曲线或直线长度；R0？输本段曲线第一半径；RN？输本段曲线第二半径；Q？输0或1或-1同上一样；S？输计算桩号；Z？输计算边距（左为负，右为正，中桩为0）；XS=为计算出的X坐标，YS=为计算出的Y坐标，FS=为计算出的方位角；
2、 当为直线时，第一曲线半径及第二曲线半径为10×10＜45＞，0或1或-1 Q 为0；
3、 当ZH至HY时，第一曲线半径为10×10＜45＞，第二曲线半径为圆曲线半径，0或1或-1（当曲线为左偏时Q为-1，当曲线为右偏时Q为1）；
4、 当HY至YH时，第一曲线半径为圆曲线半径，第二曲线半径为圆曲线半径，0或1或-1（当曲线为左偏时Q为-1，当曲线为右偏时Q为1）；
5、 当YH至HZ时，第一曲线半径为圆曲线半径，第二曲线半径为10×10＜45＞，0或1或-1（当曲线为左偏时Q为-1，当曲线为右偏时Q为1）；
6、 本程序中 0 为零；其它的为O。
7、 本程序不能计算斜交边桩坐标。