資源描述：
《自編CASIOFX-4800P隧道超欠挖程序.doc》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、自編卡西歐fx-4800P隧道超欠挖程序作者：VV一直想要尋找一套簡單方便又實用的計算隧道超欠挖的程序，即只要輸入任意點三維坐標(biāo)就能直接計算該點的超欠挖。前段時間有問過一些人也有上百度搜索過幾次，可都沒什么結(jié)果，有見過一些理論性的東西，可無奈對程序一竅不通，因此沒辦法自己設(shè)計程序。之前自己也有編過一個公式“程序”，也不能算是程序吧，因為那只是一個單純利用代數(shù)關(guān)系組成的公式，沒有一點程序語言，原理也很簡單，就是利用所測點距離隧道該段圓弧的圓心的高差及平距再通過“勾股定理”便可以計算出該點與圓心的空間距離，即實測半徑，再用實測半徑
2、減去該段弧的設(shè)計半徑便是該點的超欠挖咯。只是用此方法必須事前要用另外的程序反算出該點的里程及偏距，再將所求的里程與偏距代入上述的“公式程序”，故要分為兩步才能計算出該點超欠挖。此方法顯然過于繁瑣，于是便想到要將公式編入反算程序當(dāng)中，直接利用程序中反算出的結(jié)果自行代入公式，便能一步到位計算出該點的超欠挖，即只需輸入所測點的三維坐標(biāo)便能計算超欠挖，方便且快捷。之前也有研究過一陣子，可畢竟對程序語言并不很懂，一直無處下牙，便只好放棄。前幾天因為買了新的計算器便又頭腦發(fā)熱的想要試一下，仔細(xì)看了一些以前用過的程序清單，觀察了下里面的程序
3、語言及之間的連接關(guān)系，通過幾天的探索，終于受到了點啟發(fā)，于是便成功的將之前的公式整合到了反算程序當(dāng)中，經(jīng)過多次的驗證，最終確認(rèn)準(zhǔn)確無誤。于是想著拿出來與各位同行們分享，并希望得到大家的指點，也希望給那些剛學(xué)不久的測量新手們一些幫助，希望各位測量高手與前輩們不要見笑。本人之前一直都在用“yshf”的“TYQXJS”程序，因此上述的超欠挖程序的主體部分也就是利用“TYQXJS”中的反算功能，即利用了反算結(jié)果中的S（所測點的里程）與Z（所測點距離線中的偏距），程序內(nèi)容如下：1.主程序（CQW）
U"X0"：V"Y0"：O"S0"：G
4、"F0"：N"LS"：P"R0"：R"RN"：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π←┘
Lbl2：｛XYH｝：XY：I=X：J=Y：H=H：
T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl0：Prog"SUB1"：L=T+QEW(C+WD)：
Z=(J-Y)cosL-(I-X)sinL：
AbsZ＜E-6＝>Goto1：≠>W=W+Z：Goto0△←┘
Lbl1：Z=0：Prog"SUB1"：Z=(J-Y)÷sinF：
S"S"=O+W▲
Z"Z"=Z▲
M"CQW"
5、=√((H-內(nèi)軌頂標(biāo)高-圓心距離內(nèi)軌頂高差)2+(Abs(Z+線中相對遂中距離)+圓心相對遂中距離)2)-R▲Goto2←┘
2.子程序(SUB1)A=0.：B=0.：K=0.：L=0.：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))：Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+
6、QEMW(C+MWD)))：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF一．補(bǔ)充：1.輸入顯示說明??????????X0？線元起點的X坐標(biāo)????Y0？線元起點的Y坐標(biāo)????S0？線元起點里程????F0？線元起點切線方位角????LS？線元長度????R0？線元起點曲率半徑????RN？線元止點曲率半徑????Q？??線元左右偏標(biāo)志(左偏Q=-1，右偏Q=1，直線段Q=0）??????S？所求點的里程??????Z？所求點距中線的邊距(左側(cè)取負(fù)，值右側(cè)取正值，在中線上取零)??????CQW?
7、所求點的超欠挖?????2.若隧道所測部位有兩種圓心時，利用圓心所對應(yīng)的弧的分段高度劃分可設(shè)置兩個選擇條件，于是只需將主程序中“M"CQW"=√((H-內(nèi)軌頂標(biāo)高-圓心距離內(nèi)軌頂高差)2+(Abs(Z+線中相對遂中距離)+圓心相對遂中距離)2)-R▲”中改為“H>內(nèi)軌頂標(biāo)高+圓心O1分段高度＝>M"CQW"=√((H-內(nèi)軌頂標(biāo)高-圓心O1距離內(nèi)軌頂高差)2+(Abs(Z+線中相對遂中距離)+圓心O1相對遂中距離)2)-R1▲≠>M"CQW"=√((H-內(nèi)軌頂標(biāo)高-圓心O2距離內(nèi)軌頂高差)2+(Abs(Z+線中相對遂中距離)+圓
8、心O2相對遂中距離)2)-R2▲”3.若所測隧道斷面無需在經(jīng)常在線元之間轉(zhuǎn)換時，也可以將主程序中U(線元起點X坐標(biāo))，V(線元起點Y坐標(biāo))，O(線元起點里程)，G(線元起點切線方位角)，N(線元長度)，P(線元起點半徑)，R(線元終點半徑)，Q(曲線左偏為-1右偏為1直線為0
