卡西欧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． 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于

一、已知座标，求平距和方位角(座标反算)： 公式： D=√（Xp-Xo）2+（Yp-Yo）2 α=arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M：（Y-B）→N：“D=”：√（M2+N2 ）⊿ tan-1(N/M) →C:If M＜0:Then “Q=”：180+C →Q ⊿ Else If N＞0: Then “Q=”：C→Q ⊿ Else “Q=”：360+C→Q ⊿ If End : If End : Goto 0 说明：（A，B）为测站点坐标，（X，Y）为所求点坐标。输出：D为平距，Q为方位角。二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式：X =Xo+LcosQ Y=Yo+LsinQ程序：“C”？→C：“D”？→D：“Q”？→Q：“Z”？→Z：“U”?→U：“T”？→T：“V”？→V：Lbl 1: “L”？→L：Abs（L-Z）→W：“X=”：C+W*cos(Q)→X ⊿“Y=”： D+W*sin(Q)→Y ⊿ If U≤0:Then Goto1:Else “XL=”:X+U*cos(Q-V)→A ⊿“YL=”：Y+U*sin(Q-V)→B⊿“XR=”:X+T*cos(Q+V)→E⊿“YR=”：Y+T*sin(Q+V)→F⊿ Goto 1 说明：（C，D）为直线起点坐标，Q为直线方位角，Z为起点桩号，L为所求坐标点桩号。“U”为左边距，“T”为右边距，“V”为偏角；U=0时不算边桩坐标。输出：（X，Y）为中桩坐标，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。三、已知圆曲线起点坐标（U，V），切线方位角Q，桩号Z和圆半径R，求圆曲线上桩号为 L的点中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式： ψ=90L/(лR) (偏角公式） C=2Rsin ψ (对应弧的弦长公式） 弦的方位角:Q=Qo±ψ （曲线左转时为“-”）程序：“U”？→U：“V”？→V：“Q”？→Q：“R”？→R：“Z”？→Z：“W=-1，1”：？→W：“ZJ=”：？→Z[1]：“YJ=”：？→Z[2]：“PIAN JIAO”：？→T：Lbl 2:

“L”？→L：180*（L-Z）/（2π*R）→J：R*2sin(J)→K:If W=-1:Then “X=”:U+K*cos (Q-J）→X⊿ “Y=”：V+K*sin(Q-J)→Y ⊿“Q=”：Q-180*（L-Z）/（πR）→O⊿ Else If W=1:Then“X=”:U+K*cos(Q+J）→X⊿“Y=”：V+K*sin(Q+J)→Y ⊿ “Q=”：Q+180*（L-Z）/（πR）→O⊿ IfEnd:IfEnd:T=0=＞Goto 2：“XL=”:X+Z[1]*cos(O-T)→F⊿“YL=”：Y+Z[1]*sin(O-T)→P ⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]*sin(O+T) ⊿ Goto 2 说明：W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=”为右边距，“PIAN JIAO”为偏角，偏角输0时不算边桩坐标。输出：（X，Y）为中桩坐标，“Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。四、已知直缓点坐标（M，N）、方位角Q、桩号Z，缓和曲线全长S和连接圆半径R，求缓和曲线上任一点（桩号为L）的中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式： θ=30L2/(πRLs) C=L-L5/(90R2Ls2) α=α±90Ls2/(πA2)程序：“M”？→M：“N”？→N：“R”→R：“A”？→A：“S”?→S：“Z”？→Z：“Q”？→Q：“W=-1，1”：？→W：“ZJ=”？→Z[1]：“YJ=”？→Z[2]：“PIAN JIAO”：？→ T：Lbl 3:“L”？→L：Abs (L-Z)→H:30*H2/(πRS)→D:H-H5/(90R2S2)→C:If W=-1:Then “X=”：M+C*cos(Q-D)→X⊿“Y=”：N+C*sin(Q-D)→Y ⊿ A =0 =＞Goto 3:“Q=”:Q-90H/(πA）→E ⊿ Else If W=1:Then “X=”：M+C*cos(Q+D)→X⊿“Y=”：N+C*sin(Q+D)→Y ⊿ A=0 =＞Goto 3:“Q=”:Q+90*H/(πA）→E ⊿IfEnd:IfEnd:T=0=＞Goto 3：“XL=”:X+Z[1]*cos(E-T)⊿“YL=”：Y+Z[1]*sin(E-T) ⊿“XR=”:X+Z[2]*cos(E+T)⊿“YR=”： Y+Z[2]*sin(E+T)⊿ Goto 3说明：“A”为缓和曲线参数，W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=”为右边距，“PIAN JIAO”为偏角，偏角输0时不算边桩坐标。输出：（X，Y）为中桩坐标，“Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。五、已知卵形曲线（即非完整缓和曲线）大圆半径R，小圆半径r，缓和曲线参数A，以大圆的圆缓点为起点，其坐标为（C，D），其方位角为Q，其桩号为Z，求桩号为L的点的中桩坐标（X，Y），左、右边桩坐标（XL，YL）、（XR，YR）。公式：偏角：θ=arctg[(Yp-Yo)/(Xp-Xo)]-90LR/(πR)Xj=Lj-Lj5/(40A4)+Lj9/3456A8-…… ， Yj=Lj3/(6A2)-Lj7/(336A6)+Lj11/(42240A10)-…… Lj=A/Rj(Rj为曲率半径） S=√(Xp-Xo)2+(Yp-Yo)2（弦长公式）α=Q±θ（弦线方位角公式） Xp=Xo+S *cosα , Yp=Yo+sinα程序：“A”？→A：“C”？→C：“D”？→D：“R”？→R：“Q”？→Q：“Z”？→Z：“W=-1，1”？→W：A /R→J:J-J5/(40*A4)+J9/(3456*A8)→E:J3/(6*A2)-J7/(336*A6)+J11/(42240*A10)→F:90*J/(πR)→B:“ZJ=”？→Z[1]：“YJ=”？→Z[2]：“PIAN JIAO”：？→T：Lbl 4:“L”？→L: J+Abs(L-Z)→S:S-S5/(40*A4)+S9/(3456*A8)→M:S3/(6*A2)-S7/(336*A6)+S11/(42240*A10)→N:Abs(M-E)→G:Abs(N-F)→H:√(G2+H2)→K:arctg(H/G)→I:If I＜0:Then I+360→U:Else I→U: IfEnd: If W=-1:Then Q-(U-B)→V:“X=”：C+K*cos(V)→X⊿“Y=”：D+K*sin(V)→Y ⊿“Q=”:Q-90*S2/(πA2)-90*J2/(πA2) →O ⊿ Else If W=1:Then Q+(U- B)→V:“X=”：C+K*cos(V)→X⊿“Y=”：D+K*sin(V)→Y⊿“Q=”: Q+90*S2/(πA2)-90*J2/(πA2) →O ⊿IfEnd:IfEnd:T=0=＞Goto 4:“XL=”:X+Z[1]*cos (O-T)⊿“YL=”：Y+Z[1]*sin(O-T) ⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]* sin(O+T)⊿ Goto 4说明：“A”为缓和曲线参数，W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=”为右边距，“PIAN JIAO”为偏角，偏角输0时不计算边桩坐标。输出：（X，Y）为中桩坐标，“Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。六、竖曲线计算 公式：H=X2/(2R)程序：“A”？→A：“H”？→H：“D”？→D：“T”？→T：“R”？→R：“I1”？→U：“I2”？→V：“K(ZHONG-DIAN)”：D+T→B ⊿“LY=”：B-A→E ⊿ Lbl 6:“K”？→K：V＞U=＞1→G：V＜U=＞-1→G：If K≤A: Then D-K→L:H-LU→P:IfEnd:If K＞A And K＜D: Then K-A→L:H-U(D-K)+GL2/(2R)→P: IfEnd:If K＞D And K＜B:Then B-K→L:H+V(K-D)+GL2/(2*R)→P:IfEnd:If K≥B: Then K-D→L:“H(SHEJI)=”：P ⊿ Goto 6说明：“A”为竖曲线起点桩号，“H”为起点高程，“D”为交点桩号，“T”为切线长，“R”为竖曲线半径，“I1”、“I2”为第一、二坡度。输出：“H(SHEJI)=”为设计高程。注意的是：计算范围不能超出到下一个竖曲线范围内。

工程测量(1)小写o为大写字母“O”，与零区分。(2)程序中没有空格符号。 1、坐标正算 〝X0=〞?X：〝Y0=〞?Y：〝I=〞?I：〝J=〞?J X+ICos(J)→U：Y+ISin(J)→V 〝X=〞：U◢ 〝Y=〞：V◢ 说明：X0 Y0：已知点坐标，I：两点的距离，J：方位角 ２、坐标反算 Lbl 0 〝X1=〞?X：〝Y1=〞?Y：〝X2=〞?U：〝Y2=〞?V Pol(U-X，V-Y)： J<0J+360→J 〝I=〞：I◢ 〝J=〞：JDMS◢ Goto 0 说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角 ３、圆曲线 〝X0=〞?X：〝Y0=〞?Y：〝FWJ=〞?D：〝QDHAO=〞?G：〝ZDHAO=〞?C：〝R=〞?R Lbl 1 〝DQHAO=〞?L L<G Or L﹥CGoto 2 〝PY=〞?K 180(L-G)÷(πR)→E 2Rsin(0.5E)→F Rec(Abs(F)，D+0.5E) 〝X=〞：X+I+Kcos(D+E+90)→A◢ 〝Y=〞：Y+J+Ksin(D+E+90)→B◢ D+E→o：o<0360+o→o 〝FWJ=〞：oDMS◢ Goto 1 Lbl 2 〝END〞 说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量 ４、竖曲线 〝QZHAO =〞?J：〝HB〞=?B：〝I1=〞?C：〝I2=〞?D：〝R=〞?R：〝T=〞?T： ((D-C)÷100)÷Abs((D-C)÷100)→A：Abs(0.5R(D-C)÷100)→S 〝T〞：S◢ J-T→X J＋T→Y Lbl 0 〝DQ=〞?L If L<X：Then Goto1：Else If L﹥Y：Then Goto1：If End：If End 〝GC=〞：B+C(L-J)÷100+A(L-J+T)2÷(2R)→H◢ Goto 0 Lbl 1 〝END〞 说明：QZHAO：竖曲线中点里程，HB：交点高程（不是交点路面高），I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。 5．正算偏移 〝X0=〞?A：〝Y0=〞?B：〝FWJ=〞?D： Lbl 0 〝LS=〞?L：〝PY=〞?C Rec(L，D) 〝X=〞：A+I+Ccos(D+90)→X◢ 〝Y=〞：B+J+Csin(D+90)→Y◢ Goto 0 说明：X0 Y0：已知点坐标，LS：两点距离（里程之差），FWJ：方位角 6.万能公式 〝X0=〞?A：〝Y0=〞?B：〝FWJ=〞?C：〝1÷R-QD=〞?D：〝1÷R-ZD=〞?E： 〝QDHAO=〞?F：〝ZDHAO=〞?G Lbl 1 〝DQHAO=〞?H：〝PY=〞?o If H<F：Then Goto 2：Else If H﹥G：Then Goto 2：If End：IfEnd (E-D)÷Abs(G-F)→P：Abs(H-F)→Q：PQ→I：C+90Q(I+2D)÷π→J：C+45Q(I÷8+D)÷π→M：C+135Q(3I÷8+D)÷π→N：C+45Q(I÷2+2D)÷π→K A+Q(cos(C) +4(cos(M)+cos(N))+2cos(K)+cos(J))÷12→U： B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(J))÷12→V 〝X=〞：U+oCos(J+90)→X◢ 〝Y=〞：V+oSin(J+90)→Y◢ 〝FWJ=〞：JDMS◢ Goto 1 Lbl 2 〝END〞 说明：X0Y0：起始点坐标，FWJ：起始点方位角，1÷R-QD：起始点曲率，1÷R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标

---