编程计算器测量程序集.doc

CASIO fx系列 编程计算器测量程序集 编写 王劲松 第一部分CASIO fx-4800P 编程计算器测量程序集 一．SHI JU CE TU （视距测图） 1． 用途该程序用于“经纬仪视距法碎部测量”时，计算测站点至碎部点间的平距及碎部点的高程。 2． 程序清单 C“H0”IA“UP”B“DOWN”V“MIDDLE”LE90-L ↙ D100Abs（A-B）（cosE）2◢ H（CI）DtanE-V 3． 程序说明 H0测站点高程；I测站仪器高；UP塔尺上丝读数；DOWN塔尺下丝读数；MIDDLE塔尺中丝读数；L经纬仪竖盘读数盘左读数；D测站点至碎部点间平距；H碎部点的高程。 5．该程序若在fx-3950中的程序清单为 →M→A→B→C→D100（A-B）（cos90-D）2→X◢ MXtan90-D-C→Y 说明M将测站高程H0仪器高I；A上丝读数；B下丝读数；C中丝读数；D竖盘盘左读数L。X测站点至碎部点的平距；Y碎部点的高程。 二．FAN SUAN （反算） 1．用途该程序是“坐标反算公式”程序，用于根据两点1、2的平面坐标（X1，Y1）、（X2，Y2），计算两点间的距离D12及坐标方位角A12。 2． 程序清单 G“X1”B“Y1”C“X2”H“Y2”EC-GFH-B ↙ Pol（E，F）I“D12”◢ J“A12” 3． 程序说明 X1，Y1点1的平面坐标；X2，Y2点2的平面坐标； D12点1至点2间平距；A12点1至点2坐标方位角。 由于编程时用到了极坐标函数POL（），故在程序运行中，会出现IXXX（数字）及JXXX（数字）这是函数POL计算出的两个量，不能改变，直接回车默认即可。 三．ZHENG SUAN （正算） 1．用途该程序是“坐标正算公式”程序，用于根据点1的平面坐标（X1，Y1），及点1至点2的平距D12、坐标方位角A12，来计算点2的平面坐标（X2，Y2）。 2． 程序清单 B“X1”C“Y1”D“D12”A“A12” ↙ X“X2”BDcosA ◢ Y“Y2”CDsinA 3． 程序说明 X1，Y1点1的平面坐标；X2，Y2点2的平面坐标； D12点1至点2间平距；A12点1至点2坐标方位角；X2，Y2点2的平面坐标。另外在输入A12时，可直接输入“度分秒”。 四．YUAN ZHU （圆主） 1．用途该程序是“单圆曲线主点测设元素及里程计算”程序。 2．程序清单 A“TURNING ANGLE”RB“JD” ↙ TRtanA2◢ LRAπ180◢ ERcosA2-R◢ D2T-L◢ C“ZY”B-T◢ F“YZ”CL◢ G“QZ”F-L2 3．程序说明 TURNING ANGLE交点JD处的转角；R圆曲线半径；JD交点。 T切线长；L圆曲线长；E外矢距；D切曲差；ZYZY点里程；YZYZ点里程；QZQZ点里程。 五．YUAN XIANG （圆详） 1．用途该程序是“单圆曲线切线支距法及长弦偏角法详细测设”程序。 2．程序清单 A“ZY OR YZ”RLbl 1 ↙ {L}B180AbsL-A RπXRsinB◢YR-RcosB◢ D“ANGLE”B2◢C“DISTANCE”2RsinD◢Goto 1 3．程序说明 ZY OR YZZY点或YZ点里程（桩号）；R圆曲线半径； L某桩的里程（桩号）；X切线支距法的X值；Y切线支距法的Y值；ANGLE偏角法的偏角值，单位为“度”。若要查看其“度分秒”，可在程序运行显示时先后按“SHIFT”、“度分秒”这2个键；DISTANCE长弦偏角法的弦长。 六．HUAN ZHU （缓主） 1．用途该程序是“完整对称带缓和曲线的圆曲线”的主点测设元素及里程计算程序。 2．程序清单 A“TURNING ANGLE”RS“LS”H“JD” ↙ B180S（2 Rπ）↙ PS224R-S42688 R 3 ↙ QS2-S3240R2 ↙ TRPtanA2Q◢ MRA-2Bπ180↙ LM2S◢ ERPcosA2-R◢ D2T-L ◢ N“ZH”H-T◢ O“HY”NS◢ U“QZ”OM2◢ V“YH”OM◢ W“HZ”VS 3．程序说明 TURNING ANGLE交点JD处的转角；R圆曲线半径；LS缓和曲线长；JD交点里程（桩号）。T切线长；L曲线长；E外矢距；D切曲差；ZHZH点里程；HYHY点里程；QZQZ点里程；YHYH点里程；HZHZ点里程。 七．HUAN QIE （缓切） 1．用途该程序是“完整对称带缓和曲线的圆曲线”的切线支距法详细测设坐标计算程序。 2．程序清单 A“ZH”RS“LS”Lbl 1 ↙ {L，B}↙ ↙ Lbl 2↙ CAbsL-ADRSXC-C540D2C93456D4-C13599040D6C1717542600D8◢ YC36D-C7336D3C1142240D5-C159676800D7C193530097000D9◢ Goto 1↙ Lbl 3↙ E180AbsL-A-SRπ180S2πRPS224R-S42688R3QS2-S3240R2↙ XRsinEQ◢ YR-RcosEP◢ Goto 1↙ 3．程序说明 ZHZH点桩号（里程）；R圆曲线半径；LS缓和曲线长；L待测设桩的桩号（里程）；B当待测设中桩位于缓和曲线段，则输入“1”，当待测设中桩位于圆曲线段，则输入“1”以外的数值。X切线支距法的X值；Y切线支距法的Y值。 八．HUAN PIAN （缓偏） 1．用途该程序是“完整对称带缓和曲线的圆曲线”的偏角法详细测设计算程序。 2．程序清单 A“ZH”RS“LS” ↙ B30SRπF“B0”2B◢ Lbl 1 ↙ {L}↙ EAbsL-AD“ANGLE”（ES）2B◢ C“DISTANCE”E-E590R2S2 ◢ Goto 1 3．程序说明 ZHZH点桩号（里程）；R圆曲线半径；LS缓和曲线长；B0在以后要测设圆曲线段上的中桩时，架仪于HY（或YH）点，瞄准ZH（或HZ）点，拨角B0为圆曲线的切线方向，找到切线方向后，即按单圆曲线偏角法去测设即可； L待测设桩的桩号（里程）；ANGLE偏角法的偏角值，在程序显示中其单位为“度”。若要查看其“度分秒”，可在显示时先后按“SHIFT”、“度分秒”这2个键；DISTANCE长弦偏角法的弦长。 九．ZHUAN HUAN （转换） 1．用途该程序是“两平面坐标系间坐标转换”的计算程序。 2．程序清单 C“X0”E“Y0”D“ANGLE”F“SIGN” ↙ Lbl 0↙ {A，B}↙ F1AAB-BΔ XCAcosD-BsinD◢ YEBcosDAsinD◢ Goto 0 3．程序说明 X0，Y0施工坐标系（A-O’-B）的原点O’在统一坐标系（x-o-y）中的坐标。 ANGLE为统一坐标系的x轴顺时针旋转至施工坐标系的A轴的角值。 SIGN为符号函数，若输入“1”时，则表明x-o-y为左手系，且A-O’-B也为左手系；若输入“1”之外值，则表明x-o-y为左手系，而A-O’-B为右手系。 A，B某点在施工坐标系中的纵、横坐标。 X，Y该点在相应统一坐标系中的纵、横坐标。 十．FU DAO XIAN（附导线） 1．用途该程序是“附合导线平差”的计算程序。 2．程序清单 Defm 40X“X0”Y“Y0”F“A0”S“X1”E“Y1”A“A1”C“UNKNOWN POINT”↙ N0M0Lbl 0 ↙ NN1{L，D}G180FFLFGFFGFF-G Δ F2GFF-2G Δ Z[2N-1]FZ[2N]DMMDNC1Goto 0 Δ {L}FFLFGFFGFF-G Δ F2GFF-2G Δ B“FW”F-A◢ RH“FR”R（C2）◢ B-B（C2） N0P0Q0Lbl 1 ↙ NN1◢ Z[2N-1]“A”Z[2N-1]NB◢ IZ[2N]cosZ[2N-1]PPIZ[2C2N1]IJ Z[2N]sinZ[2N-1]QQJZ[2C2N2]JNC1Goto 1 Δ F“FX”P-SX◢ G“FY”Q-EY◢ H“F”（F2G2）◢ KHM◢ N0V-FMW-GMLbl 2 ↙ NN1◢ Z[2C2N1] Z[2C2N1]VZ[2N] Z[2C2N2] Z[2C2N2]WZ[2N]XX Z[2C2N1] ◢ YYZ[2C2N2] ◢ NCGoto 2“END” 3．程序说明 X0，Y0，A0已知的起始点的纵、横坐标及起始边的坐标方位角。 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）显示的角度允许误差FR的单位为“秒”。 （3）在程序显示中角度单位为“度”。若要查看其“度分秒”，可在显示时先后按“SHIFT”、“度分秒”这2个键。 十一．BI DAO XIAN（闭导线） 1．用途该程序是“闭合导线平差”的计算程序。 2．程序清单 Defm 40X“X0”Y“Y0”F“A0”N“UNKNOWN POINT”NN1↙ I0E0C0Lbl 0 ↙ II1{L，D}Z[2I-1]LZ[2I]DEELCCDINGoto 0 Δ B“FW”E-180（N-2）◢ RA“FR”RN◢ B-BNI1Z[2N1]FLbl 1 ↙ II1◢ FFZ[2I-1]F180FF180FF-180 Δ F360FF-360 ΔZ[2N2I-1]“A”F（I-1）B◢ INGoto 1Δ I0G0H0Lbl 2 ↙ II1Z[2I-1]Z[2I]cosZ[2N2I-1]GGZ[2I-1]Z[2N2I]Z[2I]sin Z[2N2I-1]HHZ[2N2I]IN Goto 2 Δ G“FX” ◢ H“FY” ◢ I“F”（G2H2）◢ KIC◢ U-GCV-HC↙ I0Lbl 3 ↙ II1◢ Z[2I-1]Z[2I-1]U Z[2I]Z[2N2I]Z[2N2I]V Z[2I]XX Z[2I-1] ◢ YY Z[2N2I] ◢ IN-1Goto 3“END” 3．程序说明 X0，Y0，A0已知的起始点的纵、横坐标及起始边的坐标方位角。 UNKNOWN POINT待求未知点的个数。 L，D观测的导线各左转角及平距。 FW，R，FR导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。 I，A各条导线边序号及其坐标方位角。 FX，FY坐标增量Δ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 20G0M0I0C“UNKNOWN POINT”↙ Lbl 0II1{H}Z[2I]HGGH ↙ A1{L}Z[2I-1]LMML{N}Z[2I-1]NMMN Δ IC1Goto 0 Δ B“H0”D“H1”FBG-D◢ J“FR”RM1000◢ AbsFJ“CHAO XIAN CHA”V-FMI0HBLbl 1II1◢ HHZ[2I]VZ[2I-1] ◢ ICGoto 1“END” 3．程序说明 CODE地形编码，当是平地，统计公里数时输入“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”。 （2）当水准路线是闭合水准路线时，只需将H0，H1输入相同的值。 十三．FANG PIN GAO（方平高） 1．用途该程序是“方格网法平整场地，填挖方量基本平衡时的设计高程”的计算程序。 2．程序清单 NX“ ANGLE NUMBER”I0C0Lbl 0↙ II1{H}CCHIXGoto 0 Δ M“ EDGE NUMBER”J0D0Lbl 1↙ J“I”J1{H}DD2HJMGoto 1 Δ P“ CORNER NUMBER”K0E0Lbl 2↙ K“I”K1{H}EE3HK SL-SProg 5 Lbl 3 XJ-KhsinUcosUT-G ▲ YDKhcosUsinUT-G ▲ ZU-KCGoto 5 Lbl 4 XJ-KhsinO-cosOT-G ▲ YDKhcosO-sinOT-G ▲ ZOKC Lbl 5{N} GXKNsinZ▲ HY-KNcosZ▲ Goto 2 S,X,Y,G,H,N 输入到曲线起点的弧长 坐标 坐标 方向距离（外侧为正） 法线点坐标 S距曲线起点的弧长,S可用到曲线起点的里程差得到 N法向距离曲线外侧为正 X,Y中线点坐标 Z切线方位 G,H法向点坐标 41 程序连接 Prog 31Prog 2Prog 4 48 曲线长反算 ZO90A/2K SRP/cosA/2 GJScosZ HDSsinZ Lbl 8{XY} PolX-G,Y-H ZKW-O90 SRZ/180I/2▲ Goto 8 X,Y,S OAKRPJD为曲线变量 法向点坐标 曲线长 由法向点坐标反算成对应曲线长 49 EGG5/40Q2-G9/3456Q4 FH-E3/6QE7/336Q3 E2/2QF/1-EF/QE 缓和曲线段的反算 5 缓和曲线 QRI GS-S5/40Q2S9/3456Q2Q2 HS3/6Q-S7/336Q3S11/42240Q5 CS2/RI90/π G,H,C 6 放样 Defm 2 Z[1] ▲ Z[1]AnsZ[2] ▲ Z[2]Ans EF PolZ[1]-E,Z[2]-F QW Lbl 0{XY} PolX-E,Y-F ▲ W-Q Ans0→Ans360△”B”▲Goto 0 输入后视点坐标 输入测站坐标EF 放样距离V 放样顺拨角度度 Z[1],Z[2]后视点坐标 E,F 测站点坐标 Q后视方位 X,Y 放样点坐标 8 单导线 K LbL 1{AS} Prog AS BB180-KA▲ XXScosB▲ YYSsinB▲ Goto 1 A,S,B,X,Y 输入左角右角 输入角度距离 前视方位 前视点坐标 连续计算单导线坐标，角度按度.分秒输入 左角K-1,右角K1 81 支导线 ZS ZZQ XEScosZ▲ YFSsinZ▲ Z,S,Q,X,Y 前视角度度,距离 前视方位 前视坐标 放样时计算前视点的坐标,以便反算 A 角度转换 AIntAInt100FracA/60Frac100A/36 A 输入度.分秒，转换成度