CASIO_放线程序.doc

《CASIO_放线程序.doc》由会员分享，可在线阅读，更多相关《CASIO_放线程序.doc（14页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、CASIO fx系列编程计算器测量程序集编写: 王劲松广东交通职业技术学院2004年9月第一部分：CASIO fx-4800P 编程计算器测量程序集一SHI JU CE TU （视距测图）1 用途：该程序用于“经纬仪视距法碎部测量”时，计算测站点至碎部点间的平距及碎部点的高程。2 程序清单：C“H0”：I：A“UP”：B“DOWN”：V“MIDDLE”：L：E=90-L D=100Abs（A-B）（cosE）2 H=（C+I）+DtanE-V3 程序说明：H0测站点高程；I测站仪器高；UP塔尺上丝读数；DOWN塔尺下丝读数；MIDDLE塔尺中丝读数；L经纬仪竖盘读数盘左读数；D测站点至碎部点间

2、平距；H碎部点的高程。5该程序若在fx-3950中的程序清单为：？M：？A：？B：？C：？D：100（A-B）（cos(90-D)）2X M+Xtan(90-D)-CY说明：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”：E=C-G：F=H-B Pol（E，F）：I“D12” J“A12”3 程

3、序说明：X1，Y1点1的平面坐标；X2，Y2点2的平面坐标； D12点1至点2间平距；A12点1至点2坐标方位角。由于编程时用到了极坐标函数POL（），故在程序运行中，会出现I=？XXX（数字）及J=？XXX（数字）这是函数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”=B+DcosA Y“Y2”=C+DsinA3 程序说明：X1

4、，Y1点1的平面坐标；X2，Y2点2的平面坐标； D12点1至点2间平距；A12点1至点2坐标方位角；X2，Y2点2的平面坐标。另外在输入A12时，可直接输入“度分秒”。四YUAN ZHU （圆主）1用途：该程序是“单圆曲线主点测设元素及里程计算”程序。2程序清单：A“TURNING ANGLE”：R：B“JD” T=Rtan(A2) L=RA180 E=Rcos(A2)-R D=2T-L C“ZY”=B-T F“YZ”=C+LG“QZ”=F-L23程序说明：TURNING ANGLE交点JD处的转角；R圆曲线半径；JD交点。T切线长；L圆曲线长；E外矢距；D切曲差；ZYZY点里程；YZYZ点

5、里程；QZQZ点里程。五YUAN XIANG （圆详）1用途：该程序是“单圆曲线切线支距法及长弦偏角法详细测设”程序。2程序清单：A“ZY OR YZ”：R：Lbl 1 L：B=180Abs(L-A) R：X=RsinBY=R-RcosB D“ANGLE”=B2C“DISTANCE”=2RsinDGoto 13程序说明：ZY OR YZZY点或YZ点里程（桩号）；R圆曲线半径； L某桩的里程（桩号）；X切线支距法的X值；Y切线支距法的Y值；ANGLE偏角法的偏角值，单位为“度”。若要查看其“度分秒”，可在程序运行显示时先后按“SHIFT”、“度分秒”这2个键；DISTANCE长弦偏角法的弦长。

6、六HUAN ZHU （缓主）1用途：该程序是“完整对称带缓和曲线的圆曲线”的主点测设元素及里程计算程序。2程序清单：A“TURNING ANGLE”：R：S“LS”：H“JD” B=180S（2 R）P=S224R-S4(2688 R 3) Q=S2-S3(240R2) T=(R+P)tan(A2)+Q M=R(A-2B)180L=M+2S E=(R+P)cos(A2)-R D=2T-L N“ZH”=H-T O“HY”=N+S U“QZ”=O+M2 V“YH”=O+M W“HZ”=V+S3程序说明：TURNING ANGLE交点JD处的转角；R圆曲线半径；LS缓和曲线长；JD交点里程（桩号）。

7、T切线长；L曲线长；E外矢距；D切曲差；ZHZH点里程；HYHY点里程；QZQZ点里程；YHYH点里程；HZHZ点里程。七HUAN QIE （缓切）1用途：该程序是“完整对称带缓和曲线的圆曲线”的切线支距法详细测设坐标计算程序。2程序清单：A“ZH”：R：S“LS”：Lbl 1 L，B：Lbl 2C=Abs(L-A)：D=RS：X=C-C540D2+C93456D4-C13599040D6+C1717542600D8Y=C36D-C7336D3+C1142240D5-C159676800D7+C193530097000D9 Goto 1Lbl 3E=180(Abs(L-A)-S)R+180S(

8、2R)：P=S224R-S42688R3：Q=S2-S3240R2X=RsinE+QY=R-RcosE+PGoto 13程序说明：ZHZH点桩号（里程）；R圆曲线半径；LS缓和曲线长；L待测设桩的桩号（里程）；B当待测设中桩位于缓和曲线段，则输入“1”，当待测设中桩位于圆曲线段，则输入“1”以外的数值。X切线支距法的X值；Y切线支距法的Y值。八HUAN PIAN （缓偏）1用途：该程序是“完整对称带缓和曲线的圆曲线”的偏角法详细测设计算程序。2程序清单：A“ZH”：R：S“LS” B=30SR：F“B0”=2BLbl 1 LE=Abs(L-A)：D“ANGLE”=（ES）2BC“DISTANC

9、E”=E-E5(90R2S2) Goto 13程序说明：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“

10、SIGN” Lbl 0 A，BF1A=A：B=-B X=C+AcosD-BsinDY=E+BcosD+AsinDGoto 03程序说明：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程序清单

11、：Defm 40：X“X0”：Y“Y0”：F“A0”：S“X1”：E“Y1”：A“A1”：C“UNKNOWN POINT”N=0：M=0：Lbl 0 N=N+1：L，D：G=180：F=F+L：FGF=F+G：F=F-G F2GF+F-2G Z2N-1=F：Z2N=D：M=M+D：NC+1Goto 0 L：F=F+L：FGF=F+G：F=F-G F2GF+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+1Z2N-1“A”=Z2N-1+NBI=Z2NcosZ2N-1：P=P+I：Z2C+2N+1=I：J= Z2NsinZ2

12、N-1：Q=Q+J：Z2C+2N+2=J：NC+1Goto 1 F“FX”=P-S+X G“FY”=Q-E+Y H“F”=（F2+G2） K=HMN=0：V=-FM：W=-GM：Lbl 2 N=N+1Z2C+2N+1= Z2C+2N+1+VZ2N ：Z2C+2N+2= Z2C+2N+2+WZ2N：X=X+ Z2C+2N+1 Y=Y+Z2C+2N+2 NCGoto 2：“END”3程序说明：X0，Y0，A0已知的起始点的纵、横坐标及起始边的坐标方位角。X1，Y1，A1已知的结束点的纵、横坐标及结束边的坐标方位角。UNKNOWN POINT待求未知点的个数。L，D观测的导线各左转角及平距。FW，R

13、，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 40：X“X0”

14、：Y“Y0”：F“A0”：N“UNKNOWN POINT”：N=N+1I=0：E=0：C=0：Lbl 0 I=I+1：L，D：Z2I-1=L：Z2I=D：E=E+L：C=C+D：INGoto 0 B“FW”=E-180（N-2） R：A“FR”=RN B=-BN：I=1：Z2N+1=F：Lbl 1 I+I+1 F=F+Z2I-1：F180F=F+180：F=F-180 F360F+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 Z2

15、N+2I-1：H=H+Z2N+2I：IN Goto 2 G“FX” H“FY” I“F”=（G2+H2） K=IC U=-GC：V=-HCI=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-1Goto 3：“END”3程序说明：X0，Y0，A0已知的起始点的纵、横坐标及起始边的坐标方位角。UNKNOWN POINT待求未知点的个数。L，D观测的导线各左转角及平距。FW，R，FR导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。I，A各条导线边序号及其坐标方位角。FX，FY坐标增量X

16、、Y的闭合差。F，K导线全长闭合差、导线全长相对闭合差。I，X，Y各导线点的序号及其纵横坐标。注：（1）本程序是按10个未知点来设计的，若未知点数超过10个时，按“4倍点数”来改变源程序中的“Defm 40”。（2）显示的角度允许误差FR的单位为“秒”。（3）在程序显示中角度单位为“度”。若要查看其“度分秒”，可在显示时先后按“SHIFT”、“度分秒”这2个键。十二SHUI ZHUN（水准）1用途：该程序是“单一水准路线的平差”的计算程序。2程序清单：A“CODE”：Defm 20：G=0：M=0：I=0：C“UNKNOWN POINT”Lbl 0：I=I+1：H：Z2I=H：G=G+H A=

17、1L：Z2I-1=L：M=M+L：N：Z2I-1=N：M=M+N IC+1Goto 0 B“H0”：D“H1”：F=B+G-D J“FR”=RM1000 AbsFJ“CHAO XIAN CHA”：V=-FM：I=0：H=B：Lbl 1：I=I+1 H=H+Z2I+VZ2I-1 ICGoto 1：“END”3程序说明：CODE地形编码，当是平地，统计公里数时输入“1”；当是山地，统计测站数时输入非“1”。UNKNOWN POINT待求高程点的个数。L水准点间的路线长。N水准点间的测站数。H水准点间的实测高差。H0，H1已知的起始点和结束点的高程。F，FR高差闭合差、高差允许闭合差。R高差允许闭合

18、差系数。等外水准：12（按测站数）或40（按公里数）；四等水准：6（按测站数）或20（按公里数）。I，H第I段及第I个待求水准点的高程。注：（1）本程序是按10个未知点来设计的，若未知点数超过10个时，按“2倍点数”来改变源程序中的“Defm 20”。（2）当水准路线是闭合水准路线时，只需将H0，H1输入相同的值。十三FANG PIN GAO（方平高）1用途：该程序是“方格网法平整场地，填挖方量基本平衡时的设计高程”的计算程序。2程序清单：N：X“INPUT ANGLE NUMBER”：I=0：C=0：Lbl 0I=I+1：H：C=C+H：IX Goto 0 M“INPUT EDGE NUMB

19、ER”：J=0：D=0：Lbl 1J“I”=J+1：H：D=D+2H：JM Goto 1 P“INPUT CORNER NUMBER”：K=0：E=0：Lbl 2K“I”=K+1：H：E=E+3H：KP Goto 2 Q“INPUT MIDDLE NUMBER”：L=0：F=0：Lbl 3L“I”=L+1：H：F=F+4H：L0G=G+F4：A=A+ F4 J0L=L+M2：B=B+ M2 K0P=P+3T4：C=C+ 3T4 Q0R=R+U：I=I+U SW Goto 4 N“VW”=（G+L+P+R）D2 V“VT”=-（A+B+C+I）D23程序说明：D方格的边长。H0平整场地时的设计高

20、程。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=C-G：F

21、=H-B Pol（E，F）： L=J：Lbl 1X，Y：M=X-G：N=Y-BPol（M，N）：D=I A=J-L：A Goto 13程序说明：X1，Y1测站点的坐标。X2，Y2后视点的坐标。X，Y待放样点的坐标。A测站点后视后视点，旋转至待放样点所需正拨的水平角角值。D测站点至待放样点的水平距离。由于编程时用到了极坐标函数POL（），故在程序运行中，放样第一个点时，会出现J=？XXX（数字）及I=？XXX（数字）这是函数POL计算出的两个量，不能改变，直接回车默认即可。放样以后几个点时，不会出现此现象。第二部分：CASIO fx-4500P 编程计算器施工测量程序名代码变 量 与 说明2曲线

22、要素：P=I2/24R-I4/2688R3M=I/2-I3/240R2T=(R+P)Tan(A/2)+ML=A/180R+IB=I/R90/A,R,I,m,p,B,T,L本系统的变量是统一的，代表特定含义，在各段代码中通用，不宜更改。 A:曲线转角R:曲线半径I:缓和曲线长T:切线长L:曲线长m,p,B:曲线要素 3直线相交（四点）点:NSOTPUQVPol(Q-P,V-U)Q=U-PtanWU=WPol(O-N,T-S)N=T-OtanWO=W UA=U-O:Pol(cosA,sinA):A=AbsW K=W/A J=(Q-N)/(tanO-tanU) D=JtanO+NO,U,J,D连续输

23、入四点坐标两条直线方位转角交点坐标O,U:第一、第二条直线的方位（计算后）J,D:交点坐标 （计算后）31交点方位:JDOUA=U-OPol(cosA,sinA)A=AbsAK=W/AJ,D,O,U 输入交点坐标与切线方位转角转向K:曲线转向,右转为正4任意点坐标：Lbl 2:SS0G=S:H=0:C=0:Goto 4 SLG=L-S:H=0:C=0: Goto 3 SIProg 5: Goto 4 SL-IC=B+180(S-I)/RG=RsinC+M:H=R-RcosC+P: Goto 4S=L-S:Prog 5Lbl 3X=J-KhsinU+cosU(T-G) Y=D+KhcosU+si

24、nU(T-G) Z=U-KC:Goto 5Lbl 4X=J-KhsinO-cosO(T-G) Y=D+KhcosO-sinO(T-G) Z=O+KCLbl 5:N:G=X+KNsinZ H=Y-KNcosZ Goto 2S,X,Y,G,H,N 输入到曲线起点的弧长坐标坐标方向距离（外侧为正）法线点坐标S:距曲线起点的弧长,S可用到曲线起点的里程差得到N:法向距离(曲线外侧为正)X,Y:中线点坐标Z:切线方位 G,H:法向点坐标 41程序连接:Prog 31:Prog 2:Prog 4 48曲线长反算:Z=O+(90+A/2)KS=(R+P)/cos(A/2)G=J+ScosZH=D+SsinZ

25、Lbl 8:XYPol(X-G,Y-H)Z=K(W-O)+90S=RZ/180+I/2Goto 8X,Y,SOAKRPJD为曲线变量法向点坐标曲线长由法向点坐标反算成对应曲线长49E=G+G5/40Q2-G9/3456Q4F=H-E3/6Q+E7/336Q3E2/2QF/(1-EF/Q)+E缓和曲线段的反算5缓和曲线:Q=RIG=S-S5/40Q2+S9/3456Q2Q2H=S3/6Q-S7/336Q3+S11/42240Q5C=S2/RI90/G,H,C6放样: Defm 2Z1 Z1=Ans:Z2 Z2=AnsEFPol(Z1-E,Z2-F)Q=WLbl 0:XYPol(X-E,Y-F)

26、W-QAns0Ans+360”B=”Goto 0输入后视点坐标输入测站坐标EF放样距离V放样顺拨角度(度)Z1,Z2:后视点坐标E,F: 测站点坐标Q:后视方位X,Y: 放样点坐标8单导线:KLbL 1:ASProg A:SB=B+180-KAX=X+ScosB Y=Y+SsinB Goto 1A,S,B,X,Y输入左角右角输入角度距离前视方位前视点坐标连续计算单导线坐标，角度按度.分秒输入左角K=-1,右角K=181支导线:ZSZ=Z+QX=E+ScosZ Y=F+SsinZZ,S,Q,X,Y前视角度(度),距离前视方位前视坐标放样时计算前视点的坐标,以便反算A角度转换:A=IntA+Int(100FracA)/60+Frac(100A)/36A输入度.分秒，转换成度13