CASIO fx系列編程計算器測量程序集

1、CASIO fx系列編程計算器測量程序集編寫: 王勁松第一部分：CASIO fx-4800P 編程計算器測量程序集一SHI JU CE TU （視距測圖）1 用途：該程序用于“經(jīng)緯儀視距法碎部測量”時，計算測站點至碎部點間的平距及碎部點的高程。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塔尺上絲讀數(shù)；DOWN塔尺下絲讀數(shù)；MIDDLE塔尺中絲讀數(shù)；L經(jīng)緯儀豎盤讀數(shù)盤左讀數(shù)；D測站點至碎部點間平距；H碎部點的高程。5該程序若在

2、fx-3950中的程序清單為：？M：？A：？B：？C：？D：100（A-B）（cos(90-D)）2X M+Xtan(90-D)-CY說明：M將測站高程H0+儀器高I；A上絲讀數(shù)；B下絲讀數(shù)；C中絲讀數(shù)；D豎盤盤左讀數(shù)L。X測站點至碎部點的平距；Y碎部點的高程。二FAN SUAN （反算）1用途：該程序是“坐標反算公式”程序，用于根據(jù)兩點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(xiàn)）：I“D12” J“A12”3 程序說明：X1，Y1點1的平面坐標；

3、X2，Y2點2的平面坐標； D12點1至點2間平距；A12點1至點2坐標方位角。由于編程時用到了極坐標函數(shù)POL（），故在程序運行中，會出現(xiàn)I=？XXX（數(shù)字）及J=？XXX（數(shù)字）這是函數(shù)POL計算出的兩個量，不能改變，直接回車默認即可。三ZHENG SUAN （正算）1用途：該程序是“坐標正算公式”程序，用于根據(jù)點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，Y1點1的平面坐標；X2，Y2點

4、2的平面坐標； D12點1至點2間平距；A12點1至點2坐標方位角；X2，Y2點2的平面坐標。另外在輸入A12時，可直接輸入“度分秒”。四YUAN ZHU （圓主）1用途：該程序是“單圓曲線主點測設(shè)元素及里程計算”程序。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+LG“QZ”=F-L÷23程序說明：TURNING ANGLE交點JD處的轉(zhuǎn)角；R圓曲線半徑；JD交點。T切線長；L圓曲線長；E外矢距；D切曲差；

5、ZYZY點里程；YZYZ點里程；QZQZ點里程。五YUAN XIANG （圓詳）1用途：該程序是“單圓曲線切線支距法及長弦偏角法詳細測設(shè)”程序。2程序清單：A“ZY OR YZ”：R：Lbl 1 L：B=180Abs(L-A) ÷R÷：X=RsinBY=R-RcosB D“ANGLE”=B÷2C“DISTANCE”=2RsinDGoto 13程序說明：ZY OR YZZY點或YZ點里程（樁號）；R圓曲線半徑； L某樁的里程（樁號）；X切線支距法的X值；Y切線支距法的Y值；ANGLE偏角法的偏角值，單位為“度”。若要查看其“度分秒”，可在程序運行顯示時先后按“SHI

6、FT”、“度分秒”這2個鍵；DISTANCE長弦偏角法的弦長。六HUAN ZHU （緩主）1用途：該程序是“完整對稱帶緩和曲線的圓曲線”的主點測設(shè)元素及里程計算程序。2程序清單：A“TURNING ANGLE”：R：S“LS”：H“JD” B=180S÷（2 R）P=S2÷24÷R-S4÷(2688 R 3) Q=S÷2-S3÷(240R2) T=(R+P)tan(A÷2)+Q M=R(A-2B)÷180L=M+2S E=(R+P)÷cos(A÷2)-R D=2T-L N“ZH”=H-T O“H

7、Y”=N+S U“QZ”=O+M÷2 V“YH”=O+M W“HZ”=V+S3程序說明：TURNING ANGLE交點JD處的轉(zhuǎn)角；R圓曲線半徑；LS緩和曲線長；JD交點里程（樁號）。T切線長；L曲線長；E外矢距；D切曲差；ZHZH點里程；HYHY點里程；QZQZ點里程；YHYH點里程；HZHZ點里程。七HUAN QIE （緩切）1用途：該程序是“完整對稱帶緩和曲線的圓曲線”的切線支距法詳細測設(shè)坐標計算程序。2程序清單：A“ZH”：R：S“LS”：Lbl 1 L，B：Lbl 2C=Abs(L-A)：D=RS：X=C-C5÷40D2+C9÷3456D4-C13

8、47;599040D6+C17÷17542600D8Y=C3÷6D-C7÷336D3+C11÷42240D5-C15÷9676800D7+C19÷3530097000D9 Goto 1Lbl 3E=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+PGoto 13程序說明：ZHZH點樁號（里程）；R圓曲線半徑；LS緩和曲

9、線長；L待測設(shè)樁的樁號（里程）；B當待測設(shè)中樁位于緩和曲線段，則輸入“1”，當待測設(shè)中樁位于圓曲線段，則輸入“1”以外的數(shù)值。X切線支距法的X值；Y切線支距法的Y值。八HUAN PIAN （緩偏）1用途：該程序是“完整對稱帶緩和曲線的圓曲線”的偏角法詳細測設(shè)計算程序。2程序清單：A“ZH”：R：S“LS” B=30S÷R÷：F“B0”=2BLbl 1 LE=Abs(L-A)：D“ANGLE”=（E÷S）2BC“DISTANCE”=E-E5÷(90R2S2) Goto 13程序說明：ZHZH點樁號（里程）；R圓曲線半徑；LS緩和曲線長；B0在以后要測設(shè)圓曲

10、線段上的中樁時，架儀于HY（或YH）點，瞄準ZH（或HZ）點，撥角B0為圓曲線的切線方向，找到切線方向后，即按單圓曲線偏角法去測設(shè)即可； L待測設(shè)樁的樁號（里程）；ANGLE偏角法的偏角值，在程序顯示中其單位為“度”。若要查看其“度分秒”，可在顯示時先后按“SHIFT”、“度分秒”這2個鍵；DISTANCE長弦偏角法的弦長。九ZHUAN HUAN （轉(zhuǎn)換）1用途：該程序是“兩平面坐標系間坐標轉(zhuǎn)換”的計算程序。2程序清單：C“X0”：E“Y0”：D“ANGLE”：F“SIGN” Lbl 0 A，BF1A=A：B=-B X=C+AcosD-BsinDY=E+BcosD+AsinDGoto 03程序

11、說明：X0，Y0施工坐標系（A-O-B）的原點O在統(tǒng)一坐標系（x-o-y）中的坐標。ANGLE為統(tǒng)一坐標系的x軸順時針旋轉(zhuǎn)至施工坐標系的A軸的角值。SIGN為符號函數(shù)，若輸入“1”時，則表明x-o-y為左手系，且A-O-B也為左手系；若輸入“1”之外值，則表明x-o-y為左手系，而A-O-B為右手系。A，B某點在施工坐標系中的縱、橫坐標。X，Y該點在相應(yīng)統(tǒng)一坐標系中的縱、橫坐標。十FU DAO XIAN（附導(dǎo)線）1用途：該程序是“附合導(dǎo)線平差”的計算程序。2程序清單：Defm 40：X“X0”：Y“Y0”：F“A0”：S“X1”：E“Y1”：A“A1”：C“UNKNOWN POINT”N=0：

12、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：N<C+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= Z2NsinZ2N-1：Q=Q+J：Z2C+2N+2=J：N<C+1Goto 1 F“FX”=P-S+X G“FY”=Q

13、-E+Y H“F”=（F2+G2） K=H÷MN=0：V=-F÷M：W=-G÷M：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 N<CGoto 2：“END”3程序說明：X0，Y0，A0已知的起始點的縱、橫坐標及起始邊的坐標方位角。X1，Y1，A1已知的結(jié)束點的縱、橫坐標及結(jié)束邊的坐標方位角。UNKNOWN POINT待求未知點的個數(shù)。L，D觀測的導(dǎo)線各左轉(zhuǎn)角及平距。FW，R，F(xiàn)R導(dǎo)線角度閉合差、角度閉合差的允許誤差的系數(shù)及允許誤差

14、值。N，A各條導(dǎo)線邊序號及其坐標方位角。FX，F(xiàn)Y坐標增量X、Y的閉合差。F，K導(dǎo)線全長閉合差、導(dǎo)線全長相對閉合差。N，X，Y各導(dǎo)線點的序號及其縱橫坐標。注：（1）本程序是按10個未知點來設(shè)計的，若未知點數(shù)超過10個時，按“4倍點數(shù)”來改變源程序中的“Defm 40”。（2）顯示的角度允許誤差FR的單位為“秒”。（3）在程序顯示中角度單位為“度”。若要查看其“度分秒”，可在顯示時先后按“SHIFT”、“度分秒”這2個鍵。十一BI DAO XIAN（閉導(dǎo)線）1用途：該程序是“閉合導(dǎo)線平差”的計算程序。2程序清單：Defm 40：X“X0”：Y“Y0”：F“A0”：N“UNKNOWN POINT”

15、：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：I<NGoto 0 B“FW”=E-180（N-2） R：A“FR”=RN B=-B÷N：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 I<NGoto 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+2

16、I：I<N Goto 2 G“FX” H“FY” I“F”=（G2+H2） K=I÷C U=-G÷C：V=-H÷CI=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 I<N-1Goto 3：“END”3程序說明：X0，Y0，A0已知的起始點的縱、橫坐標及起始邊的坐標方位角。UNKNOWN POINT待求未知點的個數(shù)。L，D觀測的導(dǎo)線各左轉(zhuǎn)角及平距。FW，R，F(xiàn)R導(dǎo)線角度閉合差、角度閉合差的允許誤差的系數(shù)及允許誤差值。I，A各條導(dǎo)線邊序號及其坐標方位角。

17、FX，F(xiàn)Y坐標增量X、Y的閉合差。F，K導(dǎo)線全長閉合差、導(dǎo)線全長相對閉合差。I，X，Y各導(dǎo)線點的序號及其縱橫坐標。注：（1）本程序是按10個未知點來設(shè)計的，若未知點數(shù)超過10個時，按“4倍點數(shù)”來改變源程序中的“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=

18、H：G=G+H A=1L：Z2I-1=L：M=M+L：N：Z2I-1=N：M=M+N I<C+1Goto 0 B“H0”：D“H1”：F=B+G-D J“FR”=RM÷1000 AbsF<J“CHAO XIAN CHA”：V=-F÷M：I=0：H=B：Lbl 1：I=I+1 H=H+Z2I+VZ2I-1 I<CGoto 1：“END”3程序說明：CODE地形編碼，當是平地，統(tǒng)計公里數(shù)時輸入“1”；當是山地，統(tǒng)計測站數(shù)時輸入非“1”。UNKNOWN POINT待求高程點的個數(shù)。L水準點間的路線長。N水準點間的測站數(shù)。H水準點間的實測高差。H0，H1已知的起始

19、點和結(jié)束點的高程。F，F(xiàn)R高差閉合差、高差允許閉合差。R高差允許閉合差系數(shù)。等外水準：12（按測站數(shù)）或40（按公里數(shù)）；四等水準：6（按測站數(shù)）或20（按公里數(shù)）。I，H第I段及第I個待求水準點的高程。注：（1）本程序是按10個未知點來設(shè)計的，若未知點數(shù)超過10個時，按“2倍點數(shù)”來改變源程序中的“Defm 20”。（2）當水準路線是閉合水準路線時，只需將H0，H1輸入相同的值。十三FANG PIN GAO（方平高）1用途：該程序是“方格網(wǎng)法平整場地，填挖方量基本平衡時的設(shè)計高程”的計算程序。2程序清單：N：X“INPUT ANGLE NUMBER”：I=0：C=0：Lbl 0I=I+1：H

20、：C=C+H：I<XGoto 0 M“INPUT EDGE NUMBER”：J=0：D=0：Lbl 1J“I”=J+1：H：D=D+2H：J<MGoto 1 P“INPUT CORNER NUMBER”：K=0：E=0：Lbl 2K“I”=K+1：H：E=E+3H：K<PGoto 2 Q“INPUT MIDDLE NUMBER”：L=0：F=0：Lbl 3L“I”=L+1：H：F=F+4H：L<QGoto 3 G“H0”=（C+D+E+F）÷4÷N3程序說明：N方格的個數(shù)。INPUT ANGLE NUMBER輸入角點的個數(shù)。INPUT EDGE NU

21、MBER輸入邊點的個數(shù)。INPUT CORNER NUMBER輸入拐點的個數(shù)。INPUT MIDDLE NUMBER輸入中點的個數(shù)。H各點的實測高程。H0填挖方量基本平衡時的設(shè)計高程。十四FANG TU FANG（方土方）1用途：該程序是“方格網(wǎng)法平整場地時，填、挖方量”的計算程序。2程序清單：D：E“H0”：X“INPUT ANGLE NUMBER”：G=0：J=0：A=0：Lbl 1J=J+1：H：F“DH”=H-E F>0G=G+F÷4：A=A+ F÷4 J<XGoto 1 Y“INPUT EDGE NUMBER”：L=0：K=0：B=0：Lbl 2：K=

22、K+1：H：M“DH”=H-E M>0L=L+M÷2：B=B+ M÷2 K<YGoto 2 Z“INPUT CORNER NUMBER”：P=0：Q=0：C=0：Lbl 3Q=Q+1：H：T“DH”=H-E T>0P=P+3T÷4：C=C+ 3T÷4 Q<ZGoto 3 W“INPUT MIDDLE NUMBER”：R=0：S=0：I=0：Lbl 4S=S+1：H：U“DH”=H-E U>0R=R+U：I=I+U S<WGoto 4 N“VW”=（G+L+P+R）D2 V“VT”=-（A+B+C+I）D23程序說明：D

23、方格的邊長。H0平整場地時的設(shè)計高程。INPUT ANGLE NUMBER輸入角點的個數(shù)。INPUT EDGE NUMBER輸入邊點的個數(shù)。INPUT CORNER NUMBER輸入拐點的個數(shù)。INPUT MIDDLE NUMBER輸入中點的個數(shù)。H各點的實測高程。DH填挖高度（各點的實測高程與設(shè)計高程之差），正為挖，負為填。VW ，VT挖方、填方。十五JI ZHUO BIAO （極坐標放樣程序）1用途：該程序是用于根據(jù)測站點坐標(x1,y1)和后視點坐標(x2,y2)，計算在測站點后視后視點，用極坐標法放樣任一待定點(x,y)所需正撥的水平角及邊長。2 程序清單：G“X1”：B“Y1”：C“

24、X2”：H“Y2”：E=C-G：F=H-B Pol（E，F(xiàn)）：L=J：Lbl 1X，Y：M=X-G：N=Y-BPol（M，N）：D=IA=J-L：A Goto 13程序說明：X1，Y1測站點的坐標。X2，Y2后視點的坐標。X，Y待放樣點的坐標。A測站點后視后視點，旋轉(zhuǎn)至待放樣點所需正撥的水平角角值。D測站點至待放樣點的水平距離。由于編程時用到了極坐標函數(shù)POL（），故在程序運行中，放樣第一個點時，會出現(xiàn)J=？XXX（數(shù)字）及I=？XXX（數(shù)字）這是函數(shù)POL計算出的兩個量，不能改變，直接回車默認即可。放樣以后幾個點時，不會出現(xiàn)此現(xiàn)象。第二部分：CASIO fx-4500P 編程計算器施工測量程

25、序名代碼變 量 與 說明2曲線要素：P=I2/24R-I4/2688R3M=I/2-I3/240R2T=(R+P)Tan(A/2)+ML=A/180×R+IB=I/R×90/A,R,I,m,p,B,T,L 本系統(tǒng)的變量是統(tǒng)一的，代表特定含義，在各段代碼中通用，不宜更改。 A:曲線轉(zhuǎn)角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

26、)/(tanO-tanU) D=JtanO+NO,U,J,D連續(xù)輸入四點坐標     兩條直線方位轉(zhuǎn)角交點坐標O,U:第一、第二條直線的方位（計算后）J,D:交點坐標 （計算后）31交點方位:JDOUA=U-OPol(cosA,sinA)A=AbsAK=W/AJ,D,O,U 輸入交點坐標與切線方位轉(zhuǎn)角轉(zhuǎn)向K:曲線轉(zhuǎn)向,右轉(zhuǎn)為正4任意點坐標：Lbl 2:SS0G=S:H=0:C=0:Goto 4 SLG=L-S:H=0:C=0: Goto 3 S<I< span>Prog 5: Goto 4 S<L-I< span>C=B+180(S-I)/RG=RsinC+M:H=R-RcosC+P: Goto 4>S=L-S:Prog 5Lbl 3X=J-KhsinU+cosU(T-G) Y=D+KhcosU+sinU(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 輸入到曲線起點的弧長坐標坐標方向距離