[整理]9860G线元法隧道(坐标正反计算、高程)计算程序
(整理)CASio9860公路三维坐标计算程序帮助.
程序使用说明--CASIO 9860G 公路三维坐标计算程序程序说明：本程序是一款运行用CASIO 9860G 系列上的公路三维坐标计算程序，程序约8KB大小，使用9860中的表文件作为程序数据，由于受9860主存大小限制，一次约能进行200个交点（交点法）或是约600个线元（线元法）的公路平面坐标和中桩高程，如使用内部后备存储器（1.5M）在需要时手动调入进行计算，或是使用SD卡为数据载体则计算只受这两个容量的限制。
程序功能:程序能选择交点法（一般适用用主线）或是线元法（一般适用于岔道）计算，他们有相同的功能：1、全线三维坐标正算,计算全线路上任一桩号偏距点坐标（支持斜交）2、全线三维坐标反算，实测一点坐标，计算该点所在的桩号及偏距3，线路任一点放样工作，设站后输入任一点桩号偏距斜交即计算测站到该点平距及方位4、批量计算三维坐标，从指定的桩号向结束处或开始处按（以＋或-的为间距间距）连续计算点的三维坐标5、路面挂线测量，支持全站仪和水准仪操作，实测一点计算该点到指定的结构层的高度，用于指导结构层抄平工作6、任意断面隧道超欠挖程序，实测断面上任一点即可得到该点的超或是欠挖值，支持单独断面，或是将断面加入到线路中去（该程序需单独起动不在统一界面选择下）5、结构物相对位置正反算，计算结构物前后左右的点在线路上的坐标或是实测一点后反算实测点到结构特轴线的前后左右（该程序需单独起动不在统一界面选择下）注意：路线上任一点三维坐标中（程序中现计算的是中心高程，如要计算断面点高程则表中要有相应的超高数据并把调用时的Prog”SQX”改成0（零）->O(欧)：Prog "CHAOGAO"，即可计算断面点高程），反算路线上任一坐标的里程和距中心的位置，程序界面及提示说明：主起动程序：MainProg （该程序只起一引导作用，执行时可以直接选择交点法或是线元法直接执行）起动后屏幕显示：Ji SHuan Fang Fa:‘计算方法选择JiaoDianFa: (F1)‘按F1选交点法XianYuanFa: (F2)‘按F2选线元法每个计算所显示提示都是以拼音或是显见的字符表示，对于交点法和线元法，都提两种输入数据方式：一是在EXCEL中组织好数据存成CSV文件后直接导入（当然也可以在程序指定的列表中输入）；二是程序运行时输入，即在运行程序是，根据相应的提示输入数据，由程序自动存入列表中，下面以交点法来说明各阶段的各种提示的意思和处理注意事项，F1交点法按9860面板上最上面一行的功能键F1就直接选择了交点法进行计算，会弹出下面的提示：DuBiaoGeShuJu(1)ShouGongShuRu(123)1读表格中数据直接计算（表格中数据格式见后面说明）1.1）输1后执行还会弹出提示：YaoChuShiHuaBiaoGe？‘要不要初始化表格Chu Shi Huan (-1)‘要初始化输－1Zhi Jie Shi Yong‘－1外的任意值就直接使用表格中数据计算注解：要不要初始化表格，表格中倒进9860的数据在第一次使用时必须要初始化后才能计算，这主要是基于提高处理速度和可能要把表格中的数据输出作为资料使用，初始化计算的内容是每个交点的主点桩号和主点坐标，初始化是一个费时的过程，在第一次初始化后，以后只要表格中的数据没有破坏，就可按非－1的任意值计算了，建议把初始化后的表格备份到寄存器或是SD卡上。
隧道测量程序说明
隧道测量程序说明隧道测量主要在于反算，将大地坐标反算为施工坐标（桩号，偏距和高程）根据线路坡比计算出测量部位的设计高程，考虑设计高程和隧道开挖轮廓点的关系，比如圆心点或者两个圆弧的交界点等。
隧道设计一般为圆形或者城门洞型，直线上我们主要控制底板高程和起拱位置，圆弧部分，根据偏距和高程反算出测点到圆心的距离，然后与设计半径进行比较，看径向上的超欠挖情况。
坐标反算一般分三种线形情况：1、直线；2、圆曲线；3、缓和曲线。
1、直线线路反算，设直线起点坐标为（X0，Y0）起点桩号为Z，终点坐标为（X1，Y1）要求测量点（X，Y）在直线段上的位置：首先求出测量点到起点的距离：pol（X0-X，Y0-Y）J+180->JI->I计算出距离和方位角后，根据三角函数计算偏距和桩号I*sin(J-G) ->W:”W=”:W,G为直线段往大里程方向的方位角。
I*cos(J-G)+Z->S：“S=”:S程序：ZXFY“X0”?A:”Y0”?B:”X1”?C:”Y1”?D:”HQ”?E:”SQ”?F:”ZP”?L”SYZ”?N:”YZ”?Z: ?R:?M:Lbl 0:?X:?Y:?HPol(A-C,B-D)Pol(A-X,B-Y)J+180->JI->Z[0]Z[0]*SIN(J-G)->W:”W=”:W◢Z[0]*COS(J-G)+Z->S:”S=”:S◢E+(S-F)*L+(S-N)^2/(2*13000)->K:”GC”:K◢√(H-K-M)^2+(W)^2)-R->O:”O=”:O◢CLSGOTO 0说明：HQ变坡点高程，SQ变坡点桩号，ZP纵坡，SYZ竖曲线直园或园直桩号YZ平曲线园直点桩号R为开挖断面图半径，M为圆心到设计高程的距离。
GC为测点桩号的设计高程，O为径向超欠挖值，为正表示超挖，为负表示欠挖。
在有直墙段时，看W和设计宽度的差值。
“13000”表示的是竖曲线的半径，实际中可以改一下。
9860操作手册
基于计算器的中文测量计算系统道路之星操作手册2018年4月目录第一章概述 (1)第二章系统安装 (3)第一节电脑端程序 (3)第二节计算器与电脑交换数据 (4)第三节计算器程序 (6)第四节计算器程序基本操作 (8)第五节计算器与仪器的联机操作 (12)第六节道路之星简易操作指南 (16)第三章常规计算 (18)第四章水准网记录及平差 (27)第五章控制测量记录与平差 (33)第六章道路测设 (37)第一节项目管理 (38)第二节道路正反算 (43)第三节路基路面控制 (54)第四节边坡计算 (60)第五节构筑物及桥梁计算及检测 (64)第六节隧道超欠挖计算 (72)第七节批量数据计算 (81)第八节数据采集及处理 (82)第七章计算器数据输入 (87)道路之星操作手册第一章概述第一章概述一、功能和特点道路之星适用于公路、铁路、城市道路主线、立交匝道、隧道的勘测设计与施工放样工作。
软件分为两个部分：a.电脑端数据处理负责设计输入输出、设计成果的复核、现场采集数据的分析计算以及与计算器进行文件传输；b.计算器端施工现场计算基于Casio fx9750、fx9860、fxCG20计算器设计，负责现场的施工指导和相关数据的采集。
（一）、道路全线测设系统：将道路全线或一个标段所有数据一次性输入，主线、匝道可以存入一个文件，用路线名进行标识，一个项目文件可以包含任意多条路线。
统一计算中边桩平面坐标及高程，进行一致的查询、放样等计算。
1、支持任意多级断链，支持任意道路断面形式。
2、平面。
支持点法或线元法，都可适用于对称或不对称基本形、S或C形、拱（凸）形、复曲线、卵形线、回头曲线等各种线形。
提供的成果主要有：直曲表、线元一览表、逐桩坐标计算表。
3、纵断面。
可以进行纵断面的设计、计算。
竖曲线计算方式可以选择传统或精确算法。
4、超高加宽。
采用按板块进行超高、加宽的计算。
加宽方式有：线性过渡、三次抛物线、四次抛物线过渡；超高过渡方式：线性过渡、三次抛物线过渡。
9860公路测量实用程序5.0版本使用说明
9860公路测量实用程序6.0正式版使用说明QQ258062902 编程群2429110686.0版本和5.0版本比较：5.0版本自动根据缓和曲线长进行超高和加宽分配计算，操作简单，但是对于两圆公用一段缓和曲线的情况就无法处理。
6.0版本和其他新出的程序一样，根据前后特征桩号的加宽和超高值进行线性或者抛物线过渡，可以计算异坡，同坡或者反坡过渡。
但是数据输入比较麻烦，如果没有出现两圆公用一段缓和曲线的情况建议使用5.0版本。
一：免责声明程序仅供参考，任何因使用本程序造成的损失本人概不负责。
因本程序较为复杂，使用者需要一定的CASIO编程经验才能理解，对于初学者建议使其它软件。
参考了其它优秀的程序后，目前程序包含交点法，万能坐标转换程序以及线元法坐标计算程序，已经可以满足C型，卵形等复杂曲线的测量工作。
因本人没有做过高等级公路，所以目前专为低等级公路考虑，使用者掌握了使用方法后由能够快速，灵活，全面的完成测量作业，挡墙和涵洞可以在根据现场情况快速完成设计和测量作业，为测量工作节约了时间。
因程序中止容易误删代码，所以重要程序上锁敬请谅解。
在使用第一次使用本程序时请将list和listfile 文件一起拷贝到计算器，否则程序无法运行。
因本程序是由分段程序整合而来，所以和真正的全线程序在反算时有一定差别，在跨越不同交点段时用户应至少进行一次正算复核。
本程序所有输入和输出角度均为度分秒形式。
二：主程序符号说明普通的等完整过度曲线用户可以直接采用交点法计算,交点法操作简单直观，非常适合低等级公路的测量。
如果选遇到C型，卵形等非完整过度曲线时需要运行T程序进行交点参数修正，也可以直接运行线元法进行坐标计算。
但是线元法坐标计算参数输入太繁琐，且可计算范围仅为交点法的1/5，小半径曲线反算需要经常正算复核，否则极易出错，所以不建议采用，只是作为一种独立的复核程序使用。
A【交点法主程序】1-ZS,2-FS,3-CS (正算-1，反算-2)用户在第一次运行程序时必须先运行一次3-CS选中正确的项目，否则不能正确计算。
坐标正反算及隧道超欠挖程序
任意坐标正反算及隧道超欠挖程序上面两个圆按钮，右边的一个“FUNCTION”键，3 PROG——下翻页——下翻页——4选项就是 Locate1-JIN YU(主程序)Lbl 4:"1→ZS,2→FS,3→CQW"?NN=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3Lbl 1: “K=”?S：“P=”?Z：Prog “SJ¬-PM”： Abs(S-O) → W：Prog "SUB1-ZS"：“X="：Locate4,4,X:"Y="：Locate4,4,Y:F-90→F:S→ K:Prog“SJ¬-GC”：“H=”：Locate4,4,H◢Goto 4Lbl 2:“X=”?X：“Y=”？Y:Prog“SJ¬-PM”：X→ I：Y→J：Prog "SUB2-FS"：O+W→S: “K="： S ◢“P="： Z◢S→ K:Prog“SJ¬-GC” ：“H=”： H◢Goto 4Lbl 3: “X=”?X：“Y=”？Y:Prog“SJ¬-PM”：X→ I：Y→J：Prog "SUB2-FS"：O+W→S: “K="： S ◢“P="： Z◢S→ K:Prog“SJ¬-GC” ：“H=”： H◢Prog“SJ-CQW” ◢Goto4SJ¬-PM（子程序名-平面线形数据库）If S ≥59227.681（线元起点里程）:Then 2599818.013→U（线元起点X坐标）：496887.918→V（线元起点Y坐标）：59227.681→O（线元起点里程）：208028’39”→G（线元起点方位角）：100 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1）：IfEndIf S ≥59327.681（线元起点里程）:Then 2599730.112→U（线元起点X坐标）：496840.237→V（线元起点Y坐标）：59327.681→O（线元起点里程）：208028’39”→G（线元起点方位角）：90 →H（线元长度）：1×1045→P（线元起点曲率半径）：750→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1）：IfEnd…………SJ-GC¬（子程序名-竖数据库）If S＜变坡终点里程And S≥变坡起点里程：Then大里程坡度→A：小里程坡度→B：变坡点里程→O：变坡点高度→G：半径→R：Prog“SUB3-GC”:IfEnd (注：1.有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。
9860计算器[教材]
![9860计算器[教材]](https://img.taocdn.com/s3/m/18933c0fb80d6c85ec3a87c24028915f804d8490.png)
9860计算器[教材]9860计算器经过几个月刻苦研究，本人开发的全能三维坐标计算程序(适用于卡西欧9860折叠式图形计算器及系列卡西欧图形计算器)终于完成。
本人开发的全能三维坐标计算程序，适应性强，地形、建筑、鉄路、公路、各种管线沟渠等都适用。
程序中的核心程序就是网上发表的线元通用积分程序，它适应各种线元，直线、折线、完整缓和曲线、非完整缓和曲线、园曲线、S型曲线、卵型曲线、复曲线等由各种线元组合的复杂曲线。
线元通用积分程序在本人开发的程序中，线元输入，坐标正算，坐标反算，隧道超欠挖都在应用。
本人开发的全能三维坐标计算程序功能最全，地形测量、建筑放线、路基分层测量、斜交、超高、加宽、边坡放线、隧道超欠挖等均可使用，你只需要在程序运行中根据程序中的提示输入相应的参数即可运行相应的功能。
建筑放线你只需要在线元输入中按直线元输入一个线元数据即可，K+即是你确定的纵向建筑放线方向距离，-C就是相对应横向距离，运行后即可显示你需要的放线数据水平角Hr及水平距离HD.你需要做的是设置仪器数据中以你定的建筑原点(N=0,E=0)输入相应坐标数据。
本人开发的全能三维坐标计算程序中，道路加宽及超高在缓和曲线全段范围内进行，加宽曲率变化按四次曲线公式计算，超高曲率变化按三次曲线公式计算，超高计算以道路中心旋转计算。
本人开发的全能三维坐标计算程序，在进行道路加宽及超高计算时，程序根据里程自动判断所在位置(直线段、前缓和曲线段、园曲线段、后缓和曲线段)及线路转向(左转、右转)并计算加宽值和超高值，加宽值自动设置为曲线内侧值，超高值按横向距离值自动计算加入设计标高中，同时显示该位置超高计算的坡度。
本人开发的全能三维坐标计算程序中，数据库功能最全(按MENU键，按2键。
进入统计模式)，第一行数据是程序运行中的各种参数数据，第二行及以后数据是:第一列到第十一列为测量数据库，包括坐标正反算中所有数据(输入的和输出的数据)，第十二列到第十五列为标准点数据库，第十六列到二十一列为线元数据(包括平曲线，竖曲线，边坡断面，隧道断面等)。
CASIO 9860G SD线元法隧道三维
CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序1. A（此为主程序）Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V：If V=1：Then GOTO 1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ：If V=3：Then GOTO 3 ：Else GOTO 0 ：IfEnd：Lbl 3：〝ZH=H〝？→H ：〝SDZF=Z〝？→Z：Prog〝ZGCZCX〝：GOTO 0：Lbl 1 ：〝ZH=L〝？→L：If L>173000 And L<174661.96：Then GOTO 4 ：Else GOTO 0 ：IfEnd ：Lbl 4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q：Prog 〝ZBQXYS〝：〝JSJD=J〝：90→J▲Prog 〝ZSZB〝：〝X=〝：X ▲ 〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲L→H：Q-0.125→Z：Prog 〝ZGCZCX〝：GOTO 0：Lbl 2：〝XO=M〝?→M：〝YO=R〝?→R：173300→L：If M>3845505.273 And M<3846506.099And R>499371.832 And R<500352.224 ：Then GOTO 5：Else GOTO 2：IfEnd ：Lbl 5：0→Q：0→J：Prog 〝ZBFS〝：〝LC=L〝：L ▲〝JL=Q〝：Q▲ 〝SDZJ，-Z+Y=Q〝：Q-0.125→Q▲L→H：Q→Z：Prog 〝ZGCZCX〝：GOTO 02.正算坐标ZBZS( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：2HF/ I→D：C+4D+16U→Ｏ：O+J→P ：C+ D+ U→E：C+2D+4U→W：C+3D+9U→G：A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P→X ：B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y3.反算坐标：ZBFSLbl 0：Prog 〝ZBQXYS〝：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ：L+P→L：If Abs P≥0.001：Then GOTO 0 ：Else GOTO 1：IfEnd ：Lbl 1： (R-Y)cosO-(M-X) sinO→Q4. 曲线元要素数据库：ZBQXYSIf L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ：If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ：If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ：If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ：If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→I：**→ K：**→ T IfEnd ：……………………………If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ┘(注：如有多个曲线元要素继续添加入数据库ZBQXYS中)5 高程计算主程序ZGCZCX (后有修改说明)Lbi1 ：〝SCGC=X〝？→X：〝R=M〝：5.98→M：〝CS=N〝：1.603→N：Prog＂GCSJK＂：C-D→F：Abs(RF÷2) →T：R AbsF÷F→R：If H≤B-T ：Then 0→K：GOTO 2：IfEnd ：If H>B-T And H<B+T ：Then H-B+T→K ：GOTO 2：IfEnd ：If H≥B+T ：Then 0→K：D→C：GOTO 2：IfEnd ：Lbi 2 ：〝XLZG=G〝：A-（B-H）C-K^2÷2R→G▲If Z≥0：Then If X>100 Then 〝YO1XGC=J〝：G+N→J▲〝YGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲〝YKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲〝YGCCQ,C+,Q-=J〝：X-J→J▲Else〝YO1XGC=J〝：G+N→J▲〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲ IfEnd ：Else 〝ZO1XGC=J〝：G+N→J▲If X>100 ：Then〝ZGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲〝ZKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲〝ZGCCQ,C+,Q-=J〝：X-J→J▲Else〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J ▲IfEnd ：IfEnd6高程计算主程序子程序：GCSJKIf H>起点桩号 And H≤第一个竖曲线起点桩号Then 第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd：If H>第一竖曲线止点桩号 And H≤第二竖曲线起点桩号Then 第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd：If H>第一竖曲线止点桩号 And H≤第二竖曲线起点桩号Then 第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd………………………(继续添加要素)说明：第一部分坐标部分（1、2、3、4）V=1进入坐标正算 V=2进入坐标反算V=3进入单独的高程计算当V不等于1、2、3时，则返回程序，要求再次输入V值。
FX-9860G程序说明
鉴于FX-9860G计算器的便于和电脑、计算器之间通讯，计算速度快，编制数据库简单，特编写此程序。
此程序采用交点法，包含非对称缓和曲线，可计算中桩坐标、不同偏角的边桩坐标、结构物角点坐标、中边桩高程计算（已考虑超高、路面结构层厚度）、现场标高检测、三维坐标反算（里程、边距、高程）,预留路基坡口、坡脚线放样和隧道放样子程序。
使用说明1、数据库编制规定(1) 一条线路为一个串列数据文件，可以在计算器的串列中输入；也可在Excel 中编制，但要以.csv格式保存，再上传到计算器。
(2) 串列文件输入平面曲线要素，顺序输入起点、个各交点、终点的桩号List 1、半径List 2，前缓和曲线长List 3、后缓和曲线长List 4、偏角List 5,以道路中线的前进方向（即里程增大的方向）区分左右；当曲线扁左时，半径、偏角取负值，当曲线扁右时，半径、偏角取正值。
起终点的参数输入零。
List 15[1]、List 16[1]、List 17[1]中输入起点X坐标、Y坐标、方位角，以十进制度为单位。
(3) 串列文件输入高程要素，纵坡只需输入个节各点桩号List 9、高程List 10、竖曲线半径List 11起终点的List 11为零。
横坡需输入个各节点桩号List 6、左横坡度（%）List 7、右横坡度（%）List 8。
List 12[1]中输入二分之一中央分隔带宽度。
2、输入与显示说明输入部分：A: "Ji Suan Xuan Ze" 选择计算方式输入1表示进行由里程、边距计算坐标；输入2表示由里程计算高程；输入3表示进行由三维坐标反算里程、边距、高程B：坐标计算"Li Cheng Zhuang Hao=" 输入所求坐标的里程；"Dao Zhong KuangDu=" 输入所求边桩距中线的宽度；"R Pian Jiao="输入所求边桩与中线的右偏角，正交时输0或90；"(0)->Enter or D"结构物计算中，轴线里程的切线方向上宽度（前+后-）C: 高程计算"JieGouCheng 0->H"输入所求高程面的间距，从设计里程向下，0为设计高程面；"Shi Xian Gao =" 输入高程测量时的视线高；"Li Cheng Zhuang Hao="输入所求高程的里程；"Ju Zhong Kuang="输入所求边桩高程距中线的正交宽度，左为负，右为正。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序悬赏分：+62作者：刘工2010-4-31. A（此为主程序）Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V：If V=1：Then GOTO 1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ：If V=3：Then GOTO 3 ：Else GOTO 0 ：IfEnd：Lbl 3：〝ZH=H〝？→H ：〝SDZF=Z〝？→Z：Prog〝ZGCZCX〝：GOTO 0：Lbl 1 ：〝ZH=L〝？→L：If L>173000 And L<174661.96：Then GOTO 4 ：Else GOTO 0 ：IfEnd ：Lbl 4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q：Prog 〝ZBQXYS〝：〝JSJD=J〝：90→J▲Prog 〝ZSZB〝：〝X=〝：X ▲ 〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲L→H：Q-0.125→Z：Prog 〝ZGCZCX〝：GOTO 0：Lbl 2：〝XO=M〝?→M：〝YO=R〝?→R：173300→L：If M>3845505.273 And M<3846506.099And R>499371.832 And R<500352.224 ：Then GOTO 5：Else GOTO 2：IfEnd ：Lbl 5：0→Q：0→J：Prog 〝ZBFS〝：〝LC=L〝：L ▲〝JL=Q〝：Q▲ 〝SDZJ，-Z+Y=Q〝：Q-0.125→Q ▲L→H：Q→Z：Prog 〝ZGCZCX〝：GOTO 02.正算坐标ZBZS( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：2HF/ I→D：C+4D+16 U→Ｏ：O+J→P ：C+ D+ U→E：C+2D+4U→W：C+3D+9U→G：A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P→X ：B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y3.反算坐标：ZBFSLbl 0：Prog 〝ZBQXYS〝：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ：L+P→L：If Abs P≥0.001：Then GOTO 0 ：Else GOTO 1：IfEnd ：Lbl 1： (R-Y)cosO-(M-X) sinO→Q4. 曲线元要素数据库：ZBQXYSIf L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→ T IfEnd ：If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→ T IfEnd ：If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→T IfEnd ：If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→ T IfEnd ：If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→ T IfEnd ：……………………………If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→ T IfEnd ┘(注：如有多个曲线元要素继续添加入数据库ZBQXYS中)5 高程计算主程序ZGCZCX (后有修改说明)Lbi1 ：〝SCGC=X〝？→X：〝R=M〝：5.98→M：〝CS=N〝：1.603→N：Prog＂GC SJK＂：C-D→F：Abs(RF÷2) →T：R AbsF÷F→R：If H≤B-T ：Then 0→K：GOTO 2：IfEnd ：If H>B-T And H<B+T ：Then H-B+T→K ：GOTO 2：IfEnd ：If H≥B+T ：Then 0→K：D→C：GOTO 2：IfEnd ：Lbi 2 ：〝XLZG=G〝：A-（B-H）C-K^2÷2R→G▲If Z≥0：Then If X>100 Then 〝YO1XGC=J〝：G+N→J▲〝YGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲〝YKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲〝YGCCQ,C+,Q-=J〝：X-J→J▲Else〝YO1XGC=J〝：G+N→J▲〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲ IfEnd ：Else 〝ZO1XGC=J〝：G+N→J▲If X>100 ：Then〝ZGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲〝ZKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲〝ZGCCQ,C+,Q-=J〝：X-J→J▲Else〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J ▲IfEnd ：IfEnd6高程计算主程序子程序：GCSJKIf H>起点桩号 And H≤第一个竖曲线起点桩号Then 第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd：If H>第一竖曲线止点桩号 And H≤第二竖曲线起点桩号Then 第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd：If H>第一竖曲线止点桩号 And H≤第二竖曲线起点桩号Then 第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd………………………(继续添加要素)说明：第一部分坐标部分（1、2、3、4）V=1进入坐标正算 V=2进入坐标反算V=3进入单独的高程计算当V不等于1、2、3时，则返回程序，要求再次输入V值。
变量说明：S……..起点里程A…..起点X坐标B….起点Y坐标C….起点方位角I ….….起点半径K…..终点里程T .…终点半径L….计算点里程J…输入左右（左-，零，右+）角度Q….中桩到边桩的距离〝SDZJ-Z+Y〝为隧中支距，左〝-〝右〝+〝坐标正算中输入的Z值为线路支距坐标反算中得出的Z值也为线路支距注意：1：计算中桩坐标J D,JL 等于零。
2：这里的方位角是指〝主点作为起点〝的方位角例如：（ZY , YZ , ZH ,QZ, HY , YZ）每个点都是起点所以特别注意3、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，半径＝半径*-1；当线元往右偏时，半径=半径；当线元为直线时，半径=以10的45次代替。
(2) 当所求点位于中线时，Q,J=0；当位于中线左侧时，J取负值；当位于中线右侧时，J取正值。
(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。
(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
4、输入与显示说明V=1的时候JL ？正算时所求点距中线的边距(在中线上取零)J ？边桩时左右边桩连线与线路中线的交角线元左右偏标志(左偏J=-1*角度，右偏J=角度，直线段J=0) 角度X=×××正算时，计算得出的所求点的X坐标Y=×××正算时，计算得出的所求点的Y坐标FWJ=*** 计算得出所求点的方位角°′″V=2的时候XO=×××所求点的X坐标YO=×××所求点的Y坐标LC=**** 求点所对应的里程JL=**** 求点到所对应的里程的距离 -5就是左边相反就是右边想知道是否正确V=1 看看坐标是否一致注意：验算的时候不需要改动JL ？ J ？[/center]◢说明：第二部分高程部分（5高程计算主程序：SQXBG 6高程计算主程序子程序：S JK）1、A：交坡点高程2、B：交坡点桩号3、C：前坡度（上坡为正，下坡为负）4、D：坡度（上坡为正，下坡为负）5、R：竖曲线半径6、H：待求点桩号7、E：下一竖曲起点桩号8、X〝SCGC〝测点实测高程9、M〝R〝 O1点半径（此处如须计算开挖线加上二衬厚度、沉降量、其他结构层的厚度即可）10、N〝CS〝线路中桩设计高程至O1点的距离11、J〝YO1XGC〝 O1点（圆心点）高程12、J〝YSBSJGC〝根据桩号及支距（正反算程序中）计算得到的测点（设计）高程J〝YGCFSKD〝反算中根据高程反算得到的支距J〝YKDCQ,+C,-Q〝实测高程计算得支距与坐标反算得支距进行对比,得到超欠挖J〝YGCCQ,C+,Q-〝实测高程与坐标反算得到高程进行对比,得到超欠挖13、J〝ZO1XGC〝 O1点（圆心点）高程14、J〝YSBSJGC〝根据桩号及支距（正反算程序中）计算得到的测点（设计）高程J〝ZGCFSKD〝反算中根据高程反算得到的支距J〝ZKDCQ,+C,-Q〝实测高程计算得支距与坐标反算得支距进行对比,得到超欠挖J〝ZGCCQ,C+,Q-〝实测高程与坐标反算得到高程进行对比,得到超欠挖（本人施测的是一公路隧道的上行线，线路中心线至隧道中心线的距离为0.125米，线路中心线在隧道中心线的左侧。
Z〝SDZJ-Z+Y〝为隧中支距，Z+0.125为线路支距。