大地坐標轉(zhuǎn)換成施工坐標公式-資料下載頁
2025-06-29 23:16本頁面
【正文】 :F9文件名：GL1P=R+AB(1)Xy(N+Z[2])/90此處L2句加入：M+X◢０+Y◢可顯示測點坐標值CASIO 4800超高及高程（源程序）超高及高程（源程序）L1:R:L“LS”:Z“ZH”:H“HZ”:V“RS”:F“I1”:G“I2”:O“BPH”:N“BP”:T=Vabs(G－F)247。2:X“X(R+1,L1)”:P“P(R+,L1)”L2:Lbl6:｛S｝L3:S+T－N0D=O+(S－N)F:S－N0D=O+(S－N)F－U(S－N+T)2247。2247。V:S－N≤TD=O+(S－N)G－U(T－S+N)2247。2247。V:D=O+(S－N)GD“H=”◢L4:RE=:M=Goto1:RE=:M=Goto1:L5:Lbl1:M≥LC=L:Goto2:C=ML6:Lbl2:PX0Goto3:Goto4L7:Lbl4:S≤ZI=:Goto5:SZ+CI=－(－EPX)247。C(S－Z):Goto5:SH－CI=EPX:Goto5:SHI=EPX+(－EPX)247。C(S－H+C):Goto5:I=:Goto5L8:Lbl3:Z[1]=247。(EPX+)C:S≤Z+Z[1]I=:Goto5:SZ+CI=+(EPX－)247。(C－Z[1])(S－Z－Z[1]):Goto5:SH－CI=EPX:Goto5:SH－Z[1]I=EPX－(EPX－)247。(C－Z[1])(S－H+C):Goto5:I=:Goto5L9:Lbl5:{B}:W“HB”=D－IB◢L10:Goto6說明：R:平曲線半徑L“LS”:緩和曲線長P：偏轉(zhuǎn)，Z=－1,Y=1X“XL”：線路（Z,Y）左線＝－1,右線＝1Z“ZH”:直緩點里程H“HZ”：緩直點里程V“RS”：豎曲線半徑F“I1”：前坡堵（帶符號）G“I2”：后坡度值（帶符號）O“BPH”：變坡點高程N“BP”：變坡點里程T：切線長E：最大超高值C：漸變段長度（LC）I：橫坡值M：最大漸變長度（Lmax）B：距中心距離W“HB”：邊部高程公路中線坐標計算程序 [CASIO 4500]公路中線坐標計算程序[casio4500]ZXCLCXDefm16Lbl1X=1:{X}:X“ZJF1ZBF2TT3SJD4P2L5B2A6”X=1＝ProgZJF△X=2＝Prog“ZBF”△X=3＝Prog“TT△X=4＝Prog“SJD△X=5＝Prog“P2L△X=6＝Prog“B2A△Goto1ZBF“ZXZBjs”:{YD}:Y“I1”“I2”Y≠D=Z=0rog“FP”:A=B:B=0:Goto3△X=0:{TPXVWU}:T“HJD(X+Yi)”Lbl1X“XJA=1”“JD(X+Yi)”:U“JDLC”:Y=Arg(PT)Y0=Y=Y+360△Y“I”◢C“L”=Abs(PT)◢X=0=V=P:Goto2△V“JDB(X+Yi)”=Arg(VP)D0=D=D+360△D“I”◢Z“L”=Abs(VP)◢ProgFP:A=BLbl2W“QJD(X+Yi)”=Arg(WV)D0=D=D+360△D“I”◢C“L”=Abs(WV)◢Lbl4Prog“FP”X=1=B=BA△X=0=A=B:B=0:Z=0:E=RepP:F=ImpP:Goto3△M=Rep(PT):N=Imp(PT):I=Rep(WV):J=Imp(WV):F“Y”=(MImpT247。NIImpV247。J+RepVRepT)247。(M247。NI247。J)◢E“X”=M(FImpT)247。N+RepT◢C“L1”=√((ERepP)2+(FImpP)2)◢U=U+C:C“L2”=√((ERepV)2+(FImpV)2)◢Lbl3X=0:{X}:X“ZBF(0)ZJF(1)”X=1=O=ZrogZJF△A=A+BrogZBjsZBjsI=0:J=0:B=0:{RGH}:R:G“LS1”:H“LS2”rog“TWE”Z=0=E“JD(X)”:F“JD(Y)”:U“JDLC”△Rec(Z[7],Y):Z[15]=I+E:Z[16]=J+F:Rec(Z[8],D):Z[13]=I+E:Z[14]=J+F:C=UZ[7]:Z[6]“ZH”=C◢Prog“ZDZ”C=Z[6]Lbl1{C}:C“JIAZHUANG”:Z=CZ[6]Z≤0=Rec(Z,Y):Z[11]“X”=I+Z[15]◢Z[12]“Y”=J+Z[16]◢Prog“BZ”:Goto1△Z≤G=S=G=Z[1]:Q=Z[3]rog“H”ol(Z[11],Z[12]):Rec(I,YJO):Z[11]“X”=I+Z[15]◢Z[12]“Y”=J+Z[16]◢Prog“BZ”:Goto1△Z≤WH=S=G=Z[1]:Q=Z[3]rog“Y”ol(Z[11],Z[12]):Rec(I,YJO):Z[11]“X”=I+Z[15]◢Z[12]“Y”=J+Z[16]◢ProgBZ:Goto1△Z≤W=Z=WZ=H=Z[2]:Q=Z[4]rogHol(Z[11],Z[12]):Rec(I,D+180+JO):Z[11]“X=I+Z[13]◢Z[12]“Y=J+Z[14]◢Z=WZrog“BZ”:Goto1△Z＞W(wǎng)=Z=ZW:Rec(Z,D):Z[11]“X=I+Z[13]◢Z[12]“Y=J+Z[14]◢Z=W+Zrog“BZ”:Goto1△FPB=YDB180=B=B360△B180=B=B+360△O=B247。AbsB:B=AbsBTWES=Grog“PQ”:Z[1]=P:Z[3]=Q=Hrog“PQ”:Z[2]=P:Z[4]=QZ[7]“T1”=(R+Z[2](R+Z[1])cos(A+B))247。sin(A+B)+Z[3]◢Z[8]“T2”=(R+Z[1](R+Z[2])cos(A+B))247。sin(A+B)+Z[4]◢W“L”=πR(A+B)247。180+.5G+.5H◢X“E”=(R+Z[1])247。cos(tan1(((R+Z[2])247。(R+Z[1])cos(A+B))247。sin(A+B)))R◢Z[9]=Z[7]OsinB247。sin(A+B):Z[10]=Z[8]OsinA247。sin(A+B)B≠0=Z[9]“TA”◢Z[10]“TB”◢△
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1