CASIO程序線路計算三

《CASIOfx-5800P線路計算10.0版》程序設(shè)計作者：徐光輝2007年3月18日PAGE14PAGE59一、擴(kuò)展變量設(shè)置說明統(tǒng)計各種要素點(diǎn)的數(shù)目各要素點(diǎn)數(shù)目表名稱數(shù)目(個)所需擴(kuò)展變量數(shù)數(shù)目(個)要素點(diǎn)數(shù)目為0時取值備注固定及自由變量量909090必須設(shè)置平曲線交點(diǎn)a6a+6-1不含起終點(diǎn)豎曲線變坡點(diǎn)b3b+5-5/3不含起終點(diǎn)超高起始點(diǎn)c2c0含起終點(diǎn)路面寬度變化點(diǎn)點(diǎn)d6d+1-1/6含起終點(diǎn)左幅填邊坡變化化點(diǎn)e9e+1-1/9含起終點(diǎn)右幅填邊坡變化化點(diǎn)f9f+1-1/9含起終點(diǎn)左幅挖邊坡變化化點(diǎn)g20g+6-3/10含起終點(diǎn)右幅挖邊坡變化化點(diǎn)h20h+4-1/5含起終點(diǎn)隧道斷面輪廓類類型數(shù)i72i+4-2/36合計N6a+3b+22c+6dd+9e++9f+20g+220h+72i+118設(shè)置擴(kuò)展變量總數(shù)目為：N=6a+3b+2c+6d+9e+9f+20g+20h+72i+118個,其中0～90為程序用變量。設(shè)置擴(kuò)展變量總數(shù)N個的方法如下：NFUNCTION32SHIFT.EXE特別提示：每個擴(kuò)展變量將占用12個字節(jié)的內(nèi)存，使用以下這些全部程序后，將最多只可以設(shè)置1617個擴(kuò)展變量設(shè)置各擴(kuò)展變量數(shù)據(jù)固定變量及自由變量Z[1]～Z[100]Z[1]:固定變量，為結(jié)構(gòu)層厚度,當(dāng)進(jìn)行高程及高程較差計算前需設(shè)置。Z[2]～Z[65]:程序中使用的自由變量，不需設(shè)置。Z[66]～Z[75]:為進(jìn)行高程較差計算時各路面點(diǎn)離中線的平距，運(yùn)行前需設(shè)置。Z[76]:固定變量，為平曲線交點(diǎn)數(shù)目，運(yùn)行前必須設(shè)置，設(shè)置為a。Z[77]:固定變量，為豎曲線邊坡點(diǎn)數(shù)目，運(yùn)行前必須設(shè)置，設(shè)置為b。Z[78]:固定變量，為超高起始點(diǎn)數(shù)目，運(yùn)行前必須設(shè)置，設(shè)置為c。Z[79]:固定變量，為路面變化點(diǎn)數(shù)目，運(yùn)行前必須設(shè)置，設(shè)置為d。Z[80]:固定變量，為左幅填邊坡變化點(diǎn)數(shù)目，運(yùn)行前必須設(shè)置，設(shè)置為e。Z[81]:固定變量，為右幅填邊坡變化點(diǎn)數(shù)目，運(yùn)行前必須設(shè)置，設(shè)置為f。Z[82]:固定變量，為左幅挖邊坡變化點(diǎn)數(shù)目，運(yùn)行前必須設(shè)置，設(shè)置為g。Z[83]:固定變量，為右幅挖邊坡變化點(diǎn)數(shù)目，運(yùn)行前必須設(shè)置，設(shè)置為h。Z[84]:固定變量，運(yùn)行前必須設(shè)置，設(shè)置為6a+97。Z[85]:固定變量，運(yùn)行前必須設(shè)置，設(shè)置為6a+3b+102。Z[86]:固定變量，運(yùn)行前必須設(shè)置，設(shè)置為6a+3b+2c+103。Z[87]:固定變量，運(yùn)行前必須設(shè)置，設(shè)置為6a+3b+2c+6d+104。Z[88]:固定變量，運(yùn)行前必須設(shè)置，設(shè)置為6a+3b+2c+6d+9e+105。Z[89]:固定變量，運(yùn)行前必須設(shè)置，設(shè)置為6a+3b+2c+6d+9e+9f+111。Z[90]:固定變量，運(yùn)行前必須設(shè)置，設(shè)置為6a+3b+2c+6d+9e+9f+20g+115。平曲線要素擴(kuò)展變量Z[91]～Z[6a+96]Z[91]～Z[a+92]:起點(diǎn)、各交點(diǎn)、終點(diǎn)的X坐標(biāo)。Z[a+93]～Z[2a+94]:起點(diǎn)、各交點(diǎn)、終點(diǎn)的Y坐標(biāo)。Z[2a+95]～Z[3a+94]:各曲線半徑。Z[3a+95]～Z[4a+94]:各曲線第一緩曲長。Z[4a+95]～Z[5a+94]:各曲線第二緩曲長。Z[5a+95]～Z[6a+96]:線路起點(diǎn)樁號、各曲線的ZH(無緩曲為ZY)點(diǎn)樁號、線路終點(diǎn)樁號。說明：起終點(diǎn)一定要位于直線段上，若不是則要延長切線，使其位于直線段。豎曲線要素擴(kuò)展變量Z[6a+97]～Z[6a+3b+101]Z[6a+97]～Z[6a+b+98]:起點(diǎn)、各變坡點(diǎn)、終點(diǎn)的樁號。Z[6a+b+99]～Z[6a+2b+100]:起點(diǎn)、各變坡點(diǎn)、終點(diǎn)的高程。Z[6a+2b+101]～Z[6a+3b+100]:各豎曲線切線長。Z[6a+3b+101]:設(shè)置為空值（即為0），以便其在程序中使用。說明：起終點(diǎn)一定要位于直線段上，若不是則要延長切線，使其位于直線段。超高設(shè)計擴(kuò)展變量Z[6a+3b+102]～Z[6a+3b+2c+101]Z[6a+3b+102]～Z[6a+3b+c+101]:各起超點(diǎn)樁號。Z[6a+3b+c+102]～Z[6a+3b+2c+101]:各起超點(diǎn)處的設(shè)計橫坡(%)。說明：存入設(shè)計橫坡數(shù)值時，當(dāng)路基左右幅的橫坡為互補(bǔ)時，只要把左幅的設(shè)計橫坡(從中間向兩側(cè)上坡為“+”，下坡為“-”)存入擴(kuò)展變量即可，當(dāng)左右幅的設(shè)計橫坡為相同時，則在對應(yīng)擴(kuò)展變量中存入橫坡為0。路面寬度擴(kuò)展變量Z[6a+3b+2c+102]～Z[6a+3b+2c+6d+102]Z[6a+3b+2c+102]:土路肩最小橫坡。Z[6a+3b+2c+103]～Z[6a+3b+2c+d+102]:各路面變化處樁號。Z[6a+3b+2c+d+103]～Z[6a+3b+2c+2d+102]:左幅土路肩寬。Z[6a+3b+2c+2d+103]～Z[6a+3b+2c+3d+102]:左幅硬路面寬。Z[6a+3b+2c+3d+103]～Z[6a+3b+2c+4d+102]:中央分隔帶寬。Z[6a+3b+2c+4d+103]～Z[6a+3b+2c+5d+102]:右幅硬路面寬。Z[6a+3b+2c+5d+103]～Z[6a+3b+2c+6d+102]:右幅土路肩寬。左幅填邊坡擴(kuò)展變量Z[6a+3b+2c+6d+103]～Z[6a+3b+2c+6d+9e+103]Z[6a+3b+2c+6d+103]:左幅填平臺的橫坡。Z[6a+3b+2c+6d+104]～Z[6a+3b+2c+6d+e+103]:左幅填邊坡變化樁號。Z[6a+3b+2c+6d+e+104]～Z[6a+3b+2c+6d+2e+103]:左幅填邊坡第一階邊坡坡高。Z[6a+3b+2c+6d+2e+104]～Z[6a+3b+2c+6d+3e+103]:左幅填邊坡第一階邊坡坡度。Z[6a+3b+2c+6d+3e+104]～Z[6a+3b+2c+6d+4e+103]:左幅填邊坡第一階邊坡平臺寬。Z[6a+3b+2c+6d+4e+104]～Z[6a+3b+2c+6d+5e+103]:左幅填邊坡第二階邊坡坡高。Z[6a+3b+2c+6d+5e+104]～Z[6a+3b+2c+6d+6e+103]:左幅填邊坡第二階邊坡坡度。Z[6a+3b+2c+6d+6e+104]～Z[6a+3b+2c+6d+7e+103]:左幅填邊坡第二階邊坡平臺寬。Z[6a+3b+2c+6d+7e+104]～Z[6a+3b+2c+6d+8e+103]:左幅填邊坡第三階邊坡坡高。Z[6a+3b+2c+6d+8e+104]～Z[6a+3b+2c+6d+9e+103]:左幅填邊坡第三階邊坡坡度。說明：輸入邊坡坡度時只要輸入數(shù)字，例如“1:1.5”輸為“1.5”。右幅填邊坡擴(kuò)展變量Z[6a+3b+2c+6d+9e+104]～Z[6a+3b+2c+6d+9e+9f+104]Z[6a+3b+2c+6d+9e+104]:右幅填平臺的橫坡。Z[6a+3b+2c+6d+9e+105]～Z[6a+3b+2c+6d+9e+f+104]:右幅填邊坡變化樁號。Z[6a+3b+2c+6d+9e+f+105]～Z[6a+3b+2c+6d+9e+2f+104]:右幅填邊坡第一階邊坡坡高。Z[6a+3b+2c+6d+9e+2f+105]～Z[6a+3b+2c+6d+9e+3f+104]:右幅填邊坡第一階邊坡坡度。Z[6a+3b+2c+6d+9e+3f+105]～Z[6a+3b+2c+6d+9e+4f+104]:右幅填邊坡第一階邊坡平臺寬。Z[6a+3b+2c+6d+9e+4f+105]～Z[6a+3b+2c+6d+9e+5f+104]:右幅填邊坡第二階邊坡坡高。Z[6a+3b+2c+6d+9e+5f+105]～Z[6a+3b+2c+6d+9e+6f+104]:右幅填邊坡第二階邊坡坡度。Z[6a+3b+2c+6d+9e+6f+105]～Z[6a+3b+2c+6d+9e+7f+104]:右幅填邊坡第二階邊坡平臺寬。Z[6a+3b+2c+6d+9e+7f+105]～Z[6a+3b+2c+6d+9e+8f+104]:右幅填邊坡第三階邊坡坡高。Z[6a+3b+2c+6d+9e+8f+105]～Z[6a+3b+2c+6d+9e+9f+104]:右幅填邊坡第三階邊坡坡度。說明：輸入邊坡坡度時只要輸入數(shù)字，例如“1:1.5”輸為“1.5”。左幅挖邊坡擴(kuò)展變量Z[6a+3b+2c+6d+9e+9f+105]～Z[6a+3b+2c+6d+9e+9f+20g+110]Z[6a+3b+2c+6d+9e+9f+105]:護(hù)坡道與溝頂高差。Z[6a+3b+2c+6d+9e+9f+106]:邊溝內(nèi)側(cè)壁與土路肩邊緣點(diǎn)的水平差距。Z[6a+3b+2c+6d+9e+9f+107]:左幅邊溝溝口寬。Z[6a+3b+2c+6d+9e+9f+108]:左幅護(hù)坡道坡度。Z[6a+3b+2c+6d+9e+9f+109]:左幅臺階平臺寬。Z[6a+3b+2c+6d+9e+9f+110]:左幅臺階平臺坡度。Z[6a+3b+2c+6d+9e+9f+111]～Z[6a+3b+2c+6d+9e+9f+g+110]:左幅挖邊坡變化樁號。Z[6a+3b+2c+6d+9e+9f+g+111]～Z[6a+3b+2c+6d+9e+9f+2g+110]:左幅挖邊坡護(hù)坡道寬度。Z[6a+3b+2c+6d+9e+9f+2g+111]～Z[6a+3b+2c+6d+9e+9f+3g+110]:左幅挖邊坡第1階邊坡坡高。Z[6a+3b+2c+6d+9e+9f+3g+111]～Z[6a+3b+2c+6d+9e+9f+4g+110]:左幅挖邊坡第1階邊坡坡度。Z[6a+3b+2c+6d+9e+9f+4g+111]～Z[6a+3b+2c+6d+9e+9f+5g+110]:左幅挖邊坡第2階邊坡坡高。Z[6a+3b+2c+6d+9e+9f+5g+111]～Z[6a+3b+2c+6d+9e+9f+6g+110]:左幅挖邊坡第2階邊坡坡度。Z[6a+3b+2c+6d+9e+9f+6g+111]～Z[6a+3b+2c+6d+9e+9f+7g+110]:左幅挖邊坡第3階邊坡坡高。Z[6a+3b+2c+6d+9e+9f+7g+111]～Z[6a+3b+2c+6d+9e+9f+8g+110]:左幅挖邊坡第3階邊坡坡度。Z[6a+3b+2c+6d+9e+9f+8g+111]～Z[6a+3b+2c+6d+9e+9f+9g+110]:左幅挖邊坡第4階邊坡坡高。Z[6a+3b+2c+6d+9e+9f+9g+111]～Z[6a+3b+2c+6d+9e+9f+10g+110]:左幅挖邊坡第4階邊坡坡度。Z[6a+3b+2c+6d+9e+9f+10g+111]～Z[6a+3b+2c+6d+9e+9f+11g+110]:左幅挖邊坡第5階邊坡坡高。Z[6a+3b+2c+6d+9e+9f+11g+111]～Z[6a+3b+2c+6d+9e+9f+12g+110]:左幅挖邊坡第5階邊坡坡度。Z[6a+3b+2c+6d+9e+9f+12g+111]～Z[6a+3b+2c+6d+9e+9f+13g+110]:左幅挖邊坡第6階邊坡坡高。Z[6a+3b+2c+6d+9e+9f+13g+111]～Z[6a+3b+2c+6d+9e+9f+14g+110]:左幅挖邊坡第6階邊坡坡度。Z[6a+3b+2c+6d+9e+9f+14g+111]～Z[6a+3b+2c+6d+9e+9f+15g+110]:左幅挖邊坡第7階邊坡坡高。Z[6a+3b+2c+6d+9e+9f+15g+111]～Z[6a+3b+2c+6d+9e+9f+16g+110]:左幅挖邊坡第7階邊坡坡度。Z[6a+3b+2c+6d+9e+9f+16g+111]～Z[6a+3b+2c+6d+9e+9f+17g+110]:左幅挖邊坡第8階邊坡坡高。Z[6a+3b+2c+6d+9e+9f+17g+111]～Z[6a+3b+2c+6d+9e+9f+18g+110]:左幅挖邊坡第8階邊坡坡度。Z[6a+3b+2c+6d+9e+9f+18g+111]～Z[6a+3b+2c+6d+9e+9f+19g+110]:左幅挖邊坡第9階邊坡坡高。Z[6a+3b+2c+6d+9e+9f+19g+111]～Z[6a+3b+2c+6d+9e+9f+20g+110]:左幅挖邊坡第9階邊坡坡度。說明：輸入邊坡坡度時只要輸入數(shù)字，例如“1:0.75”輸為“0.75”。右幅挖邊坡擴(kuò)展變量Z[6a+3b+2c+6d+9e+9f+20g+111]～Z[6a+3b+2c+6d+9e+9f+20g+20h+114]Z[6a+3b+2c+6d+9e+9f+20g+111]:右幅邊溝溝口寬。Z[6a+3b+2c+6d+9e+9f+20g+112]:右幅護(hù)坡道坡度。Z[6a+3b+2c+6d+9e+9f+20g+113]:右幅臺階平臺寬。Z[6a+3b+2c+6d+9e+9f+20g+114]:右幅臺階平臺坡度。Z[6a+3b+2c+6d+9e+9f+20g+115]～Z[6a+3b+2c+6d+9e+9f+20g+h+114]:右幅挖邊坡變化樁號。Z[6a+3b+2c+6d+9e+9f+20g+h+115]～Z[6a+3b+2c+6d+9e+9f+20g+2h+114]:右幅挖邊坡護(hù)坡道寬度。Z[6a+3b+2c+6d+9e+9f+20g+2h+115]～Z[6a+3b+2c+6d+9e+9f+20g+3h+114]:右幅挖邊坡第1階坡高。Z[6a+3b+2c+6d+9e+9f+20g+3h+115]～Z[6a+3b+2c+6d+9e+9f+20g+4h+114]:右幅挖邊坡第1階坡度。Z[6a+3b+2c+6d+9e+9f+20g+4h+115]～Z[6a+3b+2c+6d+9e+9f+20g+5h+114]:右幅挖邊坡第2階坡高。Z[6a+3b+2c+6d+9e+9f+20g+5h+115]～Z[6a+3b+2c+6d+9e+9f+20g+6h+114]:右幅挖邊坡第2階坡度。Z[6a+3b+2c+6d+9e+9f+20g+6h+115]～Z[6a+3b+2c+6d+9e+9f+20g+7h+114]:右幅挖邊坡第3階坡高。Z[6a+3b+2c+6d+9e+9f+20g+7h+115]～Z[6a+3b+2c+6d+9e+9f+20g+8h+114]:右幅挖邊坡第3階坡度。Z[6a+3b+2c+6d+9e+9f+20g+8h+115]～Z[6a+3b+2c+6d+9e+9f+20g+9h+114]:右幅挖邊坡第4階坡高。Z[6a+3b+2c+6d+9e+9f+20g+9h+115]～Z[6a+3b+2c+6d+9e+9f+20g+10h+114]:右幅挖邊坡第4階坡度。Z[6a+3bb+2c+6dd+9e++9f+20g+10h+115]～Z[6a+3bb+2c+6dd+9e++9f+20g+11h+114]::右幅挖邊坡坡第5階坡高。Z[6a+3bb+2c+6dd+9e++9f+20g+11h+115]～Z[6a+3bb+2c+6dd+9e++9f+20g+12h+114]::右幅挖邊坡坡第5階坡度。Z[6a+3bb+2c+6dd+9e++9f+20g+12h+115]～Z[6a+3bb+2c+6dd+9e++9f+20g+13h+114]::右幅挖邊坡坡第6階坡高。Z[6a+3bb+2c+6dd+9e++9f+20g+13h+115]～Z[6a+3bb+2c+6dd+9e++9f+20g+14h+114]::右幅挖邊坡坡第6階坡度。Z[6a+3bb+2c+6dd+9e++9f+20g+14h+115]～Z[6a+3bb+2c+6dd+9e++9f+20g+15h+114]::右幅挖邊坡坡第7階坡高。Z[6a+3bb+2c+6dd+9e++9f+20g+15h+115]～Z[6a+3bb+2c+6dd+9e++9f+20g+16h+114]::右幅挖邊坡坡第7階坡度。Z[6a+3bb+2c+6dd+9e++9f+20g+16h+115]～Z[6a+3bb+2c+6dd+9e++9f+20g+17h+114]::右幅挖邊坡坡第8階坡高。Z[6a+3bb+2c+6dd+9e++9f+20g+17h+115]～Z[6a+3bb+2c+6dd+9e++9f+20g+18h+114]::右幅挖邊坡坡第8階坡度。Z[6a+3bb+2c+6dd+9e++9f+20g+18h+115]～Z[6a+3bb+2c+6dd+9e++9f+20g+19h+114]::右幅挖邊坡坡第9階坡高。Z[6a+3bb+2c+6dd+9e++9f+20g+19h+115]～Z[6a+3bb+2c+6dd+9e++9f+20g+20h+114]::右幅挖邊坡坡第9階坡度。說明：輸入邊坡坡坡度時只只要輸入數(shù)數(shù)字，例如如“1:0.775”輸為“0.75”。隧道斷面設(shè)計擴(kuò)擴(kuò)展變量ZZ[6a+3bb+2c+6dd+9e++9f+20g+220h+1115]～Z[6a+3bb+2c+6dd+9e++9f+20g+220h+772i+1118]Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1115]:斷面基基點(diǎn)偏離指指定點(diǎn)的平平距，左“-”,右“+”,運(yùn)行前需需設(shè)置。Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1116]:斷面基點(diǎn)點(diǎn)的平面指定點(diǎn)點(diǎn)，“0”為線路中中線，“1”為左幅土土路肩外邊邊緣，“2”為右幅土土路肩外邊邊緣，運(yùn)行行前需設(shè)置置。Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1117]:斷面基點(diǎn)點(diǎn)偏離指定定點(diǎn)的高差差，高“+”,低“-”,運(yùn)行前需需設(shè)置。Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1118]:斷面基點(diǎn)點(diǎn)豎面指定定點(diǎn)，“0”為線路設(shè)設(shè)計高程位位置，“1”為平面基點(diǎn)點(diǎn)處的路面面高程位置置，運(yùn)行前前需設(shè)置。Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1119]:第一種斷斷面類型的的第1條組成曲線線段的類型型，“0”為無此段段，“1”為直線段段，“2”為圓弧段段。Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1120]:第一種斷斷面類型的的第1條組成曲線線段的第(1)個數(shù)據(jù)，當(dāng)當(dāng)類型為直直線段時，此此為起點(diǎn)X坐標(biāo)；當(dāng)當(dāng)為圓弧段段時，此為為圓心的X坐標(biāo)。Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1121]:第一種斷斷面類型的的第1條組成曲線線段的第(2)個數(shù)據(jù)，當(dāng)當(dāng)類型為直直線段時，此此為起點(diǎn)YY坐標(biāo)；當(dāng)當(dāng)為圓弧段段時，此為為圓心的YY坐標(biāo)。Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1122]:第一種斷斷面類型的的第1條組成曲曲線段的第第(3)個數(shù)據(jù)，當(dāng)當(dāng)類型為直直線段時，此此為直線段長度度；當(dāng)為圓圓弧段時，此此為弧心角(°)，順時時針為“+”。Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1123]:第一種斷斷面類型的的第1條組成曲曲線段的第第(4)個數(shù)據(jù)，當(dāng)當(dāng)類型為直直線段時，此此為直線的的方向角(°)；當(dāng)為為圓弧段時時，此為起起始邊方向向角(°)。上述的方方向角均為為與X軸負(fù)方向向的夾角。Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1124]:第一種斷斷面類型的的第1條組成曲曲線段的第第(5)個數(shù)據(jù)，當(dāng)當(dāng)類型為直直線段時，此此為空數(shù)據(jù)據(jù)；當(dāng)為圓圓弧段時，此此為圓弧的的半徑。如此重復(fù)Z[66a+3bb+2c+6dd+9e++9f+20g+220h+1119]～Z[6a+3bb+2c+6dd+9e++9f+20g+220h+1124]擴(kuò)展變量量的輸入，輸輸入其它各各條組成曲曲線的數(shù)據(jù)據(jù)以及其它它斷面類型型的數(shù)據(jù)((輸入的位位置及尺寸寸數(shù)據(jù)的單單位均為cm)，但但注意每種種斷面類型型最多只能能由12條曲線線組成，當(dāng)當(dāng)不足122條時，用用空數(shù)據(jù)補(bǔ)補(bǔ)齊12條。3.擴(kuò)展變量設(shè)設(shè)置說明當(dāng)線路路改變或數(shù)數(shù)據(jù)更改時時，應(yīng)首先先根據(jù)各要要素點(diǎn)的數(shù)數(shù)目設(shè)置擴(kuò)擴(kuò)展變量總總數(shù)目（若若要素點(diǎn)數(shù)數(shù)目也發(fā)生生變化），再再按上述各各擴(kuò)展變量量位置表中中的約定存存入對應(yīng)變變量中的數(shù)數(shù)據(jù)。存入各要素點(diǎn)的的樁號時,均為扣除除斷鏈后的的實際樁號號，而不是是設(shè)計圖上上的設(shè)計樁樁號。特別提示：可以以利用《斷斷面繪制軟軟件》(3.7版)把輸好的的數(shù)據(jù)自動動轉(zhuǎn)化為本本程序需要要的擴(kuò)展變變量二、程序操作說說明特別說明：各程程序均要求求在RAD模式下運(yùn)運(yùn)行(程序運(yùn)行行時會自動動設(shè)置)測量放樣計算程程序CLFYYJS：1.L2.XX3..D?(1)計算選擇::1.線路路上計算2.弦弦線上計算算3.已知坐標(biāo)標(biāo)的單點(diǎn)??FY：1.ZXX2..BX?(2)放樣選擇:1..中線放樣2.邊線放樣?WZ：1.XD22.JD?(3)結(jié)構(gòu)物放樣樣點(diǎn)位置:1.結(jié)構(gòu)構(gòu)物控制線線線端2.結(jié)構(gòu)物的的角點(diǎn)當(dāng)?shù)?2)步選擇22時才會出出現(xiàn)此步ZJ：1.XLL2.LS?(4)置鏡點(diǎn)選擇:11.置鏡點(diǎn)為為線路點(diǎn)(已知樁號號和偏距的的中樁或邊邊樁)2.置鏡點(diǎn)為為臨時點(diǎn)(已知平面面坐標(biāo))?ZK?(5)置鏡點(diǎn)輸入ZKK?當(dāng)?shù)?4)步選選擇1時,此輸入置置鏡點(diǎn)的線線路點(diǎn)樁號號ZL?(6)置鏡點(diǎn)的線路點(diǎn)點(diǎn)距線路中中線偏距輸輸入ZL(左為“-”,右為“+”)?當(dāng)置鏡點(diǎn)為線路路中樁時,輸其為0只有當(dāng)?shù)?4))步選擇1時,才會出現(xiàn)現(xiàn)此步ZX?(7)置鏡點(diǎn)的臨時點(diǎn)點(diǎn)X坐標(biāo)?只有當(dāng)?shù)?4))步選擇2時,才會出現(xiàn)現(xiàn)此步ZY?(8)置鏡點(diǎn)的臨時點(diǎn)點(diǎn)Y坐標(biāo)?只有當(dāng)?shù)?4))步選擇2時,才會出現(xiàn)現(xiàn)此步HS：1.XL2..LS?(9)后視點(diǎn)選擇:11.后視點(diǎn)為為線路點(diǎn)(已知樁號號和偏距的的中樁或邊邊樁)2.置鏡點(diǎn)為為臨時點(diǎn)(已知平面面坐標(biāo))?HK?(10)后視點(diǎn)輸輸入HK?當(dāng)?shù)?9)步選選擇1時,此輸入后后視點(diǎn)的線線路點(diǎn)樁號號HL?(11)后視點(diǎn)的的邊樁點(diǎn)距距線路中線線偏距輸入入HL(左為“-”,右為“+”)?當(dāng)后視點(diǎn)為線路路中樁時,輸其為0只有當(dāng)?shù)?9))步選擇1時,才會出現(xiàn)現(xiàn)此步HX?(12)后視點(diǎn)的的臨時點(diǎn)X坐標(biāo)?只有當(dāng)?shù)?9))步選擇2時,才會出現(xiàn)現(xiàn)此步HY?(13)后視點(diǎn)點(diǎn)的臨時點(diǎn)點(diǎn)Y坐標(biāo)?只有當(dāng)?shù)?9))步選擇2時,才會出現(xiàn)現(xiàn)此步AH?(14)輸入后視視角度AHH?XQ?(15)輸入弦線線起點(diǎn)樁號號XQ?只有當(dāng)?shù)?1))步選擇2時,才會出現(xiàn)現(xiàn)此步XZ?(16)輸入弦線起點(diǎn)樁樁號XZ?只有當(dāng)?shù)?1))步選擇2時,才會出現(xiàn)現(xiàn)此步KF?(17)輸入放樣樣點(diǎn)的樁號號KF?只有當(dāng)?shù)?1))步選擇1時,才會出現(xiàn)現(xiàn)此步L(D-Q)??(18)輸入放樣樣點(diǎn)相對于于弦線處離離弦線起點(diǎn)點(diǎn)的距離KKF?起點(diǎn)向前為“＋＋”，起點(diǎn)向向后為“－”只有當(dāng)?shù)?1))步選擇2時,才會出現(xiàn)現(xiàn)此步L?(19)輸入放樣點(diǎn)偏離離中線(或弦線)的平距(左為“-”,右為“+”)?當(dāng)?shù)?2)步選選擇2時才會出出現(xiàn)此步AJ?(20)輸入放樣樣點(diǎn)跟線路路中樁(或相對弦弦線處)連線與線線路方向((或弦線)的夾角(前右角)AJ?當(dāng)?shù)?2)步選選擇2時才會出出現(xiàn)此步XD?(21)單點(diǎn)放放樣時輸入入已知坐標(biāo)標(biāo)X？當(dāng)?shù)?1)步選擇33時才會出出現(xiàn)此步Y(jié)D?(22)單點(diǎn)放放樣時輸入入已知坐標(biāo)標(biāo)Y？當(dāng)?shù)?1)步選擇33時才會出出現(xiàn)此步WL?(23)輸入角角點(diǎn)離結(jié)構(gòu)構(gòu)物控制線線的平距？？前進(jìn)方向為“++”，后退方方向為“-”當(dāng)?shù)?3)步選擇22時才會出出現(xiàn)此步AP?(24)輸入結(jié)結(jié)構(gòu)物邊線線與結(jié)構(gòu)物物控制線的的夾角(前右角)?當(dāng)?shù)?3)步選擇22時才會出出現(xiàn)此步X=(25)輸出放樣樣點(diǎn)的X坐標(biāo)Y=(26)輸出放放樣點(diǎn)的Y坐標(biāo)A=(27)輸出放樣樣角度AS=(28)輸出放樣樣距離SSc?(29)輸入實實測距離Sc?當(dāng)Sc的值不大于0時時，此行操操作完成后后返回第(17)步(當(dāng)(1)選擇2時返回第(18)步),要求重新新輸入計算算DS=(30)輸出測測量差距DS“+”為需延長，“--”為需縮短短此步完成后返回回第(29)步要求重重新輸入實實測距離▲測量放樣計算輸輸入注意具體如上圖：1）當(dāng)對A點(diǎn)進(jìn)行行計算時，第第(2)步"FY：1.ZXX2..BX"選選擇"1..ZX"2）當(dāng)對B、C、D、E、F、G點(diǎn)進(jìn)行計計算時，第第(2)步"FY：1.ZXX2..BX"選選擇"2..BX"3）當(dāng)對C、F點(diǎn)點(diǎn)進(jìn)行計算算時，第((3)步"WZ：1.XDD2..JD"選選擇"1..XD"4）當(dāng)對B、D、E、G點(diǎn)進(jìn)行計計算時，第第(3)步"WZ：1.XDD2..JD"選選擇"2..JD"5）當(dāng)對B、C、D點(diǎn)進(jìn)行計計算時，輸輸入L為"-"值6）當(dāng)對E、F、G點(diǎn)進(jìn)行計計算時，輸輸入L為"+"值7）當(dāng)對D、G點(diǎn)點(diǎn)進(jìn)行計算算時，輸入入WL為"-"值8）當(dāng)對B、E點(diǎn)點(diǎn)進(jìn)行計算算時，輸入入WL為"+"值9）AP和AJ均為為相對于線線路前進(jìn)方方向的右上上角那個夾夾角高程較差計算程程序GCJCCYG?(1)輸入水準(zhǔn)儀儀的視線高高程YG?K?(2)輸入被測點(diǎn)點(diǎn)的樁號KK?DW?(3)輸入被測點(diǎn)點(diǎn)的點(diǎn)位號號DW?各點(diǎn)離中線平距距由擴(kuò)展變變量Z[66]～Z[755]決定QS(mm)??(4)輸入前視讀讀數(shù)QS?輸入的讀數(shù)以毫毫米為單位位DH(cm)==(5)輸出設(shè)計高高程與實測測高程的較較差DH(高于設(shè)計計為“-”,反之為“+”)輸出的高差以厘厘米為單位位此行操作完成后后返回第(2)步,要求重新新輸入計算算線路高程計算程程序XLGCCK?(1)輸入待求點(diǎn)點(diǎn)的樁號KK?L?(2)輸入待求點(diǎn)點(diǎn)偏離中線線的平距LL(左為“-”,右為“+”)?H=(3)輸出待求點(diǎn)點(diǎn)的設(shè)計高高程(已扣除結(jié)結(jié)構(gòu)層厚度度)H此行操作完成后后返回第(1)步,要求重新新輸入計算算線路坐標(biāo)計算程程序XLZBB1.ZX22.BX??(1)選擇:1..中線坐標(biāo)標(biāo)計算2.邊線坐標(biāo)標(biāo)計算？K?(2)輸入待求點(diǎn)點(diǎn)的樁號KK?L?(3)輸入待求點(diǎn)點(diǎn)的偏離中中線的平距距L(左為“-”,右為“+”)?當(dāng)?shù)?11)步選擇1時,無此第(3)步,只有當(dāng)?shù)?1)步選擇2時,才會出現(xiàn)此此步AJ?(4)輸入待求點(diǎn)點(diǎn)跟線路中中樁邊線與與線路方向向夾角(順時針)AJ?當(dāng)?shù)?11)步選擇1時,無此第(4)步,只有當(dāng)?shù)?1)步選擇2時,才會出現(xiàn)此此步X=(5)輸出待求點(diǎn)點(diǎn)的X坐標(biāo)Y=(6)輸出待求點(diǎn)點(diǎn)的Y坐標(biāo)此行操作完成后后返回第(2)步,要求重新新輸入計算算偏差檢查計算程程序PCJJC1.BP22.GC33.SD??(1)檢查計算選選擇：1.邊坡檢檢查(邊坡放樣)2.高程程檢查33.隧道檢查查？SelDMHH：?(2)輸入斷面類型序序號？分別輸入1或22……只要當(dāng)?shù)?1))步選擇3時才會出出現(xiàn)此步1.CJ22.QZ3.QQS?(3)儀器選擇：1..測距儀2.全站儀3.缺省情況況（即同上上一次）？？當(dāng)此步選擇2時時，下一步步從第（13）步開始始運(yùn)行當(dāng)此步選擇3時時，下一步步從第（110）步開始始運(yùn)行ZX?(4)輸入置鏡點(diǎn)的臨臨時點(diǎn)X坐標(biāo)ZX？ZY?(5)輸入置鏡點(diǎn)的臨臨時點(diǎn)Y坐標(biāo)ZY？HX?(6)輸入后視點(diǎn)的臨臨時點(diǎn)X坐標(biāo)HX？HY?(7)輸入后視點(diǎn)的臨臨時點(diǎn)Y坐標(biāo)HY？ZH?(8)輸入置鏡點(diǎn)的高高程（包括括儀器高）ZH？只有當(dāng)?shù)冢?）步步選擇1時，才會會出現(xiàn)此步步AH?(9)輸入后視角度AAH？只有當(dāng)?shù)冢?）步步選擇1時，才會會出現(xiàn)此步步AQ?(10)輸入前視角度AAQ？只有當(dāng)?shù)冢?）步步選擇1或3時，才會會出現(xiàn)此步步S?(11)輸入前視平距SS？只有當(dāng)?shù)冢?）步步選擇1或3時，才會會出現(xiàn)此步步HD?(12)輸入前視高差HHD？（高于于測站為“+”，低于測測站為“-”）只有當(dāng)?shù)冢?）步步選擇1或3時，才會會出現(xiàn)此步步X?(13)輸入測點(diǎn)的X坐坐標(biāo)？只有當(dāng)?shù)冢?）步步選擇2時，才會會出現(xiàn)此步步Y(jié)?(14)輸入測點(diǎn)的Y坐坐標(biāo)？只有當(dāng)?shù)冢?）步步選擇2時，才會會出現(xiàn)此步步Z?(15)輸入測點(diǎn)的高程程Z？只有當(dāng)?shù)冢?）步步選擇2時，才會會出現(xiàn)此步步HY?(16)輸入前視視儀高HY？只有當(dāng)?shù)冢?）步步選擇1或3時，才會會出現(xiàn)此步步BP：1.W2..T?(17)邊坡填挖挖情況選擇擇：1.邊坡挖2.邊坡填？？只有當(dāng)?shù)冢?）步步選擇1時，才會會出現(xiàn)此步步X=(18)輸出測點(diǎn)點(diǎn)的X坐標(biāo)只有當(dāng)?shù)冢?）步步選擇1或3時，才會會出現(xiàn)此步步Y(jié)=(19)輸出測點(diǎn)點(diǎn)的Y坐標(biāo)只有當(dāng)?shù)冢?）步步選擇1或3時，才會會出現(xiàn)此步步KD=(20)輸出測點(diǎn)的樁號號KDWB=(21)輸出測點(diǎn)離線路路中線平距距WBH=(22)輸出測點(diǎn)的高程HP=(23)輸出測點(diǎn)距坡腳腳(填方為坡坡頂)的平距P只有當(dāng)?shù)冢?）步步選擇1時，才會會出現(xiàn)此步步C=(24)輸出測點(diǎn)距坡腳腳(填方為坡坡頂)的高差C只有當(dāng)?shù)冢?）步步選擇1時，才會會出現(xiàn)此步步DB=(25)輸出測點(diǎn)距邊坡坡的平距DBB(“-”為還需左移,“+”為還需右移)只有當(dāng)?shù)冢?）步步選擇1時，才會會出現(xiàn)此步步DH=(26)輸出測點(diǎn)點(diǎn)距路面的的高差DH(已扣除結(jié)結(jié)構(gòu)層)“+”為低于設(shè)計,“-”為高于設(shè)設(shè)計只有當(dāng)?shù)冢?）步步選擇2時，才會會出現(xiàn)此步步Rpc(cm))=(27)輸出測點(diǎn)點(diǎn)相對于隧隧道設(shè)計輪輪廓斷面徑徑向偏差(cm)“+”為超挖,“-”為欠挖只有當(dāng)?shù)?1))步選擇3時，才會會出現(xiàn)此步步當(dāng)此(27)步(或((26)、(25)步)操作完成成后，返回回第(10)步（當(dāng)?shù)诘?3)步選擇1或3時）或第(13)步（當(dāng)?shù)?3)步選擇2時），要要求重新輸輸入計算。樁號反求計算程程序N?(1)輸入待求求點(diǎn)的X坐標(biāo)N？E?(2)輸入待求求點(diǎn)的Y坐標(biāo)E？KD=(3)輸出待求求點(diǎn)的樁號號KDWB=(4)輸出待求求點(diǎn)離中線線的平距(左偏為“-”，右偏為“+”)當(dāng)此步操作完成成后，返回回第(1)步，要求求重新輸入入計算。綜合三維坐標(biāo)計計算DK?(1)輸入待求點(diǎn)點(diǎn)的樁號DK?WL?(2)輸入待求點(diǎn)點(diǎn)偏離中線線的平距WL(左為“-”,右為“+”)?AJ?(3)輸入待求點(diǎn)跟線線路中樁邊邊線與線路路方向夾角角(順時針)AJ?KD=(4)輸出計算點(diǎn)垂直直于線路的的樁號KD當(dāng)?shù)?3)輸入的數(shù)數(shù)據(jù)不等于于90時才會出出現(xiàn)此步WB=(5)輸出計算點(diǎn)垂直直于線路的的平距WB(左“－”，右“＋”)當(dāng)?shù)?3)輸入的數(shù)數(shù)據(jù)不等于于90時才會出出現(xiàn)此步X=(6)輸出計算點(diǎn)的XX坐標(biāo)Y=(7)輸出計算點(diǎn)的YY坐標(biāo)H=(8)輸出計算點(diǎn)的路路面設(shè)計高高程(已扣除結(jié)結(jié)構(gòu)層厚度度)H此行操作完成后后返回第(1)步,要求重新新輸入計算算單個坡線路高程程計算程序序GCJCC2操作同2.，但但本程序計計算時不論論測點(diǎn)位于于何處，均均以行車道道的橫坡來來推算單個坡高程檢查查計算程序序XLGCC2操作同3.，但但本程序計計算時不論論測點(diǎn)位于于何處，均均以行車道道的橫坡來來推算路面寬度計算程程序LMKDDK?(1)輸入待求求處的樁號號K?LJZ=(2)輸出左幅幅土路肩寬寬度LJZLMZ=(3)輸出左幅幅硬路面寬寬度LMZ不含土路肩和中中央分隔帶帶的寬度ZYD=(4)輸出中央央分隔帶的的寬度ZYDLMY=(5)輸出右幅幅硬路面寬寬度LMY不含土路肩和中中央分隔帶帶的寬度LJY=(6)輸出右幅幅土路肩寬寬度LJYWLMZ=(7)輸出左幅幅路面設(shè)計計總寬度WLMZZ含土路肩肩、硬路面面和半個中中央分隔帶帶的寬度WLMY=(8)輸出右幅幅路面設(shè)計計總寬度WLMYY含土路肩肩、硬路面面和半個中中央分隔帶帶的寬度此步操作完成返返回第(1)步要求重重新輸入計計算數(shù)據(jù)庫數(shù)據(jù)輸入入查看ZZSRR特別說明：不可可輕易執(zhí)行行此程序，否否則將修改改既有的數(shù)數(shù)據(jù)庫而造造成計算錯錯誤FS:1.CKK2..SR?(1)進(jìn)行方式選選擇：1.查看數(shù)據(jù)據(jù)庫數(shù)據(jù)2.輸入數(shù)據(jù)據(jù)庫數(shù)據(jù)??ZCS?(2)輸入待輸入的擴(kuò)擴(kuò)展變量初初始序號ZCS?Z[2]=(3)輸出數(shù)據(jù)庫中的數(shù)數(shù)據(jù)此步操作完成返返回此步自動進(jìn)入入下個擴(kuò)展展變量的輸輸出顯示。當(dāng)?shù)?1)步選擇11才有此步步?Z[2]=(4)輸入擴(kuò)展展變量中需需儲存的數(shù)數(shù)據(jù)？此步操作完成返返回此步自動進(jìn)入入下個擴(kuò)展展變量的輸輸入存入。當(dāng)?shù)?1)步選擇22才有此步步三、程序設(shè)計特別說明：各程程序中@即為英文文大寫字母母O（使用@代替O以區(qū)分阿阿拉伯?dāng)?shù)字字0，總9064步）測量放樣計算主主程序1..CLFYY90→V:RadZ[25→@::”JS:11.L22.X3.DD”?@:@→Z[255]If@3:ThhenZZ[13→→@:”FY:11.ZX2.BXX”?@:@→Z[133]:IfEnndIfZ[255]3Andd@1:TheenZ[[48→@:”WZ:1..XD2.JDD”?@:@→Z[488]:IfEnndZ[26→@::”ZJ:1.XL22.LS”?@:@→Z[266]If@=2::Thenn”ZX”?E:”ZY”?D:E→Z[8]:D→Z[9]:IfEnndIf@=1::Thenn”ZK”?E:”ZL”?D:E→Z:Proog”ZB”:X+Dcoos(U+π÷2→Z[8]:Y+Dsiin(U+π÷2→Z[9]:IfEnndZ[46→@::”HS:11.XL2.LS”?@:@→Z[466]If@=2::ThennZ[111→B:”HX”?F:”HY”?B:F→Z[100]:B→Z[111]:IfEnndIf@=1::ThennZ[55→B:”HK”?F:”HL”?B:B→Z[5]:F→Z:Proog”ZB”:X+Z[[5]coos(U+π÷2→Z[100]:Y+ZZ[5]ssin(UU+π÷2→Z[111]:IfEnndZ[6→S:”AH”?S:S→Z[6]:0→QIfZ[255]=2:TheenZ[[27→Z:Z[228→@:”XQ”?Z:”XZ”?@:Z→Z[277]:@→Z[288]:Progg”ZB”:X→Z[311]:Y→Z[322]:Z[288→Z:Proog”ZB”:X→Z[333]:Y→Z[344]:IfEnndIfZ[255]=2AnddZ[227]Z[[28]::ThennPoll(Z[331]-ZZ[33]],Z[332]-ZZ[34::J+π→U:IfEEndPol(Z[110]-ZZ[8],,Z[111]-Z[[9:J→Z[4]Lbl1IfZ[255]=3::ThennZ[51→X:Z[552→Y:”XD”?X:”YD”?Y:X→Z[511]:Y→Z[52]:Gotto2::IfEnnd?IfZ[255]=1::ThennZ[112→Z:”KF”?Z:Z→Z[122]:ElseeZ[229→Z:”L(D--Q)”?Z:Z→Z[299]:IfEnnd?IfZ[133]1:TheenZ[[53→Q:”L”?Q:”AJ”?G:Q→Z[533]:IfEnndIfZ[133]1AnddZ[48]1:TheenZ[49→Z:Z[550→@:”WL”?Z:”AP”?@:Z→Z[499]:@→Z[500]:IfEnndIfZ[133]=1OrZ[488]=1::Thenn0→Z[499]:90→Z[50]:IfEnndIfZ[255]=1::ThennZ[112→Z:Progg”ZB”:ElseeZ[331]+ZZ[29]]cos((U→X:Z[332]+ZZ[29]]sin((U→Y:IfEnnd?X+Qcos((U+πG÷180→X:Y+Qsiin(U++πG÷1880→Y?”X=”:X+ZZ[49]]cos((U+π(G-Z[[50]))÷1800→X◢“Y=”:Y+ZZ[49]]sin((U+π(G-Z[[50]))÷1800→Y◢Lbl2?Pol(X-ZZ[8],,Y-Z[[9J+Z[6]ππ÷180-ZZ[4→JJ>2πJ-2π→JJ<0J+2π→→J180J÷π→→J:”A=”:J▲DMS◢”S=”:Intg(11000II+.5))/10000→I◢Lbl3”SC”?JJ≤0Goto1“DS=”:I--J◢Goto3線路坐標(biāo)計算主主程序XLLZB90→V:Rad”1.ZX2..BX”?@:@→Z[5]]0→QLbl1Cls:”K”?ZIfZ[5]]1:Theen”L”?Q:”AJ”?G:IffEndProg”ZZB”:X+Qcos((U+πG÷180→X:Y+Qsin((U+πG÷180→YCls:”X==”:X◢”Y=”:Y◢IfZ[5]]=1:Thhen1180U÷÷π→U:”AT=”:U▲DMS◢EnfifGoto1高程較差計算主主程序GCCJCZ[84→V::0→Z[644]”YG”?ELbl0Cls:”K”?Z:”DW”?D:”QS(mm)?UU”Z[D+65→→QProg”DLL”Q10Prog”LLM”?Prog”GCC”U÷10+100((C-E→C”DH(CM)==”:Intgg(10C+.5)÷10→C◢Goto0線路高程計算主主程序XLLGCZ[84→V::0→Z[644]Lbl0Cls:”K”?Z:”L”?QProg”DLL”Q10Prog”LLM”Prog”GGC”Cls:”H==”:C◢Goto0偏差檢查計算主主程序PCCJCRad:0→ZZ[64]]Z[46→Z::”1.BP2..GC3..SD”?Z:Z→Z[466]IfZ[466]=3::ThennZ[555→Z:”SelDMH::”?Z:Z→Z[555]:IfEnnd?Z[25→Z::”1.CJJ2.QQZ3.QQS”?Z:Z→Z[255]IfZ[255]=2:Thhen00→Z[111]:Gotto1::IfEnndZ[25]=3GGoto1Z[8→M:ZZ[9→C:”ZX”?M:”ZY”?C:M→Z[8]:C→Z[9]?Z[51→N::Z[522→A:”HX”?N:”HY”?A:A→Z[522]:N→Z[511]?Z[53→G::Z[544→U:”ZH”?G:”AH”?U:G→Z[533]:U→Z[544]Pol(N-MM,A-C:J-πU÷180→Z[100]:G→Z[111]Lbl1Z[25]=2GGoto2”AQ”?B:”S”??E:”HD”?D:”HY”?FJ=Z[10]]+πB÷180”X=”:Z[88]+Eccos(JJ→X◢“Y=”:Z[99]+Essin(JJ→Y◢Goto3Lbl2”N”?E:”E”??B:”Z”?D:0→F:E→X:B→YLbl3IfZ[466]=1::ThennZ[226→Z:”BP:11.W22.T”?Z:Z→Z[266]:IfEnnd?Prog“FFQ””H=”:D-F+Z[111→G◢Z[84→V??IfZ[466]=1::ThennProog“FY”:Gotto1::IfEnnd?IfZ[466]=2::ThennProog”LM”:Proog”GC”:”DH=”:C-GG→X◢Goto1::IfEnnd?Prog“LLM”?Z[90]+220Z[883→U?G-Z[U+22→G?Z[U→H?Z[U+1]==1TH-Z[[20]--Z[222]÷2--Z[211→H?Z[U+1]==2TH+Z[[24]++Z[222]÷2++Z[233→H?Q-H→Z?IfZ[U++3]=00:Theen0→Q:ElseeH→Q:IfEEnd?Prog“GGC”?G-C-Z[11→G?100Z→H::100GG→G?Prog“LLK”?“RPC(CM))=”:Intgg(10MM+.5))÷10→→M◢Goto1線路樁號反求主主程序FQQZHRadLbl1?”X”?E:”Y”??B:E→X:B→Y?Prog”FQQ”?Goto1綜合三維計算主主程序ZHHJSRad:0→ZZ[64]]Lbl0?90→V”DK”?E:”WL”?D:”AJ”?FE→Z:D→QProg“ZZB”:X+Qcos((U+πF÷1800→X:Y+Qsiin(U++πF÷1880→YX→Z[49]:YY→Z[500]:Z→KF190Prog”FQ”Z[84→VQ10Prog”LLM”Prog“GGC”“X=”:Z[449◢“Y=”:Z[550◢“H=”:C◢Goto0高程較差計算主主程序GCCJC2Z[84→V::1→Z[644]”YG”?ELbl0”K”?Z:”DW”?D:”QS(mm)”?UZ[D+65→→QProg”DLL”Prog”LLM”?Prog”GGC”U÷10+100((C-E→C”DH(CM)==”:Intgg(10C+.5)÷10→C◢Goto0線路高程計算主主程序XLLGC2Z[84→V::1→Z[644]Lbl0”K”?Z:”L”??QProg”DLL”Prog”LLM”Prog”GGC””H=”:C◢Goto0路面寬度計算主主程序LMKDD0→Z[64]Lbl0”K”?ZProg”DLL”Prog”LLM”“LJZ=”:ZZ[20◢◢“LMZ=”:ZZ[21◢◢“ZYD=”:ZZ[22◢◢“LMY=”:ZZ[23◢◢“LJY=”:ZZ[24◢◢“WLMZ=”::Z[200]+Z[[22]÷÷2+Z[[21→A◢“WLMY=”::Z[244]+Z[[23]++Z[222]÷2→→B◢Goto0線路坐標(biāo)計算子子程序ZBBZ[56→WW<9393→WWW>92+Z[776]933→WProg”DLL”Lbl0IfW>922+Z[776]:TThen92+ZZ[76→→W:Gotto1::IfEnndIfW<933:Theen933→W:Gotto1::IfEnndIfK>Z[[W+4++5Z[776]]:TheenW++1→W:Gotto0:IfEnndIfK≤Z[[W+3++5Z[776]]:TheenW-1→W:Gotto0:IfEnndLbl1V=W-1Gooto22W-1→VProg”YYS”Z[V]-Reec(T,,A→Z[14]Z[V+2+ZZ[76]]-JJ→Z[155]Lbl2V+1→Z[556]K-Z[V+44+5Z[[76→SA→BIfS≤0::ThennZ[114]+SScos((B→X:Z[155]+Sssin(B→Y:B→U:Gotto6::IfEnndZ[14→X::Z[155→YIfS≤L::Thenn1→H:Gotto3::IfEnndS≤Z[7]-MGGoto4A-NC+π→→BIfS≤Z[[7]:TThenZ[7]]-S→S:Z[V]]-Recc(P,BB→X:Z[V++2+Z[[76]]-JJ→Y:-1→H:M→L:Gotto3::Z[V++3+3ZZ[76→L:IfEEndZ[V]-Reec(P++S-Z[[7],BB→X:Z[V++2+Z[[76]]-JJ→YB-π→U:Goto66Lbl3NHSSS÷66÷R÷L-NHSS^(7)÷3366÷(RLL)^(3→IS-S^(5))÷(40(RRL)2+S^(9)÷34556÷(RRL)^((4→JB+π(H-1)÷2--NHSSS÷(2RL→U:Gotto5Lbl4(2S-L)÷RR÷2→UNR(1-coos(U))+NZZ[18→→I:Rsinn(U)+Z[119→JB-N(S-LL÷2)÷R→ULbl5Pol(I,J::J+B-π÷2→JX+Rec(II,J→XY+J→YLbl6U<0U+2ππ→U曲線要素計算子子程序YSSZ[V+3+22Z[76→RZ[V+3+33Z[76→L:Z[V++3+4ZZ[76→MPol(Z[VV+1]--Z[V]],Z[VV+3+ZZ[76]]-ZZ[V+22+Z[776J→SPol(Z[VV]-Z[[V-1]],Z[VV+2+ZZ[76]]-ZZ[V+11+Z[776J-S→C:JJ→Atan(C÷÷2→C:tan-11(C→CAbs(C)÷÷C→N:2Abss(C→CL÷2-LLL÷2240÷R÷R→Z[199]M÷2-MMM÷2240÷R÷R→Z[177]LL÷24÷RR→Z[188]MM÷24÷RR→Z[166](Z[16]-ZZ[18]])÷2÷tan(C÷2→P(Z[18]+ZZ[16]]+2R))tan((C÷2)÷2→Z[7]P+Z[7]++Z[199→T:Z[77]-P++Z[177→PRC+(L+MM)÷2→Z[7]線路高程計算子子程序GCCZ[57→WW<Z[84]++22+Z[884→WW>Z[84]++Z[777]+122+Z[884→WLbl0IfW>Z[[84]++Z[777]+1::Thenn1+Z[884]+ZZ[77→→W:Gotto1::IfEnndIfW<Z[[84]++2:Thhen22+Z[884→W:Gotto1::IfEnndIfK>Z[[W]-ZZ[W+33+2Z[[77]]]:TheenW++1→W:Gotto0:IfEnndIfK≤Z[[W-1]-ZZ[W+22+2Z[[77]]]:TheenW-1→W:Gotto0:IfEnndLbl1V=W-1Gooto22W-1→VZ[V+2+ZZ[77→J(J-Z[V+11+Z[777]])÷(Z[V]]-Z[VV-1→R(Z[V+3+ZZ[77]]-JJ)÷(Z[V++1]-ZZ[V→SZ[V+3+22Z[77→TLbl2V+1→Z[557]K-Z[V→LLIfL≤-TT:TheenJ++RL→H:Gotto3::IfEnndIfL≥T::ThennJ+SSL→H:Gotto3::IfEnnd2T÷(S-RR→AL+A(R+SS)÷2→XJ+XX÷2÷÷A-ARRS÷2→HLbl3H-Z[1→HHIfQ=0AndZ[644]=0::Thenn0→C:Gotto7:IfEnndAbs(Q→AAIfA≤Z[[22]÷÷2anndZ[[64]==0:Thhen00→C:Gotto7:IfEnnd-1→IQ>01→IZ[22]÷22+Z[222+I→Z[2]?Z[58→YY<Z[85]]+1T1+Z[885→YY>Z[85]]+Z[778]-11T1+Z[885→YLbl5IfY>Z[[85]++Z[788]-1::ThennZ[885]-11+Z[778→Y:Gotto6::IfEnndIfY<Z[[85]++1:Thhen11+Z[855→Y:Gotto6::IfEnndIfK>Z[[Y]:TThenY+1→Y:Gotto5::IfEnndIfK≤Z[[Y-1]:TheenY-1→Y:Gotto5::IfEnndLbl6Y→Z[58]Z[Y-1+ZZ[78→@:Z[Y++Z[78→X:I@→@:IX→XZ[Y-1+ZZ[78]]=02→@Z[Y+Z[778]]=02→X(Z[Y]-K))÷(Z[Y]]-Z[YY-1→N@+(X-@)(1--3NN++2NNNN→M（當(dāng)超高高過渡段按按直線性計計算時，此此行換為X+N(@-X→M）IfZ[644]=1OrA≤Z[2]]:Theen(Z[222]÷2--A)M÷100→C:Gotto7:IfEnndZ[Z[86]]-1]((Z[2]]-A)-M((Z[2]]-Z[222]÷22)÷100→CM>100Z[[Z[86]-11](Z[222]÷2--A)M÷÷100→CLbl7H+C→C反求線路樁號子子程序FQQ92→VZ[91→Z[[12]:Z[93+Z[76→Z[133]?Lbl1IfV>911+Z[776]:Thhen991+Z[[76→V:Gotto2:IfEnndProg”YYS”Z[V]-Reec(T,,A→Z[4]:Z[VV+2+ZZ[76]]-JJ→Z[5]Z[V]+Reec(P,,S→Z[6]:J+Z[VV+2+ZZ[76→Z[3]IfZ[6]]=XAAndZZ[3]==Y:ThhenZZ[7]++Z[V++4+5ZZ[76→K:0→Q:Gotto6::IfEnndPol(Z[44]-X,,Z[5]-Y:JJ+π-A→KPol(Z[112]-XX,Z[113]-YY:J+π-A→Q?cos(K)≥≥0Gotoo7cos(Q)<<0Gotto7Isin(Q→→I?Abs(I)>>Z[755]Gotto7Goto2Lbl7?K→QPol(Z[66]-X,,Z[3]-Y::J+π-S→Kcos(K)≥≥0Gotoo8cos(Q)<<0Gotto8Z[4→Q:ZZ[5→K:A-π÷2→GProg”ZZH”Pol(H-NN(R+ZZ[18]]),W--Z[199N(I-R→IIAbs(I)>>Z[755]Gotto8Goto2Lbl8?Z[6→Z[112]:Z[33→Z[133]?V+1→VGoto1Lbl2Z[4→Q:ZZ[5→K:A-π÷2→GProg”ZZH”Pol(-H,,-W:JJ+π÷2→KIfcos((K)<0:ThhenWW+Z[VV+4+55Z[76→K:-H→Q:Gotto6::IfEnndNLL÷6÷RR→G:L-LLLL÷40÷R÷R→QPol(G-HH,Q-WW:J+π÷2+NLL÷2÷R→KCos(K)<<0Gotto32Rsin(CC÷2-L÷R÷4-M÷R÷4→IG+Rec(I,,π÷2-N((C÷2+L÷R÷4-M÷R÷4→IQ+J→KPol(I-HH,K-W:J+π÷2+N((C-M÷÷2÷R→KCos(K)<<0Gotto4π÷2-NC→GPol(Recc(P,GG)-H,,T+J--W:J+π-G→KCos(K)<<0Gotto5Z[6→Q:ZZ[3→K:π÷2+S→GProg”ZZH”Z[7]-W++Z[V++4+5ZZ[76→K:H→QGoto6Lbl3N→K:L→UProg”HHQ”@+Z[V+44+5Z[[76→KGoto6Lbl4Pol(H-NN(R+ZZ[18]]),W--Z[199L÷2+Z[V+44+5Z[[76]]+RR(π÷2+N(π÷2-J→KN(I-R→QQGoto6Lbl5Z[6→Q:ZZ[3→K:π÷2+S→GProg”ZZH”-N→K:M→→UProg”HHQ”Z[7]-@++Z[V++4+5ZZ[76→K:-Q→QLbl61000→MK→ZZ>3345..52Z+4.448→Z(短鏈)Z>114022.6733Z-2.6673→Z(長鏈)(上述兩行為斷鏈鏈設(shè)置，根根據(jù)線路情情況模仿這這兩行進(jìn)行斷斷鏈的設(shè)置置，如果沒沒有斷鏈請請刪除這兩兩行)”KD=”:Inntg(MZ+.5)÷M→Z◢”WB=”:Inntg((MQ+.5)÷M→Q◢坐標(biāo)轉(zhuǎn)換計算子子程序ZHHX-Q→H:YY-K→WPol(H,WWJ-G→GIcos(G→→H:Isiin(G→W反求緩曲長度子子程序HQQW→@@>UU÷2→→@0→CLbl0K@@@÷6÷÷U÷R--K@^((7)÷3366÷(URR)^(3→S@-@^5÷((40RRRUU)++@^(9)÷34556÷(RRU)^((4→Q-K@@÷(22RU→M(W-Q)coss(M)-(H--S)siin(M→AIfA≥0::ThennA>UU-@(U-@))÷2→AElseA<<-@-@@÷2→A:IfEEndC+1→C@+A→@Abs(A)<<1×10-5OrC>1000Gotto1Goto0Lbl1Ifsin((M)=0:Theen(S-H))cos((M→Q:Elsee(Q-W))÷sinn(M→Q:IfEnnd邊樁放樣計算子子程序FYYQ→UProg”LMM”?-Z[20]-ZZ[22]]÷2-ZZ[21→→Q:-1→Z[3]IfU>0::ThennZ[224]+ZZ[22]]÷2+ZZ[23→Q:1→Z[3]:IfEnndProg”GGC”Abs(Q→ZZ[2]?C+Z[1→CC?G-C→XProg”BPP”?Z[26]111TGotoo3?M<100Z[[Z[866]-1]]T100ZZ[Z[886]-11→M?1→I:Z[12]]-MZ[[13]÷÷100++Z[277]Z[221→H?Z[2]+Z[[13]++Z[200]+Z[[27→W?Lbl1?H+Z[2I++26→H?W+Z[2I++26]ZZ[2I++27→W?X≤HTGoto2??I+1→I?IfI>9::Thenn9→I:Gotto2::IfEnnd?H-Z[22]]Z[233→H:W+ZZ[22→→W?Goto1??Lbl2?X-H→A?W+AZ[2II+27→→W?A+Z[2I++26→C?W-CZ[2II+27]]-Abss(U→P?W-Abs(UU→AGoto6??Lbl3?1→I:0→H:Z[2→WW?Lbl4?H-Z[3I++24→H?W+Z[3I++24]ZZ[3I++25→W?X≥HTGoto5??I+1→I?IfI>3::Thenn3→I:Gotto5::IfEnnd?H-Z[12]]Z[3II+23→→H:W+ZZ[3I++23→W?Goto4??Lbl5?X-H→A?W-AZ[3II+25→→W?A-Z[3I++24→C?W+CZ[3II+25]]-Abss(U→P?W-Abs(UU→A?Lbl6AZ[3→APZ[3→P??“P=”:P◢“C=”:C◢“DB=”:A◢◢路面寬度計算子子程序LMMZ[59→Y??Y<Z[86]]+1T1+Z[886→Y?Y>Z[86]]+Z[779]-11T1+Z[886→Y?Lbl0?IfY>Z[[86]++Z[799]-1::ThennZ[779]-11+Z[866→Y:Gotto1::IfEnnd?IfY<Z[[86]++1:Thhen11+Z[886→Y:Gotto1::IfEnnd?IfK>Z[[Y]:TThenY+1→Y:Gotoo0:IfEnnd?IfK≤Z[[Y-1]]:TheenY--1→Y:Gotto0::IfEnnd?Lbl1?Y→Z[59]?(Z[Y]-K))÷(Z[Y]]-Z[YY-1→N?Z[Y+3Z[[79]]]+