坐标正反算程序,casio4800坐标正反算程序( 三 )

1.运行：ZX-WN
2.显示“CZX”输入测站：X坐标，显示“CZY”输入测站：Y坐标
3.显示：“K”输入所计算的桩号 4、显示“ZS=1,FS=2”，选择计算方式，输入1正算；输入2反算 5.输1开始正算 6.显示“JJ”正交输90，斜交输跟路线的夹角 7.显示“PJ”输入边桩偏距，左负右正，中桩输0 8.显示“ZX=”所求点的X坐标 9.显示“ZY=”所求点的Y坐标 10.显示“QXFWJ”所求点的切线方位角 11.显示“PJ1” 所求点再骗距离，输0为不再左右偏，可以直接出方位角、距离，本项适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，左+，右- 。只限于直线） 12. 显示“JJ1”再偏输入夹角（正交输90，） 13. 显示“X1”所求点X坐标 14. 显示“Y1”所求点Y坐标 15. JL=仪站与测点的距离 16. FWJ=仪站与测点的方位角 17. 反算时输入：显示“显示“ZS=1,FS=2”，选择计算方式，输入2反算 18. 显示“X？”输入反算时所求点的X坐标 19. 显示“Y？”输入反算时所求点的Y坐标 20. 显示FSZH=反算时，计算得出的所求点的里程 30. 显示FSJL=反算时，计算得出的所求点的边距（负为左偏，正为右偏）
悬赏!!求卡西欧5800计算器坐标正反算程序(曲线) 邮箱: 27179498@qq.com

文章插图
WN(不运行)
”ZS=1,FS=2”?N: 1÷P →C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd←┚
LbI 1:1 →I:0 →Z:Abs(K-O) →W: Prog”ZS”←┚
F-90→F←┚
”JJ”?K:”PJ”?L: ”ZX=”:X+Lcos(F+K) →Z[3]◢
”ZY=”: Y+Lsin(F+K) →Z[4]◢
”QXFWJ=”:F DMS◢
Abs(Z) →Z:Goto 8←┚
LbI 2:”X”?I:”Y”?J: Prog”FS”:”FSZH=”:O+W→K◢
”FSJL=”:Z◢
Lbl 8
正算子程序(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°减去路线夹角)