新编卡西欧fx-5800程序集(已修改))

卡西欧fx-5800P程序

1坐标反算(ST)

Lb1 1：＂X1=＂？A：＂Y1=＂？B Lb2 2：＂X2=＂？C：＂Y2=＂？D ＂S(1-2)=＂：POL(C－A,D－B)→S▲ IF J﹥0：Then J→T：Else J+360→T：If End ＂T=＂：T→DMS▲ ＂K=＂？Ｋ

If K=1：Then Goto1：If End If K=2：Then Goto2：If End

If K=3：Then C→A：D→B：Goto 2：If End 0 说明：

1、 首先输入架站点坐标X0、Y0（O点）。 2、 再输入后视点坐标XP、YP（P点）。 3、 计算出O―P的边长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)

LbI 0： ＂X0=＂？A： ＂Y0=＂？B： ＂P(1→Z，2→F)=＂？P

If P=1：Then Goto2：Else Goto5： If End LbI 2：＂XA=＂？C：＂YA=＂？D ＂S(0－A)=＂：POL(C－A，D－B)→S▲ IF J﹥0：Then J→F：Else J+360→F：If End ＂T(0－A )=＂：F→DMS▲Goto6 Lb1 5：＂T(0－A )=＂？F

Lb16：＂S(0－P )=＂？S： ＂E(∠AOP=)＂？E E+F→T：＂XP=＂：A+Rec(S，T) →X▲ ＂YP=＂：B+J→Y▲

If T≥360：Then T-360→T： If End ＂T(0－P)=＂：T→DMS▲ ＂K=＂？K

If K=1：Then Goto0：If End If K=2：Then Goto6：If End

If K=3：Then X→A：Y→B：T+180→F：Goto6：If End 说明： 1、

首先输入架站点O（X0、Y0）坐标

2、 输入判断值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。

1

4、 5、 6、 7、

计算出P点的坐标P（X、Y）和O―P的方位角＂T(0－P)=＂ 当K＝1时，重复以上步骤。

当K＝2时，架站点O不变，重新输入另一测点P的边长S和夹角F，计算出P点的坐标和方位。 当K＝3时，以上一计算点P为架站点，再输入边长和夹角，计算出以支导线形式的坐标和方位。

3 坐标转换(ZH)

＂K=1－NO，≠2－Y＂？K

If K=1：Then Goto1：Else Goto 2： If End

Lb1 1：＂XA=＂？A：＂YA=＂？B：＂XB=＂？C：＂YB=？D： ＂XI=＂？E：＂YI=？F：＂XJ=＂？G：＂YJ=＂？H

Pol (C－A , D－B) ：J→O：Pol (G－E , H－F) ：J→U：O－U→T If T﹤0： Then T+360→T： If End ＂X0＂：A-E×cos(T)+F×sin(T) →M▲ ＂Y0＂：B-E×sin(T)- F×cos(T) →N▲ ＂T0=＂：T DMS▲Goto 3

Lbl 2： ＂X0=＂？M： ＂Y0=＂？N： ＂T0=＂？T

Lbl 3： ＂XX=＂？R： ＂YY＂？V： ＂P=1→SG,，2→DD＂？P If P=1： Then Goto 4：Else Goto 5：If End

Lbl 4： ＂X(=＂：(R－M)×cos(T)+(V－N)×sin(T) →X▲ ＂Y=＂：－(R－M)×sin(T)+(V－N)×cos(T) →Y▲Goto 3 Lbl 5： ＂X=＂：R×cos(T) －V×sin(T)+M→X▲ ＂Y=＂：R×sin(T)+V×cos(T)+N→Y▲Goto 3 说明：

1、 输入判断值K：

a: K＝1时，输入A、B两点在两坐标系中的各自坐标A（XA，YA）、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)(缓和曲线上和两端直线上的坐标正反算程序) Lbl 0：＂R=＂？R：＂L0=＂？L： ＂G(∠YXJ=+ OR －)= －？G L÷2－L3÷(240R2) →C：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▲ Lbl A：＂X(JD)= ＂？M：＂Y(JD)= ＂？N： ＂LK(JD)= ＂？W：＂A(FW(ZH→JD))= ＂？A： Abs(G)÷G→H：Abs(G÷2) →Q：A+H(90+Q) →K

2

＂ZH=＂：W－T▲ ＂HY=＂：W－T+L▲ ＂QZ=＂：W－T+S÷2→Z▲ ＂YH=＂：W－T+S－L▲ ＂HZ=＂：W－T+S▲

Lbl 8：＂X=＂？X：＂Y=＂？Y： Abs(G)÷G→H：Abs(G)÷2→Q：

L2÷(24R) →O：90L÷(∏R) →B：L－L3÷(40R2) →C： (R+O)÷cos(Q) →D：Dsin(Q)+C－Rsin(B) →T If Y﹤1000：Then Goto 6；If End

Pol (X－M,Y－N) →E：J→F：Rec(I,J－K)： Q－B→Q：J÷Abs(J) →P：Pol(D－I,J)

If Abs(J)﹤Q：Then Z－HJ∏R÷180→E：H(R－I) →F：Goto B：If End K+(90－Q－B)P→C：Z－PH(Q∏R÷180+L) →D： T－Rec(E,F－C) →E：HJ→F

If E﹤0：Then D+PHE→E：﹣PHJ→F：GotoB：If End E→S：

Lbl 9：S－S5÷(40R2L2) →V：﹣PHS3÷(6RL) →C：540C÷(∏S) →U： Pol (E－V,F－C)：Rec(I,J－U)：S+I→S If Abs(I)﹥0.0001：Then Goto 9：If End D+SPH→E：﹣PJ→F：Goto B

Lbl 6：X－Z→U：Abs(U)÷U→P：Q－B→Q If Q∏R÷180﹥PU：Then Rec(R－HY,180UHP÷(∏R)： Pol(D－I,J)：M+ Rec(I,K－PJ) →E：N+J→F：Goto B：If End K－PH(90－Q－B) →C：Z+P(Q∏R÷180+L) →D：P(D－X) →U If U﹤0：Then Pol (T－U,PY)：M+Rec(I,C+J) →E： N+J→F：Goto B：If End

U－U5÷(40R2L2) →O：HPU3÷(6RL) →B：

90U2PH÷(∏RL) →Q：Pol (T－O+PYsin(Q),B+PYcos(Q))： M+Rec(I,C+J) →E：N+J→F Lbl B：＂X= OR DK=＂：E▲ ＂Y= OR PIAN=＂：F▲ Goto 8

程序说明：

1、首先输入曲线参数R=（圆曲线半径），G=（转向角，左“—”右“+”） ：L0=（缓和曲线长）。计算输出曲线总长LL，切线长Ｔ，外矢距Ｅ，切曲差ｑ

２、输入曲线转角点坐标（X(JD)=， Y(JD)=）；曲线转角点桩号LK(JD)，直缓点至转角点的方位角FW(ZH-JD)。计算输出直缓点桩号ＺＨ＝，缓园点桩号ＨＹ＝，曲中点桩号ＱＺ＝，圆缓点桩号ＹＨ＝，缓直点桩号ＨＺ＝。

３、输入待求点的数据X=,Y=：

①、已知该缓和曲线段或相邻两端直线段范围内的任意桩号值和偏离值（偏离值为左是为“－”）。即Ｘ＝桩号，Ｙ＝±偏离值（Y值＜1000，即Y值的整数位不能大于四位数）。自动计算出该桩号偏离点的坐标X（ Or LK）= ， Y（Or Pian Ju）=

②、已知该缓和曲线段或相邻两端直线段范围内的任意点坐标值X=,Y=，（Y坐标值的输入必须为整数位大于四位数的数据）。自动计算出该点所在的桩号X（ Or LK） = ，和偏离中心的位置Y（ Or Pian Ju）(Y=负值时表示为

3

左偏离)。

4、重新输入下一点的数据X=,Y=。

（注意：输入坐标时必须为大于四位的数据，偏离值必须为小于四位的数据）。

5 边长交会(BJH)

＂XA=＂？A：＂YA=＂？B：＂XB=＂？A：＂YB=＂？D Lbl A：＂S(AP)= ＂？E：S(BP)= ＂？F Pol (C－A,D－B) →S：J→T

(S2+E2－F2)÷2÷S→P：Abs(√(E2－P2)) →H A+P×cos(T)－H×sin(T) →M B+P×sin(T)－H×cos(T) →N A＋P×cos(T)－H×sin(T) →X B+P×sin(T)＋H×cos(T) →Y

Pol (X－A,Y－B)：J→U：If T－U﹥0：Then Goto 2：If End Lbl 2：M→G：N→L：X→Y：Y→W：Goto 3 Lbl 3：＂K=＂？K

If K﹥0：Then Goto 5：Else Goto 6：If End Lbl 5：＂XP=＂：V▲ ＂YP=＂：W▲Goto A

Lbl 6：＂XP=＂：G▲＂YP=＂：L▲ Goto A 说明： 1、 2、

6 方向交会（FXJH）

Lbl 1：＂XA＂=＂？A：＂YA=＂？B：＂XB=＂？C：＂YB=＂？D Pol (C－A,D－B) →S

If J﹤0：Then J＋360→T：Else J→T：If End ＂S(A－B)= ＂：S▲ ＂FW(A－B)= ＂：T DMS▲

Lbl 2：＂X0＂=＂？E：＂Y0=＂？F\\

Pol (A－E,B－F) →V：If J﹤0：Then J＋360→W：Else J→W：If End ＂S(0－A)= ＂：V▲ ＂FW(0－P)= ＂：W DMS▲ Lbl 3：＂FW＂(0－P)= ＂？G

G－W→M：1÷tan(M) →Q：W＋180－T→N：1÷tan(N) →R：Q＋R→U (AQ＋ER－B＋F)÷U→X (BQ＋FR＋A－E)÷U→Y Pol (X－A,Y－B) →O： Pol (X－E,Y－F) →P： ＂XP=＂：X▲＂YP=＂：Y▲

4

输入已知点坐标A（XA，YA）、B（XB，YB），输入待定点至已知点的距离S（AP）、S（BP）。 输入判断值K，当K为正值时输出右边点坐标（XP，YP），当K为负值时输出左边点坐标（XP，YP）。

＂S(A－P)= ＂：O▲＂S(0－P)= ＂：P▲ Goto 3

7 后方交会（HFJH）

Lbl 1：＂XA=＂？A：＂YA=＂？B：＂XB=＂？C：＂YB=＂？D：＂XC=＂？M：YC=＂？N Lbl 2：＂E(﹤APB)= ＂？E：＂J(﹤BPC)= ＂？F (D－B)÷tan(E)－C＋A→Q (C－A)÷tan(E)＋D－B→W -(N－D)÷tan(F)－M＋C→R -(M－C)÷tan(F)＋N－D→T (Q＋R)÷ (W＋T) →K Q－WK→U：-R＋TK→O

U÷(1＋K2) →P：PK→L：C＋P→X：D＋L→Y ＂XP=＂：X▲＂YP=＂：Y▲

Pol (A－X,B－Y) ：If J﹤0：Then J＋360→J：If End ＂S(P－A)= ＂：I▲＂FWJ(P－A)= ＂：J DMS▲ Pol (C－X,D－Y) ：If J﹤0：Then J＋360→J：If End ＂S(P－B)= ＂：I▲＂FWJ(P－B)= ＂：J DMS▲ Pol (M－X,N－Y) ：If J﹤0：Then J＋360→J：If End ＂S(P－C)= ＂：I▲＂FWJ(P－C)= ＂：J DMS▲Goto 1 说明：

1、 先输入已知点A、B、C的坐标，再输入A－B的夹角E和B－C的夹角F。 2、 计算出末知点的坐标X、Y。

3、 计算出末知点到各已知点的边长(S)和方位角(J)。 4、 输入时必须是面向已知点从左至右输入

8、竖曲线（SQ）

“LK(JD)=”？M： “H(JD)=”？N：“R=”？R：“I1=”？I：“I2” ？J I－J→P：

If P﹥0：Then 1→K：Else －1→K：If End “T=”：Abs（R×（J－I）÷200）→T▲ “E=”：:T2

÷2÷R→E▲ LBI 1：“LK=”？L：

If L≤M－T：Then GOTO 6： Else GOTO 2：If End LBI 2:If L≤M：Then GOTO 7： Else GOTO 3：If End LBI 3:If L≤M＋T：Then GOTO 8： Else GOTO 9：If End LBI 6：“H=”：（L－M）×I÷100＋N→H▲GOTO 1

5

LBI 7：“H=”：（L－M）×I÷100＋N－K×（L－M＋T）2÷2÷R→H▲GOTO 1 LBI 8：“H=”：（L－M）×J÷100＋N－K×（L－M－T）2÷2÷R→H▲GOTO 1 LBI 9：“H=”：（L－M）×J÷100＋N→H▲GOTO 1 说明：

1、 输入竖曲线交点（顶点）的桩号LK(JD)=，高程H(JD)=，曲线半径R。.曲线前进方向的第一坡度I1，第二坡

度I2（只输入百分值：如5%输入5， －3.5%输入 －3.5） 2、 输入坡度上（含直坡和竖曲线上的任意点）桩号值。 3、 计算出任意桩号的高程值。

6

LBI 7：“H=”：（L－M）×I÷100＋N－K×（L－M＋T）2÷2÷R→H▲GOTO 1 LBI 8：“H=”：（L－M）×J÷100＋N－K×（L－M－T）2÷2÷R→H▲GOTO 1 LBI 9：“H=”：（L－M）×J÷100＋N→H▲GOTO 1 说明：

1、 输入竖曲线交点（顶点）的桩号LK(JD)=，高程H(JD)=，曲线半径R。.曲线前进方向的第一坡度I1，第二坡

度I2（只输入百分值：如5%输入5， －3.5%输入 －3.5） 2、 输入坡度上（含直坡和竖曲线上的任意点）桩号值。 3、 计算出任意桩号的高程值。

6

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库新编卡西欧fx-5800程序集(已修改))在线全文阅读。