資源描述：
《視距法碎部測量記錄程序程序與說明》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在行業(yè)資料-天天文庫。
1、覃輝主編《土木工程測量》第4章教輔資料：視距法碎部測量記錄與成果整理程序(P9-10-1/G9-10-1)(1)編程原理與輸出數(shù)據(jù)串列視距法碎部測量的計算公式為：2?D=100(B?A)(cos(90?C+X))??H=Dtan(90?C+X)+E+I?(A+B)/2式中，A為上絲讀數(shù)，B為下絲讀數(shù)，C為豎盤讀數(shù)，E為測站高程，I為儀器高，X為經(jīng)緯儀豎盤指標差，D為測站至碎部點的水平距離，H為碎部點高程，數(shù)據(jù)在串列中的存儲位置見表1所示。表1程序P9-10-1輸出數(shù)據(jù)串列明細表行數(shù)List1List2List3List4List5List61ABCTDH111111?????????
2、?????190ABCTDH190190190190190190191NEIX日期時間1111??????????????200NEIX日期時間10101010(2)程序程序名：P9-10-1，930字節(jié)，光盤文件為“prog視距法碎部測量記錄程序P9-10-1.CAT”。Deg將角度單位設置為十進制度IfN=0:Then{0,0,??,0}List1定義List1的維數(shù)為200List1List2:List1List3:List1List4:List1List5:List1List6IfEnd"Date=2005.1108"?P觀測日期"Time=12.01"?Q觀測時間"S
3、tationheight="?E提示與輸入測站高程"Theodoliteheight="?I提示與輸入儀器高"Indexerror="?X提示與輸入豎盤指標差K+1K累加中斷觀測次數(shù)N+1List1[K+190]存儲開始觀測點號EList2[K+190]存儲測站高程IList3[K+190]存儲儀器高XList4[K+190]存儲豎盤指標差PList5[K+190]存儲日期QList6[K+190]存儲時間Lbl1"Uppercross="?A提示與輸入上絲讀數(shù)"Downcross="?B提示與輸入下絲讀數(shù)"Vercircle"?C提示與輸入豎盤讀數(shù)"Horcircle"?T提示與輸
4、入水平盤讀數(shù)N+1N碎部點數(shù)累加1IfN>190:ThenGoto2:IfEnd判斷是否超過最大點數(shù)19090-C+XV計算豎角2"D=":100Abs(A-B)(cosV)D水平距離同濟大學出版社覃輝主編《土木工程測量》"H=":DtanV+E+I-(A+B)÷2H高程AList1[N]上絲讀數(shù)存入串列1BList2[N]下絲讀數(shù)存入串列2CList3[N]豎盤讀數(shù)存入串列3TList4[N]水平盤讀數(shù)存入串列4DList5[N]平距計算結(jié)果存入串列5HList6[N]高程計算結(jié)果存入串列6"Number=":N顯示碎部點數(shù)"Press[AC]break"提示按鍵可以中斷程序Got
5、o1Lbl2"Listnumberequal190"提示已經(jīng)存儲了190個點中斷程序"END"提示：將光盤“prog視距法碎部測量記錄程序P9-10-1.CAT”文件上傳到計算器中時，會出現(xiàn)下面兩個問題，它們是由數(shù)據(jù)通訊軟件FA-123的缺陷所至。①在上述程序第二行定義串列維數(shù)語句{0,0,??,0}List1中，只有前122個0能順利上傳到計算器中，而本程序設計為200個0，傳入計算器時將丟失78個0，且字符“List1”也會丟失，故程序第二行的語句被輸入為下列形式：IfN=0:Then{0,0,??,0}100個0{0,0,??,0}List1100個0將程序文件P9-10
6、-1.CAT上傳到計算器中后，應將上述語句修改為下列形式：IfN=0:Then{0,0,??,0}List1200個0修改前后的結(jié)果見圖9-10-1前兩圖所示。圖1將光盤“prog視距法碎部測量記錄程序P9-10-1.CAT”文件上傳到計算器后的修改內(nèi)容②程序中的提示字符“or”的上傳到計算器中后變成字符“@”，程序中的下列兩行提示字符中有字符“or”："Indexerror="?X提示與輸入豎盤指標差"Horcircle"?T提示與輸入水平盤讀數(shù)為解決該問題，光盤程序文件P9-10-1.CAT在字符“or”中用一個空格間隔，見圖9-10-1所示。程序上傳到計算器中后，可以刪除
7、字符“o”與“r”間的空格。是否刪除這些空格不影響程序的正確運行。(3)程序的功能與操作說明程序為串列List1~List6定義的維數(shù)是200，每個串列單元需用10字節(jié)，六個串列共需占用6×200×10=12000字節(jié)內(nèi)存，如果讀者計算器的剩余內(nèi)存容量不足以運行該程序，請將現(xiàn)有程序與串列數(shù)據(jù)下傳到FA-123中存盤保存，然后在MEM模式下清除不需要的程序與串列數(shù)據(jù)。程序雖然為List1~List6定義的維數(shù)是200，但190~200行串列單元用于存儲每次運
