CASIOfx系列編程計(jì)算器測(cè)量程序集Word版

1、程序一 SHI JU CE TU （視距測(cè)圖） 1、用途：該程序用于“經(jīng)緯儀視距法碎部測(cè)量”時(shí)，計(jì)算測(cè)站點(diǎn)至碎部點(diǎn)間的平距及碎部點(diǎn)的高程。 2、程序清單： C “ H 0 ” ： I ： A “ UP ”： B “ DOWN ”： V “ MIDDLE ”： L ： E=90-L D=100Abs （ A-B ）（ cosE ）2 H= （ C+I ） +DtanE-V 3、程序說(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)至碎部點(diǎn)間平距； H 碎部點(diǎn)的高程。4、該程序若在 f

2、x-3950 中的程序清單為： ？ M ：？ A ：？ B ：？ C ：？ D ： 100 （ A-B ）（ cos(90-D) ） 2 X M+Xtan(90-D)-C Y 說(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 / 201、用途：該程序是“坐標(biāo)反算公式”程序，用于根據(jù)兩點(diǎn) 1 、 2 的平面坐標(biāo)（ X1 ， Y1 ）、（ X2 ， Y2 ，計(jì)算兩點(diǎn)間的距離 D12 及坐標(biāo)方位角 A12 。2、程序清單： G

3、“ X 1 ”： B “ Y 1 ”： C “ X 2 ”： H “ Y 2 ”： E=C-G ：F=H-B Pol （ E ， F ）： I “ D 12 ” J “ A 12 ” 3、程序說(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)方位角，單位是度，若需換算成“度分秒”，按 SHIFT 鍵和 o 鍵。 由于編程時(shí)用到了極坐標(biāo)函數(shù) POL （），故在程序運(yùn)行中，會(huì)出現(xiàn) I= ？ XXX （數(shù)字）及 J= ？ XXX （數(shù)字）這是函數(shù) POL 計(jì)算出的兩個(gè)量，不能改變，直接回車(chē)默認(rèn)即可。

4、返 回 目 錄程序三 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、程序清單： B “ X 1 ” ： C “ Y 1 ” ： D “ D 12 ” ： A “ A 12 ” X “ X 2 ” =B+DcosA Y “ Y 2 ” =C+DsinA 3、程序說(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)

5、方位角； X2 ， Y2 點(diǎn) 2 的平面坐標(biāo)。另外在輸入 A12 時(shí)，可直接輸入“度分秒”。返 回 目 錄程序四 YUAN ZHU （圓主） 1、用途：該程序是“單圓曲線主點(diǎn)測(cè)設(shè)元素及里程計(jì)算”程序。 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+L G “ QZ ” =F-L ÷ 2 3、程序說(shuō)明： TURNING ANGLE 交點(diǎn) JD 處的轉(zhuǎn)角； R

6、 圓曲線半徑； JD 交點(diǎn)。 T 切線長(zhǎng)； L 圓曲線長(zhǎng)； E 外矢距； D 切曲差； ZY ZY 點(diǎn)里程； YZ YZ 點(diǎn)里程； QZ QZ 點(diǎn)里程。 返 回 目 錄程序五 YUAN XIANG （圓詳） 1、用途：該程序是“單圓曲線切線支距法及長(zhǎng)弦偏角法詳細(xì)測(cè)設(shè)”程序。2、程序清單： A “ ZY OR YZ ”： R ： Lbl 1 L ： B=180Abs(L-A) ÷ R ÷： X=RsinB Y=R-RcosB D “ ANGLE ” =B ÷ 2 C “ DISTANCE ” =2RsinD Goto 1 3、程序說(shuō)明： ZY OR YZ ZY 點(diǎn)或

7、 YZ 點(diǎn)里程（樁號(hào)）； R 圓曲線半徑； L 某樁的里程（樁號(hào)）； X 切線支距法的 X 值； Y 切線支距法的 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、程序清單： A “ TURNING ANGLE ”： R ： S “ LS ”： H “ JD ” B=180S ÷（ 2 R ） P=S 2 ÷

8、24 ÷ R-S4 ÷ (2688 R 3) Q=S ÷ 2-S3 ÷ (240R 2 ) T=(R+P)tan(A ÷ 2)+Q M=R(A-2B) ÷ 180 L=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+S 3、程序說(shuō)明： TURNING ANGLE 交點(diǎn) JD 處的轉(zhuǎn)角； R 圓曲線半徑； LS 緩和曲線長(zhǎng)； JD 交點(diǎn)里程（樁

9、號(hào)）。 T 切線長(zhǎng)； L 曲線長(zhǎng)； E 外矢距； D 切曲差； ZH ZH 點(diǎn)里程； HY HY 點(diǎn)里程； QZ QZ 點(diǎn)里程； YH YH 點(diǎn)里程； HZ HZ 點(diǎn)里程。 返 回 目 錄程序七 HUAN QIE （緩切） 1、用途：該程序是“完整對(duì)稱(chēng)帶緩和曲線的圓曲線”的切線支距法詳細(xì)測(cè)設(shè)坐標(biāo)計(jì)算程序。2、程序清單： A “ ZH ”： R ： S “ LS ”： Lbl 1 L ， B ： Lbl 2 C=Abs(L-A) ： D=RS ： X=C-C5 ÷ 40D 2 +C9 ÷ 3456D4-C13 ÷ 599040D6+C17 ÷ 175426

10、00D8 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=S 2 ÷ 24 ÷ R-S4 ÷ 2688 ÷ R3 ： Q=S ÷ 2-S3 ÷ 240 ÷ R2 X=RsinE+Q Y=R-RcosE+P Goto 1 3、程序說(shuō)明： ZH ZH

11、點(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、程序清單： A “ ZH ”： R ： S “ LS ” B=30S ÷ R ÷： F “ B 0 ” =2B Lbl 1 L E=Abs(L-A) ： D “ ANGLE ” = （ E 

12、7; S ） 2 B C “ DISTANCE ” =E-E5 ÷ (90R 2 S 2 ) Goto 1 3、程序說(shuō)明： ZH ZH 點(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)。 返 回 目

13、 錄程序九 ZHUAN HUAN （轉(zhuǎn)換） 1、用途：該程序是“兩平面坐標(biāo)系間坐標(biāo)轉(zhuǎn)換”的計(jì)算程序。 2、程序清單： C “ X 0 ” ： E “ Y 0 ” ： D “ ANGLE ”： F “ SIGN ” Lbl 0 A ， B F 1 A=A ： B=-B X=C+AcosD-BsinD Y=E+BcosD+AsinD Goto 0 3、程序說(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í)，

14、則表明 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、用途：該程序是“附合導(dǎo)線平差”的計(jì)算程序。 2、程序清單： Defm 40 ： X “ X 0 ” ： Y “ Y 0 ” ： F “ A 0 ” ： S “ X 1 ” ： E “ Y 1 ” ： A “ A 1 ” ： C “ UNKNOWN POINT ” N=0 ： M=

15、0 ： Lbl 0 N=N+1 ： L ， D ： G=180 ： F=F+L ： F G F=F+G ： F=F-G F 2G F+F -2G Z2N-1=F ： Z2N=D ： M=M+D ： N<C+1 Goto 0 L ： F=F+L ： F G F=F+G ： F=F-G F 2G F+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+1 Z2N-1 “ A ” =Z2N-1+NB I=Z2NcosZ2N-1 ： P=P+I ： Z 2C +2N+

16、1=I ： J= Z2NsinZ2N-1 ： Q=Q+J ： Z 2C +2N+2=J ： N<C+1 Goto 1 F “ FX ” =P-S+X G “ FY ” =Q-E+Y H “ F ” = （ F 2 +G 2 ） K=H ÷ M N=0 ： V=-F ÷ M ： W=-G ÷ M ： Lbl 2 N=N+1 Z 2C +2N+1= Z 2C +2N+1+VZ2N ： Z 2C +2N+2= Z 2C +2N+2+WZ2N ： X=X+ Z 2C +2N+1 Y=Y+Z 2C +2N+2 N<C Goto 2 ： “ END ”3、程序說(shuō)明

17、： X0 ， Y0 ， A0 已知的起始點(diǎn)的縱、橫坐標(biāo)及起始邊的坐標(biāo)方位角。 X1 ， Y1 ， A1 已知的結(jié)束點(diǎn)的縱、橫坐標(biāo)及結(jié)束邊的坐標(biāo)方位角。 UNKNOWN POINT 待求未知點(diǎn)的個(gè)數(shù)。 L ， D 觀測(cè)的導(dǎo)線各左轉(zhuǎn)角及平距。 FW ， R ， FR 導(dǎo)線角度閉合差、角度閉合差的允許誤差的系數(shù)及允許誤差值。 N ， A 各條導(dǎo)線邊序號(hào)及其坐標(biāo)方位角。 FX ， FY 坐標(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

18、 倍點(diǎn)數(shù)”來(lái)改變?cè)闯绦蛑械摹?Defm 40 ”。 （2）顯示的角度允許誤差 FR 的單位為“秒”。 （3）在程序顯示中角度單位為“度”。若要查看其“度分秒”，可在顯示時(shí)先后按“ SHIFT ”、“度分秒”這 2 個(gè)鍵。 返 回 目 錄程序十一 BI DAO XIAN （閉導(dǎo)線） 1、用途：該程序是“閉合導(dǎo)線平差”的計(jì)算程序。 2、程序清單： Defm 40 ： X “ X 0 ” ： Y “ Y 0 ” ： F “ A 0 ” ： N “ UNKNOWN POINT ”： N=N+1 I=0 ： E=0 ： C=0 ： Lbl 0 I=I+1 ： L ， D ： Z2I-1=L ： Z2I=

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

20、 ： H=H+Z2N+2I ： I<N Goto 2 G “ FX ” H “ FY ” I “ F ” = （ G 2 +H 2 ） K=I ÷ C U=-G ÷ C ： V=-H ÷ C I=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-1 Goto 3 ： “ END ” 3、程序說(shuō)明： X0 ， Y0 ， A0 已知的起始點(diǎn)的縱、橫坐標(biāo)及起始邊的坐標(biāo)方位角。 UNKNOWN POINT 待求未知點(diǎn)的個(gè)數(shù)。 L ， D 觀測(cè)

21、的導(dǎo)線各左轉(zhuǎn)角及平距。 FW ， R ， FR 導(dǎo)線角度閉合差、角度閉合差的允許誤差的系數(shù)及允許誤差值。 I ， A 各條導(dǎo)線邊序號(hào)及其坐標(biāo)方位角。FX ， FY 坐標(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è)闯绦蛑械摹?Defm 40 ”。 （2）顯示的角度允許誤差 FR 的單位為“秒”。 （3）在程序顯示中角度單位為“度”。若要查看其“度分秒”，可在顯示時(shí)先后按“ SHIFT ”、“度分秒”這 2 個(gè)

22、鍵。 返 回 目 錄程序十二 SHUI ZHUN （水準(zhǔn)） 1、用途：該程序是“單一水準(zhǔn)路線的平差”的計(jì)算程序。 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=1 L ： Z2I-1=L ： M=M+L ： N ： Z2I-1=N ： M=M+N I<C+1 Goto 0 B “ H0 ”： D “ H1 ”： F=B+G-D J “ FR ” =R M ÷ 1000 AbsF<J “ CHAO XIAN CHA

23、 ”： V=-F ÷ M ： I=0 ： H=B ： Lbl 1 ： I=I+1 H=H+Z2I+VZ2I-1 I<C Goto 1 ： “ END ” 3、程序說(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ù)）

24、或 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è)闯绦蛑械摹?Defm 20 ”。 （2）當(dāng)水準(zhǔn)路線是閉合水準(zhǔn)路線時(shí)，只需將 H0 ， H1 輸入相同的值。返 回 目 錄程序十三 FANG PIN GAO （方平高） 1、用途：該程序是“方格網(wǎng)法平整場(chǎng)地，填挖方量基本平衡時(shí)的設(shè)計(jì)高程”的計(jì)算程序。 2、程序清單： N ： X “ INPUT ANGLE NUMBER ”： I=0 ： C=0 ： Lbl 0 I=I+1 ： H ： C=C+H ： I<X G

25、oto 0 M “ INPUT EDGE NUMBER ”： J=0 ： D=0 ： Lbl 1 J “ I ” =J+1 ： H ： D=D+2H ： J<M Goto 1 P “ INPUT CORNER NUMBER ”： K=0 ： E=0 ： Lbl 2 K “ I ” =K+1 ： H ： E=E+3H ： K<P Goto 2 Q “ INPUT MIDDLE NUMBER ”： L=0 ： F=0 ： Lbl 3 L “ I ” =L+1 ： H ： F=F+4H ： L<Q Goto 3 G “ H0 ” = （ C+D+E+F ）÷ 4 

26、7; N 3、程序說(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、程序清單： D ： E “ H 0 ” ： X “ INPUT ANGLE NUMBER ”： G=0 ： J=0 ： A=0 ： Lbl

27、1 J=J+1 ： H ： F “ DH ” =H-E F> 0 G=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>0 L=L+M ÷ 2 ： B=B+ M ÷ 2 K<Y Goto 2 Z “ INPUT CORNER NUMBER ”： P=0 ： Q=0 ： C=0 ： Lbl 3 Q=Q+1 ： H ： T “ DH ” =H-E T>0 P=P+3T ÷ 4 ： C=C+ 3T ÷ 4 Q<Z Goto 3 W “