FX5800P計算器坐標(biāo)正反算程序

（以下程序是專業(yè)人士編寫，本店鋪不對程序負(fù)責(zé)，僅供您參考使用。）卡西歐fx5800p計算器坐標(biāo)正反算程序一、 程序功能本程序由6個主程序、5個次子程序及5個參數(shù)子程序組成。主要用于公路測量中坐標(biāo)正反算，設(shè)計任意點高程及橫坡計算,橋涵放樣，路基開挖口及填方坡腳線放樣。程序坐標(biāo)計算適應(yīng)于任何線型.二、 源程序主程序1：一般放樣反算程序（①正算坐標(biāo)、放樣點至置儀點方位角及距離；②反算樁號及距中距離）程序名:1ZD-XYLb10:Norm2F=1：（正反算判別，F(xiàn)=1正算，F(xiàn)=2反算,也可以改F前加？，改F為變量）Z[1]=90（與路線右邊夾角）Prog＂THB＂：F=1=>Goto1:F=2=>Goto2Lb11:Fix3: "X=":Locate6,4,X/"丫=”:Locate6,4,Y丄Prog"3JS”:Goto0:Lb12:Fix3: "KM=":Locate6,4,Z/"D=":Locate6,4,D/Goto0主程序2：咼程序橫坡程序（設(shè)計任意點咼程及橫坡）程序名：2GCLbI0:Norm2“KM”?Z:?D:Prog”H”：Fix3:”H二”：Locate6,4,H/“I二”:Locate6,4,I丄Goto0主程序3：極坐放樣計算程序（計算放樣點至置儀點方位角及距離）程序名：3JSX：Y：1268. 123-K（置儀點X坐標(biāo)）2243.545-L（置儀點Y坐標(biāo)，都是手工輸入，也可以建導(dǎo)線點數(shù)據(jù)庫子程序,個人認(rèn)為太麻煩）Y—L—E:X-K—F:Pol（F,E）:IFJ<0:ThenJ+360—J:Int（J）+0.01Int（60Frac（J））+0.006Frac（60Frac（J））—J:（不習(xí)慣小數(shù)點后四位為角度顯示的，也可以用命令J/DMS/來直接顯示）Fix4:”FWJ=”:Locate6,4,J/（不習(xí)慣小數(shù)點后四位為角度顯示的，也可以用命令J/DMS/來直接顯示）Fix3:”S=”:Locate6,4,I/.主程序4：涵洞放樣程序（由涵中心樁號計算出各涵角坐標(biāo)、在主程序3中輸入置儀點坐標(biāo)后計算放樣點至置儀點方位角及距離）程序名：4JH-XYLbI0:Norm290-Z[l](涵洞中心樁與右邊夾角，手工輸入，也可以修改成前面加？后變?yōu)樽兞?l—F:Prog”THB”：？L:Z[2]-Z[1]—E:X+Lcos(E)—X:Y+Lsin(E)—Y:Fix3: "X=":Locate6,4,X丄"Y=":Locate6,4,Y丄Prog"3JS”：Goto0:．主程序5:路基開挖邊線及填方坡腳線放樣程序(輸入大概樁號及測量坐標(biāo)、地面標(biāo)高計算出偏移距離、樁號、距中距離、填挖高度)程序名:5FBXLbl0:Norm2:18^DimZ:2^F:90^Z[1]:Prog“THB”：Z:D:”M0”？M:MfZ[4]:DfZ[3]:Prog”6GD”：LfZ[6]:IfD<0:Then0.75-LfD:GotoH:ElseL-0.75fD:GotoH:IfEndLblH:Prog”H”：H-0.03-Z[4]—Z[5]:Z[6]—L:IfZ[5]<0:Then-z[5]—G:GotoW:ElseZ[5]—G:GotoT:LblW:Prog“W0”：Z[10]+Z[ll]—A:IfG>A:ThenGotol:ElseIfG>Z[10]:ThenGoto2:ElseGoto3:IfEnd:Lbll:L+Z[12]+Z[13]+Z[14]+(G-A)XZ[9]+Z[ll]XZ[8]+Z[10]XZ[7]:GotoZ:Lbl2:L+Z[12]+Z[13]+(G-Z[10])XZ[8]+Z[10]XZ[7]:GotoZ:Lbl3:L+Z[12]+GXZ[7]:Gotoz:LbIT:L+0.5—N:IfG>Z[17]:Then(N+Z[18]+(G-Z[17])XZ[16]+Z[17]XZ[15])—S:GotoZ:Else(N+GXZ[15])—S:Gotoz:LblZ:Z[3]—D:Fix2:Abs(D)—SfT:”LO二”：LLocate6,4,T/"KM=":Locate6,4,Z丄"D=":Locate6,4,D丄“TW二”：Locate6,4,Z[5]2Goto0．主程序6:路基標(biāo)準(zhǔn)半幅寬度計算程序(對于設(shè)計有加寬漸變的有用，如路基寬度無變化，則把此程序直接輸入半幅寬度值至L)程序名:6GDProg“G0”Z-C—E:(B-A)XE/S+A—L:L:?坐標(biāo)計算次程序(THB)程序名:THB18—DimZ:"KM"?Z:Prog"X0"1FP—C: (P-R)F(2HPR)—S:180Fn—E:F=1=>Goto1:F=2=>Goto2--1Lbl1:?D:Abs(Z-O)—W:Prog"A":X:Y:Goto3Lbl2:X:Y:X—I:Y—J:Prog"B":O+W—Z:D—D:Goto3Lbl3:IFF=1ThenX:Y:ElseZ:D正算子程序(A)程序名：A0.25—A: 0.52—B: 0.44—N0.0—K: 0.49—L: 0.5—M:U+W(Acos(G+QEKW(C+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+Bcos(G+QE(l-L)W(C+(l-L)WS))+Acos(G+QE(l-K)W(C+(l-K)WS)))-X:V+W(Asin(G+QEKW(C+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WS)))-Y:G+QEW(C+WS)+Z[l]—Z[2]:X+Dcos(Z[2])—X:Y+Dsin(Z[2]) —Y反算子程序(B)程序名:BG-90—T:Abs((Y-V)cos(T)-(X-U)sin(T))—W:0—D:Lbl0:Prog"A":T+QEW(C+WS)—L:(J-Y)cos(L)-(I-X)sin(L)—D:IFAbs(D)<0.01:ThenGotol:ElseW+D—W:Goto0--1Lbl1:0—D:Prog"A":(J—Y)Fsin(Z[2] )—D:l0．高程計算子程序(H)程序名:HProg“S0”:R:T:C:G:I:C-T—F:Z-F—L:C+T—E:G-TI—Q:IfT=O:ThenQ+LI—H:Goto0:ElseIfZ<F:ThenQ+LI—H:Goto0:ElseIfZWE:ThenQ+LI+L2F2FR—H:Goto0:LbI0:H:IfD=0:ThenGotoI:ElseProg“I”:H+V—H:GotoI:LbII:H:I:ll.高程超高計算程序(I)程序名:IProg”I0”:W=l=>Goto0:W=2=>Gotol:Lbl0:IfL=0:ThenAbs(D)XM—V:Goto2:ElseAbs(D)X((N-M)X(Z-C)FL+M)—V:Goto2:IfEnd:Lbl1:IfL=0:ThenAbs(D)XM—V:Goto2:ElseAbs(D)X(((3((Z-C)^L)2-2((Z-C)^L)A(3))X(N-M))+M)—V:Goto2:IfEnd:Lbl2:Abs(D)—E:VFE—I:I(E-K)—V:l2．?dāng)?shù)據(jù)子程序(附后示例)程序名:X0(坐標(biāo)計算要素程序)IfZ225900AndZW26615.555:Then25900—O:ll587.42l—U:l847.983—V:l0l。09'23.l”—G:7l5.555—H:lXl045—P:lXl045—R:0—Q:Goto0:IfEnd:IfZ226615.555AndZW26915.555:ThenO:ll448.97—U:2550.0l6—V:l0l。09'23.l”—G:300—H:lXl045—P:l800—R:l—Q:Goto0:IfEnd:IfZ226915.555AndZW27316.952:ThenO:ll382.792—U:2842.53l—V:l05。55'5l.83”—G:40l.396—H:l800—P:l800—R:l—Q:Goto0:IfEnd:LbI0:O:U:V:G:H:P:R:Q:程序字母說明：O-線元起點樁號；U-起點X坐標(biāo)；V-起點Y坐標(biāo)；G-線元起點樁號切線方位角；H—線元長度，P—線元起點曲率半徑，R—線元終點曲率半徑,Q－線元判別（以道路中線的前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)線元往左偏時，Q=-1；當(dāng)線元往右偏時，Q=1；當(dāng)線元為直線時Q=0）。程序名：SO（高程豎曲線要素子程序）IfZ225900AndZW26157.8:Then-200000fR:157.8fT:26000fC:37.1fG:0.01222fI:Goto0:IfEnd:IfZ226157.8AndZW27421.915:Then300000fR:171.915fT:27250fC:32.65fG：-0.00356fI:Goto0:IfEnd:IfZ227421.915AndZW27889.029:Then1000000fR:134.029fT:27755—C:36.64fG:0.0079fI:Goto0:IfEnd:LbI0:R:T:G:C:I:程序字母說明：C-豎曲線交點樁號；G-交點樁號高程（未豎曲線調(diào)整的）；T-豎曲線切線長；R-豎曲線半徑（分正負(fù)：凹曲線為正，凸曲線為負(fù)）；I—豎曲線前縱坡程序名：I0（高程超高參數(shù)子程序）1.5—K:2fW:IfD<0:ThenGotoL:ElseGotoR:IfEnd:LblL:IfZ225900AndZW26615.555:Then0—L：-0.02fM:Goto0:IfEnd:IfZ226615.555AndZW26735.555:Then120fL:26615.555fC：-0.02fM:0.02fN:Goto0:IfEnd:IfZ226735.555AndZW26795.555:Then60fL:26735.555—C:0.02fM:0.04fN:Goto0:IfEndIfZ226795.555AndZW27436.951:Then0—L:0.04fM:Goto0:IfEndLbIR:IfZ225900AndZW26735.555:Then0-L：-0.02fM:Goto0:IfEndIfZ226735.555AndZW26795.555:Then60fL:26735.555fC：-0.02fM：-0.04fN:Goto0:IfEndIfZ226795.555AndZW27436.951:Then0^L：-0.04^M:Goto0:IfEndLbI0K:W:L:C:M:N:字程序中字母表示說明：K—中央分隔帶半幅寬（中樁標(biāo)高至中樁中線距離，無分隔帶則為0）；W—超高方式參數(shù)（W=1為一般直線方式超高， W=2為三次拋物線方式超高）；L—超高漸變段距離（不是漸變段則輸入 0）；C-超高漸變段起點樁號（不是漸變段，無需輸入）； M—超高段起點橫坡， N-超高漸變段終點橫坡（不是漸變段，無需輸入）。程序名：GO（路基標(biāo)準(zhǔn)半幅寬度參數(shù)子程序 ）IfD<0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ225900AndZ<28110.727:ThenZ^C:17.25^A:Goto0:IfEnd:IfZN28110.727AndZW28200.727:Then28110.727—C:17.25—A:21.25^B:90^S:Goto0:IfEndLbIR:IfZN25900AndZ<27927.478:ThenZ^C:17.25^A:Goto0:IfEndIfZ227927.478AndZW28172:Then27927.478—C:17.25—A:27.031—B:244.522—S:Goto0:IfEndLbI0C:A:B:S:字程序中字母表示說明：C－寬度漸變段起點樁號(不是漸變段C=Z)；A－寬度漸變段起點寬度;B－寬度漸變段終點寬度(不是漸變段，無需輸入)；S-寬度漸變段距離(不是漸變段，無需輸入)。程序名：WO(路基填挖邊坡參數(shù)子程序)0.75fZ[7]:lfZ[8]:l.25fZ[9]:10fZ[10]:10fZ[ll]:2.6-Z[12]:2-Z[13]:2-Z[14]:5-Z[15]:1.75-Z[16]:8-Z[17]:2-Z[18]字程序中字母表示說明：Z[7]－挖方第一階邊坡邊率；Z[8]－挖方第二階邊坡邊率；Z[9]－挖方第三階邊坡邊率；Z[10]－挖方第一階高度；Z[11]－挖方第二階高度；Z[12]－挖方路基碎落臺及水溝寬度；Z[13]－挖方第二臺階平臺寬度；Z[14]－挖方第三臺階平臺寬度；Z[15]－填方第一階邊坡邊率；Z[16]－填方第二階邊坡邊率;Z[17]－填方第一階高度；Z[18]-填方第二臺階平臺寬度。(注：本程序只做出挖方三個臺階，填方二個臺階，如需增加，先需在程序THB和5FBZ程序中增加變量。再如一標(biāo)段有坡率及坡高不一樣時，可以照其它參數(shù)程序一樣，用判別語句。)三、使用說明1、規(guī)定Z“KM”為所求點樁號，反算時為輸入大概樁號當(dāng)所求點位于中線時，D=0；當(dāng)位于中線左鍘時，D取負(fù)值；當(dāng)位于中線中線右側(cè)時，D取正值。當(dāng)線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。當(dāng)線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。當(dāng)線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接