1、CASIOfx系列编程计算器测量程序集程序一 SHI JU CE TU （视距测图） 1、用途：该程序用于“经纬仪视距法碎部测量”时，计算测站点至碎部点间的平距及碎部点的高程。 2、程序清单： C “ H 0 ” ： I ： A “ UP ”： B “ DOWN ”： V “ MIDDLE ”： L ： E=90-L D=100Abs （ A-B ）（ cosE ）2 H= （ C+I ） +DtanE-V 3、程序说明： H0 测站点高程； I 测站仪器高； UP 塔尺上丝读数； DOWN 塔尺下丝读数； MIDDLE 塔尺中丝读数； L 经纬仪竖盘读数盘左读数； D 测站点至碎部点间平距；
2、 H 碎部点的高程。4、该程序若在 fx-3950 中的程序清单为： ？ M ：？ A ：？ B ：？ C ：？ D ： 100 （ A-B ）（ cos(90-D) ） 2 X M+Xtan(90-D)-C Y 说明： M 将测站高程 H0+ 仪器高 I ； A 上丝读数； B 下丝读数； C 中丝读数； D 竖盘盘左读数 L 。 X 测站点至碎部点的平距； Y 碎部点的高程。 返 回 目 录程序二 FAN SUAN （反算） 1、用途：该程序是“坐标反算公式”程序，用于根据两点 1 、 2 的平面坐标（ X1 ， Y1 ）、（ X2 ， Y2 ，计算两点间的距离 D12 及坐标方位角 A1
3、2 。2、程序清单： G “ X 1 ”： B “ Y 1 ”： C “ X 2 ”： H “ Y 2 ”： E=C-G ：F=H-B Pol （ E ， F ）： I “ D 12 ” J “ A 12 ” 3、程序说明： X1 ， Y1 点 1 的平面坐标； X2 ， Y2 点 2 的平面坐标； D12 点 1 至点 2 间平距； A12 点 1 至点 2 坐标方位角，单位是度，若需换算成“度分秒”，按 SHIFT 键和 o 键。 由于编程时用到了极坐标函数 POL （），故在程序运行中，会出现 I= ？ XXX （数字）及 J= ？ XXX （数字）这是函数 POL 计算出的两个量，不能
4、改变，直接回车默认即可。 返 回 目 录程序三 ZHENG SUAN （正算） 1、用途：该程序是“坐标正算公式”程序，用于根据点 1 的平面坐标（ X1 ， Y1 ），及点 1 至点 2 的平距 D12 、坐标方位角 A12 ，来计算点 2 的平面坐标（ X2 ， Y2 ）。 2、程序清单： B “ X 1 ” ： C “ Y 1 ” ： D “ D 12 ” ： A “ A 12 ” X “ X 2 ” =B+DcosA Y “ Y 2 ” =C+DsinA 3、程序说明： X1 ， Y1 点 1 的平面坐标； X2 ， Y2 点 2 的平面坐标； D12 点 1 至点 2 间平距； A1
5、2 点 1 至点 2 坐标方位角； X2 ， Y2 点 2 的平面坐标。另外在输入 A12 时，可直接输入“度分秒”。返 回 目 录程序四 YUAN ZHU （圆主） 1、用途：该程序是“单圆曲线主点测设元素及里程计算”程序。 2、程序清单： A “ TURNING ANGLE ”： R ： B “ JD ” T=Rtan(A 2) L=RA 180 E=R cos(A 2)-R D=2T-L C “ ZY ” =B-T F “ YZ ” =C+L G “ QZ ” =F-L 2 3、程序说明： TURNING ANGLE 交点 JD 处的转角； R 圆曲线半径； JD 交点。 T 切线长；
6、L 圆曲线长； E 外矢距； D 切曲差； ZY ZY 点里程； YZ YZ 点里程； QZ QZ 点里程。 返 回 目 录程序五 YUAN XIANG （圆详） 1、用途：该程序是“单圆曲线切线支距法及长弦偏角法详细测设”程序。2、程序清单： A “ ZY OR YZ ”： R ： Lbl 1 L ： B=180Abs(L-A) R ： X=RsinB Y=R-RcosB D “ ANGLE ” =B 2 C “ DISTANCE ” =2RsinD Goto 1 3、程序说明： ZY OR YZ ZY 点或 YZ 点里程（桩号）； R 圆曲线半径； L 某桩的里程（桩号）； X 切线支距法
7、的 X 值； Y 切线支距法的 Y 值； ANGLE 偏角法的偏角值，单位为“度”。若要查看其“度分秒”，可在程序运行显示时先后按“ SHIFT ”、“度分秒”这 2 个键； DISTANCE 长弦偏角法的弦长。 返 回 目 录程序六 HUAN ZHU （缓主） 1、用途：该程序是“完整对称带缓和曲线的圆曲线”的主点测设元素及里程计算程序。 2、程序清单： A “ TURNING ANGLE ”： R ： S “ LS ”： H “ JD ” B=180S （ 2 R ） P=S 2 24 R-S4 (2688 R 3) Q=S 2-S3 (240R 2 ) T=(R+P)tan(A 2)+Q
8、 M=R(A-2B) 180 L=M+2S E=(R+P) cos(A 2)-R D=2T-L N “ ZH ” =H-T O “ HY ” =N+S U “ QZ ” =O+M 2 V “ YH ” =O+M W “ HZ ” =V+S 3、程序说明： TURNING ANGLE 交点 JD 处的转角； R 圆曲线半径； LS 缓和曲线长； JD 交点里程（桩号）。 T 切线长； L 曲线长； E 外矢距； D 切曲差； ZH ZH 点里程； HY HY 点里程； QZ QZ 点里程； YH YH 点里程； HZ HZ 点里程。 返 回 目 录程序七 HUAN QIE （缓切） 1、用途：该
9、程序是“完整对称带缓和曲线的圆曲线”的切线支距法详细测设坐标计算程序。2、程序清单： A “ ZH ”： R ： S “ LS ”： Lbl 1 L ， B ： Lbl 2 C=Abs(L-A) ： D=RS ： X=C-C5 40D 2 +C9 3456D4-C13 599040D6+C17 17542600D8 Y=C3 6D-C7 336D3+C11 42240D5-C15 9676800D7+C19 3530097000D9 Goto 1 Lbl 3 E=180(Abs(L-A)-S) R +180S (2 R) ： P=S 2 24 R-S4 2688 R3 ： Q=S 2-S3 2
10、40 R2 X=RsinE+Q Y=R-RcosE+P Goto 1 3、程序说明： ZH ZH 点桩号（里程）； R 圆曲线半径； LS 缓和曲线长； L 待测设桩的桩号（里程）； B 当待测设中桩位于缓和曲线段，则输入“ 1 ” ，当待测设中桩位于圆曲线段，则输入“ 1 ” 以外的数值。 X 切线支距法的 X 值； Y 切线支距法的 Y 值。返 回 目 录程序八 HUAN PIAN （缓偏） 1、用途：该程序是“完整对称带缓和曲线的圆曲线”的偏角法详细测设计算程序。 2、程序清单： A “ ZH ”： R ： S “ LS ” B=30S R ： F “ B 0 ” =2B Lbl 1 L
11、 E=Abs(L-A) ： D “ ANGLE ” = （ E S ） 2 B C “ DISTANCE ” =E-E5 (90R 2 S 2 ) Goto 1 3、程序说明： ZH ZH 点桩号（里程）； R 圆曲线半径； LS 缓和曲线长； B0 在以后要测设圆曲线段上的中桩时，架仪于 HY （或 YH ）点，瞄准 ZH （或 HZ ）点，拨角 B0 为圆曲线的切线方向，找到切线方向后，即按单圆曲线偏角法去测设即可； L 待测设桩的桩号（里程）； ANGLE 偏角法的偏角值，在程序显示中其单位为“度”。若要查看其“度分秒”，可在显示时先后按“ SHIFT ”、“度分秒”这 2 个键； DI
12、STANCE 长弦偏角法的弦长。 返 回 目 录程序九 ZHUAN HUAN （转换） 1、用途：该程序是“两平面坐标系间坐标转换”的计算程序。 2、程序清单： C “ X 0 ” ： E “ Y 0 ” ： D “ ANGLE ”： F “ SIGN ” Lbl 0 A ， B F 1 A=A ： B=-B X=C+AcosD-BsinD Y=E+BcosD+AsinD Goto 0 3、程序说明： X0 ， Y0 施工坐标系（ A-O-B ）的原点 O 在统一坐标系（ x-o-y ）中的坐标。 ANGLE 为统一坐标系的 x 轴顺时针旋转至施工坐标系的 A 轴的角值。 SIGN 为符号函数
13、，若输入“ 1 ” 时，则表明 x-o-y 为左手系，且 A-O-B 也为左手系；若输入“ 1 ” 之外值，则表明 x-o-y 为左手系，而 A-O-B 为右手系。 A ， B 某点在施工坐标系中的纵、横坐标。 X ， Y 该点在相应统一坐标系中的纵、横坐标。 返 回 目 录程序十 FU DAO XIAN （附导线） 1、用途：该程序是“附合导线平差”的计算程序。 2、程序清单： Defm 40 ： X “ X 0 ” ： Y “ Y 0 ” ： F “ A 0 ” ： S “ X 1 ” ： E “ Y 1 ” ： A “ A 1 ” ： C “ UNKNOWN POINT ” N=0 ：
14、M=0 ： Lbl 0 N=N+1 ： L ， D ： G=180 ： F=F+L ： F G F=F+G ： F=F-G F 2G F+F -2G Z2N-1=F ： Z2N=D ： M=M+D ： NC+1 Goto 0 L ： F=F+L ： F G F=F+G ： F=F-G F 2G F+F -2G B “ FW ” =F-A R ： H “ FR ” =R （ C+2 ） B=-B （ C+2 ） N=0 ： P=0 ： Q=0 ： Lbl 1 N=N+1 Z2N-1 “ A ” =Z2N-1+NB I=Z2NcosZ2N-1 ： P=P+I ： Z 2C +2N+1=I ： J=
15、 Z2NsinZ2N-1 ： Q=Q+J ： Z 2C +2N+2=J ： NC+1 Goto 1 F “ FX ” =P-S+X G “ FY ” =Q-E+Y H “ F ” = （ F 2 +G 2 ） K=H M N=0 ： V=-F M ： W=-G M ： Lbl 2 N=N+1 Z 2C +2N+1= Z 2C +2N+1+VZ2N ： Z 2C +2N+2= Z 2C +2N+2+WZ2N ： X=X+ Z 2C +2N+1 Y=Y+Z 2C +2N+2 NC Goto 2 ： “ END ”3、程序说明： X0 ， Y0 ， A0 已知的起始点的纵、横坐标及起始边的坐标方位角
16、。 X1 ， Y1 ， A1 已知的结束点的纵、横坐标及结束边的坐标方位角。 UNKNOWN POINT 待求未知点的个数。 L ， D 观测的导线各左转角及平距。 FW ， R ， FR 导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。 N ， A 各条导线边序号及其坐标方位角。 FX ， FY 坐标增量 X 、 Y 的闭合差。 F ， K 导线全长闭合差、导线全长相对闭合差。 N ， X ， Y 各导线点的序号及其纵横坐标。注意： （1）本程序是按 10 个未知点来设计的，若未知点数超过 10 个时，按“ 4 倍点数”来改变源程序中的“ Defm 40 ”。 （2）显示的角度允许误
17、差 FR 的单位为“秒”。 （3）在程序显示中角度单位为“度”。若要查看其“度分秒”，可在显示时先后按“ SHIFT ”、“度分秒”这 2 个键。 返 回 目 录程序十一 BI DAO XIAN （闭导线） 1、用途：该程序是“闭合导线平差”的计算程序。 2、程序清单： Defm 40 ： X “ X 0 ” ： Y “ Y 0 ” ： F “ A 0 ” ： N “ UNKNOWN POINT ”： N=N+1 I=0 ： E=0 ： C=0 ： Lbl 0 I=I+1 ： L ， D ： Z2I-1=L ： Z2I=D ： E=E+L ： C=C+D ： IN Goto 0 B “ FW
18、” =E-180 （ N-2 ） R ： A “ FR ” =R N B=-B N ： I=1 ： Z2N+1=F ： Lbl 1 I+I+1 F=F+Z2I-1 ： F 180 F=F+180 ： F=F-180 F 360 F+F-360 Z2N+2I-1 “ A ” =F+ （ I-1 ） B IN Goto 1 I=0 ：G=0 ：H=0 ： Lbl 2 I+I+1 ： Z2I-1=Z2IcosZ2N+2I-1 ： G=G+Z2I-1 ： Z2N+2I=Z2Isin Z2N+2I-1 ： H=H+Z2N+2I ： IN Goto 2 G “ FX ” H “ FY ” I “ F ”
19、= （ G 2 +H 2 ） K=I C U=-G C ： V=-H C I=0 ： Lbl 3 I+I+1 Z2I-1=Z2I-1+U Z2I ： Z2N+2I=Z2N+2I+V Z2I ： X=X+ Z2I-1 Y=Y+ Z2N+2I IN-1 Goto 3 ： “ END ” 3、程序说明： X0 ， Y0 ， A0 已知的起始点的纵、横坐标及起始边的坐标方位角。 UNKNOWN POINT 待求未知点的个数。 L ， D 观测的导线各左转角及平距。 FW ， R ， FR 导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。 I ， A 各条导线边序号及其坐标方位角。FX ， FY
20、 坐标增量 X 、 Y 的闭合差。 F ， K 导线全长闭合差、导线全长相对闭合差。 I ， X ， Y 各导线点的序号及其纵横坐标。 注意： （1）本程序是按 10 个未知点来设计的，若未知点数超过 10 个时，按“ 4 倍点数”来改变源程序中的“ Defm 40 ”。 （2）显示的角度允许误差 FR 的单位为“秒”。 （3）在程序显示中角度单位为“度”。若要查看其“度分秒”，可在显示时先后按“ SHIFT ”、“度分秒”这 2 个键。 返 回 目 录程序十二 SHUI ZHUN （水准） 1、用途：该程序是“单一水准路线的平差”的计算程序。 2、程序清单： A “ CODE ”： Defm
21、 20 ： G=0 ： M=0 ： I=0 ： C “ UNKNOWN POINT ” Lbl 0 ： I=I+1 ： H ： Z2I=H ： G=G+H A=1 L ： Z2I-1=L ： M=M+L ： N ： Z2I-1=N ： M=M+N IC+1 Goto 0 B “ H0 ”： D “ H1 ”： F=B+G-D J “ FR ” =R M 1000 AbsFJ “ CHAO XIAN CHA ”： V=-F M ： I=0 ： H=B ： Lbl 1 ： I=I+1 H=H+Z2I+VZ2I-1 IC Goto 1 ： “ END ” 3、程序说明： CODE 地形编码，当是平地
22、，统计公里数时输入“ 1 ”；当是山地，统计测站数时输入非“ 1 ”。 UNKNOWN POINT 待求高程点的个数。 L 水准点间的路线长。 N 水准点间的测站数。 H 水准点间的实测高差。 H0 ，H1 已知的起始点和结束点的高程。 F ，FR 高差闭合差、高差允许闭合差。 R 高差允许闭合差系数。等外水准： 12 （按测站数）或 40 （按公里数）；四等水准： 6 （按测站数）或 20 （按公里数）。I ， H 第 I 段及第 I 个待求水准点的高程。 注意： （1）本程序是按 10 个未知点来设计的，若未知点数超过 10 个时，按“ 2 倍点数”来改变源程序中的“ Defm 20 ”。
23、 （2）当水准路线是闭合水准路线时，只需将 H0 ， H1 输入相同的值。返 回 目 录程序十三 FANG PIN GAO （方平高） 1、用途：该程序是“方格网法平整场地，填挖方量基本平衡时的设计高程”的计算程序。 2、程序清单： N ： X “ INPUT ANGLE NUMBER ”： I=0 ： C=0 ： Lbl 0 I=I+1 ： H ： C=C+H ： IX Goto 0 M “ INPUT EDGE NUMBER ”： J=0 ： D=0 ： Lbl 1 J “ I ” =J+1 ： H ： D=D+2H ： JM Goto 1 P “ INPUT CORNER NUMBER
24、”： K=0 ： E=0 ： Lbl 2 K “ I ” =K+1 ： H ： E=E+3H ： KP Goto 2 Q “ INPUT MIDDLE NUMBER ”： L=0 ： F=0 ： Lbl 3 L “ I ” =L+1 ： H ： F=F+4H ： L 0 G=G+F 4 ： A=A+ F 4 J0 L=L+M 2 ： B=B+ M 2 K0 P=P+3T 4 ： C=C+ 3T 4 Q0 R=R+U ： I=I+U SW Goto 4 N “ VW ” = （ G+L+P+R ） D 2 V “ VT ” =- （ A+B+C+I ） D 2 3、程序说明： D 方格的边长。
25、H0 平整场地时的设计高程。 INPUT ANGLE NUMBER 输入角点的个数。 INPUT EDGE NUMBER 输入边点的个数。 INPUT CORNER NUMBER 输入拐点的个数。 INPUT MIDDLE NUMBER 输入中点的个数。 H 各点的实测高程。 DH 填挖高度（各点的实测高程与设计高程之差），正为挖，负为填。VW ， VT 挖方、填方。 返 回 目 录程序十五 JI ZHUO BIAO （极坐标放样程序） 1、用途：该程序是用于根据测站点坐标 (x1,y1) 和后视点坐标 (x2,y2) ，计算在测站点后视后视点，用极坐标法放样任一待定点 (x,y) 所需正拨的水平角及边长。 2、程序清单： G “ X1 ”： B “ Y1 ”： C “ X2 ”： H “ Y2 ”： E
