CASIO程序(線路計(jì)算5.0版)

《CASIOfx-4800P線路計(jì)算5.0版》程序設(shè)計(jì)作者：徐光輝2000年6月12日PAGE14PAGE8一、擴(kuò)展變量設(shè)置說(shuō)明統(tǒng)計(jì)各種要素點(diǎn)的數(shù)目各要素點(diǎn)數(shù)目表名稱平曲線交點(diǎn)豎曲線變坡點(diǎn)橫坡設(shè)計(jì)起超點(diǎn)線路導(dǎo)線點(diǎn)數(shù)目（個(gè)）abcd要素點(diǎn)數(shù)目為0時(shí)其取值-1-5/300備注不含起終點(diǎn)不含起終點(diǎn)含起終點(diǎn)設(shè)置擴(kuò)展變量總數(shù)目為：36+6a+3b+2c+2d個(gè)設(shè)置各擴(kuò)展變量數(shù)據(jù)固定變量及自由變量Z[1]～Z[19]Z[1]:結(jié)構(gòu)層厚度Z[2]:半幅路基硬路面寬度(包含分隔帶)Z[3]～Z[19]:程序中使用的自由變量平曲線要素?cái)U(kuò)展變量Z[20]～Z[25+6a]各平曲線要素于擴(kuò)展變量中的位置表名稱起點(diǎn)第1個(gè)交點(diǎn)第2個(gè)交點(diǎn)…第i個(gè)交點(diǎn)…1個(gè)交點(diǎn)第a個(gè)交點(diǎn)終點(diǎn)交點(diǎn)X坐標(biāo)Z[20]Z[21]Z[22]…Z[20+i]…Z[19+a]Z[20+a]Z[21+a]交點(diǎn)Y坐標(biāo)Z[22+a]Z[23+a]Z[24+a]…Z[22+a+i]…Z[21+2a]Z[22+2a]Z[23+2a]圓曲線半徑Z[24+2a]Z[25+2a]…Z[23+2a+i]…Z[22+3a]Z[23+3a]第一緩曲長(zhǎng)度Z[24+3a]Z[25+3a]…Z[23+3a+i]…Z[22+4a]Z[23+4a]第二緩曲長(zhǎng)度Z[24+4a]Z[25+4a]…Z[23+4a+i]…Z[22+5a]Z[23+5a]曲線起點(diǎn)樁號(hào)Z[24+5a](線路起點(diǎn))Z[25+5a]Z[26+5a]…Z[24+5a+i]…Z[23+6a]Z[24+6a]Z[25+6a](線路終點(diǎn))豎曲線要素?cái)U(kuò)展變量Z[26+6a]～Z[30+6a+3b]各豎曲線要素于擴(kuò)展變量中的位置表名稱起點(diǎn)第1個(gè)變坡點(diǎn)第2個(gè)變坡點(diǎn)…第i個(gè)變坡點(diǎn)…1個(gè)變坡點(diǎn)第b個(gè)變坡點(diǎn)終點(diǎn)變坡點(diǎn)樁號(hào)Z[26+6a]Z[27+6a]Z[28+6a]…Z[26+6a+i]…Z[25+6a+i]Z[26+6a+b]Z[27+6a+b]變坡點(diǎn)高程Z[28+6a+b]Z[29+6a+b]Z[30+6a+b]…Z[28+6a+b+i]…Z[27+6a+2b]Z[28+6a+2b]Z[29+6a+2b]豎曲線切線長(zhǎng)Z[30+6a+2b]Z[31+6a+2b]…Z[29+6a+2b+i]…Z[28+6a+3b]Z[29+6a+3b]Z[30+6a+3b]此變量為空注：擴(kuò)展變量Z[30+6a+3b]設(shè)置為空值（即為0），以便其在程序中使用。超高設(shè)計(jì)擴(kuò)展變量Z[31+6a+3b]～Z[30+6a+3b+2c]各段超高設(shè)計(jì)數(shù)值于擴(kuò)展變量中的位置表名稱第1個(gè)起超點(diǎn)第2個(gè)起超點(diǎn)…第i個(gè)起超點(diǎn)…1個(gè)起超點(diǎn)第c個(gè)起超點(diǎn)起超點(diǎn)樁號(hào)Z[31+6a+3b]Z[32+6a+3b]…Z[30+6a+3b+i]…Z[29+6a+3b+c]Z[30+6a+3b+c]設(shè)計(jì)橫坡%Z[31+6a+3b+c]Z[32+6a+3b+c]…Z[30+6a+3b+c+i]…Z[29+6a+3b+2c]Z[30+6a+3b+2c]說(shuō)明：存入設(shè)計(jì)橫坡數(shù)值時(shí)，當(dāng)路基左右幅的橫坡為互補(bǔ)時(shí)，只要把左幅的設(shè)計(jì)橫坡存入擴(kuò)展變量即可，當(dāng)左右幅的設(shè)計(jì)橫坡為相同時(shí)，則在對(duì)應(yīng)擴(kuò)展變量中存入橫坡為0。導(dǎo)線點(diǎn)擴(kuò)展變量Z[31+6a+3b+2c]～Z[30+6a+3b+2c+2d]各導(dǎo)線點(diǎn)坐標(biāo)值于擴(kuò)展變量中的位置表名稱第1個(gè)導(dǎo)線點(diǎn)第2個(gè)導(dǎo)線點(diǎn)…第i個(gè)導(dǎo)線點(diǎn)…1個(gè)導(dǎo)線點(diǎn)第d個(gè)導(dǎo)線點(diǎn)X坐標(biāo)Z[31+6a+3b+2c]Z[32+6a+3b+2c]…Z[30+6a+3b+2c+i]…Z[29+6a+3b+2c+d]Z[30+6a+3b+2c+d]Y坐標(biāo)Z[31+6a+3b+2c+d]Z[32+6a+3b+2c+d]…Z[30+6a+3b+2c+d+i]…Z[29+6a+3b+2c+2d]Z[30+6a+3b+2c+2d]路基橫斷面點(diǎn)擴(kuò)展變量Z[31+6a+3b+2c+2d]～Z[36+6a+3b+2c+2d]Z[31+6a+3b+2c+2d]=-11.5（路基橫坡1#點(diǎn)）Z[32+6a+3b+2c+2d]=-6.0（路基橫坡2#點(diǎn)）Z[33+6a+3b+2c+2d]=-1.0（路基橫坡3#點(diǎn)）Z[34+6a+3b+2c+2d]=1.0（路基橫坡4#點(diǎn)）Z[35+6a+3b+2c+2d]=6.0（路基橫坡5#點(diǎn)）Z[36+6a+3b+2c+2d]=11.5（路基橫坡6#點(diǎn)）上述橫斷面點(diǎn)的擴(kuò)展變量里數(shù)據(jù)設(shè)置可根據(jù)需要進(jìn)行修改。3.擴(kuò)展變量設(shè)置說(shuō)明當(dāng)線路改變或數(shù)據(jù)更改時(shí)，應(yīng)首先根據(jù)各要素點(diǎn)的數(shù)目設(shè)置擴(kuò)展變量總數(shù)目（若要素點(diǎn)數(shù)目也發(fā)生變化），再按上述各擴(kuò)展變量位置表中的約定存入對(duì)應(yīng)變量中的數(shù)據(jù)，同時(shí)應(yīng)根據(jù)各程序中方框內(nèi)的表達(dá)式所計(jì)算的結(jié)果，把方框內(nèi)的表達(dá)式修改為實(shí)際數(shù)據(jù)。當(dāng)進(jìn)行測(cè)量放樣計(jì)算時(shí)，若遇到臨時(shí)點(diǎn)，可把其存入導(dǎo)線點(diǎn)擴(kuò)展變量中空缺的位置上，然后把它當(dāng)作導(dǎo)線點(diǎn)使用。存入各要素點(diǎn)的樁號(hào)時(shí),均為扣除斷鏈后的實(shí)際樁號(hào)，而不是設(shè)計(jì)圖上的設(shè)計(jì)樁號(hào)。二、程序操作說(shuō)明特別說(shuō)明：各程序均要求在RAD模式下運(yùn)行測(cè)量放樣計(jì)算程序CLFYFY：1.ZX2.BX?(1)放樣選擇:1.中線放樣2.邊線放樣?ZJ：1.DX2.XL?(2)置鏡點(diǎn)選擇:1.置鏡點(diǎn)為導(dǎo)線點(diǎn)2.置鏡點(diǎn)為線路點(diǎn)(已知樁號(hào)和偏距的中樁或邊樁)?DZ?(3)置鏡點(diǎn)輸入?當(dāng)?shù)?2)步選擇1時(shí),此輸入置鏡點(diǎn)的導(dǎo)線點(diǎn)點(diǎn)號(hào)當(dāng)?shù)?2)步選擇2時(shí),此輸入置鏡點(diǎn)的線路邊樁點(diǎn)樁號(hào)LZ?(4)置鏡點(diǎn)的邊樁點(diǎn)距線路中線偏距輸入(左為“-”,右為“+”)?當(dāng)置鏡點(diǎn)為線路中樁時(shí),輸其為0當(dāng)?shù)?2)步選擇1時(shí),無(wú)此第(4)步,只有當(dāng)?shù)?2)選擇2時(shí),才會(huì)出現(xiàn)此步HS：1.DX2.XL?(5)后視點(diǎn)選擇:1.后視點(diǎn)為導(dǎo)線點(diǎn)2.后視點(diǎn)為線路點(diǎn)(已知樁號(hào)和偏距的中樁或邊樁)?DH?(6)后視點(diǎn)輸入?當(dāng)?shù)?5)步選擇1時(shí),此輸入后視點(diǎn)的導(dǎo)線點(diǎn)點(diǎn)號(hào)當(dāng)?shù)?5)步選擇2時(shí),此輸入后視點(diǎn)的線路邊樁點(diǎn)樁號(hào)LH?(7)后視點(diǎn)的邊樁點(diǎn)距線路中線偏距輸入(左為“-”,右為“+”)?當(dāng)后視點(diǎn)為線路中樁時(shí),輸其為0當(dāng)?shù)?5)步選擇1時(shí),無(wú)此第(7)步,只有當(dāng)?shù)?5)選擇2時(shí),才會(huì)出現(xiàn)此步AH?(8)輸入后視角度KF?(9)輸入放樣點(diǎn)的樁號(hào)?L?(10)輸入放樣點(diǎn)偏離中線的平距(左為“-”,右為“+”)?當(dāng)?shù)?1)步選擇1時(shí),無(wú)此第(10)步,只有當(dāng)?shù)?1)選擇2時(shí),才會(huì)出現(xiàn)此步AJ?(11)輸入放樣點(diǎn)跟線路中樁連線與線路方向的夾角(順時(shí)針)當(dāng)?shù)?1)步選擇1時(shí),無(wú)此第(11)步,只有當(dāng)?shù)?1)選擇2時(shí),才會(huì)出現(xiàn)此步S=(12)輸出放樣距離A=(13)輸出放樣角度AT=(14)輸出放樣樁號(hào)的線路方向與放樣視線的夾角此行操作完成后返回第(9)步,要求重新輸入計(jì)算高程較差計(jì)算程序GCJCYG?(1)輸入水準(zhǔn)儀的視線高程?K?(2)輸入被測(cè)點(diǎn)的樁號(hào)?DW?(3)輸入被測(cè)點(diǎn)的點(diǎn)位號(hào)1為左偏11.5m,2為左偏6m,3為左偏1m,4為右偏1m,5為右偏6m,6為右偏11.5mQS?(4)輸入前視讀數(shù)?DH=(5)輸出設(shè)計(jì)高程與實(shí)測(cè)高程的較差(高于設(shè)計(jì)為“-”,反之為“+”)此行操作完成后返回第(2)步,要求重新輸入計(jì)算線路高程計(jì)算程序XLGCK?(1)輸入待求點(diǎn)的樁號(hào)?L?(2)輸入待求點(diǎn)偏離中線的平距(左為“-”,右為“+”)H=(3)輸出待求點(diǎn)的設(shè)計(jì)高程(已扣除結(jié)構(gòu)層厚度)此行操作完成后返回第(1)步,要求重新輸入計(jì)算線路坐標(biāo)計(jì)算程序XLZB1.ZX2.BX?(1)選擇:1.中線坐標(biāo)計(jì)算2.邊線坐標(biāo)計(jì)算？K?(2)輸入待求點(diǎn)的樁號(hào)L?(3)輸入待求點(diǎn)的偏離中線的平距(左為“-”,右為“+”)當(dāng)?shù)?1)步選擇1時(shí),無(wú)此第(3)步,只有當(dāng)?shù)?1)步選擇2時(shí),才會(huì)出現(xiàn)此步AJ?(4)輸入待求點(diǎn)跟線路中樁邊線與線路方向夾角(順時(shí)針)?當(dāng)?shù)?1)步選擇1時(shí),無(wú)此第(4)步,只有當(dāng)?shù)?1)步選擇2時(shí),才會(huì)出現(xiàn)此步X=(5)輸出待求點(diǎn)的X坐標(biāo)Y=(6)輸出待求點(diǎn)的Y坐標(biāo)此行操作完成后返回第(2)步,要求重新輸入計(jì)算反求線路樁號(hào)程序XD?(1)輸入已知點(diǎn)的X坐標(biāo)？YD?(2)輸入已知點(diǎn)的Y坐標(biāo)？KD=(3)輸出已知點(diǎn)相對(duì)于線路的樁號(hào)WB=(4)輸出已知點(diǎn)相對(duì)于線路的偏離平距（左偏為“-”，右偏為“+”）此行操作完成后返回第(1)步，要求重新輸入計(jì)算邊樁放樣程序(附加)BZFYK?(1)輸入放樣點(diǎn)的樁號(hào)？B?(2)輸入放樣點(diǎn)偏離中樁的平距(左為“-”,右為“+”)?H?(3)輸入放樣點(diǎn)的高程？M?(4)輸入邊坡設(shè)計(jì)坡度(從離路肩最近處輸起)?程序根據(jù)放樣點(diǎn)的高程自動(dòng)計(jì)算出所需的臺(tái)階數(shù)目，重復(fù)此第(4)依此輸入完各臺(tái)階邊坡的設(shè)計(jì)坡度后，再自動(dòng)要求加輸一個(gè)臺(tái)階，以備臺(tái)階數(shù)目不夠高程之所用DB=(5)輸出放樣點(diǎn)應(yīng)橫向移動(dòng)的平距(“-”為左移,“+”為右移)此行操作完成后返回第(2)步，要求重新輸入計(jì)算三、程序設(shè)計(jì)1．測(cè)量放樣計(jì)算主程序CLFY(571步)V=19:Fixm{O}:O”FY:1.ZX2.BX”Z[13]=O{OE}:O”ZJ:1.DX2.XL”E”DZ”O(jiān)=1Z[8]=Z[E+6a+3b+2c+30]:Z[9]=Z[E+6a+3b+2c+d+30]◣O1{D}:D”LZ”:Z=E:Prog”ZB”:Z[8]=X+Rec(D,U+π÷2):Z[9]=Y+J◣{OF}:O”HS:1.DX2.XL”F”DH”O(jiān)=1Z[10]=Z[F+6a+3b+2c+30]:Z[11]=Z[F+6a+3b+2c+d+30]◣O1B=Z[5]:{B}:B”LH”:Z[5]=B:Z=F:Prog”ZB”:Z[10]=X+Rec(Z[5],U+π÷2):Z[11]=Y+J◣S=Z[6]:{S}:S”AH”:Z[6]=S:Q=0Lbl1Z=Z[12]{Z}:Z”KF”:Z[12]=ZZ[13]1{QG}:Q”L”:G”AJ”◣Prog”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+JPol(Z[10]-Z[8],Z[11]-Z[9]):Z[4]=JPol(X-Z[8],Y-Z[9]):I”S=”◢I=J-Z[4]+Z[6]π÷180I>2πI=I-2π◣I<0I=I+2π◣Z[3]=U+π-JZ[3]>2πZ[3]=Z[3]-2π◣I=180I÷π:Z[3]=180Z[3]÷πI”A=”◢Z[3]”AT=”◢Goto12.線路坐標(biāo)計(jì)算主程序XLZB(143步)V=19:Fixm{O}:O”1.ZX2.BX”Q=0Lbl1{Z}:Z”K”O(jiān)1{QG}:Q”L”:G”AJ”◣Prog”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+JX”X=”◢Y”Y=”◢O=1U=180U÷π:U”AT=”◢◣Goto13.線路坐標(biāo)計(jì)算子程序ZB(517或492步)W=21K=ZZ>23540K=K-0.03313◣(注：當(dāng)斷鏈更改時(shí)，修改方框中的數(shù)據(jù)，若還有斷鏈則應(yīng)模仿此行再增加行，長(zhǎng)鏈為“-”，短鏈為“+”)Lbl1K>Z[W+5a+4]W=W+1:Goto1◣W=21W=22◣V=W-1Goto2◣V=W-1Prog”YS”Z[14]=Z[V]-Rec(T,A)Z[15]=Z[V+a+2]-JLbl2S=K-Z[V+5a+4]B=AS≤0X=Z[14]+ScosB:Y=Z[15]+SsinB:U=B:Goto6◣X=Z[14]:Y=Z[15]S≤LH=1:Goto3◣S≤Z[7]-MGoto4◣B=A-NC+πS≤Z[7]S=Z[7]-S:X=Z[V]-Rec(P,B):Y=Z[V+a+2]-J:H=-1:L=M:Goto3:L=Z[V+3a+3]◣X=Z[V]-Rec(P+S-Z[7],B):Y=Z[V+a+2]-JU=B-π:Goto6Lbl3I=NHSSS÷6÷R÷LJ=S-S^5÷(40(RL)2)U=B-NHSS÷(2RL)+π(H-1)÷2:Goto5Lbl4U=(2S-L)÷R÷2I=NR(1-cosU)+NZ[18]:J=RsinU+Z[19]U=B-N(S-L÷2)÷RLbl5Pol(I,J):J=J+B-π÷2X=Rec(I,J)+XY=Y+JLbl6U<0U=U+2π◣4.曲線要素計(jì)算子程序YS(315步)R=Z[V+2a+3]L=Z[V+3a+3]:M=Z[V+4a+3]Pol(Z[V+1]-Z[V],Z[V+a+3]-Z[V+a+2])S=JPol(Z[V]-Z[V-1],Z[V+a+2]-Z[V+a+1])C=J-S:A=JC=tanC:C=tan-1CN=AbsC÷C:C=AbsCZ[19]=L÷2-LLL÷240÷R÷RZ[17]=M÷2-MMM÷240÷R÷RZ[18]=LL÷24÷RZ[16]=MM÷24÷RP=(Z[16]-Z[18])÷2÷tan(C÷2)Z[7]=(Z[18]+Z[16]+2R)tan(C÷2)÷2T=P+Z[7]+Z[19]:P=Z[7]-P+Z[17]Z[7]=RC+(L+M)÷25.高程較差計(jì)算主程序GCJC(113步)V=6a+25:Fixm{O}:O”YG”Lbl0{ZGU}:Z”K”:G”DW”:U”QS”Q=Z[G+6a+3b+2c+2d+30]Prog”GC”C=C-O+UC=Intg(1000C+0.5)÷1000C”DH=”◢Goto06.線路高程計(jì)算主程序XLGC(56步)V=6a+25:FixmLbl0{ZQ}:Z”K”:Q”L”P(pán)rog”GC”C”H=”◢Goto07.線路高程計(jì)算子程序GC(521或496步)W=6a+27K=ZZ>23540K=K-0.03313◣(注：當(dāng)斷鏈更改時(shí)，修改方框中的數(shù)據(jù)，若還有斷鏈則應(yīng)模仿此行再增加行，長(zhǎng)鏈為“-”，短鏈為“+”)Lbl1P=Z[W+2b+3]K>Z[W]-PW=W+1:Goto1◣W=6a+27W=6a+28◣V=W-1Goto2◣V=W-1J=Z[V+b+2]R=(J-Z[V+b+1])÷(Z[V]-Z[V-1])S=(Z[V+b+3]-J)÷(Z[V+1]-Z[V])T=Z[V+2b+3]Lbl2L=K-Z[V]L≤-TH=J+RL:Goto3◣L≥TH=J+SL:Goto3◣B=2T÷(S-R)X=L+B(R+S)÷2H=J+XX÷2÷B-BRS÷2Lbl3H=H-Z[1]D=AbsQD≤1C=0:Goto6◣I=-1Q>0I=1◣Lbl4Y=6a+3b+31Lbl5K≥Z[Y]Y=Y+1:Goto5◣E=Z[Y+c-1]:F=Z[Y+c]:E=IE:F=IFZ[Y+c-1]=0E=2◣Z[Y+c]=0F=2◣N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])M=(F-E)(1-3NN+2NNN)+ED≤Z[2]C=(1-D)M÷100:Goto6◣C=0.03(Z[2]-D)-M(Z[2]-1)÷100M>3C=(1-D)M÷100◣Lbl6C=H+C8.反求線路樁號(hào)主程序FQZH(807或782步)FixmLbl0V=21{XY}:X”XD”:Y”YD”Lbl1V>20+aV=20+a:Goto2◣Prog”YS”Z[4]=Z[V]-Rec(T,A):Z[5]=Z[V+ 2+a]-JZ[6]=Z[V]+Rec(P,S):Z[3]=Z[V+ 2+a]+JZ[6]=XZ[3]=YK=Z[V+4+5a]+Z[7]:Q=0:Goto6◣◣Pol(Z[6]-X,Z[3]-Y):D=J+π-SB=Abs(Isin(D-NC÷2))cosD<0B<2000Goto2◣◣V=V+1Goto1Lbl2B=Z[4]:D=Z[5]:G=A-π÷2Prog”ZH”P(pán)ol(-H,-W):D=J+π÷2cosD<0K=Z[V+4+5a]+W:Q=-H:Goto6◣F=NLL÷6÷R:Q=L-LLL÷40÷R÷RPol(F-H,Q-W):D=J+π÷2+NL÷2÷RcosD<0Goto3◣I=2Rsin(C÷2-L÷R÷4-M÷R÷4)B=F+Rec(I,π÷2-N(C÷2+L÷R÷4-M÷R÷4))D=Q+JPol(B-H,D-W):D=J+π÷2+N(C-M÷2÷R)cosD<0Goto4◣G=π÷2-NCPol(Rec(P,G)-H,T+J-W):D=J+π-GcosD<0Goto5◣B=Z[6]:D=Z[3]:G=π÷2+SProg”ZH”K=Z[V+4+5a]+Z[7]-W:Q=HGoto6Lbl3Z=N:U=LProg”HQ”K=Z[V+4+5a]+OGoto6Lbl4Pol(H-N(R+Z[18]),W-Z[19])K=Z[V+4+5a]+R(π÷2+N(π÷2-J))+L÷2Q=N(I-R)Goto6Lbl5Z=-N:U=MB=Z[6]:D=Z[3]:G=π÷2+SProg”ZH”P(pán)rog”HQ”K=Z[V+4+5a]+Z[7]-O:Q=-QLbl6M=1000Z=KZ>23540Z=Z-(-0.03313)◣(注：當(dāng)斷鏈更改時(shí)，修改方框中的數(shù)據(jù)，若還有斷鏈則應(yīng)模仿此行再增加行，長(zhǎng)鏈為“-”，短鏈為“+”)Z=Intg(MZ+0.5)÷MQ=Intg(MQ+0.5)÷MZ”KD=”◢Q”WB=”◢Goto09.坐標(biāo)轉(zhuǎn)換子程序ZH(52步)H=X-B:W=Y-DPol(H,W)G=J-GH=IcosG:W=IsinG10.反求緩曲段子程序HQ(384步)A=Z÷46080÷R^6÷U^6B=H÷3840÷R^5÷U^5C=13Z÷5760÷R^4÷U^4D=ZW÷384÷R^4÷U^4G=H÷48÷R^3÷U^3I=Z÷(15RRUU)J=ZW÷(8RRUU)L=H÷(2RU)M=ZN=ZWE=WLbl7F=AE^13+BE^10-CE^9+DE^8-GE^6+IE^5-JE^4+LEE-ME+NQ=13AE^12+10BE^9-9CE^8+8DE^7-6GE^5+5IE^4-4JE^3+2LE-MO=E-F÷QAbs(O-E)<1e-5Goto8◣E=OGoto7Lbl8T=ZOOO÷6÷U÷RP=O-O^5÷(40RRUU)T=HP=WQ=0:Goto9◣◣Pol(H-T,W-P)Q=sin(J+ZOO÷2÷R÷U-π÷2)E=-1Q>0E=1◣Q=EILbl911.邊樁放樣程序(附加)BZFY(475步)V=6a+25:FixmO=0:U=Q{Z}:Z”K”Lbl1{GU}:U”B”:G”H”O(jiān)0Goto3◣Q=-12.25:Z[3]=-1U>0Q=12.25:Z[3]=1◣Prog”GC”D=G-CD≤0Goto7◣N=Int((D-0.1)÷8.9)+1N>10N=10◣I=1Lbl2O=Z[3+I]{O}:O”M”Z[3+I]=O:O=Z[3+I]I=I+1I>N+1Goto4◣Goto2Lbl3D=G-CD≤0Goto7◣N=Int((D-0.1)÷8.9)+1Lbl4I=0:M=2D≤6M=1◣W=13.05+M:H=0.02MLbl5I=I+1I>N-1Goto6◣W=W+2+9Z[I+3]H=H+8.9Goto5Lbl6A=(D-H)Z[I+3]+W-AbsUGoto8Lbl7D=-DD≤8A=1.5D+12.25-AbsU◣D>8D≤12A=24.25+1.75(D-8)-AbsU◣◣D>12A=26.25+1.75(D-8.04)-AbsU◣Lbl8A=AZ[3]U=U+AA”DB=”◢Goto1四、擴(kuò)展變量設(shè)置數(shù)值擴(kuò)展變量設(shè)置實(shí)際數(shù)值表名稱上三線四標(biāo)福寧線A14標(biāo)福寧線A14-4交點(diǎn)數(shù)目a472變坡點(diǎn)數(shù)目b12124起超點(diǎn)數(shù)目c2055導(dǎo)線點(diǎn)數(shù)目d30200變量總數(shù)目18816470Z[1]0.650.730.73Z[2]11.511.511.5Z[3]空空空Z(yǔ)[4]空空空Z(yǔ)[5]空空空Z(yǔ)[6]空空空Z(yǔ)[7]空空空Z(yǔ)[8]空空空Z(yǔ)[9]空空空Z(yǔ)[10]空空空Z(yǔ)[11]空空空Z(yǔ)[12]空空空Z(yǔ)[13]空空空Z(yǔ)[14]空空空Z(yǔ)[15]空空空Z(yǔ)[16]空空空Z(yǔ)[17]空空空Z(yǔ)[18]空空空Z(yǔ)[19]空空空Z(yǔ)[20]3311951.3982975739.2142973710.082Z[21]3308082.1072976456.4482973608.911Z[22]3306528.8512974752.8962973081.305Z[23]3304867.3722974382.4922972865.599Z[24]3303837.5752974226.853497354.093Z[25]3300666.7272973734.000495552.513Z[26]483715.3152973608.911493906.918Z[27]482961.2472973081.305493744.453Z[28]484119.3632972865.5992500.000Z[29]484785.224506191.913560.000Z[30]484191.299504387.5530Z[31]484421.828501750.741181.944Z[32]1800.647183500661.8290Z[33]2000.000499179.551183.096Z[34]1320.097497779.99994318.362Z[35]1128.972495552.51395803.35362Z[36]240.000493906.91897577.87494擴(kuò)展變量設(shè)置實(shí)際數(shù)值表(續(xù)表)名稱上三線四標(biāo)福寧線A14標(biāo)福寧線A14-4Z[37]250.000493744.45398104.795Z[38]200.0001200.00095500Z[39]200.0002800.00095940Z[40]240.0002800.00096640Z[41]250.0004000.00097040Z[42]200.0003000.00097900Z[43]200.0002500.00098104.795Z[44]18766.03067560.00020.685Z[45]21790.803882276.48028.185Z[46]24165.055664063.185Z[47]25596.110581073.185Z[48]26989.8816480108.785Z[49]30594.634230113.290Z[50]22050.0000219.5Z[51]22299.500181.944203.26Z[52]22700.400276.480196.744Z[53]23110.9000193.953Z[54]23360.0000空Z(yǔ)[55]23699.96687089900Z[56]24549.96687097577.875Z[57]25249.96687097759.819Z[58]26249.96687183.09697944.795Z[59]26599.9668784800.00098264.795Z[60]27199.9668785983.528660Z[61]27699.9668789437.690650Z[62]28049.9668790616.27064-5Z[63]28199.9668791947.87136-5Z[64]12.20093470.888875Z[65]9.91095803.35362-11.5Z[66]19.54297577.87494-6Z[67]8.85898104.795-0.75Z[68]11.000892600.75Z[69]8.450899606Z[70]14.9109096011.5Z[71]9.45091670Z[72]14.95092320Z[73]10.05092750Z[74]13.05094000Z[75]11.00094950Z[76]14.50095500Z[77]13.60095940Z[78]149.50096640擴(kuò)展變量設(shè)置實(shí)際數(shù)值表(續(xù)表)名稱上三線四標(biāo)福寧線A14標(biāo)福寧線A14-4Z[79]251.40097040Z[80]159.10097900Z[81]90.00098104.795Z[82]90.60011.357Z[83]231.00018.147Z[84]106.40011.647Z[85]97.50021.090Z[86]95.00013.810Z[87]100.10017.250Z[88]98.70013.500Z[89]96.00022.335Z[90]空20.685Z[91]028.185Z[92]23290.77263.185Z[93]23425.77273.185Z[94]24280.05687108.785Z[95]24415.05687113.290Z[96]24684.09287113.400Z[97]24819.09287198Z[98]25661.11187196Z[99]25769.11187211.2Z[100]25796.11187132Z[101]26789.88287123Z[102]26816.88287184.5Z[103]26924.88287220.5Z[104]27044.88287219.5Z[105]27141.54987203.26Z[106]27189.88287196.744Z[107]27662.42987193.953Z[108]27710.76287空Z(yǔ)[109]27807.4298789900Z[110]50000.00097577.875Z[111]-297759.819Z[112]-297944.795Z[113]098264.795Z[114]00Z[115]20Z[116]2-5Z[117]0-5Z[118]05Z[119]22973473.817Z[120]32973443.259擴(kuò)展變量設(shè)置實(shí)際數(shù)值表(續(xù)表)名稱上三線四標(biāo)福寧線A14標(biāo)福寧線A14-4Z[121]32973689.991Z[122]22973503.137Z[123]02974006.842Z[124]02973463.050Z[125]-22973619.538Z[126]-42973592.676Z[127]-42973977.206Z[128]-22973672.883Z[129]02973935.726Z[130]02973692.340Z[131]3308042.7792973348.276Z[132]空暫空Z(yǔ)[133]3307801.470暫空Z(yǔ)[134]空暫空Z(yǔ)[135]空暫空Z(yǔ)[136]空暫空Z(yǔ)[137]3307165.852暫空Z(yǔ)[138]3306649.672暫空Z(yǔ)[13