自编卡西欧5800程序(简单易懂,有说明1)

一、直线段中边桩坐标计算

Deg:Fix3

（设置角度单位为十进制，3位固定小数显示）

“QD:K=”？→A: “QD:X=”？→B: “QD:Y=”？→C: “QD:FWJ=”？→D

（输入起点桩号、坐标、方位角）

Lbl 1

（设置程序标签）

“K=”?→E:“L=”?→F：“JJ=”?→J

（输入待求点桩号；边距：左负右正）

B+(E-A)cos(D)+Fcos(D+J)→H

C+(E-A)sin(D)+Fsin(D+J)→I

“Xn=”:H◢

“Yn=”:I◢

（计算并显示待求点坐标）

Goto 1

（转向程序标签1继续执行程序）

二、圆曲线中边桩坐标计算

Deg:Fix3

（设置角度单位为十进制，3位固定小数显示）

“ZY:K=”？→A: “ZY:X=”？→B: “ZY:Y=”？→C: “ZY:FWJ=”？→D: “R=”？→E: “ZJ=”？→F

（输入ZY点桩号、坐标、方位角，圆曲线半径，转角：左负右正）

Lbl 1

（设置程序标签）

“K=”?→G:“L=”?→H：“JJ=”?→S

（输入待求点桩号；边距：左负右正）

（G-A）×180°÷π÷E→J

（计算圆心角）

D+J→M

（计算P点的切向方位角）

2Esin(J÷2) →K

（计算弦长）

If F＞0:Then （D+J÷2)→L :Else（D-J÷2)→L :IfEnd

（计算ZY到P点的方位角）

B+Kcos(L)+Hcos(M+S) →N

C+Ksin(L)+Hsin(M+S) →O

“Xn=”:N◢

“Yn=”:O◢

“a=”:M◢

（计算并显示待求点坐标、路线切向方位角）

Goto 1

（转向程序标签1继续执行程序）

三、第一完整缓和曲线中边桩坐标计算

Deg:Fix3

（设置角度单位为十进制，3位固定小数显示）

“ZH:K=”？→A:“ZH:X=”？→B:“ZH:Y=”？→C:“ZH:FWJ=”？→D:“R=”？→E:“L1=”？→F:“ZJ=”？→G

（输入起点桩号、坐标、方位角，圆曲线半径，缓和曲线长度，转角：左负右正）Lbl 1

“K=”?→H:“L=”?→I ：“JJ=”?→V

（输入待求点桩号；边距：左负右正）

(H-A)- (H-A)5÷40÷E2÷F2→K

(H-A)3÷6÷E÷F-(H-A)7÷336÷E3÷F3→L

(H-A)2×90°÷π÷E÷F→M

If G＞0:Then D+M→N : Else D-M→N: IfEnd

任意点的切向方位角

2

T

+2

K→

L

计算弦长

If G＞0:Then D+M÷3→U : Else D-M÷3→U: IfEnd

计算弦的方位角

B+TcosU+Icos(N+V) →R

C+TsinU+Isin(N+V) →S

“Xn=”:R◢

“Yn=”:S◢

“a=”:N◢

Goto 1

四、第二完整缓和曲线中边桩坐标计算

Deg:Fix3

（设置角度单位为十进制，3位固定小数显示）

“HZ:K=”？→A:“JD:X=”？→B:“JD:Y=”？→C: “ZH:FWJ=”？→D: “ZJ=”？→E :“T2=”？→F:“L2=”？→G: “R=”？→H

（输入终点桩号，交点坐标，起点方位角，转角：正左负右，第二缓和曲线长度、切线长，圆曲线半径）

If E＜0:Then D+180°-(180°+E)→I:IfEnd: If E＞0:Then D+180°+(180°-E)→I :IfEnd

B+Fcos(I) →K

C+Fsin(I) →L

“HZ:X=”:K◢

“HZ:Y=”:L◢

“a=”:I◢

Lbl 1

“K=”?→M:“L=”?→N:“JJ=”?→O

（输入待求点桩号；边距;夹角：正左负右）

(A-M)- (A-M)5÷40÷H2÷G2→P

(A-M)3÷6÷H÷G-(A-M)7÷336÷H3÷G3→Q

If E＜0:Then I+180°+180°+90°→R :IfEnd: If E＞0:Then I+180°+180°-90°→R :IfEnd

(A-M)2×180°÷2÷π÷H÷G→U

If E＜0:Then I+180°+(180°-U)→V:IfEnd: If E＞0:Then I+180°-(180°-U)→V :IfEnd

K+Pcos(I+180°)+QcosR+Ncos(X+180°+O)→S

L+Psin(I+180°)+QsinR+Nsin(X+180°+O)→T

“Xn=”:S◢

“Yn=”:T◢

“a=”:V◢

Goto 1