即可得到待定点的点名，坐标，高程为零，及现场展点所需的显示值，当显示是否存盘时，可选择“0～9”的数字输入，分类存盘。当显示输入水平角时，输入“-1”程序返回观测菜单。 4.2.1.ｃ 视距极坐标法
在观测菜单下，按“PF3”键，启用视距极坐标法程序， 输入施测点的视距，截尺，垂直角，水平角，即可得到待定点的点名，坐标，高程及现场展点所需的显示值。当显示是否存盘时，可选择0～9中的数字输入，分类存盘。当不需测高程时，在显示输入截尺时，输入“0”。当显示输入视距时，输入“-1”，程序返回观测菜单。 4.2.1.ｄ 测距极坐标法
在观测菜单下，按下“PF4”键，启用测距极坐标法程序。 在仪器类型选择全站仪下，数据可从全站仪通过传送带自动传输到计算机。当显示输入斜距时，输入“Ｐ”，计算机接收到全站仪的斜距、垂直角、水平角。当输入截尺后，即可得到待定点的点名，坐标高程及现场展点所需的显示值。在仪器类型选择测距仪下，用键盘输入斜距、截尺、垂直角、水平角，即可得到待定点的点名，坐标，高程及现场展点所需的显示值。当显示是否存盘时可选择0～9中的数字输入，分类存盘。当不需测高程时，在显示输入截尺时，输入“O”。当显示输入斜距时，输入“-1”， 程序返回观测菜单。 4.2.1.ｅ 程序返回主菜单
在观测菜单下，按下“PF5”键，程序返回到主菜单。 4.2.2 丈量
在主菜单下，按下“PF3”键， 进入丈量菜单。输入测图比例尺，图幅零点坐标值，成果数据文件名，出现丈量菜单。
丈 量
边交 线距 ＋字 等分 返主
4.2.2.ａ 测边交会
在丈量菜单下，按下“PF1”键，启用边交会程序， 输入两组已测点点名，及到待定点的距离即得到待定点的编号，坐标，高程为零及现场展点所需的显示值。当显示是否存盘时，同样可选择0～9中的数字输入，分类存盘。程序返回丈量菜单。 4.2.2.ｂ 直线与距离交会
在丈量菜单，按下“PF2”键，启用距离与直线交会程序， 输入已测的直线上两点点名，再输入另一已测点到直线上待定点的距离及点名即得到待定点的一组编号，坐标，高程为零及现场展点所需的显示值。当显示是否存盘时，可选择0～9中的数字输入，分类存盘。当选择“0”输入，放去该点存盘，又再得到待定点的另一组编号， 坐标，高程为零及现场展点所需的显示值。当显示输入距离时，输入“-1”，程序返回丈量菜单。 4.2.2.ｃ 十字尺推尺
在丈量菜单下，按下“PF3”键，启用十字尺推尺程序， 输入原点及方向点的点名，输入距离和推尺的角度(0、90、180、270)， 即得到待定点的编号，坐标，高程为零及现场展点所需的显示值。当显示是否存盘时，可选择0～9中的数字输入，分类存盘。存盘后，原点及方向依次推进。当显示输入距离时，输入“-1”，程序返回丈量菜单。 4.2.2.ｄ 线段等分点
在丈量菜单下，按下“PF4”键，启用线段内等分点程序， 输入线段两端点点名及等分数段即可依次得到等分点的编号，坐标，高程为零及现场展点所需的显示值。当显示是否存盘时，可选择0～9中的数字输入，分类存盘。程序返回到丈量菜单。 4.2.2.ｅ 程序返回主菜单
在丈量菜单下，按下“PF5”键，程序返回到主菜单。 4.2.3 系统转换
在主菜单下，按下“PF5”键，退出测图数据采集系统， 进入公共系统。 五: 程序部分清单 (4.2.1.d.部分) 434:*PF4:IF XA=0GOSUB \
436:IF R$=\T DS$:GOTO 442
21
438:LOCATE 0,0:PRINT \440:IF DS$=\442:IF DS$=\444:DS=VAL DS$:S=DS 446:IF DS<0THEN GOTO \
448:PRINT \450:PRINT \452:PRINT \454:GOTO 548
456:IF R$=\458:IF R$=\460:IF R$=\462:IF R$=\
464:*N:REM \466:OPEN \468:PRINT #&1,CHR$ 17+CHR$ 13+CHR$ 10 470:INPUT #&1,AA$ 472:BEEP 1,5 474:CLOSE #&1
476:HZ=VAL (MID$ (AA$,16,8))/10000 478:VT=VAL (MID$ (AA$,8,8))/10000 480:DS=VAL (MID$ (AA$,1,8))/1000 482:B=HZ:Z=VT:GOTO 546
484:*G:REM \486:OPEN \488:PRINT #&1,\489:PRINT #&1,\490:INPUT #&1,AA$
492:PRINT #&1,CHR$ 6+\494:BEEP 1,5 496:CLOSE #&1
498:HZ=VAL (MID$ (AA$,22,8))/100000 500:VT=VAL (MID$ (AA$,13,8))/100000 502:DS=VAL (MID$ (AA$,3,9))/10000 504:B=HZ:Z=VT:GOTO 546
528:*P:REM \530:OPEN \
532:PRINT #&1,\534:BEEP 1,5 536:CLOSE #&1
538:HZ=VAL (MID$ (AA$,&5,&12)) 540:VT=VAL (MID$ (AA$,&13,&12)) 542:DS=VAL (MID$ (AA$,&23,&12)) 544:B=HZ:Z=VT:GOTO 546
22
546:*PF5:LOCATE 0,1:PRINT \548:IF R$=\550:D=DS*SIN (DEG Z)
552:T=TA+DEG B+180:T=T-INT (T/360)*360:X=XA+D*COS T:Y=YA+D*SIN T 554:IF L=0THEN H=0:GOTO 562
556:IF Z=90THEN H=HA+III-L:GOTO 562 558:H=HA+III+D/TAN DEG Z-L
560:IF R$=\562:GOSUB 152
564:LOCATE 20,0:INPUT \566:IF WI<>0 THEN GOSUB 160 568:GOTO 436 公路逐桩坐标计算程序
(可以计算对称、不对称缓和曲线) Lb1 0 Z=？ V=？
W=V+2：Fixm ｛K｝ Lb1 1
K>Z[W+5Z+4]=>W=W+1:Goto 1⊿ (判断桩号在哪个交点范围，就是该交点曲线起点至下一交点曲线起点) S=K-Z[W+5Z+3] （计算该桩号与曲线起点的距离）
R=Z[W+2Z+2]：L=Z[W+3Z+2]:E=Z[W+4Z+2] （读取该交点曲线要素R、Ls1 、Ls2） Pol（Z[W]-Z[W-1],Z[W+Z+2]-Z[W+Z+1]） （计算该交点与下一交点直线方位角） J<0=>J=J+360⊿ A=J
Pol（Z[W-1]-Z[W-2],Z[W+Z+1]-Z[W+Z]） （计算该交点与上一交点直线方位角） J<0=>J=J+360⊿
C=A-J:A=J （计算偏角）
W=V+2=>Goto2⊿ （如果桩号在起点与第一交点曲线起点之间，则转 Lb1 2 ） I=Abs（tan（c÷2））
M=L÷2-L^3÷240R^2:N=E÷2-E^3÷240R^2 P=L^2÷6R-L^4÷336R^3-R（1-cos（90L÷πR）） Q=E^2÷6R-E^4÷336R^3-R（1-cos（90E÷πR）） D=（P-Q）I÷2 : F=（P+Q+2R）I÷2 M=F+M-D:Q=F+N+D N=πRAbsC÷180+（L+E）÷2 X=Z[W-1]-McosA Y=Z[W+Z+1]-MsinA M=Z[W-1]+Qcos（A+C） V=Z[W+Z+1]+Qsin（A+C） Q=AbsC÷C
S≤L=>P=0:Goto3⊿ （如果桩号在第一缓和曲线内，则转 Lb1 3）
23
S≤N-E=>S=S-L:Goto4⊿（如果桩号在圆曲线内，则转 Lb1 4） S≤N=>S=N-S
Q=-Q:A=A+C-180:X=M:Y=V:L=E：P=180:Goto3 ⊿ （如果桩号在第二缓和曲线内，则转 Lb1 3） P=A+C:S=S-N:D=M+ScosP:F=V+SsinP
Goto6 （如果桩号在直线内，则转 Lb1 6） Lb1 2 P=A+C
D=Z[W-1]+ScosP
F=Z[W+Z+1]+SsinP:Goto6 Lb1 3
I=S-S^5÷40R^2÷L^2+S^9÷3456R^4÷L^4 J=Q（S^3÷6RL-S^7÷336R^3÷L^3） P=P+A+90QS^2÷πRL:Goto5 Lb1 4
M=90（2S+L）÷πR
I=RsinM+L÷2-L^3÷240R^2 J=Q（L^2÷24R+R（1-cosM）） P=A+QM Lb1 5
D=X+IcosA-jsinA:F=Y+JcosA+IsinA Lb1 6
D″X=″◢ （结果显示X坐标） F″Y=″◢ （结果显示Y坐标） P″AT=″◢ （结果显示该桩号方位角） {BO}：B″S″O″⊿″ （输入边桩距离，交角） P=P+O
L″XB″=D+BcosP◢ （结果显示边桩X坐标） M″YB″=F+BsinP◢ （结果显示边桩Y坐标）
CASIO fx－4500p坐标计算程序
根据坐标计算方位角
W＝W＋360△W：“ALF(1~2)＝”?L1 A“X1＝”：B“Y1＝”：Pol(C“X2”－A，D“Y2”－B：“S＝”▲W＜0 直线段坐标计算
L1 X“X(0)”：Y“Y(0)”：S“S(0)”：A“ALF” L2 Lb1 2 L3 {L}：L“LX”
L4 M“X(Z)”＝X＋(L－S)cosA▲ L5 N“Y(Z)”＝Y＋(L－S)sinA▲ L6 {B}：B“B(L)”：Q“Q”
L7 O“X(L)”＝M＋Bcos(A＋Q＋180)▲ L8 P“Y(L)”＝N＋Bsin(A＋Q＋180)▲ L9 {C}：C“B(R)”
L10 U“X(R)”＝M＋Ccos(A＋Q)▲
24
L11 V“Y(R)”＝N＋Csin(A＋Q)▲ L12 Goto 2 园曲线段坐标计算
L1 S“S(0)-Km”：X“X(0)”：Y“Y(0)”：A“ALF”：R“R”：K“K(L＝1,R＝2)” L2 Lb1 2 L3 {L}：L“L(X)”
L4 V＝180／π×（L－S）／R：W＝V／2
L5 C＝A＋(-1)K×W：D＝2RsinW：F＝A＋(-1)K×V L6 M“X(Z)”＝X＋DcosC▲ L7 N“Y(Z)”＝Y＋DsinC▲ L8 {E}：E“B(L)”：Q“Q”
L9 O“X(L)”＝M＋Ecos(F＋Q＋180)▲ L10 P“Y(L)”＝N＋Esin(F＋Q＋180)▲ L11 {G}：G“B(R)”
L12 T“X(R)”＝M＋Gcos(F＋Q)▲ L13 U“Y(R)”＝N＋Gsin(F＋Q)▲ L14 Goto 2
正向缓和曲线段坐标计算
L1 S“ZH-Km”：X“X(ZH)”：Y“Y(ZH)”：A“ALF”：R“R”：H“LS”：K“K(L＝1,R＝2)” L2 Lb1 2 L3 {L}：L“L(X)”
L4 D＝30（L－S）2／π／R／H：C＝L－S－（L－S）5／90／（R×H）2：B＝A＋D(-1)K：E＝A＋3D(-1)K L5 U“X(Z)”＝X＋CcosB▲ L6 V“Y(Z)”＝Y＋CsinB▲ L7 {G}：G“B(L)”：Q“Q”
L8 F“X(L)”＝U＋Gcos(E＋Q＋180)▲ L9 I“Y(L)”＝V＋Gsin(E＋Q＋180)▲ L10 {J}：J“B(R)”
L11 M“X(R)”＝U＋Jcos(E＋Q)▲ L12 N“Y(R)”＝V＋jsin(E＋Q)▲ L13 Goto 2 卵形曲线坐标计算
X＝1,D＝2)”?L1 S“Km-YH”：E“X(YH)”：F“Y(YH)”：G“ALF”：B“R1”：D“A”：K“K(L＝1,R＝2)”：Q“R1-R2 L2 Lb1 2 L3 {Z}：Z“L(X)”
L4 J“L1”＝D2／B： R“RP”＝D2B／(D2＋(-1)Q(Z－S)B)：L“LP”＝D2／R L5 M＝(L－J)－(L5－J5)／40／D4＋(L9－J9)／3456／D8
L6 N＝(L3－J3)／6／D2－(L7－J7)／336／D6＋(L11－J11)／42240／D10 L7 T＝G－(-1)Q(-1)K×J2×90／D2／π L8 X“X(Z)”＝E＋(-1)QMcosT－(-1)KNsinT▲ L9 Y“Y(Z)”＝F＋(-1)QMsinT＋(-1)KNcosT▲
L10 A“ALF(P)”＝G＋(-1)K(Z－S)×90×(1／B＋1／R)／π L11 {H}：H“B(L)”：U“Q”
L12 W“X(L)”＝X＋Hcos(A＋U＋180)▲
25
L13 V“Y(L)”＝Y＋Hsin(A＋U＋180)▲ L14 {C}：C“B(R)”
L15 I“X(R)”＝X＋Ccos(A＋U)▲ L16 P“Y(R)”＝Y＋Csin(A＋U)▲ L17 Goto 2
26