自編CASIO FX 5800 全線道路坐標(biāo)計算程序

自編CASIOFX5800全線道路坐標(biāo)計算程序坐標(biāo)正反算“N”？N:N=1=>Gotol:Goto2A—」Lbl1:“A”？A:“B”？B:“C”？C:“D”？D:POL(C—A,D—B):I」IfJ>0:ThenJ—DMS/Else360+J—DMS/IfEnd:Goto1Lbl2:“E”？E:“F”？F:“A”？A:“B”？B:Rec(E,F):I—I:J—J:A+IB+J—D丄Goto2注：Lbl1中，A為第一點的X值，B為第一點的Y值，C為第二點的X值，D為第二點的Y值，Lbl2中，E為兩點間的距離，F(xiàn)為兩點間的方位角,A為第一點的X值，B為第一點的Y值，自編CASIOFX-5800道路程序功能簡介：本程序由多個主程序和子程序組成，直接運行豎曲線數(shù)據(jù)庫（以繞城高速公路復(fù)盛協(xié)睦立交及連接道和唐復(fù)公路（復(fù)盛段）工程v標(biāo)段為例，如下），可以得出道路中心線高程，錄入變量“Q”，自動計算放樣偏距（放開挖線用，可不用錄入偏距變量“Z”），自動運行坐標(biāo)正反算程序，得出X,Y，放樣方位角，放樣距離，一、 豎曲線數(shù)據(jù)庫(1VH)Lbl0：“S”？S-」IfSW豎曲線終點里程:Then?-B?-D：?-E：?-F：?-R：?-T：GotoA:IfEnd---1IfSW豎曲線終點里程:Then?-B?-D：?-E：?-F：?-R：?-T：GotoA:IfEnd---1oooooooooooooooooooooooooooooooIfSW豎曲線終點里程:Then?-B?-D：?-E：?-F：?-R：?-T：GotoA:IfEnd---1LblA：Prog"SQX〃：Prog"1VZ"：Goto0-」二、 豎曲線主程序(SQX)Abs(E-F)R/20-M:B-M-A：B+M-C：IfSWA:ThenGoto1：IfEnd:IfSWThenGoto2:IfEndLbl1：D-(B-S)E/100-HJGotoA-」Lbl2：D-(B-S)E/100-(S-A)八2/(2RT)-H/GotoA-」LblA：〃Q〃?Q：Prog"1VK(道路寬度數(shù)據(jù)庫)〃：“K”K/H-KX0.015-Q-W:IfW±0:ThenProg〃C":ElseProg〃B":IfEnd-」三、使用說明:B變坡點里程，D變坡點高程，E、F分別為第1、2縱坡，R為半徑，T=±1（凸為+,凹為-）,Q為前視高程。運行時直接運行數(shù)據(jù)庫即可。四、道路寬度數(shù)據(jù)庫(1VK)IfSW豎曲線終點里程:Then?-A：?-B：?-C：?~D:Gotol:IfEnd-JIfSW豎曲線終點里程:Then?-A：?-B：?-C：?-D:Gotol:IfEnd-JIfSW豎曲線終點里程:Then?-A：?-B：?-C：?-D:Gotol:IfEnd-JLbl1：(S-A)三(B-A)-G:C+(D-C)X(3G2-2G3)-K說明：A為起點樁號，B為終點樁號，C為起點樁號對應(yīng)路寬，D為終點樁號對應(yīng)路寬，G為所求樁號位置系數(shù)。三次拋物線形過渡，公式為：B=B+(B-B)X(3k2-2k3)x 0 1 0(其中ZHx樁號的位置系數(shù)：k=ZHx-ZH0)ZH-ZH10如下圖所示:_一1 1B0BxB1H Z〔H Z〔0 x 1(備注：變化段起點樁號為ZH，寬度為B；變化段終點樁號為ZH,001寬度為B;計算樁號ZHx處的寬度Bx,其中ZHxW[ZH,ZH]。)101黃開林叁2008年8月8日編自編CASIOFX5800全線道路坐標(biāo)計算程序五、計算放樣偏距子程序(B)ww0=>Goto1:Goto0v--1Lbl1：IfW>-8:ThenAbs(W)X0.75+1.6+K—Z:ElseAbs(W)TOC\o"1-5"\h\zX0.75+3.6+K—Z:IfEnd:Goto0:Lbl0 1說明：式中0.75為坡度，1.6為水溝寬度六、計算放樣偏距子程序(C)W<8=>Goto1:Goto2 *--1Lbl1：IfW<8:ThenWX1.5+1.6+K—Z:IfEnd:Goto0 1Lbl2:IfW<16:Then(W-8)X1.75+14+K—Z:Else(W-16)X2+30+KfZ:IfEnd:Goto0 *--1Lbl0七、坐標(biāo)計算數(shù)據(jù)庫數(shù)據(jù)庫程序（1VZ）LblA“1.SZ=>XY,2.XY=>SZ”：“S”?S:“Z”？Z1IfSS本線元終點里程：Then本線元起點里程—O：U=本線元起點X坐標(biāo)—U：V=本線兀起點Y坐標(biāo)—V：G=本線兀起點正切線方位角—G：H=本線兀長度一H：P=本線兀起點曲率半徑一P：R=本線兀終點曲率半徑一R：本線元左直右偏向（-1或0、+1）—Q:Goto0:IfEnd—1IfSS下一線元終點里程：Then本線元起點里程—O：U=本線元起點X坐標(biāo)—U：V=本線兀起點Y坐標(biāo)一V：G=本線兀起點正切線方位角一G：H=本線兀長度一H：P=本線兀起點曲率半徑—P：R=本線兀終點曲率半徑—R：本線元左直右偏向（-1或0、+1）—Q:Goto0:IfEnd<一1OOOOOOOOOOOOOOO：Goto0 'Lbl0:Prog"SUBO":LblA―」說明：運行此數(shù)據(jù)庫同樣可以進行坐標(biāo)計算及樁號和偏距反算八、坐標(biāo)計算主程序(SUB0)：3-DimZ1FP-C：(P-R)F(2HPR)?D：180^^-E：“N”？N:IfN=l：ThenGoto1：ElseGoto2:IfEndLbl1：Abs(S-O)~W：Prog"SUB1"："X"： Pol(X-Z[1],Y-Z[2]):IfJ<0:Then360+J—DMS丄:ElseJ—DMS/IfEnd:I丄Goto0<—'Lbl2： “X”？ X： “Y”？Y: X—I： Y—J： Prog "SUB2"： "S"： O+Goto0:Lbl0——1九正算子程序(SUB1)：0.1739274226—A：0.3260725774—B：0.0694318442—K：0.3300094782—L：1-L—F：1-K—M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))—X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))—Y：G+QEW(C+WD)+90—F：X+ZcosF—X：Y+ZsinF—Y十.反算子程序(SUB2)G-90—T：Abs((Y-V)cosT-(X-U)sinT—:0—Z：Lbl0：Prog"SUB1"：T+QEW(C+WD)—L：(J-Y)cosL-(I-X)sinL—Z:IfAbsZ<1E-6:ThenGoto1：ElseW+Z—W:Goto0:IfEnd*--1Lbl1：0—Z：Prog"SUB1"：(J-Y)FsinF—Z注：在反算樁號和偏距時，應(yīng)先用正算運行程序一下，因為在反算時會用到數(shù)據(jù)庫中的V、U兩個量，在反算樁號和偏距時默認(rèn)是用的計算器中臨時儲存哭的V、U兩個量。它是先前正算自動保存的值。直線橋梁放樣

(QL)3—DimZ：POL(C—A,D—B):JfF:Rec(Abs(S—k),J):A+IfL:B+JfM:Rec(Z,F+E):L+IfX/M+JfY/POL(X—Z[l],Y—Z[2]):IfJ<0：Then360+JfDMS/I/ElseJfDMS/I丄IfEndGoto0:Lbl0數(shù)據(jù)庫Lbl0:“s"?S:"Z"?z?fA：?fB：?fC：?fD：?—K:?fE:Prog"QL〃：Goto0A,B起點背墻線的X,Y坐標(biāo)，C,D終點背墻線的X,Y坐標(biāo)，K起點背墻線的里程，E橋梁中心線與公路中心線的右夾角，5800p計算器只能計算S2K的情況曲線超高、加寬計算、數(shù)據(jù)庫(SJK)Lbl0：“S”？S-」IfSW平曲線終點里程：Then?—A：?—B：?—C：?—D：E=?:?—F：?—K：?fG：GotoA：IfEnd-—」IfSW平曲線終點里程：Then?—A：?—B：?—C：?—D：E=?:?—F：?—K：?—G：GotoA：IfEnd-—」IfSW平曲線終點里程：Then?—A：?—B：?—C：?—D：E=?:?—F：?—K：?—G：GotoA：IfEnd---1LblA：Prog"CGJK":Goto0--110—DimZ二、主程序(CGJK)10—DimZIfE=F:ThenGoto6:ElseGoto0IfEndLbl0:IfSWA:ThenGoto1:ElseIfSWD:ThenGoto2:ElseGoto5:IfEnd-」Lbl1:H-KE/100—W^W—L^Goto5—」Lbl2:IfSWB:ThenGoto3:ElseIfSWC:ThenGoto4:ElseIfSWD:ThenD—A:C—B：Goto3:ElseGoto5IfEnd—--1Lbl3:(E+F)Abs(S-A)/Abs(B-A)-E—IJ(F-E)Abs(S-A)/Abs(B-A)+E—J^IfIWE:ThenGotoA:ElseGotoB:IfEnd—--1LblA:H+KI/100—WJH-(K+GAbs(S-A)/Abs(B-A)J/10—LJGoto5—」LblB:H+KI/100—WJH-(K+G)J/10—LJGoto5—」Lbl4:H+KF/100—WJH-(K+G)F/100—LJGoto5—」Lbl6:E—IJIfSWA:ThenGoto1:ElseIfSWB:ThenGoto7:ElseIfSWC:ThenGoto8:ElseIfSWD:ThenD—A:C—B:Goto7:ElseGoto5:IfEnd—--1Lbl7:H-KI/100—WJH-(K+GAbs(S-A)/Abs(B-A)E/10—LJGoto5—」Lbl8:H-KI/100—WJH-(K+G)E/10—LJGoto