自编CASIOFX5800全线道路坐标计算程序.doc

坐 标 正 反 算 “N”？N:N=1=Goto?1:Goto?2Δ←┘ Lbl 1:“A”？A:“B”？B:“C”？C:“D”？D:POL(C—A,D－B):I◢←┘ If J0:Then J→DMS◢Else 360+J→DMS◢IfEnd:Goto?1 Lbl 2:“E”？E:“F”？F:“A”？A:“B”？B:Rec(E,F):I→I:J→J: A+I→C◢ B+J→D◢Goto?2 注：Lbl 1 中，A为第一点的X值，B为第一点的Y值, C为第二点的X值, D为第二点的Y值, Lbl 2 中，E为两点间的距离，F为两点间的方位角, A为第一点的X值, B为第一点的Y值, 自编CASIO FX-5800道路程序 功能简介： 本程序由多个主程序和子程序组成，直接运行竖曲线数据库（以绕城高速公路复盛协睦立交及连接道和唐复公路（复盛段）工程V标段为例，如下），可以得出道路中心线高程，录入变量“Q”，自动计算放样偏距（放开挖线用，可不用录入偏距变量“Z”），自动运行坐标正反算程序，得出X,Y,放样方位角，放样距离， 一、竖曲线数据库（1VH） Lbl 0：“S”？S←┘ If S≤竖曲线终点里程:Then ？→B：？→D：？→E：？→F：？→R：？→T：Goto?A :IfEnd ←┘ If S≤竖曲线终点里程:Then ？→B：？→D：？→E：？→F：？→R：？→T：Goto?A :IfEnd ←┘ 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 If S≤竖曲线终点里程:Then ？→B：？→D：？→E：？→F：？→R：？→T：Goto?A :IfEnd ←┘ Lbl A：Prog? S：Prog? 1VZ：Goto?0←┘ 二、竖曲线主程序（SQX） Abs（E-F）R /200→M：B-M→A：B+M→C： If S≤A: Then Goto?1：IfEnd ：If S≤Then Goto 2:IfEnd Lbl 1：D-（B-S）E/100→H◢Goto?A←┘ Lbl 2：D-（B-S）E/100-（S-A）^2/(2RT) →H◢Goto?A←┘ Lbl A：Prog? 1VK（道路宽度数据库）：“K”K◢ H-K×0.015-Q→W:If W≥0:Then Prog? C : Else Prog? B : IfEnd ←┘ 三、使用说明： B变坡点里程，D变坡点高程，E、F分别为第1、2纵坡，R为半径，T=±1（凸为+,凹为-）≤竖曲线终点里程:Then ？→A：？→B：？→C：？→D:Goto?1:IfEnd←┘ If S≤竖曲线终点里程:Then ？→A：？→B：？→C：？→D:Goto?1:IfEnd←┘ If S≤竖曲线终点里程:Then ？→A：？→B：？→C：？→D:Goto?1:IfEnd←┘ 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 Lbl 1：（S-A）÷（B-A）→G:C+（D-C）×（3G2-2G3）→K 说明：A为起点桩号，B为终点桩号，C为起点桩号对应路宽，D为终点桩号对应路宽，G为所求桩号位置系数。 三次抛物线形过渡，公式为： （其中ZHx桩号的位置系数） 如下图所示： （备注：变化段起点桩号为ZH0，宽度为B0；变化段终点桩号为ZH1，宽度为B1计算桩号ZHx处的宽度Bx，其中ZHx∈[ZH0, ZH1] 计算放样偏距子程序（B） W≤ 0 = Goto?1 : Goto?0 ←┘ Lbl 1：If W -8 : Then Abs（W）×0.75 ＋1.6＋K→Z : Else Abs（W） ×0.75＋3.6＋K→Z: IfEnd : Goto?0 : Lbl 0 ←┘ 说明：式中0.75为坡度，1.6为水沟宽度 计算放样偏距子程序（C） W 8 = Goto?1 : Goto?2 ←┘ Lbl 1：If W 8 : Then W×1.5 ＋1.6＋K→Z : IfEnd : Goto?0 ←┘ Lbl 2 : If W 16 :Then （W-8）×1.75＋14＋K→Z : Else （W-16）×2＋30＋K→Z: IfEnd : Goto?0 ←┘ Lbl 0 七、坐标计算数据库???? 数据库程序Lbl A “1.SZ=XY,2.XY=SZ”:“S”？S:“Z”？Z ←┘If S≤