4800计算器常用测量计算程序

键即可。 FILE ，其余操作同①。
Prog
③ SHIFT
“DXJS”。
2．程序启动后，按照显示屏上的提示进行操作： ①“N=？” ，输入导线转折角总数。 如：图 1.1—1 中，N=5；图 1.1—2(a、b)中，N=6；图 1.1—3 中，N=5。 ， ②“X1=？”“Y1=？” 对于图 1.1—1，图 1.1—2b、图 1.1—3 的图形，输入 A 点的已知坐标 XAYA。若 已知 AB 边的坐标方位角αBA 则输入：X1=αBA（以小数形式输入：度、分、秒） 1=0， ，Y
2.程序清单 程序清单
2．1 各主程序 2．2 各子程序
1 程序使用说明
1.1 导线计算程序
（程序名：DXJS）
一、程序功能
本程序可用于进行单一导线（包括附合导线、闭合导线、支导线）的简易平差计 算；同时还可计算以该导线点为测站点、定向点的极坐标点的坐标。
二、图形说明
本程序适合于以下图形的单一导线： 1.附合导线(图 1.1—1)
常 用 测 量 计 算 程 序
（适用于 CASIOfx—4800P 计算器）
南 昌 徕 特
有 限 公 司
测绘仪器经营维修部
地址：江西省南昌市北京东路 220 号 南昌大学南区对面 电话： （0791）8302887
南昌大学土木工程系
目
1.程序使用说明 程序使用说明
录
1．1 导线计算程序 1．2 公路任意中桩点、边桩点坐标或放样元素计算程序 1．3 方位角、边长反算程序 1．4 坐标交换计算程序 1．5 面积计算程序 1．6 交点坐标计算程序 1．7 点到直线的距离计算程序 1．8 高斯投影坐标正、反算及换带计算程序
桩点坐标或放样元素（方位角 A 或边长 S） 。然后，只要输入任意点的里程 LP，即可 计算出该点的中桩点，左、右边桩点的坐标或放样元素。 若为桥涵点，还应输入公路中线之法线与桥涵中线的交角 O0。交角 O 由公路中线之法 线起算，顺时针为正值，反时针为负值。 计算完每一点后，显示屏都会显示“GO ON？” ，若要继续计算，输入 1，否则输入 2， 当显示屏显示“MOVE STATION？”时，输入 1，为搬站，需重新输入搬站后测站 点、定向点坐标；输入 2，表示该段道路已算完，程序运行结束。
（程序名：GAUSS） 一、程序功能 本程序可用于高斯投影坐标正、反算及换带计算。 二、使用说明 程序启动后，显示“1B X2X B3≥≤” ，输入 1，为高斯投影坐标正算；输入 2， 为高斯投影反算；输入 3，为高斯投影换带计算。 1、正算 “B=？”“L=？”“L0=？” ， ， ，分别输入纬度、经度及中央子午线经度，按度、 分、秒形式输入。 接着输出：坐标 X、Y（已加上 500Km） 。 2、反算 “X=？”“Y=？”“L∞=？” ， ， ，分别输入坐标，中央子午线经度。 接着输出：纬度 B，经度 L。由于经度包括小数点有 12 位，无法一次显示，所 以分二次显示。第一次显示度、分，第二次显示秒。 3、换带 “X=？”“Y=？”“L∞=？” ， ， ，分别输入坐标及其中央子午线经度； “L0=？” ，输入换带中央子午线经度，接着输出换带后的坐标 X′、Y′。
2
程序清单
2． 1 主程序
2.1.1 导线计算
（程序名：DXJS） Deg：Fix：Lb1 0： ｛NABCDEFGH｝ ：K=N：C”X1=”D”Y1=”A”X2=”B”Y2=”：Lb1 1： X=N-K+1： L=Z[X]： S=Z[N+X]： {LS}： Z[X]=L： Z[N+X]=S： Dsz K： Goto1： G”X3=”： G>0 H“Y3=”E“X4=”F“Y4=” M=0： ｛M｝ ：M“CHECK(0,1)”：M=M+1：Dsz M： Goto 0：D≤0 O=C：Prog“C”：P=O-180：Prog“F”：≠ X=A-C：Y=B-D： Prog“D” Fix3：T=P：U=0：V=0：W=0：G>0 Prog“J” Prog“E”：Lb1 7： O=-1：{SO}：O“J.L=”：O≥0 Prog“A”：Goto 7 Prog “B”：X◄Y◄ Dsz K：Goto 7： “END”
图 1.1—2b 也属于这种情形：X1=αB1。 ， ③“X2=？”“Y2=？”,输入已知点的坐标 XB ， YB。 ④“L=？”“S=？” ， 依次输入各站的观测角、边长。观测角以小数形式输入：度、分、秒。对于闭合 边长：S=0。对于图 1.1—2a 中的图形，第一个测站的观测角：L=0。 ⑤“X3=？”“Y3=？” ， 对于附合导线，输入已知点 C 的坐标 XC、YC。 对于支导线：X3=0，导线输入自然结束。 对于闭合导线，应输入 B 点的坐标 XB，YB。 ⑥”X4=？”,”Y4=？” 对于附合导线：输入已知点 D 的坐标 XD、YD。若已知 CD 边的坐标方位角αCD，则 X4=αCD，Y4=0。 对于闭合导线（图 1.1—2b） ：输入已知点的坐标 XA，YA。若已知 AB 边坐标方位 角，则：X4=αBA，Y4=0。对于闭合导线（图 1.1—2a） 4=αB1，Y4=0。 ：X ⑦“CHECK（0，1） ” 问：是否校对输入的数据。若要校对，则输入非零的数值；否则输入 0 或直接回车。 ⑧程序依次显示输出如下计算结果： fB——导线角度闭合差： FB——导线角度闭合差限差； ΣS——导线全长； Fx,fy——导线纵、横坐标闭合差； ∑S÷fs——导线全长相对闭合差分母；
（程序名：PLS） 一、程序功能 本程序用于计算点到直线的距离，并求得垂足的坐标及点到垂足方向的方位角。 二、使用说明 程序启动后，按显示屏提示顺序输入点的坐标（A、B） ，直线上任意两点的坐标 （C、D）（E、F） ， ，即求得垂足坐标（X，Y） ，垂距 S 及点到垂足方向的方位角 T。
1．8 高斯投影坐标正、反算及换带计算程序 高斯投影坐标正、
Fs——导线全长闭合差； ⑨”j·L”,”j·s” 分别输入本站极坐标点的观测角和边长，当极坐标点以前视点定向时，边长输入 负值。本站极坐标点计算完毕，直接回车。 ⑩最后显示输出如下结果： 导线点坐标：X，Y 极坐标点坐标：XJ，YJ
1.2 公路任意中桩点、边桩点坐标或放样元素计算程序
（程序名：CURVE） 一、程序功能 本程序可用于计算公路任意中桩点、 边桩点以及桥涵点的坐标或放样元素 （边长、 方位角） 。 二、图形说明 图 1.2—1 所示为一段含缓和曲线、圆曲线段、直线段的公路中线示意图，JD0、 JD0 ZH HY YH HZ
2.1.2 公路任意中桩点、边桩点坐标或放样元素计算
（程序名：CURVE） Deg：Fix 4：A=Z[1]：B=Z[2]：C=Z[3]：D=Z[4]：E=Z[7]：F=Z[8]：G=Z[31]：H=Z[32]： M=Z[33] ： N=Z[34] ： {ABCDEFGHMN} ： A“XJ0=”B“YJ0=”C“LJ0=”D“R=”E“L0=” F“D=”G“XJ1=”H“YJ1=”M“XJ2=”N“YJ2=”： Z[1]=A： Z[2]=B： Z[3]=C： Z[4]=D： Z[7]=E： Z[8]=F： Z[31]=G： Z[32]=H： Z[33]=M： Z[34]=N： X=A-G： Y=B-H： Prog “D”： Z[5]=P： X=M-A：Y=N-B：Prog“D”：Z[6]=P：Z[46]=Z[6]-Z[5]：Z[46]>0 Prog“11” ： ≠ Prog“12” Z[10]=Z[9](Z[6]-Z[5])：R=Z[4]：Z[11]=180Z[7]÷(2πR)：M=Z[7]÷2-Z[7]^3÷(240R^2)： P=Z[7]^2÷(24R)-Z[7]^4÷(2688R^3):T=M+(R+P)tan(Z[10]÷2)◢L=2Z[7]+(Z[10]-2Z[11]) Rπ÷180◢E=(R+P)÷cos(Z[10]÷2)-R◢K=Z[5]-180：K<0 K=K+360 Z[12]=Z[1]+Tcos K ： Z[13]=Z[2] ＋ TSinK ： K=Z[6] ： Z[14]=Z[1] ＋ TcosK ： Z[15]=Z[2] ＋ TSinK ： Z[16]=Z[3]-T：Prog“M”：Prog“T”：F=1： ：F“OUT X－Y OR A－S”：G=0： ｛F｝ ｛G｝ ：G“0 OR 5”：LbI 1：F=2 Prog“W” LbI 2：R=Z[4]：G ≠0 prog“U”：≠ U=Z[18]： ｛UO｝ ：U“LP=” O“O=”：Z[18]=U Z[7]≠0 Goto8 ：≠ Z[18]-Z[35]<0 Prog“Y” ：Goto9 Z[18] – Z[39]>0 Prog“Y” ：≠ Prog“N” Goto 9 Lb1 8：z[18]－Z[35]<0 Z[18]－Z[39]>0 Prog“Y”：Goto 9 Abs(Z[18]－Z[16]－ Prog“Y”：Goto 9 0.5L)≤ Abs(o.5L－Z[7]) Prog“N”： ≠ Prog“O” LbI 9： F=1 Prog “X”：≠ Prog“V” G ≠0 Dsz G：≠ U=1 U=1： ｛U｝ U“GO ON” ： ：U=1 Goto 2：≠ V=1 F≠2 Goto 3 ｛V｝ ：V“MOVE STATION” ：V=1 Goto 1：≠ V=0 LbI 3： “END”
F E B 2 1 E 图 1.1—2a 3.支导线（图 1.1—3） A 1 F B
F E 2
1 图 1.1—2b
5 3
B
2 图 1.1—3
4
三、程序使用说明
本程序启动前进行变量扩充：
SHIFT Defm 1 5 EXE
。若前一次扩充数不小于这次，
可不再扩充。 1．程序启动 采用下列方法之一，均可启动本程序（程序名为：DXJS） ： ① MODE ，然后用上下移动键将光标移到“DXJS”处， 5 2 按 EXE ②
1．6 交点坐标计算程序 （程序名：JD） 一、程序功能 本程序可用于计算不平行的两条直线的交点坐标。 二、程序使用说明 程序启动后，按显示分别输入不平行的两条直线上两点坐标（A，B） （C，D） （G，H） 。同直线上的两点输入顺序不限。 和（E，F） 接着输出交点坐标 X，Y。
1．7 点到直线的距离计算程序 ．
1． ．
4 坐标变换计算程序
（程序名：ZBB）
一、程序功能 本程序可用于平面坐标变换计算。 二、基本图形
Y A B K O1 Y0 坐标系，O1—AB 为新坐标系。X0，Y0 为新坐标系 原点 O1 在旧坐标系中的坐标，K 为旋转角，图中方向为正角，反之为负角。 三、使用说明 程序启动后，首先输入 X0，Y0，K，然后，依次输入旧坐标 X、Y，即求得其新 坐标 A、B。
1. 5 面积计算程序
（程序名：AREA） 一、程序功能 本程序可用于计算由封闭的多边形之顶点坐标计算其面积。 二、使用说明 顺序输入各顶点的坐标 X、Y，当输完最后一个顶点之 Y 值后，输入一个 X<0 的值，表示输入结束。 接着输出面积 A（米 2） ，再按 EXE 键，输出面积 AA（亩） 。
若公路不含缓和曲线段，只有园曲线和直线段， 只输入 即可。 若公路不含缓和曲线段，只有园曲线和直线段，则只输入 L0=0 即可。 不含缓和曲线段 园曲线和直线段
1．3
方位角、 方位角、边长反算程序
（程序名：FWB）
一、程序功能 本程序可用于由两点的坐标计算该两点间的距离（边长）及方位角。 二、使用说明 程序启动后，根据显示屏显示输入： ①“X0=？”“Y0=？” ， ，输入 0 号点 X、Y 坐标； ②“X1=？”“Y1=？” ， ，输入 1 号点 X、Y 坐标； 然后，输出 A（方位角α01） ，S（边长 S01）
JD1 图 1.2—1
JD2
JD1、JD2 为交点。本程序要求的已知数据为：各交点的坐标，交点 JD0 的里程 LJ0， 园曲线半径 R，缓和曲线长度 L0，路面设计宽度 D。若要直接计算放样元素，还需要 测站及定向点的坐标。 三、使用说明 本程序启动前须进行变量扩充： 。若前一次扩充不小于这次， SHIFT Defm 4 EXE 6 可不再扩充。 程序启动后，按显示屏上的提示进行操作： ①“XJ0=？”“YJ0=？” ， ，输入交点 JD0 的坐标； ②“LJ0=？” ，输入交点 JD0 的里程； ③“R=？” ，输入园曲线半径； ④“L0=？” ，输入缓和曲线长度； ⑤“D=？” ，输入路面设计宽度； ⑥“XJ1=？”“YJ1=？” ， ，输入交点 JD1 的坐标； ⑦“XJ2=？”“YJ2=？” ， ，输入交点 JD2 的坐标； 接着，显示屏显示“OUTX—YORA—S？” ，若要计算坐标，输入 1；若要计算放样元素， 输入 2。输入 2 后，还要输入以下数据： ⑧“X0=？”“Y0=？” ， ，输入测点（安置仪器的控制点）的坐标。 ， ，输入定向点（放样时照准定向的控制点）的坐标。 ⑨“X1=？”“Y1=？” 显示 0 OR 5，需要输出 5 大桩坐标或者放样元素输入 5，否则输入 0。然后， 显示屏显示定向方位角：A01。 接着，依次输出各主点：ZH、HY、QZ、YH、HZ 的里程 LZ 及其中桩点，左、右边
E A 1 2 B 图 1.1—1 C 3 F D
图 1.1—1 中：A、B、C、D 为已知点，1、2、3 为待定导线点，E、F 为极坐标点。
2.闭合导线(图 1.1—2a、1.1—2b) 图 1.1—2a 中，BN 方向为坐标轴方向。 在本程序中，将闭合导线看作是起始边和闭合边重合的附合导线。 N 4 3 A 4 3