新编卡西欧x-5800程序集(已修改)).doc

《新编卡西欧x-5800程序集(已修改)).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、卡西欧fx-5800P程序1坐标反算(ST)Lb11：＂X1=＂？A：＂Y1=＂？BLb22：＂X2=＂？C：＂Y2=＂？D＂S(1-2)=＂：POL(C－A,D－B)→S▲IFJ﹥0：ThenJ→T：ElseJ+360→T：IfEnd＂T=＂：T→DMS▲＂K=＂？ＫIfK=1：ThenGoto1：IfEndIfK=2：ThenGoto2：IfEndIfK=3：ThenC→A：D→B：Goto2：IfEnd0说明：1、　首先输入架站点坐标X0、Y0（O点）。2、　再输入后视点坐标XP、YP（P点）。3、　计算出O―P的边长

2、S和方位角J。4、　当K＝1时，重新输入O、P点的坐标。5、　当K＝2时，以原O点坐标不变，重新输入新P点坐，计算出边长S和方位角J。6、　当K＝3时，以原P点坐标为架站点坐标O（X0、Y0），重新输入新的P点坐标，计算出边长S和方位角J。2坐标正算(XY)LbI0：＂X0=＂？A：＂Y0=＂？B：＂P(1→Z，2→F)=＂？PIfP=1：ThenGoto2：ElseGoto5：IfEndLbI2：＂XA=＂？C：＂YA=＂？D＂S(0－A)=＂：POL(C－A，D－B)→S▲IFJ﹥0：ThenJ→F：ElseJ+360→

3、F：IfEnd＂T(0－A)=＂：F→DMS▲Goto6Lb15：＂T(0－A)=＂？FLb16：＂S(0－P)=＂？S：＂E(∠AOP=)＂？EE+F→T：＂XP=＂：A+Rec(S，T)→X▲＂YP=＂：B+J→Y▲IfT≥360：ThenT-360→T：IfEnd＂T(0－P)=＂：T→DMS▲＂K=＂？KIfK=1：ThenGoto0：IfEndIfK=2：ThenGoto6：IfEndIfK=3：ThenX→A：Y→B：T+180→F：Goto6：IfEnd说明：1、首先输入架站点O（X0、Y0）坐标2、输入判断值

4、P:当P=1时输入后视点的坐标，计算出到后视点距离＂S(0－A)=＂S和方位角T(0－A)=F;当P=2时直接输入后视点的方位角T(0－A)=F。3、然后输入测点P的平距边长＂S(0－P)=＂？S，和到测点的夹角C＂E(∠AOP=)＂？E。61、计算出P点的坐标P（X、Y）和O―P的方位角＂T(0－P)=＂2、当K＝1时，重复以上步骤。3、当K＝2时，架站点O不变，重新输入另一测点P的边长S和夹角F，计算出P点的坐标和方位。4、当K＝3时，以上一计算点P为架站点，再输入边长和夹角，计算出以支导线形式的坐标和方位。3坐标转换(

5、ZH)＂K=1－NO，≠2－Y＂？KIfK=1：ThenGoto1：ElseGoto2：IfEndLb11：＂XA=＂？A：＂YA=＂？B：＂XB=＂？C：＂YB=？D：＂XI=＂？E：＂YI=？F：＂XJ=＂？G：＂YJ=＂？HPol(C－A,D－B)：J→O：Pol(G－E,H－F)：J→U：O－U→TIf　T﹤0：ThenT+360→T：IfEnd＂X0＂：A-E×cos(T)+F×sin(T)→M▲＂Y0＂：B-E×sin(T)-F×cos(T)→N▲＂T0=＂：TDMS▲Goto3Lbl2：＂X0=＂？M：＂Y0=

6、＂？N：＂T0=＂？TLbl3：＂XX=＂？R：＂YY＂？V：＂P=1→SG,，2→DD＂？PIfP=1：ThenGoto4：ElseGoto5：IfEndLbl4：＂X(=＂：(R－M)×cos(T)+(V－N)×sin(T)→X▲＂Y=＂：－(R－M)×sin(T)+(V－N)×cos(T)→Y▲Goto3Lbl5：＂X=＂：R×cos(T)－V×sin(T)+M→X▲＂Y=＂：R×sin(T)+V×cos(T)+N→Y▲Goto3说明：1、　输入判断值K：a:K＝1时，输入A、B两点在两坐标系中的各自坐标A（XA，YA

7、）、B（XB，YB）、A（XI，YI）、B（XJ，YJ），计算出施工坐标系的原点坐标在大地坐标系中的坐标值和X轴的夹角。b…..K≠1时，直接输入施工坐标系原点在大地坐标系中的坐标（X0，Y0）和X轴的夹角T0。2、　输入计算点坐标（XX，YY）。3、　输入判断值P：a:P=1时，计算出P点在施工坐标系中的坐标。b:P≠1时，计算出P点在大地坐标系中的坐标。4缓和曲线(HQX)(缓和曲线上和两端直线上的坐标正反算程序)Lbl0：＂R=＂？R：＂L0=＂？L：＂G(∠YXJ=+OR－)=－？GL÷2－L3÷(240R2)→C：

8、L2÷(24R)→P：180L÷(2∏R)→B：＂LL=＂：(Abs(G)－2B)∏R÷180+2L→S▲＂T=＂：C+(R+P)tan((Abs(G)÷2)→T▲＂E=＂：(R+P)÷cos(Abs(G)÷2)－R→I▲LblA：＂X(JD)=＂？M：＂Y(JD)=＂？N：＂LK(JD)