CASIOfx系列编程计算器测量程序集教学提纲.doc

Good is good, but better carries it.精益求精，善益求善。CASIOfx系列编程计算器测量程序集-程序一SHIJUCETU（视距测图）1、用途：该程序用于“经纬仪视距法碎部测量”时，计算测站点至碎部点间的平距及碎部点的高程。2、程序清单：C“H0”：I：A“UP”：B“DOWN”：V“MIDDLE”：L：E=90-LD=100Abs（A-B）（cosE）2H=（C+I）+DtanE-V3、程序说明：H0测站点高程；I测站仪器高；UP塔尺上丝读数；DOWN塔尺下丝读数；MIDDLE塔尺中丝读数；L经纬仪竖盘读数盘左读数；D测站点至碎部点间平距；H碎部点的高程。4、该程序若在fx-3950中的程序清单为：？M：？A：？B：？C：？D：100（A-B）（cos(90-D)）2XM+Xtan(90-D)-CY说明：M将测站高程H0+仪器高I；A上丝读数；B下丝读数；C中丝读数；D竖盘盘左读数L。X测站点至碎部点的平距；Y碎部点的高程。返回目录程序二FANSUAN（反算）1、用途：该程序是“坐标反算公式”程序，用于根据两点1、2的平面坐标（X1，Y1）、（X2，Y2，计算两点间的距离D12及坐标方位角A12。2、程序清单：G“X1”：B“Y1”：C“X2”：H“Y2”：E=C-G：F=H-BPol（E，F）：I“D12”J“A12”3、程序说明：X1，Y1点1的平面坐标；X2，Y2点2的平面坐标；D12点1至点2间平距；A12点1至点2坐标方位角，单位是度，若需换算成“度分秒”，按SHIFT键和o键。由于编程时用到了极坐标函数POL（），故在程序运行中，会出现I=？XXX（数字）及J=？XXX（数字）这是函数POL计算出的两个量，不能改变，直接回车默认即可。返回目录程序三ZHENGSUAN（正算）1、用途：该程序是“坐标正算公式”程序，用于根据点1的平面坐标（X1，Y1），及点1至点2的平距D12、坐标方位角A12，来计算点2的平面坐标（X2，Y2）。2、程序清单：B“X1”：C“Y1”：D“D12”：A“A12”X“X2”=B+DcosAY“Y2”=C+DsinA3、程序说明：X1，Y1点1的平面坐标；X2，Y2点2的平面坐标；D12点1至点2间平距；A12点1至点2坐标方位角；X2，Y2点2的平面坐标。另外在输入A12时，可直接输入“度分秒”。返回目录程序四YUANZHU（圆主）1、用途：该程序是“单圆曲线主点测设元素及里程计算”程序。2、程序清单：A“TURNINGANGLE”：R：B“JD”T=Rtan(A÷2)L=RA÷180E=R÷cos(A÷2)-RD=2T-LC“ZY”=B-TF“YZ”=C+LG“QZ”=F-L÷23、程序说明：TURNINGANGLE交点JD处的转角；R圆曲线半径；JD交点。T切线长；L圆曲线长；E外矢距；D切曲差；ZYZY点里程；YZYZ点里程；QZQZ点里程。返回目录程序五YUANXIANG（圆详）1、用途：该程序是“单圆曲线切线支距法及长弦偏角法详细测设”程序。2、程序清单：A“ZYORYZ”：R：Lbl1L：B=180Abs(L-A)÷R÷：X=RsinBY=R-RcosBD“ANGLE”=B÷2C“DISTANCE”=2RsinDGoto13、程序说明：ZYORYZZY点或YZ点里程（桩号）；R圆曲线半径；L某桩的里程（桩号）；X切线支距法的X值；Y切线支距法的Y值；ANGLE偏角法的偏角值，单位为“度”。若要查看其“度分秒”，可在程序运行显示时先后按“SHIFT”、“度分秒”这2个键；DISTANCE长弦偏角法的弦长。返回目录程序六HUANZHU（缓主）1、用途：该程序是“完整对称带缓和曲线的圆曲线”的主点测设元素及里程计算程序。2、程序清单：A“TURNINGANGLE”：R：S“LS”：H“JD”B=180S÷（2R）P=S2÷24÷R-S4÷(2688R3)Q=S÷2-S3÷(240R2)T=(R+P)tan(A÷2)+QM=R(A-2B)÷180L=M+2SE=(R+P)÷cos(A÷2)-RD=2T-LN“ZH”=H-TO“HY”=N+SU“QZ”=O+M÷2V“YH”=O+MW“HZ”=V+S3、程序说明：TURNINGANGLE交点JD处的转角；R圆曲线半径；LS缓和曲线长；JD交点里程（桩号）。T切线长；L曲线长；E外矢距；D切曲差；ZHZH点里程；HYHY点里程；QZQZ点里程；YHYH点里程；HZHZ点里程。返回目录程序七HUANQIE（缓切）1、用途：该程序是“完整对称带缓和曲线的圆曲线”的切线支距法详细测设坐标计算程序。2、程序清单：A“ZH”：R：S“LS”：Lbl1L，B：Lbl2C=Abs(L-A)：D=RS：X=C-C5÷40D2+C9÷3456D4-C13÷599040D6+C17÷17542600D8Y=C3÷6D-C7÷336D3+C11÷42240D5-C15÷9676800D7+C19÷3530097000D9Goto1Lbl3E=180(Abs(L-A)-S)÷R÷+180S÷(2R)：P=S2÷24÷R-S4÷2688÷R3：Q=S÷2-S3÷240÷R2X=RsinE+QY=R-RcosE+PGoto13、程序说明：ZHZH点桩号（里程）；R圆曲线半径；LS缓和曲线长；L待测设桩的桩号（里程）；B当待测设中桩位于缓和曲线段，则输入“1”，当待测设中桩位于圆曲线段，则输入“1”以外的数值。X切线支距法的X值；Y切线支距法的Y值。返回目录程序八HUANPIAN（缓偏）1、用途：该程序是“完整对称带缓和曲线的圆曲线”的偏角法详细测设计算程序。2、程序清单：A“ZH”：R：S“LS”B=30S÷R÷：F“B0”=2BLbl1LE=Abs(L-A)：D“ANGLE”=（E÷S）2BC“DISTANCE”=E-E5÷(90R2S2)Goto13、程序说明：ZHZH点桩号（里程）；R圆曲线半径；LS缓和曲线长；B0在以后要测设圆曲线段上的中桩时，架仪于HY（或YH）点，瞄准ZH（或HZ）点，拨角B0为圆曲线的切线方向，找到切线方向后，即按单圆曲线偏角法去测设即可；L待测设桩的桩号（里程）；ANGLE偏角法的偏角值，在程序显示中其单位为“度”。若要查看其“度分秒”，可在显示时先后按“SHIFT”、“度分秒”这2个键；DISTANCE长弦偏角法的弦长。返回目录程序九ZHUANHUAN（转换）1、用途：该程序是“两平面坐标系间坐标转换”的计算程序。2、程序清单：C“X0”：E“Y0”：D“ANGLE”：F“SIGN”Lbl0A，BF1A=A：B=-BX=C+AcosD-BsinDY=E+BcosD+AsinDGoto03、程序说明：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该点在相应统一坐标系中的纵、横坐标。返回目录程序十FUDAOXIAN（附导线）1、用途：该程序是“附合导线平差”的计算程序。2、程序清单：Defm40：X“X0”：Y“Y0”：F“A0”：S“X1”：E“Y1”：A“A1”：C“UNKNOWNPOINT”N=0：M=0：Lbl0N=N+1：L，D：G=180：F=F+L：FGF=F+G：F=F-GF2GF+F-2GZ2N-1=F：Z2N=D：M=M+D：N<C+1Goto0L：F=F+L：FGF=F+G：F=F-GF2GF+F-2GB“FW”=F-AR：H“FR”=R（C+2）B=-B÷（C+2）N=0：P=0：Q=0：Lbl1N=N+1Z2N-1“A”=Z2N-1+NBI=Z2NcosZ2N-1：P=P+I：Z2C+2N+1=I：J=Z2NsinZ2N-1：Q=Q+J：Z2C+2N+2=J：N<C+1Goto1F“FX”=P-S+XG“FY”=Q-E+YH“F”=（F2+G2）K=H÷MN=0：V=-F÷M：W=-G÷M：Lbl2N=N+1Z2C+2N+1=Z2C+2N+1+VZ2N：Z2C+2N+2=Z2C+2N+2+WZ2N：X=X+Z2C+2N+1Y=Y+Z2C+2N+2N<CGoto2：“END”3、程序说明：X0，Y0，A0已知的起始点的纵、横坐标及起始边的坐标方位角。X1，Y1，A1已知的结束点的纵、横坐标及结束边的坐标方位角。UNKNOWNPOINT待求未知点的个数。L，D观测的导线各左转角及平距。FW，R，FR导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。N，A各条导线边序号及其坐标方位角。FX，FY坐标增量X、Y的闭合差。F，K导线全长闭合差、导线全长相对闭合差。N，X，Y各导线点的序号及其纵横坐标。注意：（1）本程序是按10个未知点来设计的，若未知点数超过10个时，按“4倍点数”来改变源程序中的“Defm40”。（2）显示的角度允许误差FR的单位为“秒”。（3）在程序显示中角度单位为“度”。若要查看其“度分秒”，可在显示时先后按“SHIFT”、“度分秒”这2个键。返回目录程序十一BIDAOXIAN（闭导线）1、用途：该程序是“闭合导线平差”的计算程序。2、程序清单：Defm40：X“X0”：Y“Y0”：F“A0”：N“UNKNOWNPOINT”：N=N+1I=0：E=0：C=0：Lbl0I=I+1：L，D：Z2I-1=L：Z2I=D：E=E+L：C=C+D：I<NGoto0B“FW”=E-180（N-2）R：A“FR”=RNB=-B÷N：I=1：Z2N+1=F：Lbl1I+I+1F=F+Z2I-1：F180F=F+180：F=F-180F360F+F-360Z2N+2I-1“A”=F+（I-1）BI<NGoto1I=0：G=0：H=0：Lbl2I+I+1：Z2I-1=Z2IcosZ2N+2I-1：G=G+Z2I-1：Z2N+2I=Z2IsinZ2N+2I-1：H=H+Z2N+2I：I<NGoto2G“FX”H“FY”I“F”=（G2+H2）K=I÷CU=-G÷C：V=-H÷CI=0：Lbl3I+I+1Z2I-1=Z2I-1+UZ2I：Z2N+2I=Z2N+2I+VZ2I：X=X+Z2I-1Y=Y+Z2N+2II<N-1Goto3：“END”3、程序说明：X0，Y0，A0已知的起始点的纵、横坐标及起始边的坐标方位角。UNKNOWNPOINT待求未知点的个数。L，D观测的导线各左转角及平距。FW，R，FR导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。I，A各条导线边序号及其坐标方位角。FX，FY坐标增量X、Y的闭合差。F，K导线全长闭合差、导线全长相对闭合差。I，X，Y各导线点的序号及其纵横坐标。注意：（1）本程序是按10个未知点来设计的，若未知点数超过10个时，按“4倍点数”来改变源程序中的“Defm40”。（2）显示的角度允许误差FR的单位为“秒”。（3）在程序显示中角度单位为“度”。若要查看其“度分秒”，可在显示时先后按“SHIFT”、“度分秒”这2个键。返回目录程序十二SHUIZHUN（水准）1、用途：该程序是“单一水准路线的平差”的计算程序。2、程序清单：A“CODE”：Defm20：G=0：M=0：I=0：C“UNKNOWNPOINT”Lbl0：I=I+1：H：Z2I=H：G=G+HA=1L：Z2I-1=L：M=M+L：N：Z2I-1=N：M=M+NI<C+1Goto0B“H0”：D“H1”：F=B+G-DJ“FR”=RM÷1000AbsF<J“CHAOXIANCHA”：V=-F÷M：I=0：H=B：Lbl1：I=I+1H=H+Z2I+VZ2I-1I<CGoto1：“END”3、程序说明：CODE地形编码，当是平地，统计公里数时输入“1”；当是山地，统计测站数时输入非“1”。UNKNOWNPOINT待求高程点的个数。L水准点间的路线长。N水准点间的测站数。H水准点间的实测高差。H0，H1已知的起始点和结束点的高程。F，FR高差闭合差、高差允许闭合差。R高差允许闭合差系数。等外水准：12（按测站数）或40（按公里数）；四等水准：6（按测站数）或20（按公里数）。I，H第I段及第I个待求水准点的高程。注意：（1）本程序是按10个未知点来设计的，若未知点数超过10个时，按“2倍点数”来改变源程序中的“Defm20”。（2）当水准路线是闭合水准路线时，只需将H0，H1输入相同的值。返回目录程序十三FANGPINGAO（方平高）1、用途：该程序是“方格网法平整场地，填挖方量基本平衡时的设计高程”的计算程序。2、程序清单：N：X“INPUTANGLENUMBER”：I=0：C=0：Lbl0I=I+1：H：C=C+H：I<XGoto0M“INPUTEDGENUMBER”：J=0：D=0：Lbl1J“I”=J+1：H：D=D+2H：J<MGoto1P“INPUTCORNERNUMBER”：K=0：E=0：Lbl2K“I”=K+1：H：E=E+3H：K<PGoto2Q“INPUTMIDDLENUMBER”：L=0：F=0：Lbl3L“I”=L+1：H：F=F+4H：L<QGoto3G“H0”=（C+D+E+F）÷4÷N3、程序说明：N方格的个数。INPUTANGLENUMBER输入角点的个数。INPUTEDGENUMBER输入边点的个数。INPUTCORNERNUMBER输入拐点的个数。INPUTMIDDLENUMBER输入中点的个数。H各点的实测高程。H0填挖方量基本平衡时的设计高程。返回目录程序十四FANGTUFANG（方土方）1、用途：该程序是“方格网法平整场地时，填、挖方量”的计算程序。2、程序清单：D：E“H0”：X“INPUTANGLENUMBER”：G=0：J=0：A=0：Lbl1J=J+1：H：F“DH”=H-EF>0G=G+F÷4：A=A+F÷4J<XGoto1Y“INPUTEDGENUMBER”：L=0：K=0：B=0：Lbl2：K=K+1：H：M“DH”=H-EM>0L=L+M÷2：B=B+M÷2K<YGoto2Z“INPUTCORNERNUMBER”：P=0：Q=0：C=0：Lbl3Q=Q+1：H：T“DH”=H-ET>0P=P+3T÷4：C=C+3T÷4Q<ZGoto3W“INPUTMIDDLENUMBER”：R=0：S=0：I=0：Lbl4S=S+1：H：U“DH”=H-EU>0R=R+U：I=I+US<WGoto4N“VW”=（G+L+P+R）D2V“VT”=-（A+B+C+I）D23、程序说明：D方格的边长。H0平整场地时的设计高程。INPUTANGLENUMBER输入角点的个数。INPUTEDGENUMBER输入边点的个数。INPUTCORNERNUMBER输入拐点的个数。INPUTMIDDLENUMBER输入中点的个数。H各点的实测高程。DH填挖高度（各点的实测高程与设计高程之差），正为挖，负为填。VW，VT挖方、填方。返回目录程序十五JIZHUOBIAO（极坐标放样程序）1、用途：该程序是用于根据测站点坐标(x1,y1)和后视点坐标(x2,y2)，计算在测站点后视后视点，用极坐标法放样任一待定点(x,y)所需正拨的水平角及边长。2、程序清单：G“X1”：B“Y1”：C“X2”：H“Y2”：E=C-G：F=H-BPol（E，F）：L=J：Lbl1X，Y：M=X-G：N=Y-BPol（M，N）：D=IA=J-L：AGoto13、程序说明：X1，Y1测站点的坐标。X2，Y2后视点的坐标。X，Y待放样点的坐标。A测站点后视后视点，旋转至待放样点所需正拨的水平角角值。D测站点至待放样点的水平距离。由于编程时用到了极坐标函数POL（），故在程序运行中，放样第一个点时，会出现J=？XXX（数字）及I=？XXX（数字）这是函数POL计算出的两个量，不能改变，直接回车默认即可。放样以后几个点时，不会出现此现象。-