CASIO fx4800P 編程計(jì)算器測(cè)量程序集

1、CASIO fx系列編程計(jì)算器測(cè)量程序集編寫(xiě): 王勁松廣東交通職業(yè)技術(shù)學(xué)院2004年9月CASIO fx-4800P 編程計(jì)算器測(cè)量程序集一SHI JU CE TU （視距測(cè)圖）1 用途：該程序用于“經(jīng)緯儀視距法碎部測(cè)量”時(shí)，計(jì)算測(cè)站點(diǎn)至碎部點(diǎn)間的平距及碎部點(diǎn)的高程。2 程序數(shù)學(xué)模型：3 程序清單：C“H0”：I：A“UP”：B“DOWN”：V“MIDDLE”：L：E=90-L D=100Abs（A-B）（cosE）2 H=（C+I）+DtanE-V4 程序說(shuō)明：H0測(cè)站點(diǎn)高程；I測(cè)站儀器高；UP塔尺上絲讀數(shù)；DOWN塔尺下絲讀數(shù)；MIDDLE塔尺中絲讀數(shù)；L經(jīng)緯儀豎盤(pán)讀數(shù)盤(pán)左讀數(shù)；D測(cè)站點(diǎn)至

2、碎部點(diǎn)間平距；H碎部點(diǎn)的高程。5該程序若在fx-3950中的程序清單為：？M：？A：？B：？C：？D：100（A-B）（cos(90-D)）2X M+Xtan(90-D)-CY說(shuō)明：M將測(cè)站高程H0+儀器高I；A上絲讀數(shù)；B下絲讀數(shù)；C中絲讀數(shù)；D豎盤(pán)盤(pán)左讀數(shù)L。X測(cè)站點(diǎn)至碎部點(diǎn)的平距；Y碎部點(diǎn)的高程。二FAN SUAN （反算）1用途：該程序是“坐標(biāo)反算公式”程序，用于根據(jù)兩點(diǎn)1、2的平面坐標(biāo)（X1，Y1）、（X2，Y2），計(jì)算兩點(diǎn)間的距離D12及坐標(biāo)方位角A12。2 程序數(shù)學(xué)模型：3 程序清單：G“X1”：B“Y1”：C“X2”：H“Y2”：E=C-G：F=H-B Pol（E，F(xiàn)）：I“D

3、12” J“A12”4 程序說(shuō)明：X1，Y1點(diǎn)1的平面坐標(biāo)；X2，Y2點(diǎn)2的平面坐標(biāo)； D12點(diǎn)1至點(diǎn)2間平距；A12點(diǎn)1至點(diǎn)2坐標(biāo)方位角。由于編程時(shí)用到了極坐標(biāo)函數(shù)POL（），故在程序運(yùn)行中，會(huì)出現(xiàn)I=？XXX（數(shù)字）及J=？XXX（數(shù)字）這是函數(shù)POL計(jì)算出的兩個(gè)量，不能改變，直接回車(chē)默認(rèn)即可。三ZHENG SUAN （正算）1用途：該程序是“坐標(biāo)正算公式”程序，用于根據(jù)點(diǎn)1的平面坐標(biāo)（X1，Y1），及點(diǎn)1至點(diǎn)2的平距D12、坐標(biāo)方位角A12，來(lái)計(jì)算點(diǎn)2的平面坐標(biāo)（X2，Y2）。2 程序數(shù)學(xué)模型：3 程序清單：B“X1”：C“Y1”：D“D12”：A“A12” X“X2”=B+DcosA

4、Y“Y2”=C+DsinA4 程序說(shuō)明：X1，Y1點(diǎn)1的平面坐標(biāo)；X2，Y2點(diǎn)2的平面坐標(biāo)； D12點(diǎn)1至點(diǎn)2間平距；A12點(diǎn)1至點(diǎn)2坐標(biāo)方位角；X2，Y2點(diǎn)2的平面坐標(biāo)。另外在輸入A12時(shí)，可直接輸入“度分秒”。四YUAN ZHU （圓主）1用途：該程序是“單圓曲線主點(diǎn)測(cè)設(shè)元素及里程計(jì)算”程序。2程序數(shù)學(xué)模型：3程序清單：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÷24程序說(shuō)明：TURNING

5、ANGLE交點(diǎn)JD處的轉(zhuǎn)角；R圓曲線半徑；JD交點(diǎn)。T切線長(zhǎng)；L圓曲線長(zhǎng)；E外矢距；D切曲差；ZYZY點(diǎn)里程；YZYZ點(diǎn)里程；QZQZ點(diǎn)里程。五YUAN XIANG （圓詳）1用途：該程序是“單圓曲線切線支距法及長(zhǎng)弦偏角法詳細(xì)測(cè)設(shè)”程序。2程序數(shù)學(xué)模型：3程序清單：A“ZY OR YZ”：R：Lbl 1 L：B=180Abs(L-A) ÷R÷：X=RsinBY=R-RcosB D“ANGLE”=B÷2C“DISTANCE”=2RsinDGoto 14程序說(shuō)明：ZY OR YZZY點(diǎn)或YZ點(diǎn)里程（樁號(hào)）；R圓曲線半徑； L某樁的里程（樁號(hào)）；X切線支距法的X值；Y切

6、線支距法的Y值；ANGLE偏角法的偏角值，單位為“度”。若要查看其“度分秒”，可在程序運(yùn)行顯示時(shí)先后按“SHIFT”、“度分秒”這2個(gè)鍵；DISTANCE長(zhǎng)弦偏角法的弦長(zhǎng)。六HUAN ZHU （緩主）1用途：該程序是“完整對(duì)稱(chēng)帶緩和曲線的圓曲線”的主點(diǎn)測(cè)設(shè)元素及里程計(jì)算程序。2程序數(shù)學(xué)模型：3程序清單：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)&#

7、247;180L=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+S4程序說(shuō)明：TURNING ANGLE交點(diǎn)JD處的轉(zhuǎn)角；R圓曲線半徑；LS緩和曲線長(zhǎng)；JD交點(diǎn)里程（樁號(hào)）。T切線長(zhǎng)；L曲線長(zhǎng)；E外矢距；D切曲差；ZHZH點(diǎn)里程；HYHY點(diǎn)里程；QZQZ點(diǎn)里程；YHYH點(diǎn)里程；HZHZ點(diǎn)里程。七HUAN QIE （緩切）1用途：該程序是“完整對(duì)稱(chēng)帶緩和曲線的圓曲線”的切線支距法詳細(xì)測(cè)設(shè)坐標(biāo)計(jì)算程序。2程序數(shù)學(xué)模型：3程序清單：A“ZH”：R：S“LS

8、”：Lbl 1 L，B：Lbl 2C=Abs(L-A)：D=RS：X=C-C5÷40D2+C9÷3456D4-C13÷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&#

9、247;240÷R2X=RsinE+QY=R-RcosE+PGoto 14程序說(shuō)明：ZHZH點(diǎn)樁號(hào)（里程）；R圓曲線半徑；LS緩和曲線長(zhǎng)；L待測(cè)設(shè)樁的樁號(hào)（里程）；B當(dāng)待測(cè)設(shè)中樁位于緩和曲線段，則輸入“1”，當(dāng)待測(cè)設(shè)中樁位于圓曲線段，則輸入“1”以外的數(shù)值。X切線支距法的X值；Y切線支距法的Y值。八HUAN PIAN （緩偏）1用途：該程序是“完整對(duì)稱(chēng)帶緩和曲線的圓曲線”的偏角法詳細(xì)測(cè)設(shè)計(jì)算程序。2程序數(shù)學(xué)模型：3程序清單：A“ZH”：R：S“LS” B=30S÷R÷：F“B0”=2BLbl 1 LE=Abs(L-A)：D“ANGLE”=（E÷S）2BC

10、“DISTANCE”=E-E5÷(90R2S2) Goto 14程序說(shuō)明：ZHZH點(diǎn)樁號(hào)（里程）；R圓曲線半徑；LS緩和曲線長(zhǎng)；B0在以后要測(cè)設(shè)圓曲線段上的中樁時(shí)，架儀于HY（或YH）點(diǎn)，瞄準(zhǔn)ZH（或HZ）點(diǎn)，撥角B0為圓曲線的切線方向，找到切線方向后，即按單圓曲線偏角法去測(cè)設(shè)即可； L待測(cè)設(shè)樁的樁號(hào)（里程）；ANGLE偏角法的偏角值，在程序顯示中其單位為“度”。若要查看其“度分秒”，可在顯示時(shí)先后按“SHIFT”、“度分秒”這2個(gè)鍵；DISTANCE長(zhǎng)弦偏角法的弦長(zhǎng)。九ZHUAN HUAN （轉(zhuǎn)換）1用途：該程序是“兩平面坐標(biāo)系間坐標(biāo)轉(zhuǎn)換”的計(jì)算程序。2程序數(shù)學(xué)模型：3程序清單：C

11、“X0”：E“Y0”：D“ANGLE”：F“SIGN” Lbl 0 A，BF1A=A：B=-B X=C+AcosD-BsinDY=E+BcosD+AsinDGoto 04程序說(shuō)明：X0，Y0施工坐標(biāo)系（A-O-B）的原點(diǎn)O在統(tǒng)一坐標(biāo)系（x-o-y）中的坐標(biāo)。ANGLE為統(tǒng)一坐標(biāo)系的x軸順時(shí)針旋轉(zhuǎn)至施工坐標(biāo)系的A軸的角值。SIGN為符號(hào)函數(shù)，若輸入“1”時(shí)，則表明x-o-y為左手系，且A-O-B也為左手系；若輸入“1”之外值，則表明x-o-y為左手系，而A-O-B為右手系。A，B某點(diǎn)在施工坐標(biāo)系中的縱、橫坐標(biāo)。X，Y該點(diǎn)在相應(yīng)統(tǒng)一坐標(biāo)系中的縱、橫坐標(biāo)。十FU DAO XIAN（附導(dǎo)線）1用途：該

12、程序是“附合導(dǎo)線平差”的計(jì)算程序。2程序數(shù)學(xué)模型：3程序清單：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：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=

13、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-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”4程序說(shuō)明：X0，Y0，A0已知的起始點(diǎn)的縱、橫坐標(biāo)及起始邊的坐標(biāo)方位角。X1，Y1，A

14、1已知的結(jié)束點(diǎn)的縱、橫坐標(biāo)及結(jié)束邊的坐標(biāo)方位角。UNKNOWN POINT待求未知點(diǎn)的個(gè)數(shù)。L，D觀測(cè)的導(dǎo)線各左轉(zhuǎn)角及平距。FW，R，F(xiàn)R導(dǎo)線角度閉合差、角度閉合差的允許誤差的系數(shù)及允許誤差值。N，A各條導(dǎo)線邊序號(hào)及其坐標(biāo)方位角。FX，F(xiàn)Y坐標(biāo)增量X、Y的閉合差。F，K導(dǎo)線全長(zhǎng)閉合差、導(dǎo)線全長(zhǎng)相對(duì)閉合差。N，X，Y各導(dǎo)線點(diǎn)的序號(hào)及其縱橫坐標(biāo)。注：（1）本程序是按10個(gè)未知點(diǎn)來(lái)設(shè)計(jì)的，若未知點(diǎn)數(shù)超過(guò)10個(gè)時(shí)，按“4倍點(diǎn)數(shù)”來(lái)改變?cè)闯绦蛑械摹癉efm 40”。（2）顯示的角度允許誤差FR的單位為“秒”。（3）在程序顯示中角度單位為“度”。若要查看其“度分秒”，可在顯示時(shí)先后按“SHIFT”、“度分

15、秒”這2個(gè)鍵。十一BI DAO XIAN（閉導(dǎo)線）1用途：該程序是“閉合導(dǎo)線平差”的計(jì)算程序。2程序數(shù)學(xué)模型：3程序清單：Defm 40：X“X0”：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：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

16、）B I<N 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：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”4程序說(shuō)明：X0，Y0，A0已知的起始點(diǎn)的縱、橫

17、坐標(biāo)及起始邊的坐標(biāo)方位角。UNKNOWN POINT待求未知點(diǎn)的個(gè)數(shù)。L，D觀測(cè)的導(dǎo)線各左轉(zhuǎn)角及平距。FW，R，F(xiàn)R導(dǎo)線角度閉合差、角度閉合差的允許誤差的系數(shù)及允許誤差值。I，A各條導(dǎo)線邊序號(hào)及其坐標(biāo)方位角。FX，F(xiàn)Y坐標(biāo)增量X、Y的閉合差。F，K導(dǎo)線全長(zhǎng)閉合差、導(dǎo)線全長(zhǎng)相對(duì)閉合差。I，X，Y各導(dǎo)線點(diǎn)的序號(hào)及其縱橫坐標(biāo)。注：（1）本程序是按10個(gè)未知點(diǎn)來(lái)設(shè)計(jì)的，若未知點(diǎn)數(shù)超過(guò)10個(gè)時(shí)，按“4倍點(diǎn)數(shù)”來(lái)改變?cè)闯绦蛑械摹癉efm 40”。（2）顯示的角度允許誤差FR的單位為“秒”。（3）在程序顯示中角度單位為“度”。若要查看其“度分秒”，可在顯示時(shí)先后按“SHIFT”、“度分秒”這2個(gè)鍵。十二SH

18、UI ZHUN（水準(zhǔn)）1用途：該程序是“單一水準(zhǔn)路線的平差”的計(jì)算程序。2程序數(shù)學(xué)模型：3程序清單：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=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”4

19、程序說(shuō)明：CODE地形編碼，當(dāng)是平地，統(tǒng)計(jì)公里數(shù)時(shí)輸入“1”；當(dāng)是山地，統(tǒng)計(jì)測(cè)站數(shù)時(shí)輸入非“1”。UNKNOWN POINT待求高程點(diǎn)的個(gè)數(shù)。L水準(zhǔn)點(diǎn)間的路線長(zhǎng)。N水準(zhǔn)點(diǎn)間的測(cè)站數(shù)。H水準(zhǔn)點(diǎn)間的實(shí)測(cè)高差。H0，H1已知的起始點(diǎn)和結(jié)束點(diǎn)的高程。F，F(xiàn)R高差閉合差、高差允許閉合差。R高差允許閉合差系數(shù)。等外水準(zhǔn)：12（按測(cè)站數(shù)）或40（按公里數(shù)）；四等水準(zhǔn)：6（按測(cè)站數(shù)）或20（按公里數(shù)）。I，H第I段及第I個(gè)待求水準(zhǔn)點(diǎn)的高程。注：（1）本程序是按10個(gè)未知點(diǎn)來(lái)設(shè)計(jì)的，若未知點(diǎn)數(shù)超過(guò)10個(gè)時(shí)，按“2倍點(diǎn)數(shù)”來(lái)改變?cè)闯绦蛑械摹癉efm 20”。（2）當(dāng)水準(zhǔn)路線是閉合水準(zhǔn)路線時(shí)，只需將H0，H1輸入相

20、同的值。十三FANG PIN GAO（方平高）1用途：該程序是“方格網(wǎng)法平整場(chǎng)地，填挖方量基本平衡時(shí)的設(shè)計(jì)高程”的計(jì)算程序。2程序數(shù)學(xué)模型：3程序清單：N：X“INPUT ANGLE NUMBER”：I=0：C=0：Lbl 0I=I+1：H：C=C+H：I<X Goto 0 M“INPUT EDGE NUMBER”：J=0：D=0：Lbl 1J“I”=J+1：H：D=D+2H：J<M Goto 1 P“INPUT CORNER NUMBER”：K=0：E=0：Lbl 2K“I”=K+1：H：E=E+3H：K<P Goto 2 Q“INPUT MIDDLE NUMBER”：L=

21、0：F=0：Lbl 3L“I”=L+1：H：F=F+4H：L<Q Goto 3 G“H0”=（C+D+E+F）÷4÷N4程序說(shuō)明：N方格的個(gè)數(shù)。INPUT ANGLE NUMBER輸入角點(diǎn)的個(gè)數(shù)。INPUT EDGE NUMBER輸入邊點(diǎn)的個(gè)數(shù)。INPUT CORNER NUMBER輸入拐點(diǎn)的個(gè)數(shù)。INPUT MIDDLE NUMBER輸入中點(diǎn)的個(gè)數(shù)。H各點(diǎn)的實(shí)測(cè)高程。H0填挖方量基本平衡時(shí)的設(shè)計(jì)高程。十四FANG TU FANG（方土方）1用途：該程序是“方格網(wǎng)法平整場(chǎng)地時(shí)，填、挖方量”的計(jì)算程序。2程序數(shù)學(xué)模型：3程序清單：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<X Goto 1 Y“INPUT EDGE NUMBER”：L=0：K=0：B=0：Lbl 2：K=K+1：H：M“DH”=H-E M>0L=L+M÷2：B=B+ M÷2 K<Y Goto 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