测量计算CASIO 5800程序全套

测量计算CASIO 5800程序全套

坐标主程序
XY(坐标程序)
LbI 2←
?K←
Prog “SUB3”←
“X=”：X◢
“Y=”：Y◢
?v←
If V=√2 :Then Prog“SUB2”：Else If End←
GOTO 2←
←
子程序
ZX 1
K-160680→H←（160+680为起点里程，直线段）
3036283.487→A← （A、B为K160+680坐标）
508810.961→B←
152º58º50.1º→E←（为K160+680方位角）
A+Hcos(E)→X←
B+Hsin(E)→Y←
QX 27（K160915.558+100~ K161255.558曲线右偏）
4500→R←
340→L←
K-160915.558→H← （160915.558为ZH点里程）
K-161255.558→I← （161255.558为HY点里程）
If I≤0:Then
3036073.640→A:
508917.974→B←
Prog “SUB1”←
152º58º50.1º+3G→E←
A+Fcos(E-2G)→X←
B+Fsin(E-2G)→Y←
Goto 2←
Else I﹥0←
K-163292.987→J←
If J≦0:Then
3035768.8493→A:
509068.5994→B←
I×90÷π÷R→C←
2×R×sin©→D←
155º8º41.2º+2C→E←
A+Dcos(E-C)→X←
B+Dsin(E-C)→Y←
Goto 2←
Else J＞0←
K-163632.987→S←
If S≦0:Then
3033452.4317→A:
509469.608→B←
-S→H←
Prog“SUB1”←
183º15º03º-3G→E←
A+Fcos(180º+E+2G)→X←
B+Fsin(180º+E+2G)→Y←
Goto 2←
Lb1 2←
QX 28 （K167+833.075~ K168003.075曲线左偏）
8000→R:
170→L:
K-167833.075→H←
K-168003.075→I←
If I≤0:Then 3029088.4853→A:
509221.7418→B←
Prog “SUB1”←
183º15º03º-3G→E←
A+Fcos(E+2G)→X←
B+Fsin(E+2G)→Y←
Goto 2←
Else I﹥0←
K-168634.281→J←
If J≦0:Then
3028918.7266→A:
509212.7028→B←
I×90÷π÷R→C:
2Rsin©→D←
182º38º32º-2C→E←
A+Dcos(E+C)→X←
B+Dsin(E+C)→Y←
Goto 2←
Else J＞0←
K-168804.281→S←
If S≦0:Then
3028117.834→A:
509215.2746→B←
-S→H←
Prog“SUB1”←
177º30º45º+3G→E←
A+Fcos(E+180º-2G)→X←
B+Fsin(E+180º-2G)→Y←