坐标反算程序,求5800坐标反算和正算程序

谁有CASLO fx-4850P坐标反算程序呢？

文章插图
主程序（QXJS）
程序清单：
Prog “BQXYS”：Q“K—ZH”：F“ZHX=”：G“ZHY=”：N“TZH—JD”：I“（Y1 ， Z-1）” ?br/> Lbl 1:Fixm:{KD}:K“LICHENG=”：D“WAIYI=（Z- ， Y+）”：Goto2?br/> Lbl 2:K Goto3:≠> Goto4?br/> Lbl 3:“K—OVER”: Goto1?br/> Lbl 4:K>Q+L => Goto3:≠> Goto5?br/> Lbl 5:K≤Q+B => Goto6:≠> Goto7?br/> Lbl 6:S=K-Q：W=B：Prog “HQXY”：O=N+I×90S2÷(Л RB)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢
X=UcosN-VsinN+F+D×cos(O+90) ◢
Y=VcosN+UsinN+G+D×sin(O+90) ◢
Goto1?br/> Lbl 7：K≤Q+L-C => Goto8:≠> Goto9?br/> Lbl 8:S=K-Q：O=N+I×90(2S-B)÷(Л R)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢
Prog “YQXY”：X=UcosN-VsinN+F+D×cos(O+90) ◢
Y=VcosN+UsinN+G+D×sin(O+90) ◢
Goto1?br/> Lbl 9: S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180：O=E-I×90S2÷(Л RC)+180：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=”◢
V=-V?br/> X=(U-H)cosE-VsinE+F+T cosN+D×cos(O+90) ◢
Y=VcosE+(U-H)sinE+G+T sinN+D×sin(O+90) ◢
Goto1?br/> 子程序“BQXYS”
A:R:B“L01”:C“L02” ?br/> M“M1”=B÷2-B3÷（240 R2）◢
J“M2”=C÷2-C3÷（240 R2）◢
P“P1”= B2÷（24 R）- B4÷（2688 R3）◢
Z“P2”= C2÷（24 R）- C4÷（2688 R3）◢
T“T1”=M+（R+P）tan(A÷2)+(Z-P) ÷sinA◢
H“T2”=J+（R+Z）tan(A÷2)+( P-Z) ÷sinA◢
L= B÷2+C÷2+A RЛ÷180◢
E= ◢
子程序“HQXY”
U=S-S5÷(40R2 W2)+ S9÷(3456 R4 W4)-S13÷(599040R6 W6):V=I×(S3÷(6RW)- S7÷(336 R3 W3) +S11÷(42240 R5 W5))
子程序“YQXY”
U=Rsin(180(S-B÷2)÷Л÷R)+M:V=I×(R×(1-cos(180(S-B÷2)÷Л÷R))+P)
1、5800坐标反算程序怎么操作、正算我知道？ 2、xy坐标每个数字代表的含义？

文章插图
正算子程序（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: ThenGoto1：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