fx4800---匝道測(cè)量-資料下載頁(yè)
2025-08-04 09:05本頁(yè)面
【正文】 Lbl 0191。{KQ}:K”K”:Q”L”191。Prog ”CG”191。C”H=”◢Goto 04．匝道坐標(biāo)計(jì)算子程序BZ (75步)W=H+1191。Lbl 0191。KZ[W+N]222。W=W+1:Goto 0◣191。V=W222。Goto 1◣191。V=W191。Prog “CS”191。Lbl 1191。Z=K191。Prog “ZD”5．匝道參數(shù)計(jì)算子程序CS (142步)U=Z[H3]191。X=Z[H2]191。Y=Z[H1]191。W=VH191。Lbl 0191。Z[8]=X191。Z[9]=Y191。A=U191。M=Z[VW+N+1]191。R=Z[VW]191。P=Z[VW+1]191。L=Z[VW+N]191。Dsz W191。Goto 1191。Goto 2191。Lbl 1191。Z=M191。Prog “ZD”191。Goto 0191。Lbl 26．匝道分段計(jì)算子程序ZD (373步)S=ZL191。R=P222。R=0222。Goto 1◣◣191。R=P222。R≠0222。Goto 2◣◣191。Z=1191。PR222。Z=1◣191。J=ML191。C=Abs(J247。(PR))191。J=0222。C=1◣191。J=ZJR247。(PR)191。I=J+SZ191。U=A+S(J+I)247。2247。C191。S=AZJJ247。2247。C191。Y=IJ(I^5J^5)247。40247。C247。C+(I^9J^9)247。3456247。C^4191。I=(IIIJJJ)247。6247。C(I^7J^7)247。336247。C^3+(I^11J^11)247。42240247。C^5191。X=Z[8]+ZYCos SIsin S191。Y=Z[9]+ZYSin S+Icos S191。Goto 3191。Lbl 1191。X=Z[8]+Scos A191。Y=Z[9]+Ssin A191。U=A191。Goto 3191。Lbl 2191。U=SP+A191。X=Z[8]+(Sin USin A)247。P191。Y=Z[9](Cos UCos A)247。P191。Lbl 3191。U0222。U=U+2π◣191。U2π222。U=U2π◣7．匝道高程計(jì)算子程序CG (536步)W=G+1191。Lbl 0191。WG+U2222。Goto 1◣191。P=Z[W+2U1]191。KZ[W]P222。W=W+1:Goto 0◣191。W=G+1222。W=G+2◣191。V=W1222。Goto 2◣191。Lbl 1191。V=W1191。J=Z[V+U]191。R=(JZ[V+U1])247。(Z[V]Z[V1])191。S=(Z[V+U+1]J)247。(Z[V+1]Z[V])191。T=Z[V+2U1]191。Lbl 2191。L=KZ[V]191。L≤T222。H=J+RL:Goto 3◣191。L≥T222。H=J+SL:Goto 3◣191。A=2T247。(SR)191。X=L+A(R+S)247。2191。H=J+XX247。2247。AARS247。2191。Lbl 3191。H=HZ[2]191。A=Abs Q191。A≤Z[3]222。C=0:Goto 6◣191。I=1191。Q0222。I=1◣191。Lbl 4191。Y=E191。Lbl 5191。K≥Z[Y]222。Y=Y+1:Goto 5◣191。O=Z[Y+F1]:X=Z[Y+F]:O=IO:X=IX191。Z[Y+F1]=0222。O=2◣191。Z[Y+F]=0222。X=2◣191。N=(Z[Y]K)247。(Z[Y]Z[Y1])191。M=(XO)(13NN+2NNN)+O191。 （當(dāng)超高過渡段按直線性計(jì)算時(shí)，此行換為 M=(OX)N+X191。）A≤Z[4]222。C=(Z[3]A)M247。100:Goto 6◣191。C=Z[6](Z[4]A)247。100M(Z[4]Z[3])247。100191。MZ[6]222。C=(Z[3]A)M247。100◣191。Lbl 6191。C=H+C四、附加根據(jù)橫斷面點(diǎn)數(shù)d增加擴(kuò)展變量數(shù)目d個(gè)，假設(shè)原擴(kuò)展變量總數(shù)為n個(gè)，即:n=2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74，則新增地?cái)U(kuò)展變量為Z[n+1]～Z[n+d]匝道高程較差主程序GCJC (164步)Fixm191。G=Z[Z[1]+19]191。U=Z[Z[1]+24]191。E=Z[Z[1]+29]191。F=Z[Z[1]+34]191。V=G1191。{Z}:Z”YG”191。Lbl 0191。{KDB}:K”K”:D”DW”:B”QS”191。Q=Z[n+D]191。Prog ”CG”191。C=CZ+B191。C=Intg(1000C+.5)247。1000191。C”DH=”◢Goto 014
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1