卡西歐測量程序集

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)緯儀

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

3、單：G“ X1 ”： B“ Y1 ”： C“X2 ”： H “Y2 ”： E=C-G ： F=H-BPol（ E， F）： I“ D12” J0 J J 360J“A12”3 程序說明：X1 ，Y1 點 1 的平面坐標(biāo)； X2 ，Y2 點 2 的平面坐標(biāo)；D12點 1 至點 2 間平距； A12 點 1 至點 2 坐標(biāo)方位角。由于編程時用到了極坐標(biāo)函數(shù)POL（），故在程序運行中，會出現(xiàn)I= ？ XXX （數(shù)字）及 J=？ XXX （數(shù)字）這是函數(shù) POL 計算出的兩個量，不能改變，直接回車默認(rèn)即可。三 ZHENG SUAN（正算）1用途：該程序是“坐標(biāo)正算公式”程序，用于根據(jù)點1 的平面坐標(biāo)（

4、 X1 ，Y1 ），及點 1 至點 2 的平距 D12、坐標(biāo)方位角A12 ，來計算點2 的平面坐標(biāo)（ X2 ， Y2 ）。2 程序清單：B“ X1 ”： C“Y1 ”： D “D12”： A “ A12 ” X “ X2 ” =B+DcosA Y “Y2 ”=C+DsinA3 程序說明：至點X1 ，Y1 點2 坐標(biāo)方位角；1 的平面坐標(biāo)；X2 ， Y2 點X2 ，Y2 點 2 的平面坐標(biāo)；D12 點 1 至點 2 間平距； A12 點2 的平面坐標(biāo)。另外在輸入A12 時，可直接輸入“度分秒”。1四 YUAN ZHU（圓主）1用途：該程序是“單圓曲線主點測設(shè)元素及里程計算”程序。2程序清單：A

5、“ 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+L G“ QZ”=F-L ÷ 23程序說明：TURNING ANGLE交點JD 處的轉(zhuǎn)角； R圓曲線半徑；JD交點。T切線長；L 圓曲線長；E外矢距；D切曲差；ZY ZY 點里程； YZ YZ 點里程；QZ QZ點里程。五 YUAN XIANG（圓詳）1用途：該程序是“單圓曲線切線支距法及長弦偏角法詳細測設(shè)”程序。2程序清單：A “ ZY OR Y

6、Z ”： R： Lbl 1L ：B=180Abs(L-A)÷ R÷ ：X=RsinB Y=R-RcosB D“ANGLE ”=B ÷ 2 C“ DISTANCE ”=2RsinD Goto 13程序說明：ZY OR YZ ZY 點或 YZ 點里程（樁號） ；R圓曲線半徑；L 某樁的里程（樁號） ；X 切線支距法的X 值； Y 切線支距法的秒”，可在程序運行顯示時先后按“Y 值； ANGLE 偏角法的偏角值，單位為“度”。若要查看其“度分SHIFT ”、“度分秒”這2 個鍵； DISTANCE 長弦偏角法的弦長。六 HUAN ZHU（緩主）1用途：該程序是“完整對稱

7、帶緩和曲線的圓曲線”的主點測設(shè)元素及里程計算程序。2程序清單：A “ TURNING ANGLE”：R： S“LS ”： H “JD ” B=180S ÷（ 2 R ）P=S2÷ 24÷ R-S4÷ (2688 R 3) 2Q=S ÷2-S3÷ (240R ) 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“ HY ” =N+S U “ QZ”=O+M ÷ 2 V

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

9、#247; 40D 2+C9 ÷ 3456D4-C13 ÷ 599040D6+C17 ÷ 17542600D8 Y=C3 ÷ 6D-C7 ÷ 336D3+C11 ÷ 42240D5-C15 ÷ 9676800D7+C19 ÷ 3530097000D9 Goto 1 Lbl 3 E=180(Abs(L-A)-S) ÷ R÷ +180S÷ (2 R)：P=S2÷24÷ R-S4 ÷ 2688÷ R3 ：Q=S÷ 2-S3÷ 240

10、÷ R2X=RsinE+QY=R-RcosE+P Goto 1 3程序說明：ZH ZH 點樁號（里程） ； R圓曲線半徑；LS緩和曲線長；L 待測設(shè)樁的樁號（里程）；B當(dāng)待測設(shè)中樁位于緩和曲線段，則輸入“1”，當(dāng)待測設(shè)中樁位于圓曲線段，則輸入“1”以外的數(shù)值。X切線支距法的X 值； Y 切線支距法的Y 值。八 HUAN PIAN（緩偏）1用途：該程序是“完整對稱帶緩和曲線的圓曲線”的偏角法詳細測設(shè)計算程序。2程序清單：A “ ZH ”：R：S“ LS” B=30S ÷ R÷ ： F“ B0 ” =2B Lbl 1L E=Abs(L-A) ： D“ ANGLE ”

11、=（ E÷ S） 2B22C“ DISTANCE ” =E-E5 ÷(90R S ) Goto 13程序說明：ZH ZH 點樁號（里程） ；R圓曲線半徑；LS緩和曲線長；B0在以后要測設(shè)圓曲線段上的中樁時，架儀于HY （或YH ）點，瞄準(zhǔn)ZH （或HZ ）點，撥角B0為圓曲線的切線方向，找到切線方向后，即按單圓曲線偏角法去測設(shè)即可；L 待測設(shè)樁的樁號（里程）；ANGLE偏角法的偏角值，在程序顯示中其單位為“度” 。若要查看其“度分秒” ，可在顯示時先后按“SHIFT ”、“度分秒”這2 個鍵； DISTANCE長弦偏角法的弦長。九 ZHUAN HUAN（轉(zhuǎn)換）1用途：該程序

12、是“兩平面坐標(biāo)系間坐標(biāo)轉(zhuǎn)換”的計算程序。2程序清單：C“ X0”： E“ Y0”： D“ ANGLE”： F“ SIGN ” Lbl 0 A ，B F1A=A： B=-BX=C+AcosD-BsinDY=E+BcosD+AsinDGoto 03程序說明：X0 ， Y0 施工坐標(biāo)系（A- O-B ）的原點O在統(tǒng)一坐標(biāo)系（x-o-y ）中的坐標(biāo)。ANGLE為統(tǒng)一坐標(biāo)系的x 軸順時針旋轉(zhuǎn)至施工坐標(biāo)系的A 軸的角值。SIGN為符號函數(shù)，若輸入“1”時，則表明x-o-y為左手系，且A- O-B也為左手系；若輸入“1”之外值，則表明x-o-y為左手系，而A- O-B為右手系。A， B某點在施工坐標(biāo)系中的縱

13、、橫坐標(biāo)。X， Y該點在相應(yīng)統(tǒng)一坐標(biāo)系中的縱、橫坐標(biāo)。十 FUDAOXIAN （附導(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 ： M=0 ： Lbl 0N=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+1Goto 0L： F=F+L ： FGF=F+G ：F=F-GF2GF+F-2GB“ FW”

14、=F-A R： H“ FR” =RN=0 ： P=0： Q=0： Lbl 1（ C+2） B=-B ÷（ C+2）N=N+1 Z2N-1 “ A” =Z2N-1+NB I=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+X G“ FY ”=Q-E+Y H “ F” =（F2+G2） K=H ÷ M N=0 ： V=-F ÷ M ： W=-G ÷M ：Lbl 2N=N+1 Z2C+2N+1= Z2C+2N+1+VZ2N： Z2

15、C+2N+2= Z2C+2N+2+WZ2N： X=X+ Z2C+2N+1Y=Y+Z2C+2N+2N<CGoto 2 ：“END ”3程序說明：X0 ， Y0 ， A0 已知的起始點的縱、橫坐標(biāo)及起始邊的坐標(biāo)方位角。X1 ， Y1 ， A1 已知的結(jié)束點的縱、橫坐標(biāo)及結(jié)束邊的坐標(biāo)方位角。UNKNOWN POINT待求未知點的個數(shù)。L， D觀測的導(dǎo)線各左轉(zhuǎn)角及平距。FW， R， FR導(dǎo)線角度閉合差、角度閉合差的允許誤差的系數(shù)及允許誤差值。N， A各條導(dǎo)線邊序號及其坐標(biāo)方位角。FX ， FY 坐標(biāo)增量X、Y 的閉合差。F， K 導(dǎo)線全長閉合差、導(dǎo)線全長相對閉合差。N， X， Y各導(dǎo)線點的序號及

16、其縱橫坐標(biāo)。注：（1）本程序是按10 個未知點來設(shè)計的， 若未知點數(shù)超過10 個時，按“ 4 倍點數(shù)”來改變源程序中的 “ Defm40 ”。（2）顯示的角度允許誤差FR 的單位為“秒” 。（ 3）在程序顯示中角度單位為“度” 。若要查看其“度分秒” ，可在顯示時先后按“ SHIFT ”、“度分秒”這 2個鍵。十一 BIDAOXIAN （閉導(dǎo)線）1用途：該程序是“閉合導(dǎo)線平差”的計算程序。2程序清單：Defm 40 ： X “ X0 ”： Y “ Y0 ”： F“A0 ”：N “UNKNOWN POINT”： N=N+1 I=0 ：E=0 ： C=0： Lbl 0 I=I+1 ：L ，D ：Z

17、2I-1=L ：Z2I=D ：E=E+L ：C=C+D ：I<NGoto 0B“ FW ”=E-180（N-2 ） R：A “FR” =RNB=-B ÷N ： I=1 ：Z2N+1=F ： Lbl 1 I+I+1 F=F+Z2I-1：F 180F=F+180 ：F=F-180F360F+F-360Z2N+2I-1 “ A ”=F+（ I-1）BI<NGoto 1I=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<NGoto 2

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

19、其坐標(biāo)方位角。FX ， FY 坐標(biāo)增量X、Y 的閉合差。F， K 導(dǎo)線全長閉合差、導(dǎo)線全長相對閉合差。I，X ， Y 各導(dǎo)線點的序號及其縱橫坐標(biāo)。注：（1）本程序是按10 個未知點來設(shè)計的，若未知點數(shù)超過10 個時，按“ 4 倍點數(shù)”來改變源程序中的“ Defm40”。（2）顯示的角度允許誤差FR 的單位為“秒” 。（3）在程序顯示中角度單位為“度” 。若要查看其“度分秒” ，可在顯示時先后按“ SHIFT ”、“度分秒”這 2個鍵。十二 SHUIZHUN （水準(zhǔn)）1用途：該程序是“單一水準(zhǔn)路線的平差”的計算程序。2程序清單：A “ CODE ”： Defm 20 ： G=0：M=0 ： I=

20、0 ： C“ UNKNOWN POINT”Lbl 0 ： I=I+1 ： H ：Z2I=H ：G=G+HA=1L ：Z2I-1=L ：M=M+L ：N ：Z2I-1=N ：M=M+NI<C+1Goto 0B“ 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-1I<CGoto 1 ：“END ”3程序說明：CODE 地形編碼，當(dāng)是平地，統(tǒng)計公里數(shù)時輸入“1”；當(dāng)是山地，統(tǒng)計測站數(shù)時輸入非“1”。

21、UNKNOWN POINT待求高程點的個數(shù)。L水準(zhǔn)點間的路線長。N水準(zhǔn)點間的測站數(shù)。H水準(zhǔn)點間的實測高差。H0， H1 已知的起始點和結(jié)束點的高程。F， FR高差閉合差、高差允許閉合差。R高差允許閉合差系數(shù)。等外水準(zhǔn)：12（按測站數(shù)）或40（按公里數(shù)）；四等水準(zhǔn)： 6（按測站數(shù)）或 20（按公里數(shù)） 。I，H 第 I 段及第 I 個待求水準(zhǔn)點的高程。注：（1）本程序是按10 個未知點來設(shè)計的， 若未知點數(shù)超過10 個時，按“ 2 倍點數(shù)”來改變源程序中的 “ Defm20 ”。（2）當(dāng)水準(zhǔn)路線是閉合水準(zhǔn)路線時，只需將H0 ， H1 輸入相同的值。十三 FANGPINGAO （方平高）1用途：該

22、程序是“方格網(wǎng)法平整場地，填挖方量基本平衡時的設(shè)計高程”的計算程序。2程序清單：N： X “ INPUT ANGLE NUMBER”：I=0 ： C=0： Lbl 0 I=I+1 ： H： C=C+H ： I<XGoto 0M “INPUT EDGE NUMBER”：J=0： D=0 ： Lbl 1J“ I ” =J+1： H：D=D+2H： J<MGoto 1P“ INPUT CORNER NUMBER”： K=0 ： E=0： Lbl 2 K “ I” =K+1 ： H： E=E+3H ： K<PGoto 2Q“ INPUT MIDDLE NUMBER”： L=0 ： F

23、=0： Lbl 3 L“ I” =L+1 ： H：F=F+4H ： L<QGoto 3G“ H0 ” =（ C+D+E+F ）÷4÷ N3程序說明：N方格的個數(shù)。INPUT ANGLE NUMBER輸入角點的個數(shù)。INPUT EDGE NUMBER輸入邊點的個數(shù)。INPUT CORNER NUMBER輸入拐點的個數(shù)。INPUT MIDDLE NUMBER輸入中點的個數(shù)。H各點的實測高程。H0填挖方量基本平衡時的設(shè)計高程。十四 FANGTUFANG （方土方）1用途：該程序是“方格網(wǎng)法平整場地時，填、挖方量”的計算程序。2程序清單：D： E“ H0”： X “INPUT

24、 ANGLE NUMBER ”： G=0： J=0：A=0 ： Lbl 1 J=J+1：H ：F“ DH ”=H-E F>0G=G+F ÷ 4：A=A+ F ÷4J<XGoto 1Y“ INPUT EDGENUMBER ”： L=0 ：K=0 ： B=0 ：Lbl 2： K=K+1 ： H ： M “ DH ”=H-E M>0L=L+M ÷ 2：B=B+ M÷ 2K<YGoto 2Z“ INPUT CORNER NUMBER”：P=0： Q=0： C=0： Lbl 3 Q=Q+1 ：H ：T“ DH ”=H-E T>0P=P

25、+3T ÷ 4：C=C+ 3T ÷4Q<ZGoto 3W“ INPUTMIDDLE NUMBER ”：R=0： S=0： I=0 ： Lbl 4 S=S+1：H ：U“ DH ”=H-E U>0R=R+U ：I=I+US<WGoto 4N“ VW ”=（ G+L+P+R ）D 2 V “VT ” =-（ A+B+C+I ） D23程序說明：D方格的邊長。H0平整場地時的設(shè)計高程。INPUT ANGLE NUMBER輸入角點的個數(shù)。INPUT EDGE NUMBER輸入邊點的個數(shù)。INPUT CORNER NUMBER輸入拐點的個數(shù)。INPUT MIDDLE

26、 NUMBER輸入中點的個數(shù)。H各點的實測高程。DH 填挖高度（各點的實測高程與設(shè)計高程之差），正為挖，負為填。VW ， VT 挖方、填方。十五 JI ZHUO BIAO（極坐標(biāo)放樣程序）1用途：該程序是用于根據(jù)測站點坐標(biāo) (x1,y1) 和后視點坐標(biāo) (x2,y2) ，計算在測站點后視后視點，用極坐標(biāo)法放樣任一待定點 (x,y) 所需正撥的水平角及邊長。2 程序清單：G“ X1”： B“ Y1”： C“ X2”： H“ Y2 ”： E=C-G ：F=H-BPol（ E， F）： J 0JJ360 L=J： Lbl 1 X ， Y ： M=X-G ： N=Y-B Pol（ M ， N）： D=

27、I J0JJ 360 A=J-L ：A0 AA360A Goto 13程序說明：X1 ， Y1 測站點的坐標(biāo)。X2 ， Y2 后視點的坐標(biāo)。X ， Y 待放樣點的坐標(biāo)。A測站點后視后視點，旋轉(zhuǎn)至待放樣點所需正撥的水平角角值。D測站點至待放樣點的水平距離。由于編程時用到了極坐標(biāo)函數(shù)POL （），故在程序運行中，放樣第一個點時，會出現(xiàn)J=？ XXX （數(shù)字）及 I= ？ XXX （數(shù)字）這是函數(shù) POL 計算出的兩個量，不能改變，直接回車默認(rèn)即可。放樣以后幾個點時，不會出現(xiàn)此現(xiàn)象。第二部分： CASIO fx-4500P編程計算器 施工測量程序名代碼變量與說明曲線要素：A,R,I,m,p,B,T,

28、本系統(tǒng)的變量是統(tǒng)一的，代表特定含義，在各段代L碼中通用，不宜更改。P=I 2/24R-I 4 /2688R 3M=I/2-I 3/240R 22T=(R+P)Tan(A/2)+ML=A/180 × R+IA: 曲線轉(zhuǎn)角R: 曲線半徑I: 緩和曲線長T: 切線長L: 曲線長 m,p,B: 曲線要素B=I/R × 90/ 直線相交（四點）點:NSOTPUQVPol(Q-P,V-U)Q=U-PtanWU=WPol(O-N,T-S)3N=T-OtanWO=W UA=U-O:Pol(cosA,sinA):A=AbsW K=W/A J=(Q-N)/(tanO-tanU)D=JtanO+

29、N 交點方位 :JDOUA=U-O31Pol(cosA,sinA)A=AbsAK=W/A任意點坐標(biāo)：Lbl 2:SS0 G=S:H=0:C=0:Goto 4 S L G=L-S:H=0:C=0: Goto 34S<I< span> Prog 5: Goto 4 S<L-I< span> C=B+180(S-I)/R O,U,J,D連續(xù)輸入四點坐標(biāo)O,U: 第一、第二條直線的方位（計算后）J,D:交點坐標(biāo)（計算后）兩條直線方位轉(zhuǎn)角交點坐標(biāo)J,D,O,U輸入交點坐標(biāo)與切線方位轉(zhuǎn)角轉(zhuǎn)向K: 曲線轉(zhuǎn)向 , 右轉(zhuǎn)為正S,X,Y ,G,H,NS:距曲線起點的弧長,S 可用到曲線起點的里程差得到輸入到曲線起點N: 法向距離 (曲線外側(cè)為正 )的弧長X,Y: 中線點坐標(biāo)Z: 切線方位坐標(biāo)G,H:法向點坐標(biāo)坐標(biāo)方向距離（外側(cè)為正）G=RsinC+M:H=R