卡西欧FX-5800P坐标正反算程序怎么编辑,我刚买的计算器,

卡西欧FX-5800P坐标正反算程序怎么编辑,我刚买的计算器,
卡西欧FX-5800P坐标正反算程序怎么编辑,我刚买的计算器,

卡西欧FX-5800P坐标正反算程序怎么编辑,我刚买的计算器,
正算子程序（ZS）（不运行）
1÷P→C:(P-R)÷(2HPR) →D:180÷π→E←┚
0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W（Acos（G+QEKW（C+KWD））+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X：V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y：G+QEW（C+WD）+90→F：X+ZcosF→X：Y+ZsinF→Y
3反算子程序（FS）（不运行）
G-90→T：Abs（（Y-V））cos（T）-（X-U）sin（T）→W：0→Z←┚
Lbl 0←┚
prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001:Then Goto1：Else W+Z→W：IfEnd :Goto 0←┚
Lbl 1：0→Z：Prog＂ZS＂：（J-Y）÷sinF→Z
ZX-WN（运行主程序,该程序适用于匝道,对全段完整非对称曲线计算太过麻烦）
＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）
LbI 0:＂K＂?K:If K≤126.9（第1条单一曲线的终点下面同上）:Then Goto A：Else If K≤176.9 And K＞126.9:Then Goto B:Else If K≤259.562 And K＞176.9:Then Goto C:Else If K≤309.562 And K＞259.562:Then Goto D：IfEnd:IfEnd:IfEnd:IfEnd←┚
LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1（路线左右偏,左负右正,直线输0）→Q:Prog ＂WN＂:Goto W
LbI B:91990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂WN＂:Goto W
LbI C:91947.609→U:8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P:150 →R:+1→Q:Prog ＂WN＂:Goto W
LbI D:91867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H:150 →P:10^(45) →R:+1→Q:Prog ＂WN＂:Goto W
LbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距,输0为不再左右偏,可以直接出方位角、距离,适用于桥梁桥台、盖梁、涵洞八字墙等放样,以路线前进方向,前-,后+）
If T=0：Then Z[3]→Z:Z[4]→M:Goto P:Else Goto V:IfEnd←┚
LbI V:＂JJ1＂?O←┚（左右边桩再偏夹角,用180°减去路线夹角）
＂X1=＂:Z[3]+Tcos（F+N+ O）→U◢
＂Y1=＂ :Z[4]+Tsin（F+N+ O）→V◢
U→Z:V→M:GotoP←┚
LbI P:Pol(Z-S,M-W):If J≤0：Then J+360°→J:IfEnd←┚
＂JL=＂:I◢（仪站至测点的距离）
＂FWJ=＂:J DMS◢（仪站至测点的方位角）
Goto0
备注：
1． 规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时,Q=1：当元线为直线时,Q=0.
2． 当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次方代替.
3． 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于