羅盤(pán)儀實(shí)測(cè)面積操作計(jì)算程序

1、羅盤(pán)儀實(shí)測(cè)面積操作計(jì)算程序（casio fxl80p/3600p計(jì)算器）閉合導(dǎo)線(xiàn)視距測(cè)量求閉合差及面積程序閉合導(dǎo)線(xiàn)測(cè)量中，在外業(yè)時(shí)直接求算各測(cè)站坐標(biāo)、平距總 長(zhǎng)、閉合差及面積。此后，當(dāng)導(dǎo)線(xiàn)點(diǎn)上有引線(xiàn)時(shí)，本程序繼續(xù) 求算各引線(xiàn)點(diǎn)上的坐標(biāo)。程序：mode 4 mode 0 inv pcl pient 1 視差 x ent 2 cos inv x2 二 kin + 6 inv p-r ent 3 二 kin 5 inv x-y kin + 1 kout 1 - kout 3 inv x-r 4 二 x kout 2 m+ kout 5 kin + 2 kout 6 4- kout 2 inv r-p

2、 kout 1 inv hlt kin 3 = kin 5 kout 2 inv rtn mode （38 步）使用說(shuō)明：程序中比i是為解決儀器有視距差時(shí)輸入乘系數(shù)或除系數(shù)之用。若儀器無(wú)視距差時(shí)，在輸入程序時(shí)就不管它,直接輸入即可。如:ent 1 x ent 2例:測(cè)站視距豎角改平方位測(cè)站坐標(biāo)改正后坐標(biāo)xyxy1-24824°60°2-369.532°180°3-44417°307280°4-126.520°45 '10°15z求閉合導(dǎo)線(xiàn)各站坐標(biāo)、平距總長(zhǎng)、閉合差及面積。操作：當(dāng)輸入本程序后，再按鍵mode

3、 7 2 inv kac inv minpl按 順 序 輸 入 各 站 數(shù) 據(jù)送入視距按鍵送入豎角按鍵顯示平距抄錄送入方位按鍵顯示抄xi按鍵顯示按yi按鍵48 run24 run40.0660 run34.69 run20. 0369. 5 run32 run49. 98180 run34. 69 run-29. 9544 run17. 5 run40. 02280 run-4. 72 run-23. 0026. 5 run20.75 run23. 1710.25 run-0. 60 run-0. 20送數(shù)完后，操作如下:kout 5 （顯示閉合差分母，抄錄：l/k=l/243. 16）kou

4、t 6 （顯示平距總長(zhǎng)，抄錄：zl=153. 24m）mr 4- 2 exp 4 = mode 74 （顯示面積。抄錄 s二0. 1344ha）求閉合導(dǎo)線(xiàn)各站平差坐標(biāo)與面積程序 外業(yè)中，使用閉合導(dǎo)線(xiàn)測(cè)量求各測(cè)站坐標(biāo)、平距總長(zhǎng)，相結(jié)閉合差及計(jì)算未平差面積的程序后，當(dāng)達(dá)到閉合精度要求， 在內(nèi)業(yè)時(shí)，用此程序進(jìn)一步求算各測(cè)站的平差坐標(biāo)及平差后的 閉合導(dǎo)線(xiàn)面積。計(jì)算公式:fx平差之坐標(biāo)改正：屜=啟測(cè)-予厶平差后面積計(jì)算:5 = | (k -l) (2x - 1 - x + 乙)程序：mode 4 mode 0 iny pcl plent kin 4 inv p r ent = kin 3 kin + 6

5、 inv x y +inv x k 5 kin + 5 x 2 - (kout 1 x kout 4 ) kin - 5 二 x ( ( kout 2 x kout 4 ) kin - 6 - kout 3 m+ kout 5 inv hlt kout 6 inv rtn mode (36 步)注意：程序中“（”代表兩個(gè)開(kāi)括號(hào)，輸入時(shí)應(yīng)連按兩次, 切莫當(dāng)作一個(gè)括號(hào)輸入。操作：利用外業(yè)操作程序記錄表中最后一站的坐標(biāo)數(shù)據(jù), 將x坐標(biāo)存入k1,將y坐標(biāo)存入k2中，再輸入原閉合導(dǎo)線(xiàn)平距 總長(zhǎng)，緊按按動(dòng)kin 4- 1 kin 4- 2之后，啟動(dòng)p1程序，從第 1站開(kāi)始依次輸入平距，按run,輸入方位角

6、，按run,立即顯 示第1站平差改正后的x坐標(biāo)，再按run,又顯示平差改正后的 y坐標(biāo)。以下各站類(lèi)似連續(xù)輸入執(zhí)行。實(shí)例：以本文程序所計(jì)算的表數(shù)據(jù)為例：操作步驟：1）按鍵：inv kac inv min mode 722）輸入最后一站的測(cè)量坐標(biāo)x, 0.6 +/- kin 13）輸入最后一站的測(cè)量坐標(biāo)y, 0. 2 +/- kin 24）輸入閉合導(dǎo)線(xiàn)平距總長(zhǎng)工l后，求改正系數(shù)，按鍵為 153. 24 kin 4- 1 kin 4- 25）啟動(dòng)程序：按p1輸入數(shù)據(jù)計(jì)算，所得改正后坐標(biāo)應(yīng)填 入表一內(nèi)。啟動(dòng)輸入平距按鍵輸入方位顯示改正后坐標(biāo)按鍵&按鍵£p140.06run60run3

7、4.85run20.0849.98run180run35.05run-29.3340.02run280run-4.21run-22.8323.17run10.25run0.00run0.00從理論講，平差后，最后一站回到原點(diǎn)，其x與y坐標(biāo)均 應(yīng)為0。但由于四舍五入取值的關(guān)系，有時(shí)最后一站平差后坐標(biāo) 出現(xiàn)±0.02左右，可忽略不計(jì)。6) 送數(shù)完畢，計(jì)算得平差后面積，按鍵即顯示結(jié)果如下:mr 4- exp 4 = mode 74 0. 1335 (公頃)注：面積出現(xiàn)負(fù)數(shù)時(shí)，取絕對(duì)值。在計(jì)算過(guò)程中，如有數(shù) 據(jù)送錯(cuò)，分別情況改正如下： 平距(方位角)輸入有錯(cuò)，但未揮動(dòng)run鍵，改錯(cuò)按鍵 為c,重輸入正確數(shù)。例：499.8輸錯(cuò)，改正：c 49. 98o 平距輸入后，又揮動(dòng)run鍵后才發(fā)現(xiàn)有錯(cuò)，改錯(cuò)按鍵為： ac pl 49. 98o 例：49. 98 run 發(fā)現(xiàn)有錯(cuò)。改正：ac pl 49. 98o 輸平距run輸方位run,此時(shí)發(fā)現(xiàn)平距與方位均有錯(cuò)，或 者其中之一有錯(cuò)，此時(shí)將錯(cuò)就錯(cuò)，再按run,使顯示xi與yi后 再改。改正時(shí)，是將原輸平距變負(fù)數(shù)輸入，仍按原送的方位輸 入，這樣，當(dāng)顯示為上一站的x坐標(biāo)時(shí)，即改正，再重送該站 數(shù)據(jù)。例：表一中，34站的平距及方位均錯(cuò)送：400.2 run 28 run (xi