卡西歐5800程序完整版

卡西歐5800程序完整版"ZS=1,FS=2"?N:1-P一C:(P-R)+(2HPH)—D:180+tt—E:IfN=1:ThenGoto1:ElseGoto2:IfEnd—」Lbl1:1一l:0一Z：Abs(K-O)一W:Prog"ZS”—1F-90—F—」"JJ"?K:"PJ"?L:"ZX=":X+Lcos(F+K)—Z[3]』"ZY=":Y+Lsin(F+K)—Z[4]』"QXFWJ=":FDMS』Abs(Z)—Z:Goto8<—1Lbl2:"X"?l:"Y"?J:Prog"FS":"FSZH=":0+W—K』"FSJL=":Z』Lbl8正算子程序(ZS)(不運(yùn)行)1+P—C:(P-R)+(2HPR)一D:180+tt—E—」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—Y3反算子程序(FS)(不運(yùn)行)G-90一T：Abs((Y-V))cos(T)-(X-U)sin(T)一W：0一Z—1Lbl0—」prog"ZS":T+QEW(C+WD)一L：(J-Y)cosL-(l-X)sinL—Z：IfAbs(Z)<0.001:ThenGotol:ElseW+Z—W：IfEnd:Goto0<—1Lbl1：0一乙Prog"ZS":（J-Y）+sinF—ZZX-WN（運(yùn)行主程序，該程序適用于匝道，對全段完整非對稱曲線計算太過麻煩）"CZX"?S（儀站X坐標(biāo)）："CZY"?W（儀站Y坐標(biāo)）Lbl0:"K"?K:IfK<126.9（第1條單一曲線的終點(diǎn)下面同上）：ThenGotoA：ElseIfK<176.9AndK>126.9:ThenGotoB:ElseIfK<259.562AndK>176.9:ThenGotoC:ElseIfK<309.562AndK>259.562:ThenGotoD：lfEnd:lfEnd:lfEnd:lfEnd—」LblA:92094.336（起點(diǎn)X坐標(biāo)）—11:8287.962（起點(diǎn)Y坐標(biāo)）一V:0起點(diǎn)樁號一0:145。11'54"（方位角）一G:126.9（曲線長度）-^H:10A（45）（起點(diǎn)半徑）-^P:10A（45）（止點(diǎn)半徑）一R:+1（路線左右偏，左負(fù)右正，直線輸0）一Q:Prog"WN":GotoWLblB:91990.134—U:8360.388—V:126.9—O:145°11'54"—G:50—H:10人（45）—P:150—R:+1—Q:Prog"WN":GotoWLblC:91947.609—U:8386.570—V:176.9—O:154°44'51"—G:82.662—H:150—P:150—R:+1—Q:Prog"WN":GotoWLblD:91867.101—U:8399.992—V:259.562—O:186°19'19"—G:50—H:150—P:10A（45）—R:+1—Q:Prog"WN":GotoWLblW:"PJ1"?T—」（該項(xiàng)是只左右邊樁再左右偏距，輸0為不再左右偏，可以直接出方位角、距離，適用于橋梁橋臺、蓋梁、涵洞八字墻等放樣，以路線前進(jìn)方向，前，后+）IfT=0：ThenZ[3]—Z:Z[4]—M:GotoP:ElseGotoV:IfEnd—」LblV:"JJ1"?O—」（左右邊樁再偏夾角，用180。減去路線夾角）"X1=":Z[3]+Tcos（F+N+O）一U』"Y1=":Z[4]+Tsin（F+N+O）▲U—Z:V—M:GotoP—」LbIP:Pol（Z-S,M-W）：IfJ<0：ThenJ+360°一J:IfEnd—」"JL=" （儀站至測點(diǎn)的距離）"FWJ=":JDMS』（儀站至測點(diǎn)的方位角）GotoO備注：規(guī)定以道路中線前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)線元往左偏時Q=-1；當(dāng)元線往右偏時，Q=1：當(dāng)元線為直線時，Q=0。當(dāng)線元為直線時，其起點(diǎn)、止點(diǎn)的曲率半徑為無窮大，以10的45次方代替。當(dāng)線元為圓曲線時，無論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于圓弧的半徑。當(dāng)線元為完整的緩和曲線時，起點(diǎn)與直線相接時，曲率半徑為無窮大，以10的45次方代替。與圓曲線相接時，曲率半徑等于圓曲線的半徑，止點(diǎn)跟直線相接時，曲率半徑為無窮大，以10的45次方代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。當(dāng)線元為非完整緩和曲線時，起點(diǎn)與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線銜接時，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線銜接時，曲率半徑等于圓曲線的半徑。二、運(yùn)行跟輸入與顯示說明運(yùn)行：ZX-WN顯示“CZX”輸入測站：X坐標(biāo)，顯示“CZY”輸入測站：Y坐標(biāo)顯示：“K”輸入所計算的樁號顯示“ZS=1,FS=2”，選擇計算方式，輸入1正算；輸入2反算輸1開始正算顯示“JJ”正交輸90,斜交輸跟路線的夾角顯示"PJ”輸入邊樁偏距，左負(fù)右正，中樁輸0顯示"ZX=”所求點(diǎn)的X坐標(biāo)顯示“ZY=”所求點(diǎn)的Y坐標(biāo)顯示"QXFWJ”所求點(diǎn)的切線方位角顯示“PJ1”所求點(diǎn)再騙距離，輸0為不再左右偏，可以直接出方位角、距離，本項(xiàng)適用于橋梁橋臺、蓋梁、涵洞八字墻等放樣，以路線前進(jìn)方向，在，右-。只限于直線）顯示"JJT'再偏輸入夾角（正交輸90,）顯示“X1”所求點(diǎn)X坐標(biāo)顯示“Y1”所求點(diǎn)Y坐標(biāo)JL=儀站與測點(diǎn)的距