2024年5月8日发(作者：乜悦)
CASIO4850程序
（一）
（1）
坐标反算：（ZBFS）
A“XA”:B“YA”:C“XB”:D“YB”
S=POL（（C-A）,（D-B））▲
E=Frac（J÷360+1）×360
“FWJ=”:E▲
注：（1）计算 XA？→第一点X坐标，YA? →第一点Y坐标，XB? →第二点X坐标，YB? →第一点Y坐标
（2）结果 r→两点间距离，J→象限角，FWJ→坐标方位角
（二）
（1）
直线坐标：（ZXZB）
Lbl 0：｛K,D｝:S=K-〖起点里程如:1188000〗：A=〖坐标方位角（十进制）如：163.3395411〗：X=〖起点X坐标〗
+S×cos A:Y〖起点Y坐标〗+S×sin A:D“BZ”:D=1＝＞｛L,G｝:L“ZL”:A[1]=A-90:N=X+L×cosA[1]:E=Y+L×
sinA[1]:G=“YL”:A[2]=A+90:X[2]=X+G×cosA[2]:Y[2]=Y+G×sinA[2]:“ZC”:“N=”N=N▲
“E=”:E=E▲
“YC”:“X[2]=”:X[2]=X[2] ▲
“Y[2]=”:Y[2]=Y[2] ▲
Goto 0:≠＝＞“X=”:X=X▲
“Y=”:Y=Y▲
Goto 0
注：（1）计算 K? →里程 BZ? →任意数中桩坐标，1边桩坐标：ZL? →左边桩，RL?→右边桩
（2）结果 N=左X坐标，E＝左Y坐标，X[2]=右X坐标，Y[2]=右Y坐标
注明：程序修改方位角163°20′22.35″=（十进制）163.3395411
（三） 曲线坐标｛缓和曲线，圆曲线｝
主程序（STAKEOUT）
Prog “”
Lbl 1:｛H,Y｝
H“（CE SHE）K”
Y“（CE SHE）E”
S=H-Q:Z=FY
Prog “”
Pol（V-K,W-N）
T＜0＝＞T=T-360⊿
U=T:K=I
U“（CE SHE）X”=A+KcosT
“（CE SHE）X=”:U=U▲
K“（CE SHE）Y”=Ksin T+B
“（CE SHE）Y=”:K=K▲
Goto 1
（1）
（2） 子程序
（3） 1.（）
Deg
C“DATA IN”
C=0＝＞Fixm:≠＝＞Prog“”△
2.（）
R“（BAN JING）R”
L“（HUAN HE）L”
F“（QU XIAN）FX”
Q“（ZH）K”
X“（HZ）K”
S=（X-Q）÷2:Z=0
Prog “”
Z[1]=V:Z[2]=W:Z[3]=K
D“（CE ZHAN）K”
O“（CE ZHAN）E”
S=D-Q:Z=FO
Prog “”
M=V:N=W
E“（HOU SHI）K”
G“（HOU SHI）FW”
S=E-Q:Z=O
Prog“”
Pol（V-M
,
W-N）
Fixm:P=J
3.（）
S≤X-Q-L＝＞Prog “”:≠＝＞S=X-Q-S:Prog“”:Pol（V-Z[1]
,
W-Z[2]）:Fixm:V=Z[1]-Icos
（2FZ[3]-J）:W=Z[2]-ISin （2FZ[3]-J）:｛E,U,G｝:K=2Z[3]-K△
4.（）
A=A:B=B:
S≤0＝＞K=0:V=S:W=FZ:≠＝＞S≤L＝＞K=90S^2÷
π
RL：V=S-S^5÷40R^2 L^2-Zsin K:W=FS^3÷6RL-FS^7
÷336R^3L^3＋FZcosK△△
S＞L＝＞K=90（2S-L）÷ΠR:V=L-L^3÷40R^2-Rsin（90L÷πR）+（R-Z）sinK:W=FL^2÷6R-FL^4÷336R^3+FRcos
（90L÷πR）+F（Z-R）cosK△
注：计算：①DATA IN? →模式输0以外的任意数修改曲线要素要素，输入0继续上次的计算。
②输入0以外的任意数：（BAN JIING）R? →曲线半径，（HUAN HE）L? →缓和曲线长，（QU XIAN）FX
→曲线方向安左＋（输入1）右－（输入－1），（ZH）K? →直缓点里程，（HZ）K? →缓直点里程，A? →
直缓点X坐标，B? →直缓点Y坐标，（CE ZHAN）K? →测站点里程｛在这里输入直缓点里程｝（CE ZHAN），
E? →0
,
（HU SHI）K? →后视点里程｛输入小里程直线里程｝，（HOU SHI）FW? →直缓点到后视点的坐
标方位角｛方位角计算线路前进方向的方位角＋180°｝，（CE SHE）K? →计算点里程，（CE SHE）E? →
计算点的位置｛输入：0中桩坐标，1左侧坐标，－1右侧坐标｝，｛（CE SHE）X=，（CE SHE）Y=，计算点
X，Y坐标｝
③输入0继续上次计算：（CE SHE）K? →计算点里程，（CE SHE）E? →计算点的位置｛输入：0中桩坐
标，1左侧坐标，－1右侧坐标｝，｛（CE SHE）X=，（CE SHE）Y=，计算点X，Y坐标｝
（CE SHE）
2024年5月8日发(作者：乜悦)
CASIO4850程序
（一）
（1）
坐标反算：（ZBFS）
A“XA”:B“YA”:C“XB”:D“YB”
S=POL（（C-A）,（D-B））▲
E=Frac（J÷360+1）×360
“FWJ=”:E▲
注：（1）计算 XA？→第一点X坐标，YA? →第一点Y坐标，XB? →第二点X坐标，YB? →第一点Y坐标
（2）结果 r→两点间距离，J→象限角，FWJ→坐标方位角
（二）
（1）
直线坐标：（ZXZB）
Lbl 0：｛K,D｝:S=K-〖起点里程如:1188000〗：A=〖坐标方位角（十进制）如：163.3395411〗：X=〖起点X坐标〗
+S×cos A:Y〖起点Y坐标〗+S×sin A:D“BZ”:D=1＝＞｛L,G｝:L“ZL”:A[1]=A-90:N=X+L×cosA[1]:E=Y+L×
sinA[1]:G=“YL”:A[2]=A+90:X[2]=X+G×cosA[2]:Y[2]=Y+G×sinA[2]:“ZC”:“N=”N=N▲
“E=”:E=E▲
“YC”:“X[2]=”:X[2]=X[2] ▲
“Y[2]=”:Y[2]=Y[2] ▲
Goto 0:≠＝＞“X=”:X=X▲
“Y=”:Y=Y▲
Goto 0
注：（1）计算 K? →里程 BZ? →任意数中桩坐标，1边桩坐标：ZL? →左边桩，RL?→右边桩
（2）结果 N=左X坐标，E＝左Y坐标，X[2]=右X坐标，Y[2]=右Y坐标
注明：程序修改方位角163°20′22.35″=（十进制）163.3395411
（三） 曲线坐标｛缓和曲线，圆曲线｝
主程序（STAKEOUT）
Prog “”
Lbl 1:｛H,Y｝
H“（CE SHE）K”
Y“（CE SHE）E”
S=H-Q:Z=FY
Prog “”
Pol（V-K,W-N）
T＜0＝＞T=T-360⊿
U=T:K=I
U“（CE SHE）X”=A+KcosT
“（CE SHE）X=”:U=U▲
K“（CE SHE）Y”=Ksin T+B
“（CE SHE）Y=”:K=K▲
Goto 1
（1）
（2） 子程序
（3） 1.（）
Deg
C“DATA IN”
C=0＝＞Fixm:≠＝＞Prog“”△
2.（）
R“（BAN JING）R”
L“（HUAN HE）L”
F“（QU XIAN）FX”
Q“（ZH）K”
X“（HZ）K”
S=（X-Q）÷2:Z=0
Prog “”
Z[1]=V:Z[2]=W:Z[3]=K
D“（CE ZHAN）K”
O“（CE ZHAN）E”
S=D-Q:Z=FO
Prog “”
M=V:N=W
E“（HOU SHI）K”
G“（HOU SHI）FW”
S=E-Q:Z=O
Prog“”
Pol（V-M
,
W-N）
Fixm:P=J
3.（）
S≤X-Q-L＝＞Prog “”:≠＝＞S=X-Q-S:Prog“”:Pol（V-Z[1]
,
W-Z[2]）:Fixm:V=Z[1]-Icos
（2FZ[3]-J）:W=Z[2]-ISin （2FZ[3]-J）:｛E,U,G｝:K=2Z[3]-K△
4.（）
A=A:B=B:
S≤0＝＞K=0:V=S:W=FZ:≠＝＞S≤L＝＞K=90S^2÷
π
RL：V=S-S^5÷40R^2 L^2-Zsin K:W=FS^3÷6RL-FS^7
÷336R^3L^3＋FZcosK△△
S＞L＝＞K=90（2S-L）÷ΠR:V=L-L^3÷40R^2-Rsin（90L÷πR）+（R-Z）sinK:W=FL^2÷6R-FL^4÷336R^3+FRcos
（90L÷πR）+F（Z-R）cosK△
注：计算：①DATA IN? →模式输0以外的任意数修改曲线要素要素，输入0继续上次的计算。
②输入0以外的任意数：（BAN JIING）R? →曲线半径，（HUAN HE）L? →缓和曲线长，（QU XIAN）FX
→曲线方向安左＋（输入1）右－（输入－1），（ZH）K? →直缓点里程，（HZ）K? →缓直点里程，A? →
直缓点X坐标，B? →直缓点Y坐标，（CE ZHAN）K? →测站点里程｛在这里输入直缓点里程｝（CE ZHAN），
E? →0
,
（HU SHI）K? →后视点里程｛输入小里程直线里程｝，（HOU SHI）FW? →直缓点到后视点的坐
标方位角｛方位角计算线路前进方向的方位角＋180°｝，（CE SHE）K? →计算点里程，（CE SHE）E? →
计算点的位置｛输入：0中桩坐标，1左侧坐标，－1右侧坐标｝，｛（CE SHE）X=，（CE SHE）Y=，计算点
X，Y坐标｝
③输入0继续上次计算：（CE SHE）K? →计算点里程，（CE SHE）E? →计算点的位置｛输入：0中桩坐
标，1左侧坐标，－1右侧坐标｝，｛（CE SHE）X=，（CE SHE）Y=，计算点X，Y坐标｝
（CE SHE）