卡西欧5800路基测量程序

晋 测量 斐斐 532901847 21 20 03 一 程序功能 本程序由一个主程序 ZHUCHENXU 和几个子程序 正算子程序 SUB1 反算 子程序 SUB2 数据库 SUB3 算方位角程序 FA 使用方位角算坐标 NE 边坡放样程 序 BIANPO 隧道圆心放样程序 SDYX 构成 可以根据直线 圆曲线 缓和曲线 完 整或非完整型 的线元要素 起点坐标 起点里程 起点切线方位角 线元长度 起点曲 率半径 止点曲率半径 及里程边距或坐标 对该曲线段范围内任意里程中边桩坐标进行 正反算 二 源程序 增加变量 16 DimZ 1 主程序 ZHUCHENXU 1 SZ XY 2 XY SZ 3 SDYX 4 BIANPO N Lbl 1 ZHUANGHAO S Prog SUB3 N 2 Goto 2 Abs S O W BIANZHU Z Prog SUB1 XS X X YS Y Y FS F 90 F FDMS Prog FA Goto 1 Lbl 2 CX X X I CY Y Y J DMG Z 7 Prog SUB2 S O W S Z Z Z If N 3 Then Prog SDYX IfEnd If N 4 Then Prog BIANPO IfEnd Goto 2 2 正算子程序 SUB1 0 1739274226 Z 1 0 3260725774 B 0 0694318442 K 0 3300094782 L 1 L F 1 K M U W Z 1 cos G QEKW C KWD Bcos G QELW C LWD Bcos G QEFW C FWD Z 1 cos G QEMW C MWD X V W Z 1 sin G QEKW C KWD Bsin G QELW C LWD Bsin G QEFW C FWD Z 1 sin G QEMW C MWD Y G QEW C WD 90 F X ZcosF X Y ZsinF Y 3 反算子程序 SUB2 G 90 Z 2 Abs Y V cosZ 2 X U sinZ 2 W 0 Z Lbl 0 Prog SUB1 Z 2 QEW C WD L J Y cosL I X sinL Z If Abs Z 1E 6 Then Goto1 Else W Z W Goto 0 IfEnd Lbl 1 0 Z Prog SUB1 J Y sinF Z 4 数据库 SUB3 If S 226100 Then Cls Stop IfEnd If S236005 651 Then Cls Stop IfEnd Lbl 1 1 P C P R 2HPR D 180 E 5 算方位角程序 FA LbI0 XC A YC T X Y 0 J POI X A Y T I BC I If J 0 Then 360 J J ElseJ J IfEnd FW JDMS Goto0 6 使用方位角算坐标 NE LbI0 X X Y Y L L F0 F L Cos F X N N N L Sin F Y E E E Goto0 7 边坡放样程序 BIANPO QPDJL Z 3 QPDGD Z 4 PG Z 5 2 Z 6 P1 Z 8 P2 Z 9 P3 Z 10 没有的话就删 Z 7 Z 4 Z 11 If Z 11 0 Then AbsZ 11 Z 11 T Z 11 Else W Z 11 IfEnd Z 11 Z 5 Z 12 If Z 12 1 Then Z 8 Z 11 Z 13 Else Z 8 Z 5 Z 9 Z 5 Z 12 1 Z 13 IfEnd AbsZ Z 13 Z 6 Int Z 12 Z 3 Z 14 BP C J Z 14 说明 Z 3 QPDJL 起坡点离中桩距离 Z 4 QPDGD 起坡点设计标高 Z 5 PG 坡高 Z 6 PTK 平台宽度 Z 7 DMG 实测地面高度 Z 8 P1 一级边坡坡度 Z 9 P2 二级边坡坡度 Z 10 P3 三级边坡坡度 没有的话就删 Z 14 BP C J 边坡超欠挖宽度 表超 表欠 8 隧道圆心放样程序 SDYX IF S 229000 THEN 243 997 0 0205 S 226520 S 227318 2 2 16000 1 503 Z 10 NGC Z 10 ELSE 286 385 0 023 S 230500 S 230593 753 2 2 165000 1 503 Z 10 YLJ Z 10 IfEnd Z 10 Z 7 Z 15 SG JD Z 15 Z 15 2 ABS Z 6 8 2 Z 16 R Z 16 三 使用说明 1 规定 1 以道路中线的前进方向 即里程增大的方向 区分左右 当线元往左偏时 Q 1 当线元往右偏时 Q 1 当线元为直线时 Q 0 2 当所求点位于中线时 Z 0 当位于中线左铡时 Z 取负值 当位于中线中线右 侧时 Z 取正值 3 当线元为直线时 其起点 止点的曲率半径为无穷大 以 10 的 45 次代替 4 当线元为圆曲线时 无论其起点 止点与什么线元相接 其曲率半径均等于圆 弧的半径 5 当线元为完整缓和曲线时 起点与直线相接时 曲率半径为无穷大 以 10 的 45 次代替 与圆曲线相接时 曲率半径等于圆曲线的半径 止点与直线相接时 曲率半径为 无穷大 以 10 的 45 次代替 与圆曲线相接时 曲率半径等于圆曲线的半径 6 当线元为非完整缓和曲线时 起点与直线相接时 曲率半径等于设计规定的值 与圆曲线相接时 曲率半径等于圆曲线的半径 止点与直线相接时 曲率半径等于设计规 定的值 与圆曲线相接时 曲率半径等于圆曲线的半径 2 输入与显示说明 SZ XY 2 XY SZ 3 SDYX 4 BIANPO N 选择计算方式 输入 1 表示进行由里程 边距计算坐标 输入 2 表示由坐标 反算 里程和边距 输入 3 表示隧道圆心放样和计算实测半径 输入 4 表示进行路基边坡放 样 3 盖板涵斜交操作说明 以左前点为例 先把盖板涵斜交角度减 后 再盖板涵左长度 盖板涵左长度 盖板涵身宽度 利用 YQXJS 程序计算此桩号正交时 宽度的坐标值 及法线方位角 再转到 NE 程序 三项不要修改 只改 计算后点 前为 4 SUB3 数据库说明 S 待求桩号 O 曲线起点桩号