對(duì)卡西歐4800計(jì)算器編程

1、對(duì)卡西歐4800計(jì)算器在編程中的淺見(jiàn) 作者: luzhmu  發(fā)布日期: 2005-10-08    查看數(shù): 793   出自:  在計(jì)算能力飛速發(fā)展的今天，各種計(jì)算工具應(yīng)運(yùn)而生代替了以往我們大量、繁瑣的分析計(jì)算工作，簡(jiǎn)化了計(jì)算步驟節(jié)省了計(jì)算時(shí)間。在種類(lèi)繁多的計(jì)算工具中適合測(cè)量工作的計(jì)算器也大有所在。比如有一款SHAPPC-E500計(jì)算器，它相當(dāng)于是基于BASIC語(yǔ)言的微型電腦，功能也相當(dāng)齊全能編寫(xiě)較復(fù)雜的程序、內(nèi)存也相當(dāng)大有32KB、64 KB、128 KB、256 KB、幾種型號(hào)，同時(shí)具有輸入輸出通訊設(shè)備。但

2、價(jià)格不菲，現(xiàn)在市場(chǎng)價(jià)格大約為2000元到3000元，個(gè)人經(jīng)濟(jì)承受能力有限。通過(guò)幾年的實(shí)際測(cè)量工作我個(gè)人為認(rèn)為真正適合測(cè)量人員較為專(zhuān)業(yè)的計(jì)算器應(yīng)首推基于科學(xué)計(jì)算器具有簡(jiǎn)單程序語(yǔ)言的casiox計(jì)算器。它有很多優(yōu)點(diǎn)：一、使用簡(jiǎn)單，最大的一個(gè)優(yōu)點(diǎn)就是只要具有初中水平會(huì)運(yùn)用數(shù)學(xué)公式對(duì)函數(shù)有一般的了解的人，能基本理解casiox的內(nèi)裝函數(shù)即可進(jìn)行簡(jiǎn)單的編程。非常適合測(cè)量初學(xué)者和數(shù)學(xué)程序愛(ài)好者學(xué)習(xí)，也適合專(zhuān)業(yè)的測(cè)量人員的使用和能力提高。不像其它的專(zhuān)業(yè)一定要具有較高的專(zhuān)業(yè)技術(shù)水平才能進(jìn)行電腦編程。二、成本低廉，價(jià)格在400元左右。三、攜帶方便，體積很小可隨時(shí)放在口袋里隨拿隨用。casio系列較好的編程型號(hào)有

3、casio（以下簡(jiǎn)稱(chēng)）、casio（以下簡(jiǎn)稱(chēng)），（好象近來(lái)還推出了一款casio4850）前者較內(nèi)存小，只有個(gè)字節(jié)，能應(yīng)付一些較為簡(jiǎn)單的公式計(jì)算和科學(xué)計(jì)算，但由于內(nèi)存有限，對(duì)一些較復(fù)雜或子程序過(guò)多的程序就力不從心了，不能出色的完成測(cè)量任務(wù)。就比有較大的改進(jìn)，內(nèi)存達(dá)到的個(gè)字節(jié)，而且顯示屏是的幾倍大，能更準(zhǔn)確的顯示數(shù)據(jù)，內(nèi)裝函數(shù)字符一目了然。且具有簡(jiǎn)單的人機(jī)對(duì)話功能，出現(xiàn)了菜單子菜單。還在增加了啊佛加德羅常數(shù)、萬(wàn)有引力長(zhǎng)常數(shù)、詳見(jiàn)操作說(shuō)明書(shū)。有很多很實(shí)用的功能如他有一個(gè)公式解答功能，其原理是用牛頓法解方程。舉個(gè)例子：有一方程式：a=2b-c求 當(dāng)a=2、c=5時(shí)的b值。將該方程式存入公式存貯器中，

4、：先按按解答鍵“SOLVE” a輸入2 、c輸入5，再按解答鍵“SOLVE”計(jì)算器就會(huì)顯示：b=3.5。此項(xiàng)功能被稱(chēng)為自動(dòng)解答功能。同時(shí)它也是非常實(shí)用的，在實(shí)際工作中通常要有一個(gè)經(jīng)常使用的小公式，可借助它來(lái)完成。使用的程序語(yǔ)言可以算做簡(jiǎn)單的BASIC語(yǔ)言，有的命令如GOTO（轉(zhuǎn)移到）、PAUSE（暫停）就與BASIC語(yǔ)言的一模一樣?，F(xiàn)在的程序語(yǔ)言來(lái)說(shuō)說(shuō)。 其主要命令有： 1、=> 條件轉(zhuǎn)移成立符號(hào)，其用法相當(dāng)于BASIC中的IFTHEN（假設(shè)語(yǔ)句相當(dāng)于假如然后，IF相當(dāng)于條件THEN相當(dāng)于結(jié)果）語(yǔ)句2、>條件轉(zhuǎn)移不成立符號(hào)，其用法相當(dāng)于BASIC中的IFELSE語(yǔ)句通常二者連用，相

5、當(dāng)于BASIC中的IFTHENELSE語(yǔ)句（它的英語(yǔ)形式一般為if ab then cd else if ba the）3、 條件轉(zhuǎn)移結(jié)束符號(hào)，與=>和>配合使用，放在條件語(yǔ)句最后面。4、 LbI標(biāo)記命令。用于將一段語(yǔ)句作轉(zhuǎn)換標(biāo)記。后可接字母、數(shù)字、符號(hào)，但不能超過(guò)兩個(gè)字節(jié)，如不能用10的數(shù)字作行標(biāo)，否則會(huì)出現(xiàn)出錯(cuò)信息。5、Goto （條件）轉(zhuǎn)移命令。前面可加條件語(yǔ)句，與BASIC中的GOTO作用相同。通常與LbI一起用，如果所轉(zhuǎn)移的行號(hào)無(wú)效，則會(huì)顯示：GO ERROR（詳見(jiàn)說(shuō)明書(shū)）出錯(cuò)信息 6、 Dsz減量循環(huán)命令。可減少未知數(shù)的數(shù)量。7、 Isz增量循環(huán)命令。8、 Pause暫

6、停命令。后可接09之間的整數(shù)n，可使某一數(shù)據(jù)顯示n/2秒鐘，然后繼續(xù)運(yùn)行下面的程序。它被認(rèn)為是一個(gè)語(yǔ)句。9、 Fixm變量鎖定命令。該命令能使其所有變量值（AZ）均當(dāng)成定數(shù)處理。當(dāng)程序運(yùn)行時(shí)，將不需要輸入變數(shù)（“”內(nèi)的變數(shù)除外），而是將存貯器中原有的數(shù)值來(lái)完成計(jì)算。10、 變量輸入命令。只程序在循環(huán)使用時(shí)經(jīng)常發(fā)生改變的數(shù)字，如里程、和寬度。它的輸入方式可以使很多種如ABA,BA B都可以。注意“”和“”必需成對(duì)輸入。否則會(huì)出現(xiàn)Syn ERROR（詳見(jiàn)說(shuō)明書(shū)）出錯(cuò)信息。11、=、>、<、條件運(yùn)算關(guān)系算子，常與Goto命令構(gòu)成條件轉(zhuǎn)換語(yǔ)句。12、Prog在正常情況是下打開(kāi)程序的快捷鍵。

7、在編程過(guò)程中是運(yùn)行子程序命令，后接子程序名（一定要加引號(hào)，且要注意空格，否則會(huì)出現(xiàn)Syn ERROR（詳見(jiàn)說(shuō)明書(shū)）的出錯(cuò)信息。 13、換行，只保留計(jì)算過(guò)程不顯示計(jì)算結(jié)果。當(dāng)不想對(duì)其換行時(shí)也可用：代替。14、2 / 59數(shù)據(jù)顯示命令。該命令輸入后會(huì)自動(dòng)換行。保留計(jì)算過(guò)程并顯示計(jì)算結(jié)果。有一條總原則即：學(xué)會(huì)運(yùn)用程序的語(yǔ)言，盡可能使程序變得簡(jiǎn)明扼要；我們編寫(xiě)程序應(yīng)該盡可能地使程序變得簡(jiǎn)明扼要，能省略的要一定省略。煩瑣的語(yǔ)句過(guò)多的字節(jié)只能使計(jì)算器的運(yùn)算速度變慢沒(méi)有任何好處，而且相當(dāng)站用內(nèi)存。學(xué)會(huì)節(jié)省字節(jié)和使用符號(hào)是相當(dāng)重要的。尤其要靈活運(yùn)用計(jì)算器語(yǔ)句因?yàn)樗鼤?huì)使你更多的節(jié)省字節(jié)達(dá)到預(yù)期效果。比如下程序就

8、靈活運(yùn)用了 Dsz （減量循環(huán)命令）。比如使其能輸入10個(gè)數(shù)值，并計(jì)算10個(gè)數(shù)值的平均值。一般程序求10個(gè)數(shù)字的平均值需要有11個(gè)數(shù)字的提示符號(hào)。但學(xué)會(huì)靈活運(yùn)用了 Dsz （減量循環(huán)命令）那么只要有三個(gè)就可以了，這樣就大大節(jié)省了字節(jié)的占用。 例程序如下：A=10C=0Lbi 1BC=B+CDsz AGoto 1C÷10但要注意的是：如果你是初學(xué)者或你對(duì)程序的編程不熟練，首先一定要先按照你的思路把程序步驟一步一步的列好在確定它能正確的計(jì)算后在想辦法對(duì)其進(jìn)行精簡(jiǎn)修改，否則只會(huì)使程序出現(xiàn)過(guò)多的錯(cuò)誤；盡可能使程序所包含的子程序減少；子程序過(guò)多就會(huì)造成程序結(jié)構(gòu)松散，有的計(jì)算器主程序需要三個(gè)或四

9、子程序，過(guò)多的子程序只會(huì)引起程序之間紊亂、混淆。子程序過(guò)多對(duì)在使用時(shí)查找也比較麻煩。而且子程序過(guò)多如果其中某個(gè)環(huán)節(jié)出現(xiàn)錯(cuò)誤很難發(fā)現(xiàn)其錯(cuò)誤所在，在編寫(xiě)程序時(shí)要盡量的少編寫(xiě)子程序，即使要編寫(xiě)子程序時(shí)也要注意尤其在容易出錯(cuò)的地方要多加注意。有弊就有利如果你對(duì)子程序了解得多了那么可以幾個(gè)主程序合用一個(gè)之程序也到到了要求的減少程序的字節(jié)使程序更簡(jiǎn)化。例程序如下：CX CDLbi 1 Lbi 1Prog”V” Prog”V”B=L-(K-S) B=L+(K-S) Goto 1 Goto 1VY=A2B2+B2X2÷A盡量少用或不使用擴(kuò)充變數(shù)存貯器，如A1、A2等：使用擴(kuò)充存貯器是一個(gè)利少弊多的做

10、法。每擴(kuò)充一個(gè)存貯器就要減少10個(gè)字節(jié)的容量，而每個(gè)擴(kuò)充存貯器至少要占四個(gè)字節(jié)，比一個(gè)AZ變量?jī)粼鋈齻€(gè)。有時(shí)你會(huì)覺(jué)得變量存貯器不夠用。其實(shí)不盡然，一般程序變量數(shù)很少會(huì)超過(guò)26個(gè)，只是你不懂得去使用。一般來(lái)說(shuō)，兩個(gè)相對(duì)獨(dú)立的程序步驟之間根本不需要考慮變量重復(fù)問(wèn)題。針對(duì)某一個(gè)程序，只要不是固定變量（內(nèi)的變量），也就是那些通過(guò)計(jì)算出來(lái)的用于下一步計(jì)算的數(shù)值。我們就可以通過(guò)重復(fù)賦值來(lái)得到某些計(jì)算量。反正在下一輪循環(huán)中該量是變化的。明白了各種命令的含義和注意事項(xiàng)就可以編程了。舉例有公式如下：CX 程序名稱(chēng) Lbl 0 起始標(biāo)記命令語(yǔ)句 QMNFJ 數(shù)據(jù)輸入語(yǔ)句 （指公式循環(huán)運(yùn)算時(shí)的不變量） KDE 數(shù)據(jù)

11、輸入語(yǔ)句（指公式循環(huán)運(yùn)算時(shí)變量）S=KQ:G=F+J 公式運(yùn)算命令 X=M+ScosF 公式運(yùn)算命令 Y=M+SsinF 公式運(yùn)算命令Prog j 運(yùn)行子程序命令Goto 0 循環(huán)運(yùn)算語(yǔ)句J 子程序名稱(chēng)H=X+DcosG 公式運(yùn)算、數(shù)據(jù)顯示語(yǔ) I=Y+DsinG 公式運(yùn)算、數(shù)據(jù)顯示語(yǔ)T=XEcosG 公式運(yùn)算、數(shù)據(jù)顯示語(yǔ)U=YEsinG 公式運(yùn)算、數(shù)據(jù)顯示語(yǔ)最后計(jì)算器狀態(tài)設(shè)定語(yǔ)句是大家最容易忽視的。如果將單位進(jìn)行預(yù)設(shè)那么計(jì)算器就會(huì)默認(rèn)其使用單位在進(jìn)行下一單位換算時(shí)要一定要進(jìn)行單位轉(zhuǎn)換，否者會(huì)使計(jì)算結(jié)果錯(cuò)誤。在顯示屏幕的左下角可以清楚地發(fā)現(xiàn)小提示符號(hào)：如D代表度為現(xiàn)在的缺省單位、R代表弧度為現(xiàn)在

12、的缺省單位、G 代表梯度為現(xiàn)在的缺省單位。 首頁(yè)   GPS測(cè)量  工程測(cè)量  遙感測(cè)量  地籍測(cè)量  控制測(cè)量  數(shù)字測(cè)圖  地圖制圖  數(shù)據(jù)處理  測(cè)繪儀器  軟件應(yīng)用  房產(chǎn)測(cè)量  地理信息  測(cè)量管理  程序開(kāi)發(fā)  理論文章  其他  文章更新列表&#

13、160; 游客發(fā)布論文 所屬分類(lèi)：程序開(kāi)發(fā) 來(lái)源： 作者： 更新日期：2006-8-25 閱讀次數(shù)：156    文章更新列表  查看公告列表公路編程實(shí)例ZBZS   坐標(biāo)正算主程序Deg:FixmLbl 0:O:O“1,47264-50167.162,50150-50673.503,50700-54700”Lbl 1:ZKB:Z:K:B:O=1=Goto 2O=2=Goto 3O=3=Goto 4Lbl 2:Z47264=Goto 5Z50167.16=Goto 5Z48708.52=Prog“55”:

14、 Goto 6Z49310.50=Prog“56”: Goto 6Z49874.21=Prog“57”: Goto 6Prog“57-1”: Goto 6Lbl 3:Z50150=Goto 5Z50673.5=Goto 5Prog“58”: Goto 6Lbl 4:Z50700=Goto 5Z54700=Goto 5Z51265.12=Prog“59”: Goto 6Z52266.78=Prog“60”: Goto 6Z53341.82=Prog“61”: Goto 6Z53868.03=Prog“62”: Goto 6Prog“63”: Goto 6Lbl 5:“ZH ERROR”Goto

15、0Lbl 6:Prog“DQXY”:“X=”:X:Pause 0:“Y=”:YPol（X-Q,Y-U）:J0=J=360+J:I=Intg（1000I+.5）÷1000“L=”:I:Pause 0:“T=”:JDMSGoto 1       說(shuō)明：本程序適用于casio4850計(jì)算器。把線路從斷鏈處分為三段，O的取值，待求點(diǎn)在第一段輸1，第二段輸2，第三段輸3。Z、待求點(diǎn)的樁號(hào)。K、待求點(diǎn)在左幅輸0右幅輸1。B、待求點(diǎn)距中距離。Goto 5前的樁號(hào)為起止點(diǎn)或斷鏈點(diǎn)樁號(hào)。 Prog“xx”:Goto 6前的樁號(hào)為曲線

16、組合的HZ點(diǎn)樁號(hào)。Q、U為測(cè)站坐標(biāo)，運(yùn)行程序前先存入。ZHFS   樁號(hào)反算主程序Deg:FixmLbl 0:TL:T:L:T=Int T+Frac 100T÷36+（Int 100T÷100T-Int T）÷.6X=Q+Rec（L,T）:Y=U+J:“X=”:X:Pause 0:“Y=”:YLbl 1:Prog“55”:Prog“YS”:Z48980=Goto 2Prog“FQ” Z47264=Goto BGoto Z Lbl 2:Prog“56”:Prog“YS”:Z49437.85=Goto 3Prog“FQ”: Goto ZL

17、bl 3:Prog“57”:Prog“YS”:Z49874.21=Goto 4Prog“FQ”: Goto ZLbl 4:Prog“57-1”:Prog“YS”:Z50354.96=Goto 5Prog“FQ”Z50167.16 =Z=Z-17.16Goto ZLbl 5:Prog“58”:Prog“YS”:Z50931.36=Goto 6Prog“FQ”Z50673.5 =Z=Z+26.5Goto Z Lbl 6:Prog“59”:Prog“YS”:Z51953.51=Goto 7Prog“FQ”: Goto ZLbl 7:Prog“60”:Prog“YS”:Z52546.8=Goto 8P

18、rog“FQ”: Goto ZLbl 8:Prog“61”:Prog“YS”:Z53477.04=Goto 9Prog“FQ”: Goto ZLbl 9:Prog“62”:Prog“YS”:Z54118.18=Goto AProg“FQ”: Goto ZLbl A:Prog“63”:Prog“YS”:Z54700=Goto BProg“FQ”: Goto ZLbl B:“CX ERROR” Goto 0Lbl Z:Z=Intg（1000Z+.5）÷1000:B=Intg（1000B+.5）÷1000:“LC=”:Z:Pause 0:“BJ=”:BGoto 0 &#

19、160;     說(shuō)明：T、L測(cè)點(diǎn)相對(duì)測(cè)站的方位角和距離，T的取值例：12°3456輸為12.3456。Q、U為測(cè)站坐標(biāo)，程序運(yùn)行前先存入。Goto 2前的樁號(hào)為第2個(gè)曲線組合的ZH點(diǎn)樁號(hào)，以后類(lèi)推?！癇J”顯示正值則測(cè)點(diǎn)在線路右幅，顯示負(fù)值則測(cè)點(diǎn)在線路左幅。DQXY    單曲線坐標(biāo)正算子程序S=.5Abs（C-A）:G=（C-A）÷2SC-A-180=S=180-S:G=-GC-A180=S=180-S:G=-GT=（R+N2÷24R）tan S+N÷2-N3&

20、#247;240R2:L=RS÷90+N:K=0=K=-1ZD-T=Goto 1ZD-T+L=Goto 2ZD-T+N=Goto 3ZD-T+L-N=Goto 4Lbl 0:M=A+G（90+90N÷R+180（Z-D+T-N）÷R）-180X=E+Rec（R+ N2÷24R）÷cos S,C+G（90-S）:Y=F+JX=X+Rec（R-GKB,M）:Y=Y+J: Goto 5Lbl 1:X=E-Rec（D-Z,A）:Y=F-J:X=X+Rec（B,A+90K）:Y=Y+J: Goto 5Lbl 2:X=E+Rec（Z-D+2T-L,C）:Y

21、=F+J:X=X+Rec（B,C+90K）:Y=Y+J: Goto 5Lbl 3:X=E-Rec（T,A）:Y=F-J:H=Z-D+T:Prog“XY”X=X+Rec（P,A+Gtan-1（W÷V）:Y=Y+JX=X+Rec（B,A+90GH2÷RN+90K）:Y=Y+J: Goto 5Lbl 4:X=E+Rec（T,C）:Y=F+J:H=D-T+L-Z:Prog“XY”X=X+Rec（P,C+180-Gtan-1（W÷V）:Y=Y+JX=X+Rec（B,C-90GH2÷RN+90K）:Y=Y+J: Goto 5Lbl 5XY  &#

22、160; 緩和曲線參數(shù)計(jì)算子程序V=H-H5÷40R2N2+H9÷3456R4N4W=H3÷6RN-H7÷336R3N3+H11÷42240R5N5:P=（V2+W2）YS    曲線要素計(jì)算子程序S=.5Abs（C-A）:G=（C-A）÷2SC-A-180=S=180-S:G=-GC-A180=S=180-S:G=-GT=（R+N2÷24R）tan S+N÷2-N3÷240R2:L=RS÷90+N    

23、           Pol（X-E,Y-F）:J=J-C:Z=Icos J-T:Z=D-T+L+ZFQ   單曲線反求樁號(hào)子程序ZD-T+L=Z:B=Isin J:Goto AD=D-T+L÷2:V=E+Rec（R+N2÷24R）÷cos S,C+G（90-S）:W=F+JO=C+G（90-S）+180:O360=O=O-360Pol（X-V,Y-W）:J0=J=360+JZ=D+G（J-O）R÷180:B=G（R

24、-I）ZD-（L-2N）÷2=Goto 1ZD+（L-2N）÷2=Goto 2Goto ALbl 1:D=D-L÷2:E=E-Rec（T,A）:F=F-J:P=A-90:G=-G:Prog“HHXY”:Z=D+T: Goto ALbl 2:D=D+L÷2:E=E+Rec（T,C）:F=F+J:P=C+90:Prog“HHXY”:Z=D-T: B=-B:Goto ALbl AHHXY    反求緩和曲線長(zhǎng)度子程序Pol（X-E,Y-F）:J=J-P:X=Icos J:Y=Isin JB=G÷46080R6N

25、6:H=X÷3840R5N5:I=13G÷5760R4N4:J=GY÷384R4N4K=X÷48R3N3:M=G÷15R2N2:O=GY÷8R2N2:P=X÷2RN:S=GY:Z=YLbl 2:V=BZ13+HZ10-IZ9+JZ8-KZ6+MZ5-OZ4+PZ2-GZ+SW=13BZ12+10HZ9-9IZ8+8JZ7-6KZ5+5MZ4-4OZ3+2PZ-GT=Z-V÷W:Abs（T-Z）1E-5=Goto 3Z=T:Goto 2Lbl 3:V=G（T3÷6RN-T7÷336R3N3+T11

26、÷42240R5N5）W=T-T5÷40 R2N2+T9÷3456R4N4V=X=W=Y=B=0:Goto 5Pol（X-V,Y-W）:B=sin（J+90GT2÷RN-90）:S=-1:B0=S=1B=SILbl 555  5563為平曲線參數(shù)置數(shù)子程序D=48212.03:E=42650.6693:F=16021.6936:A=247°5658:C=151°5602:R=826.192:N=60 56D=49148.91:E=41425.5219:F=16674.9305:A=151°5602:C=1

27、85°5602:R=354.724:N=120 57D=49661.59:E=40908.3058:F=16621.1706:A=185°5602:C=151°5414:R=600:N=80 57-1D=50019.67:E=40582.613:F=16795.0457:A=151°5414:C=172°5103:R=570.059:N=8058D=50498.68:E=40087.8038:F=16857.11:A=172°5103:C=184°4817:R=1250:N=6059D=51112.95:E=39501.14

28、3:F=16807.7977:A=184°4817:C=206°3023:R=600:N=8060D=52113.01:E=38603.5949:F=16360.1705:A=206°3023:C=237°0319:R=400:N=10061D=52962.43:E=38138.5471:F=15642.5421:A=237°0319:C=193°1744:R=910:N=10062D=53677.91:E=37406.98:F=15469.6681:A=193°1744:C=228°5555:R=500:N=80

29、63D=54344.49:E=36962.0015:F=14959.0062:A=228°5555:C=181°2744:R=400:N=80說(shuō)明：線路起點(diǎn)K47264，止點(diǎn)K54700。   共十個(gè)交點(diǎn)， 兩處斷鏈， 第一處K50+ 167.16K50+150，長(zhǎng)17.16M。第二處K50673.5K50700，短26.5M。置數(shù)子程序中，D交點(diǎn)樁號(hào)。E、F交點(diǎn)坐標(biāo)。A、C交點(diǎn)前后邊正方位角。R曲線半徑。N緩和曲線長(zhǎng)。程序“HHXY”引用借鑒了徐光輝2000年7月5日編寫(xiě)的“CASIO fx-4800P線路計(jì)算 6.0版程序設(shè)計(jì)”中“反求緩曲

30、長(zhǎng)度子程序HQ”的計(jì)算式。GCjs     路面高程計(jì)算主程序Lbl 0:O:O“1,47264-50167.162,50150-50673.503,50700-54700”Lbl 1:Z:K:B:Z:K:B:Fixm                 意義同坐標(biāo)正算程序V=2:K=0=K=-1B.75=B=.75B11.25 = Goto 5   

31、 .75為1/2中央分隔帶寬O=1=Goto 2O=2=Goto 3O=3=Goto 4               11.25為路面半幅寬度Lbl 2:Z47264=Goto 5Z50167.16=Goto 5Prog“A”: Prog“SQ”: Prog“O”: Goto 6Lbl 3:Z50150=Goto 5Z50673.5=Goto 5Prog“B”: Prog“SQ”: Prog“P”: Goto 6Lbl 4:Z50700

32、=Goto 5Z54700=Goto 5Prog“C”: Prog“SQ”: Prog“Q”: Goto 6Lbl 5:“ZH ERROR”Goto 0Lbl 6:Prog“CG”:“H=”:HGoto 1SQ    豎曲線計(jì)算子程序ZD-T=Goto 1ZD+T=I=J: Goto 1Lbl 0:H=G-（D-Z）I÷100+（Z-D+T）2÷2RN: Goto 2Lbl 1:H=G-（D-Z）I÷100: Goto2Lbl 2CG    超高計(jì)算子程序（彎道未設(shè)加寬）P=2VS&#

33、247;（V+W）ZM=Goto 1ZM+L=Goto 1ZM+P=F=Z-M:Goto 2ZM+L-P=F=M+L-Z:Goto 2ZM+S=F=Z-M:Goto 3ZM+L-S=F=M+L-Z:Goto 3Lbl 0:X=H+（B-.75）WK÷100:Y=H-（B-.75）WK÷100E=-1=H=X:H=YGoto 5Lbl 1:H=H-（B-.75）V÷100: Goto 5Lbl 2:X=H-（B-.75）V÷100:Y=H+（V+W）F÷S-V）（B-.75）÷100E=-1 =K=-1 =H=X: H=YK=1=H=X

34、: H=YGoto 5Lbl 3:X=H+（V+W）F÷S-V）（B-.75）K÷100Y=H-（V+W）F÷S-V）（B-.75）K÷100E=-1=H=X: H=YGoto 5Lbl 5     說(shuō)明：豎曲線參數(shù)置數(shù)子程序中，D豎曲線頂點(diǎn)樁號(hào)。G頂點(diǎn)高程。I豎曲線前段縱坡。J豎曲線后段縱坡。R豎曲線半徑。T切線長(zhǎng)。N凹曲線取1凸曲線取-1。平曲線參數(shù)置數(shù)子程序中，M起超點(diǎn)樁號(hào)。S超高緩和段長(zhǎng)。L超高曲線總長(zhǎng)。W最大單向橫坡坡比。E曲線左偏取-1右偏取1。V直線段雙向橫坡坡比?？v坡按設(shè)計(jì)給出的正負(fù)取值，

35、橫坡均按正數(shù)取值。坡比取值示例：2.5%取2.5。AZ47635=Goto 1Z48680.5=Goto 2Z49200=Goto 3Z49369.25=Goto 4Lbl 0:D=50040:G=1025.21:I=-6:J=-3:R=4000:T=60.05:N=1: Goto 5Lbl 1:D=47560:G=1135.61:I=-6:J=-3:R=5000:T=75:N=1: Goto 5Lbl 2:D=48640:G=1103.21:I=-3:J=-6:R=2700:T=40.5:N=-1: Goto 5Lbl 3:D=49140:G=1073.21:I=-6:J=-3:R=4000

36、:T=60:N=1: Goto 5Lbl 4:D=49340:G=1067.21:I=-3:J=-6:R=1950:T=29.25:N=-1: Goto 5Lbl 5BD=50220:G=1019.3:I=-3:J=-6:R=3000:T=45.04:N=-1CZ50957.5 =Goto 1Z51125 =Goto 2Z51805 =Goto 3Z51953 =Goto 4Z52546 =Goto 5Z52727.44 =Goto 6Z52950.32 =Goto 7Z53800 =Goto 8Lbl 0:D=54400:G=835.84:I=-2.5:J=-1.2:R=22000:T=14

37、3:N=1: Goto 9Lbl 1:D=50920:G=978.89:I=-6:J=-3:R=2500:T=37.5:N=1: Goto 9Lbl 2:D=51080:G=974.09:I=-3:J=-6:R=3000:T=45:N=-1: Goto 9Lbl 3:D=51760:G=933.29:I=-6:J=-3:R=3000:T=45:N=1: Goto 9Lbl 4:D=51920:G=928.49:I=-3:J=-6:R=2200:T=33:N=-1: Goto 9Lbl 5:D=52500:G=893.69:I=-6:J=-2:R=2300:T=46:N=1: Goto 9Lbl

38、 6:D=52680:G=890.09:I=-2:J=-5:R=2500:T=47.44:N=-1: Goto 9Lbl 7:D=52900:G=877.34:I=-5:J=-3:R=3600:T=50.32:N=1: Goto 9Lbl 8:D=53700:G=853.34:I=-3:J=-2.5:R=40000:T=100:N=1: Goto 9Lbl 9    A、B、C 為豎曲線參數(shù)置數(shù)子程序OZ48708.52 =Goto 1Z49310.5 =Goto 2Z49874.21 =Goto 3Lbl 0:M=49874.21:S=80:L=288

39、.41:W=3:E=1: Goto 4Lbl 1:M=47264:S=60:L=1444.52:W=2:E=-1: Goto 4Lbl 2:M=48980:S=120:L=330.5:W=5:E=1: Goto 4Lbl 3:M=49437.85:S=80:L=436.36:W=3:E=-1: Goto 4Lbl 4PM=50337.8:S=60:L=320.8:W=2:E=1QZ51265.12 =Goto 1Z52266.78 =Goto 2Z53341.82 =Goto 3Z53868.03 =Goto 4Lbl 0:M=54118.18:S=100:L=431.41:W=5:E=-1:

40、 Goto 5Lbl 1:M=50957.86:S=80:L=307.26:W=3:E=1: Goto 5Lbl 2:M=51953.51:S=100:L=313.27:W=5:E=1: Goto 5Lbl 3:M=52546.8:S=100:L=795.02:W=2:E=-1: Goto 5Lbl 4:M=53477.04:S=80:L=390.99:W=4:E=1: Goto 5Lbl 5     O、P、Q 為平曲線參數(shù)置數(shù)子程序-【目前共有 0 條對(duì)該新聞的評(píng)論】【查看參與評(píng)論】 收集來(lái)自網(wǎng)上，版權(quán)歸原來(lái)作者所有 ,如果侵犯您的版權(quán)，請(qǐng)

41、來(lái)信告訴我們，我們會(huì)馬上做出整理，謝謝Copyright © 2004 測(cè)量論文中心 All Rights Reserved                                  (適用于無(wú)緩和曲線的平曲線)本程序系本人精心編制而成,公路

42、全線只需要一個(gè)數(shù)據(jù)庫(kù),歡迎各位測(cè)友下載試用！知識(shí)共享是本人的宗旨。聯(lián)系方式：  QQ 303223247漂人 更多程序請(qǐng)參附件(點(diǎn)擊下載)：主程序名:ZBJS(坐標(biāo)計(jì)算) J=E-D:J=Arg(cosJ+sinJ):H=AbsJ÷J:T=Rtan （JH÷2）:L= JHR÷180: KC-TI=C-K:F=0:Goto 1 KC-T+LW=K-C+T:F=180W÷R:I=T-RsinF+(R-RcosF) Lb1 1:S“PJU”:Z“PJIAO”: “X=”:A-cos(D-HArgI)AbsI+Scos(D+HF+Z) “Y

43、=”:B-sin(D-HArgI)AbsI+Ssin(D+HF+Z) 數(shù)據(jù)庫(kù):SJK (全線交點(diǎn)要素一個(gè)數(shù)據(jù)庫(kù))KYZ點(diǎn)樁號(hào)A=本交點(diǎn)X坐標(biāo):B=本交點(diǎn)Y坐標(biāo):C=本交點(diǎn)樁號(hào): D=前直線方位角:E=后直線方位角:R=曲線半徑:Goto 0 Lbl 0:Prog“ZBJS” 程序說(shuō)明: K?             輸入樁號(hào) PJU?         輸入邊樁至中樁的斜距 PJIAO? 

44、    輸入邊樁方向與路線前進(jìn)方向的右?jiàn)A角 (n是圓周率,如程序用于4800計(jì)算器，顯示部分需要更改才能正常：“X=”：更改為X“X=”=                                    

45、                 “Y=”：更改為Y“Y=”= 謝謝發(fā)貼！ 平均用戶評(píng)分：+5 【測(cè)量空間】大中小主程序名:ZBJS(坐標(biāo)計(jì)算)J=E-D:J=Arg(cosJ+sinJ):H=AbsJ÷J:P=R+G2÷24R:Q=G÷2-G3÷240R2:M=JH÷2:N=90÷R:V=RG:T=PtanM+Q:L=M÷N+G:U=C-T:S“PJU”:Z“PJI

46、AO”:KU=>I=C-K:F=0:Goto 1KU+G=>W=K-U:Lb1 2:F=NW2÷G:I=T-W+W5÷40V2+W3÷6V:Goto 1KU+L-G=>W=K-U-G:F=N(2W+G):I=T-RsinF-Q+(P-RcosF):Goto 1KU+L=>W=U+L-K:D=E+180:H=-H:S=-S:Goto 2Lb1 1:“X=”:A-cos(D-HArgI)AbsI+Scos(D+HF+Z)“Y=”:B-sin(D-HArgI)AbsI+Ssin(D+HF+Z)數(shù)據(jù)庫(kù):SJK(全線交點(diǎn)要素)KHZ點(diǎn)樁號(hào)=>A

47、=本交點(diǎn)X坐標(biāo):B=本交點(diǎn)Y坐標(biāo):C=本交點(diǎn)樁號(hào):D=前直線方位角:E=后直線方位角:R=曲線半徑:G=緩和曲線長(zhǎng):Goto 0Lbl 0:Prog“ZBJS”程序說(shuō)明:K? 輸入樁號(hào)PJU? 輸入邊樁至中樁的斜距PJIAO? 輸入邊樁方向與路線前進(jìn)方向的右?jiàn)A角(如程序用于4800，顯示部分需要更改才能正常： “X=”：更改為X“X”=；   “Y=”：更改為Y“Y”= 程序名：ZDZH(主點(diǎn)樁號(hào)計(jì)算)Q=C“LS”/2-C3/240R2:P=C2/24R-C4/2384R3:T=(R+P)tan(AbsJ“PJ”/2)+Q:L=RAbsJ/180+C:

48、B=Z“JDZH”-T:“ZH=”:B“HY=”:B+C“QZ=”:B+L/2“YH=”:B+L-C“HZ=”:B+L程序說(shuō)明:LS? 輸入緩和曲線長(zhǎng)R? 輸入半徑PJ? 偏角JDZH? 交點(diǎn)樁號(hào)程序名：WJPQXA “PJ”:E:L“LS”:N=1÷cos(0.5A):M=E÷(N-1):W=NL2÷(24N-24):Q=M2-4W:Q0“R=”:0.5(M+Q)程序說(shuō)明:本程序適用于外距控制單交點(diǎn)平曲線PJ? 輸入路線轉(zhuǎn)角E? 輸入外距LS? 輸入緩和曲線長(zhǎng)2006-03-2817:52:15大中小程序名:LZXJD(兩直線交點(diǎn))A"X1"

49、:B"Y1":C"X2":D"Y2":E"X3":F"Y3":G"X4":H"Y4":N=C-A:O=D-B:P=G-E:Q=H-F:K=QN-OP:U=NB-OA:V=PF-QE:"X=":(PU-NV)/K"Y=":(QU-OV)/K程序說(shuō)明:X1? 輸入第一點(diǎn)X坐標(biāo)Y1? 輸入第一點(diǎn)Y坐標(biāo)X2? 輸入第二點(diǎn)X坐標(biāo)Y2? 輸入第二點(diǎn)Y坐標(biāo)X3? 輸入第三點(diǎn)X坐標(biāo)Y3? 輸入第三點(diǎn)Y坐標(biāo)X4? 輸入第四點(diǎn)X坐標(biāo)Y4

50、? 輸入第四點(diǎn)Y坐 casio4850全線坐標(biāo)計(jì)算程序     一、LXZB（坐標(biāo)計(jì)算主程序）LbI  Z：PA=×××：V=××°××××：C=×××：D=×××：P直線的終點(diǎn)樁號(hào)Prog“ZX.SUB”：Goto Z（以上各字母含義詳直線坐標(biāo)計(jì)算子程序說(shuō)明） A=×××：V=××°&#

51、215;×××：C=×××：D=×××：R=×××：I=（1或-1）P圓曲線終點(diǎn)樁號(hào)Prog“YQX.SUB”：Goto Z（以上各字母含義詳圓曲線坐標(biāo)計(jì)算子程序說(shuō)明）A=×××：V=××°××××：C=×××：D=×××：B=×××：W=××°&#

52、215;×××：E=×××：F=×××：R=×××：L=×××：I=（1或-1）PHY點(diǎn)樁號(hào)Prog“HQ1.SUB”：Goto ZPYH點(diǎn)樁號(hào)Prog“HYQ.SUB”：Goto ZPHZ點(diǎn)樁號(hào)Prog“HQ2.SUB”：Goto Z（以上各字母含義詳（HQ1.SUB、HYQ.SUB、HQ2.SUB）坐標(biāo)計(jì)算子程序說(shuō)明）該主程序是簡(jiǎn)單的示例說(shuō)明，具體的應(yīng)根據(jù)圖紙的線型組合，隨機(jī)應(yīng)變的做順序調(diào)整，并將其輸入Casio

53、4850計(jì)算器。二、ZX.SUB（直線坐標(biāo)計(jì)算子程序）G=P-A：T=V“X=”：X=C+GcosT “Y=”：Y=D+GsinT Q：Q=1 =>Prog“BZ.SUB”說(shuō)明：G：所求樁號(hào)至起算點(diǎn)的距離P：所求點(diǎn)的樁號(hào)A：起算點(diǎn)的樁號(hào)T：所求樁號(hào)的方位角V：起始方位角C、D：起算點(diǎn)的X、Y坐標(biāo)X、Y：顯示所求樁號(hào)的坐標(biāo)Q：參數(shù)，為1時(shí)計(jì)算邊標(biāo)坐標(biāo)，為0時(shí)不計(jì)算三、YQX.SUB（圓曲線坐標(biāo)計(jì)算子程序）G=P-AH=Rsin(G÷R)×(180÷)J=(R(1-cos(G÷R)×(180÷)IT=V

54、+(G÷R)×(180÷)I“X=”:X=C+HcosV-JsinV “Y=”:Y=D+HsinV+JcosV Q:Q=1 =>Prog“BZ.SUB”說(shuō)明：G：所求樁號(hào)至起算點(diǎn)的距離P：所求點(diǎn)的樁號(hào)A：起算點(diǎn)的樁號(hào)(指ZY點(diǎn))R：圓曲線半徑T：所求樁號(hào)的方位角V：起始方位角(指ZY點(diǎn)的方位角)C、D：起算點(diǎn)（ZY點(diǎn)）的X、Y坐標(biāo)X、Y：顯示所求樁號(hào)的坐標(biāo)I：參數(shù)，（左偏為1，右偏為1）Q：參數(shù)，為1時(shí)計(jì)算邊標(biāo)坐標(biāo)，為0時(shí)不計(jì)算四、HQ1.SUB（第一緩和曲線坐標(biāo)計(jì)算子程序）G=P-AH=G-G5÷(40R2L2)+G

55、9÷（3456R4L4）-G13÷（599040 R6L6）J=(G3÷(6RL)-G7÷(336R3L3)+G11÷(42240R5L5)IT=V+90G2÷(RL)I“X=”:X=C+HcosV-JsinV “Y=”:Y=D+HsinV+JcosV Q:Q=1 =>Prog“BZ.SUB”說(shuō)明：G：所求樁號(hào)至起算點(diǎn)的距離P：所求點(diǎn)的樁號(hào)A：起算點(diǎn)的樁號(hào)(指ZH點(diǎn))R：曲線半徑L：緩和曲線長(zhǎng)LsT：所求樁號(hào)的方位角V：起始方位角(指ZH點(diǎn)的方位角)C、D：起算點(diǎn)（ZH點(diǎn)）的X、Y坐標(biāo)X、

56、Y：顯示所求樁號(hào)的坐標(biāo)I：參數(shù)，（左偏為1，右偏為1）Q：參數(shù)，為1時(shí)計(jì)算邊標(biāo)坐標(biāo)，為0時(shí)不計(jì)算五、HYQ.SUB（帶緩和曲線的圓曲線坐標(biāo)計(jì)算子程序）G=P-AH=Rsin(L÷2÷R)×180÷+(G-L)÷R×180÷)+L÷2-L3÷(240R2)J=(R(1-cos(L÷2÷R)×180÷+(G-L)÷R×180÷)+L2÷(24R)-L4÷(2688R3)IT=V+90L÷(R)I+(180(G-

57、L)÷(R)I“X=”:X=C+HcosV-JsinV “Y=”:Y=D+HsinV+JcosV Q:Q=1 =>Prog“BZ.SUB”說(shuō)明：G：所求樁號(hào)至起算點(diǎn)的距離P：所求點(diǎn)的樁號(hào)A：起算點(diǎn)的樁號(hào)(指ZH點(diǎn))R：曲線半徑L：緩和曲線長(zhǎng)LsT：所求樁號(hào)的方位角V：起始方位角(指路線前進(jìn)方向ZH點(diǎn)的方位角)C、D：起算點(diǎn)（ZH點(diǎn)）的X、Y坐標(biāo)X、Y：顯示所求樁號(hào)的坐標(biāo)I：參數(shù)，（左偏為1，右偏為1）Q：參數(shù)，為1時(shí)計(jì)算邊標(biāo)坐標(biāo)，為0時(shí)不計(jì)算六、HQ2.SUB（第二緩和曲線坐標(biāo)計(jì)算子程序）G=B-PH=G-G5÷(40R2L2)+G9&#

58、247;（3456R4L4）-G13÷（599040 R6L6）J=-(G3÷(6RL)-G7÷(336R3L3)+G11÷(42240R5L5)IT=W-90G2÷(RL)I“X=”:X=E-HcosW+JsinW “Y=”:Y=F-HsinW-JcosW Q:Q=1 =>Prog“BZ.SUB”說(shuō)明：G：所求樁號(hào)至起算點(diǎn)的距離P：所求點(diǎn)的樁號(hào)B：起算點(diǎn)的樁號(hào)(指HZ點(diǎn)樁號(hào))R：曲線半徑L：緩和曲線長(zhǎng)LsT：所求樁號(hào)的方位角W：起始方位角(指路線前進(jìn)方向HZ點(diǎn)的方位角)E、F：起算點(diǎn)（HZ點(diǎn)）的X

59、、Y坐標(biāo)X、Y：顯示所求樁號(hào)的坐標(biāo)I：參數(shù)，（左偏為1，右偏為1）Q：參數(shù)，為1時(shí)計(jì)算邊標(biāo)坐標(biāo)，為0時(shí)不計(jì)算七、BZ.SUB（邊樁坐標(biāo)計(jì)算子程序）O，S：O“ZBK”：S“YBK”： “XZ=”：M=X-O cos(T+90)  “YZ=”：N=Y-O sin(T+90)  “XY=”：K=X+S cos(T+90)  “YY=”：U=Y+S sin(T+90)  說(shuō)明：ZBK：中樁至左邊樁的距離YBK：中樁至右邊樁的距離XZ、YZ：顯示所計(jì)算左邊樁的X、Y坐標(biāo)XY

60、、YY：顯示所計(jì)算右邊樁的X、Y坐標(biāo) 線路中邊樁任意里程坐標(biāo)正反算改編程序CASIO4850 Posted by 忘不了糊涂 2006-10-5 23:45:00含數(shù)據(jù)庫(kù)、測(cè)站放樣計(jì)算（第五次修改-正式版）1.加編數(shù)據(jù)庫(kù)及計(jì)算總調(diào)度程序,計(jì)算中不必逐項(xiàng)輸入"線元要素",提高運(yùn)算速度，避免現(xiàn)場(chǎng)忙中出錯(cuò)2.可加入多條線路的數(shù)據(jù)庫(kù),內(nèi)業(yè)輸入數(shù)據(jù),外業(yè)一目了然3.計(jì)算直觀,人性化4.正算直接輸入里程和邊距,反算輸入近似里程便可5.增加了“計(jì)算點(diǎn)與測(cè)站點(diǎn)”的距離和方位角計(jì)算語(yǔ)句，方便直接放樣6.愿收獲與大家共享,同時(shí)也希望大家提出心得和寶貴建議7.核心計(jì)算程序摘自

61、“yshf”      一.改動(dòng)后的程序清單，增設(shè)數(shù)據(jù)庫(kù)程序,可輸入n條線路的數(shù)據(jù)庫(kù)    1.(QXZDJS   計(jì)算總調(diào)度程序)M=1=>Prog "SJK1":Prog "SUBSJK".M=n=>Prog "SJKn":Prog "SUBSJK"  2.(SJK1   數(shù)據(jù)庫(kù)程序)"1.SZ => XY"："2.XY => S

62、Z"：N,S：N：S"DKI"S本線元終點(diǎn)里程U=本線元起點(diǎn)X坐標(biāo)：V=本線元起點(diǎn)Y坐標(biāo)：G=本線元起點(diǎn)正切線方位角：P=本線元起點(diǎn)曲率半徑：R=本線元終點(diǎn)曲率半徑：O=本線元起點(diǎn)里程：H=本線元終點(diǎn)里程：Q=本線元左直右偏向(0或1、-1):Goto0S下一線元終點(diǎn)里程=O=。： Goto0LB1 0    3.(SUBSJK   運(yùn)算主程序)UVGPROHQ：U"XA"：V"YA"：G"FA"：P"RA"：R"RB&quo

63、t;：O"DKA"：H"DKB"：QDeg:S>H=>Goto AD=(P-R)÷2PR(H-O)：N=1=>Goto 1：>Goto 2Lbl 1：Z：Z：W=Abs(S-O)：Prog "SUB1"："XS="：X"YS="：Y"QX-FWJ="：F=F-90DMSI=0：J=0：Pol（X-C"XC"，Y-E"YC"）：J<0J=J+360：“FWJ=”:JDMS“I=”：IGoto ALbl 2：XY：I=X：J=