FX5800P计算器坐标正反算程序

（以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。）卡西欧fx5800p计算器坐标正反算程序一、 程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.二、 源程序主程序1：一般放样反算程序（①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离）程序名:1ZD-XYLb10:Norm2F=1：（正反算判别，F=1正算，F=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：咼程序横坡程序（设计任意点咼程及横坡）程序名：2GCLbI0:Norm2“KM”?Z:?D:Prog”H”：Fix3:”H二”：Locate6,4,H/“I二”:Locate6,4,I丄Goto0主程序3：极坐放样计算程序（计算放样点至置仪点方位角及距离）程序名：3JSX：Y：1268. 123-K（置仪点X坐标）2243.545-L（置仪点Y坐标，都是手工输入，也可以建导线点数据库子程序,个人认为太麻烦）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:（不习惯小数点后四位为角度显示的，也可以用命令J/DMS/来直接显示）Fix4:”FWJ=”:Locate6,4,J/（不习惯小数点后四位为角度显示的，也可以用命令J/DMS/来直接显示）Fix3:”S=”:Locate6,4,I/.主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离）程序名：4JH-XYLbI0:Norm290-Z[l](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)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:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)程序名: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:路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名:6GDProg“G0”Z-C—E:(B-A)XE/S+A—L:L:•坐标计算次程序(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．数据子程序(附后示例)程序名:X0(坐标计算要素程序)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坐标；V-起点Y坐标；G-线元起点桩号切线方位角；H—线元长度，P—线元起点曲率半径，R—线元终点曲率半径,Q－线元判别（以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时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-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I—竖曲线前纵坡程序名：I0（高程超高参数子程序）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—中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W—超高方式参数（W=1为一般直线方式超高， W=2为三次抛物线方式超高）；L—超高渐变段距离（不是渐变段则输入 0）；C-超高渐变段起点桩号（不是渐变段，无需输入）； M—超高段起点横坡， N-超高渐变段终点横坡（不是渐变段，无需输入）。程序名：GO（路基标准半幅宽度参数子程序 ）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(路基填挖边坡参数子程序)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程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。)三、使用说明1、规定Z“KM”为所求点桩号，反算时为输入大概桩号当所求点位于中线时，D=0；当位于中线左铡时，D取负值；当位于中线中线右侧时，D取正值。当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接