卡西歐計算器公路中線放樣程序

PAGEPAGE9卡西歐fx-4800p計算機(jī)（中、邊線坐標(biāo)放樣程序，計算速度快，園曲線超過半圈后有誤差）(此程序可以查找樁號和偏中距離)SUB-1A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:X=U+W(ACOS(G+180QKW(1÷P+KWD)÷π)+BCOS(G+180QLW(1÷P+LWD)÷π)+BCOS(G+180QW(1-L)(1÷P+WD(1-L))÷π)+ACOS(G+180QW(1-K)(1÷P+WD(1-K))÷π)):Y=V+W(ASIN(G+180QKW(1÷P+KWD)÷π)+BSIN(G+180QLW(1÷P+LWD)÷π)+BSIN(G+180QW(1-L)(1÷P+WD(1-L))÷π)+ASIN(G+180QW(1-K)(1÷P+WD(1-K))÷π)):F=G+180QW(1÷P+WD)÷πS—O(放線主程序)Deg:Fix3LbI7:C“XC=”:E“YC=”LbI1:{N}:N“XL=1,2”:N=3=>{U,V,G,P,R,О,H,Q}:Prog“QXYS”:≠＞△LbI0:{S,M,Z}:S“ZHUANGHAO=”:LbI8N=1=>Prog“TDGS--SJ”:GOTO2:≠＞△N=2=>Prog“00000”:GOTO2:≠＞△N=3=>Prog“QXYS”:GOTO2:≠＞△GOTO1LbI2:S＜О-0.001=>GOTO1:≠＞△S＞H+0.001=>GOTO1:≠＞△D=（P-R)÷(2PR(H-О)):W=Abs(S-О):Prog“SUB1”:Z“KUANDU=”:Z=1000=>GOTO5△Z≠0=>GOTO3△X“XS=”▲Y“YS=”▲F＜0=>F=F+360:≠＞△F“QX-FWJ=”▲LbI4:I=0:J=0:PoI(X-C,Y-E)：J＜0=>J=J+360:≠＞△J“FWJ=”▲I“HD=”▲GOTO0Lb15:M“PJ=”:F=F+M:X=X+ZCOSF▲Y=Y+ZSINF▲Goto4Lb15:DegF=F-M:J=0:I=0:PoI(X-C,Y-E+0.00001Ran#)：J＜0=>J=J+360:≠＞△Abs(Icos(J-F))＜0.010=>Goto6△S=S-Icos(J-F):Pause0:Goto8Lb16:Z=0:S”JISUANZH=”▲J-F＜-180=>I”L=m”▲Goto7:≠＞△J-F＞180=>I”R=m”▲Goto7:≠＞△J-F＜0=>J-F＞-180=>I”R=m”▲Goto7:≠＞△△J-F＞0=>J-F＜180=>I”L=m”▲Goto7:≠＞△△I”ZX--PT”▲Goto7QXYS(現(xiàn)場輸入曲線要素)U“X0=”:V“Y0=”:G“F0=”:P“R1=”:R“R2=”:О“DK1=”:H“DK2=”:Q“L(-1),R(+1),0”TDGS—SJ(線路名稱)S＞0=>S≤線元終點里程=>U=線元起點x坐標(biāo):V=線元起點y坐標(biāo):G=線元起點方位角:P=線元起點半徑(直緩點、緩直點半徑為1045)：R=線元終點半徑(直緩點、緩直點半徑為1045)：Q=(左轉(zhuǎn)為-1，右轉(zhuǎn)為+1，直線為0)：GOTO3：≠＞△△S≤線元終點里程=>U=線元起點x坐標(biāo):V=線元起點y坐標(biāo):G=線元起點方位角:P=線元起點半徑(直緩點、緩直點半徑為1045)：R=線元終點半徑(直緩點、緩直點半徑為1045)：Q=(左轉(zhuǎn)為-1，右轉(zhuǎn)為+1，直線為0)：GOTO3：≠＞△。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。（最后一行如下）S＞0=>S≤線元終點里程+0.001=>U=線元起點x坐標(biāo):V=線元起點y坐標(biāo):G=線元起點方位角:P=線元起點半徑(直緩點、緩直點半徑為1045)：R=線元終點半徑(直緩點、緩直點半徑為1045)：Q=(左轉(zhuǎn)為-1，右轉(zhuǎn)為+1，直線為0)：GOTO3：≠＞△△S≤線元終點里程=>U=線元起點x坐標(biāo):V=線元起點y坐標(biāo):G=線元起點方位角:P=線元起點半徑(直緩點、緩直點半徑為1045)：R=線元終點半徑(直緩點、緩直點半徑為1045)：Q=(左轉(zhuǎn)為-1，右轉(zhuǎn)為+1，直線為0)：GOTO3：≠＞△О=0：H=0:LbI300000(線路名稱)S＞0=>S≤線元終點里程=>U=線元起點x坐標(biāo):V=線元起點y坐標(biāo):G=線元起點方位角:P=線元起點半徑(直緩點、緩直點半徑為1045)：R=線元終點半徑(直緩點、緩直點半徑為1045)：Q=(左轉(zhuǎn)為-1，右轉(zhuǎn)為+1，直線為0)：GOTO3：≠＞△△S≤線元終點里程=>U=線元起點x坐標(biāo):V=線元起點y坐標(biāo):G=線元起點方位角:P=線元起點半徑(直緩點、緩直點半徑為1045)：R=線元終點半徑(直緩點、緩直點半徑為1045)：Q=(左轉(zhuǎn)為-1，右轉(zhuǎn)為+1，直線為0)：GOTO3：≠＞△。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。（最后一行如下）S＞0=>S≤線元終點里程+0.001=>U=線元起點x坐標(biāo):V=線元起點y坐標(biāo):G=線元起點方位角:P=線元起點半徑(直緩點、緩直點半徑為1045)：R=線元終點半徑(直緩點、緩直點半徑為1045)：Q=(左轉(zhuǎn)為-1，右轉(zhuǎn)為+1，直線為0)：GOTO3：≠＞△△S≤線元終點里程=>U=線元起點x坐標(biāo):V=線元起點y坐標(biāo):G=線元起點方位角:P=線元起點半徑(直緩點、緩直點半徑為1045)：R=線元終點半徑(直緩點、緩直點半徑為1045)：Q=(左轉(zhuǎn)為-1，右轉(zhuǎn)為+1，直線為0)：GOTO3：≠＞△О=0：H=0:LbI32.2程序中符號的意義U——曲線元起點A的x坐標(biāo)；V——曲線元起點A的y坐標(biāo)；G——曲線元起點A切線的坐標(biāo)方位角；P——曲線元起點A的曲率半徑；R——曲線元終點B的曲率半徑；O——曲線元起點A的里程；H——曲線元終點B的里程；S——曲線元上待求點i的里程；Q——曲線元偏向（左偏時取-1，右偏時取1,直線0）；X——中線點位縱坐標(biāo)；Y——中線點位橫坐標(biāo)；注：直線、直緩點、緩直點曲率半徑輸入1E45。顯示ZHUANGHAO=時輸入樁號，M“PJ=”:Z“KUANDU=”顯示PJ=時輸入線路左前角顯示KUANDU=時輸入左右偏距（左+，右-，輸入1000時計算程序開始輸入點PT（XC,YC）對應(yīng)線路樁號和偏距）卡西歐fx-4800p計算機(jī)（中、邊線坐標(biāo)放樣程序,計算精確,速度稍微慢）(此程序可以查找樁號和偏中距離)S—O（放線程序名稱）Deg:Fix3Lb17：{TU}:T”XC=”:U”YC=”:V=0Lb10:{Z}:Z”LOAD—1，2，-1（XL）”Z=-1=>Prog”DD”△:{H}:H”ZHUANHAO=”:Lb18:Z=1=>Prog”ZX--DAT”△Z=2=>Prog”AZD--DAT”△F<G=>Q=H-F:≠>Q=F-H△Q<0=>Goto0:≠>Q>Abs(G-F)=>Goto0△△W=C+O*180(QD+Q2(E-D)÷(2Abs(G-F)))÷π:Lb12:W<0=>W=W+360△W≥0=>Goto3△Goto2:Lb13:W≥360=>W=W-360△W<360=>Goto4△Goto3:Lb14Rad:X=Q-0.00005:Y=B+∫(sin(Cπ÷180+O(DX+X2(E-D)÷2Abs(G-F))),0,X,4):X=Q-0.00005:X=A+∫(cos(Cπ÷180+O(DX+X2(E-D)÷2Abs(G-F))),0,X,4):V=1000=>Goto5△W”QXFWJ=”▲X”XS=”▲Y”YS=”▲Prog”FWJ”Deg:Fixm:{VK}:V”L1”:V=0=>Goto1△V=1000=>Goto5△K”PJ1”:W=W+K:X=X+VcosW:Y=Y+VsinW:Prog”FWJ”Fixm:{VK}:V”L2”:V=0=>Goto1△K”PJ2”:W=K+W-180：X=X+VcosW:Y=Y+VsinW:Prog”FWJ”:Goto1Lb15:DegJ=0:I=0:PoI(X-T,Y-U+0.00001Ran#)：J＜0=>J=J+360:≠＞△Abs(Icos(J-W))＜0.010=>Goto6△H=H-Icos(J-W):Pause0:Goto8Lb16:V=0:H”JISUANZH=”▲J-W＜-180=>I”L=m”▲Goto7:≠＞△J-W＞180=>I”R=m”▲Goto7:≠＞△J-W＜0=>J-W＞-180=>I”R=m”▲Goto7:≠＞△△J-W＞0=>J-W＜180=>I”L=m”▲Goto7:≠＞△△I”ZX--PT”▲Goto7DD（現(xiàn)場輸入曲線參數(shù)）{ABCPRFGO}:A”XA”:B”YA”:C”FWJA”:P”RA”:R”RB”:F”ZHA”:G”ZHB”:O”LR=1OR-1”:P=0=>D=P:≠>D=1/P△R=0=>E=R:≠>E=1/R△ZX—DAT（根據(jù)需要起相應(yīng)程序名）：H≦曲線段末樁號=>A=:B=:C=:P=:R=:F=:G=:O=:Goto1△H≦曲線段末樁號=>A=:B=:C=:P=:R=:F=:G=:O=：Goto1△最后一行：G=0:F=0:Lbl1:P=0=>D=P:≠>D=1/P△R=0=>E=R:≠>E=1/R△AZD—DAT（根據(jù)需要起相應(yīng)程序名）：H≦曲線段末樁號=>A=:B=:C=:P=:R=:F=:G=:O=:Goto1△……………最后一行：G=0:F=0:Lbl1:P=0=>D=P:≠>D=1/P△R=0=>E=R:≠>E=1/R△FWJDegI=0:J=0:PoI(X-T,Y-U+0.00001)：J＜0=>J=J+360:≠＞△J“FWJ=”▲I“HD=”▲2.2程序中符號的意義A——曲線元起點A的x坐標(biāo)；B——曲線元起點A的y坐標(biāo)；C——曲線元起點A切線的坐標(biāo)方位角；P——曲線元起點A的曲率半徑；R——曲線元終點B的曲率半徑；F——曲線元起點A的里程；G——曲線元終點B的里程；H——曲線元上待求點i的里程；O——曲線元偏向（左偏時取-1，右偏時取1）；X——中線點位縱坐標(biāo)；Y——中線點位橫橫坐標(biāo)；注：直線曲率半半徑輸入00。3程序使用說說明步驟1、屏幕顯顯示LOAAD=1（1表示主主線數(shù)據(jù)庫庫，2表示A匝道數(shù)數(shù)據(jù)庫，依依次類推。默默認(rèn)值為1）。根根據(jù)需要輸輸入相應(yīng)數(shù)數(shù)據(jù)，調(diào)用用相應(yīng)了程程序，然后后直接進(jìn)入入步驟2。否則輸入-1，調(diào)調(diào)用Proog”DD”然后依次次輸入XAA（起點X坐標(biāo)），YYA（起點點Y坐標(biāo)），F(xiàn)FWJA（起點處切線方方位角），RA（起點處曲率半徑），RB（計算段終點處曲率半徑），ZHA（起點里程），ZHB（終終點里程），LR（曲線元偏向，左偏取-1，右偏取1）。除非更換曲線元元，以后再再運行就不不再顯示以以上數(shù)據(jù)。步驟2、屏幕顯顯示ZHUANNGHAAO=（輸入放放樣點對應(yīng)應(yīng)中心里程程，如599+3000.53輸入593300.553即可可）。步驟3、屏幕顯顯示QXFWJJ（對應(yīng)里里程樁號切切線的坐標(biāo)標(biāo)方位角）。步驟4、屏幕顯顯示L1？（放放樣點到線線路中線偏偏距,輸入0只計算中中樁，輸入入1000，計算程程序開始輸輸入的點PT(XXC,YCC)對應(yīng)的線線路樁號和和偏距）輸入外移點相對對于線路中中心距離，有有以下幾種種模式:⑴、輸入0（默認(rèn)認(rèn)），表示示放樣中心心點。⑵、輸入正值，如如50，表示示外移點距距此里程線線路前進(jìn)方向右側(cè)500米（如如圖中A點）。⑶、輸正負(fù)值，如如-50，表表示外移點點距此里程程線路前進(jìn)方向左側(cè)500米。步驟5、屏幕顯顯示PJ11？（外移移點角度）輸入角度值是以以線路中心心為基點，線線路前進(jìn)方方向（沿切線）為零方向向，順時針針旋轉(zhuǎn)到外外移點時角角度（圖中中所示600度）。步驟6、屏幕顯顯示L2？輸入護(hù)樁點B至A點距離離（圖中所所示30米）。步驟7、屏幕顯顯示PJ22？輸入以A點為為基點，AA點與線線路中心連連線為起始始方向，順順時針旋轉(zhuǎn)轉(zhuǎn)至護(hù)樁點點B的角度（圖中所示2270度度）。步驟8、屏幕顯顯示X=XX+VcoosJ,YY=Y+VVsinJJ(放樣樣點坐標(biāo)))程序中