卡西歐5800p計(jì)算器隧道施工測量程序設(shè)計(jì)-資料下載頁
2025-07-30 00:30本頁面
【正文】 。)？→Z[15] (O22圓弧最小高程與設(shè)計(jì)點(diǎn)之高程差，低于設(shè)計(jì)高取負(fù)值。)？→Z[16](O12圓心距隧道中心間距) 隧道輪廓線放樣子程序：（SOIDAO）Z[12]+V→Z[12]Z[13]+V→Z[13]Z[14]+V→Z[14]Z[15]+V→Z[15]（中間值加上計(jì)算高差進(jìn)行賦值）If Z[17]Z[12]+Z[10]：ThenCls：Locate 2,2,＂HCFW？＂◢Goto 4：IfEnd（判斷語句，當(dāng)放樣點(diǎn)高程大于O1圓心高程加O1圓心半徑時則提示該語句HCFW？，然后結(jié)束運(yùn)行）If Z[17]Z[15]：ThenCls：Locate 2,2,＂HCFW？＂◢Goto 4：IfEnd（判斷語句，當(dāng)放樣點(diǎn)高程小于O2圓弧最小高程時則提示該語句HCFW？，然后結(jié)束運(yùn)行）If Z[17]≥Z[14]：Then Goto 1：IfEnd（判斷語句，當(dāng)L≥Z[6]時則跳轉(zhuǎn)至Lbl 1語句）If Z[17]≥Z[15]：Then Goto 2：IfEnd（判斷語句，當(dāng)L≥Z[7]時則跳轉(zhuǎn)至Lbl 2語句）Lbl1：Abs(Z[17]Z[12])→L：If L≥Z[10]：Then√（L2Z[10]2）→I：Else√（Z[10]2L2）→I：IfEnd：0→J：Goto 3Lbl2：Abs(Z[17]Z[13])→L：If L≥Z[11]：Then√（L2Z[11]2）→I：Else√（Z[11]2L2）→I：IfEnd：Z[16]→J：Goto 3Lbl3：If B0：Then Abs(B)Z[9]IJ→V：Else Abs(B)+Z[9]IJ→V：IfEndCls：＂CQW=＂：Locate 5,1,V◢（顯示超欠計(jì)算結(jié)果，正數(shù)為大于設(shè)計(jì)輪廓線，超挖。負(fù)數(shù)為小于設(shè)計(jì)輪廓線，欠挖）Lbl 4：結(jié)合以上程序設(shè)計(jì)與編寫現(xiàn)在進(jìn)行數(shù)據(jù)核對與演示，現(xiàn)在以道安二標(biāo)核桃彎隧道右線隧道放樣實(shí)測點(diǎn)理論計(jì)算圖示（方法采用勾股定理）。隧道輪廓線放樣示意圖程序演示：運(yùn)行主程序TYQXJSZ[N1]?(=0,現(xiàn)場輸入線元數(shù)據(jù)，輸入1,2,3等為線路1,2,3等數(shù)據(jù)庫數(shù)據(jù))1:SZ=XY ,2:XY=SZ?(輸1為坐標(biāo)正算，輸2為坐標(biāo)反算和超欠計(jì)算)Xm？=（實(shí)測點(diǎn)坐標(biāo)X）Yn？=（實(shí)測點(diǎn)坐標(biāo)Y）SXG？=（實(shí)測點(diǎn)高程）KP？=24450（實(shí)測點(diǎn)附近樁號）計(jì)算結(jié)果：K=（顯示線路反算結(jié)果里程）B=（顯示線路反算結(jié)果偏距，正數(shù)為偏右，負(fù)數(shù)為偏左）Z1=?(輸0返回繼續(xù)進(jìn)行里程和偏距計(jì)算，1,2,3……進(jìn)入隧道1, 進(jìn)入隧道2,進(jìn)入隧道3……超欠挖計(jì)算)CQW=（顯示超欠計(jì)算結(jié)果，正數(shù)為大于設(shè)計(jì)輪廓線，負(fù)數(shù)為小于設(shè)計(jì)輪廓線）本程序是采用線元法編寫和演示的隧道超欠挖程序，對于交點(diǎn)法，有志立于隧道施工測量的同仁可與我聯(lián)系，以便相互探討。通過對本文的了解與認(rèn)識隧道超欠挖的計(jì)算原理和程序設(shè)計(jì)，運(yùn)用三維坐標(biāo)測量法在隧道施工測量中，方便、準(zhǔn)確、實(shí)用。這種方法也是隧道掌子面畫輪廓線測量工作的方法之一。也適用于檢查隧道的初期支護(hù)、二襯的斷面超欠挖，能及時正確的指導(dǎo)施工。為隧道提前貫通和節(jié)約成本提供可靠保障。聲明：本文演示的隧道超欠挖數(shù)據(jù)為道安二標(biāo)（位于貴州道真縣）核桃彎隧道右線實(shí)測斷面數(shù)據(jù)，計(jì)算結(jié)果真實(shí)可靠，對于以上隧道超欠挖程序源，有可能存在輸入錯誤，如有需要，可與本人聯(lián)系，我可以用計(jì)算器傳輸，以保證程序應(yīng)用的正確性。（內(nèi)部職工可免費(fèi)傳輸） 完美WORD格式編輯
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1