卡西欧9860公路测量程序

程序使用说明--CASIO 9860G系列公路三维坐标计算程序程序说明：本程序是一款运行用CASIO 9860G 系列上的公路三维坐标计算程序，程序约8KB大小，使用9860中的表文件作为程序数据，由于受9860主存大小限制，一次约能进行200个交点（交点法）或是约600个线元（线元法）的公路平面坐标和中桩高程，如使用内部后备存储器（1.5M）在需要时手动调入进行计算，或是使用SD卡为数据载体则计算只受这两个容量的限制。

程序需运行在OS2.0以上的系统上，如不是OS2.0的请自行升级成OS2.0。

程序功能:程序能选择交点法（一般适用用主线）或是线元法（一般适用于岔道）计算，他们有相同的功能：1、全线三维坐标正算,计算全线路上任一桩号偏距点三维坐标（支持斜交）2、全线三维坐标反算，实测一点坐标，计算该点所在的桩号及偏距、高程计算可选3、批量计算三维坐标，从指定的桩号向结束处或开始处按间距连续计算点的三维坐标，所有点存在表文件中，倒入EXCEL中即可生成点位坐标表4、结构物相对位置正反算，计算结构物前后左右的点在线路上的坐标或是实测一点后反算实测点到结构特轴线的前后左右（该程序需单独起动不在统一界面选择下）5、路面挂线测量，支持全站仪和水准仪操作，实测一点计算该点到指定的结构层的高度，用于指导结构层抄平工作6、任意断面隧道超欠挖程序，实测断面上任一点即可得到该点的超或是欠挖值，支持单独断面，或是将断面加入到线路中去,加入线路后，实测一点三维坐标，即可得出该点到断面轮廓线的距离，快速的指导施工放样。

（该程序需单独起动不在统一界面选择下）7、线路放样功能，放任一点设站后只需输入放样桩号和偏距即可得出放样数据8、所有使用子程序预留标准接口，方便自己程序进行调用，以增加现有功能9、放样功能，设站后，只需输入需要放点的桩号和偏距(斜交），即可得到方位和平距10、主点元素计算及导出功能（交点法），计算所线路上所有交点五大桩的坐标，桩号，可导出到EXCEL，即生成主点元素表11、测量中常用的坐标正、反算程序12、不需输入点数的多边形面积计算程序13、单线元坐标正反算程序以及常用功能示例程序14、锥坡放样功能，实测一点反算该点在水平方向和高程方向和设计值的偏差，支持斜交锥坡15、任意多边形面积解析法计算程序16、路线任意级数边坡放样程序，只需测定边坡上一点三维坐标，指示该点向设计坡面的移动值。

fx-9750GⅡ公路测量程序使用说明一、程序使用流程本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A匝道，文件名为A，将匝道A所有的曲线线元参数输入A文件里。

运行时只要运行文件名A的程序就可以了，具体运行流程见下图：二、数据文件的编写（一）交点法数据文件编辑交点法编写数据文件必须是对称型的，即直线段→缓和曲线段→圆曲线段→缓和曲线段→直线段，（如果任意一端没有直线段，则把直线段长度看做是0），另外圆曲线两侧缓和曲线的旋转常数必须相等，并且和直线段连接处的半径必须是无穷大。

交点法数据文件编写一般是根据设计图纸提供的平面曲线参数一览表提供的参数来编写，每个弯道包括：弯道起点方位角（C），交点X坐标（D），交点Y坐标（E），缓和曲线长度（F，当没有设缓和曲线时，F=0），交点转交（G，向左转弯，G为负值，向右转弯，G取正值），交点桩号（H），弯道圆曲线半径（R）。

下图是一段市政道路设计参数数据。

根据上图提供的数据，可以编辑成如下的数据文件：文件名:CHLNR在上图中，有两个条件转移语句即If L>0：Then 98°39°35.12°→C:4774.384→D: 2415.861→E:140→F:31°17°23°→G:410.007→H:600→R:IfEndIf L>1060：Then 129°56°58.19°→C:4206.421→D: 3093.946→E:70→F:-33°50°48°→G:1285.437→H:600→R:IfEnd……如果还有其他弯道，可以继续完后加。

在这些存放设计参数的语句前后的程序表达式是固定的。

说明：编辑曲线参数时，每个曲线参数放在一个If L>***.***（两个弯道中间直线段上的任意桩号）:Then ***°**°**.**°→C（弯道起点方位角）：****.***→D（交点X坐标）：****.****→E（交点Y坐标）：***.***→F（缓和曲线长度：**°**°**°→G（转角，向左转为负值，向右转为正值）：***.***→H（交点里程桩号）:***→R（圆曲线半径）:IfEnd 条件式语句里，如果有多个弯道，一直按上述形式编下去，变量说明：1、L>***.***弯道参数的起点范围，可以是弯道起点，也可以是弯道前直线段里的任意点桩号2、***°**°**.**°→C 弯道起点方位角3、****.***→D、****.****→E交点X坐标、Y坐标4、***.***→F缓和曲线长度，如果没设置缓和曲线，则缓和曲线长度看做05、**°**°**°→G 转角，向左转为负值，向右转为正值6、***.***→H、交点里程桩号7、***→R 圆曲线半径注意，运行程序时，第一部是输入测站坐标X0，Y0，然后输入近似桩号，主要是为了加快收敛，输入时注意当根据桩号和距中距离计算所求点坐标时，请不要把小数点第四位输入0.0001，如K21+369.0921，请把桩号输入21369.092即可，相反，当根据坐标反算桩号和距中距离时，请在输入时把第四位小数数位0.0001，如K21+200，输入时请输入21200.0001。

整理编绎：林牧兴编绎日期：2013年4月13日星期六QQ：9725291 Email：croptree@ FX-9860GII SD 测量程序使用说明书2013.03.13 更新一、程序文件的安装：1.解压文件“Fx9860 Celang Addin.rar”。

2.打开CASIO FA-124 程序，将CL2012.g1a 插件和要素文件上传到计算器的内存中。

关于文件安装及同步的详细步就不讲了，不清楚的请百度一下。

3.打开计算器会发现多了一个项目。

4. 注册是为了收集反馈使用情况和插件的兼容性，方便下次修改。

5.注册是完全免费的。

6.从12.09版开始取消试用的功能。

7.主界面：按F1~F6选择功能。

F1：坐标正算放样功能F2：坐标反算功能F3：隧道断面测量功能F4：边坡放样功能F5：水准测量功能F6：坐标计算工具二．功能介绍：F1坐标正算：K=待求点的桩号D=待求点与中桩的偏距（左负右正）V=待求点与线路方位角的夹角，一般都是90度（斜交除外）。

Ht=结构物的厚度（正减负加）。

Rou：选择路线。

Set：设置参数。

K+：里程加上桩间距。

K-：里程减去桩间距。

K.D：切换显示结果样式按F1进入“选择数据库”（如右图）按上、下键移动选项，按EXE键选定文件，按F1查看平曲线要素；按F2查看竖曲线要素；按F3查看横坡/超高要素；按EXIT键重新选择文件。

整理编绎：林牧兴编绎日期：2013年4月13日星期六QQ：9725291 Email：croptree@ 按EXE 确认并返回（第一行显示打开的文件路径及要素数据文件名）参数设置：Mk=正算时为与下一个桩号的间距。

Mk=反算时为辅助桩号。

Pd=平坡距；即平曲线设计线到高程设计线的距离，一般是1米吧。

Hd=最大横坡距；就是超出这个范围的偏距不算横坡超高。

（不含平坡距的距离。

）设置好按F3或Exit确定并返回。

坐标显示结果：K=待求点的桩号X=待求点的X坐标Y=待求点的Y坐标Z=待求点的（中桩）设计高程F=待求点线路方位角HP=待求点横坡坡度BH=待求点（边桩）高程。

基于计算器的中文测量计算系统道路之星操作手册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公路测量实用程序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选中正确的项目，否则不能正确计算。

9860GⅡ公路测量多功能计算程序说明书欢迎使用9860GⅡ公路测量多功能计算程序！！该程序陆续编写于2010年5月至9月,直至10月1日程序基本编写成功,本测量程序适用于国家公路，市政，水利等各等级公路及隧道工程建设施工放样计算，拥有一些测量用小功能计算程序、程序数据库列表化（可直接在EXCLE表格中输入数据库导入计算器）、同时支持交点法与线元法两种平面计算方式、三维线路计算强大、一般小结构物计算、可对图纸进行逐桩检查、线路内任意点计算或者放样，边坡放样,无限制隧道断面计算等许多亮点功能。

程序由本人原5800程序《5800三维全能程序（丢掉图纸轻松测量）》改编而来，更改幅度很大，只保留了部分结构意图，数据库参数输入方便，使用操作人性，功能超强大，且保留扩展接口方便以后增加更多的功能，方便升级。

在学习本程序之前请认真学习附件fx-9860Gsoft中文说明书，以防止在计算器使用过程中发生低级操作错误。

如果您的计算器是SLIM 或者GSD1.0操作系统，请进入网站进行刷机升级，/thread-1535-1-1.html（网站上说明很清楚，在此不再说明），刷机成功后在菜单MENU中会增加一个E-CON2模块文件，请确认是否刷机成功，用1.0版的操作系统使用本程序会出现错误。

请安装程序附件中的FA-124软件，您的光盘中的FA-124软件是1.0版本，不能使用！如有安装1.0软件，请先卸载再进行安装，使用FA-124 1.0版，会在程序传输过程中出现乱码扰乱程序今后的正常运行安装软件后请使用数据线连接计算器。

请先将9860GⅡ公路测量多功能计算程序传输进计算器中进行以下步骤连接电脑与计算器，在计算器中会出现以下菜单选项Select Connection ModeDateTrans : [F1] ScreenCapt : [F2] Scrojectro : [F3] ScreenRecv : [F4] 按F1连接计算机如果您是第一次联机，计算器中会提示发现新硬件连接是否安装软件，选择是当您听到滴答的声音证明连接成功运行桌面上的FA-124按连接计算器，当该键变成灰色连接即成功！在软件界面右侧的列表栏中，鼠标右键点击选择Import 找到程序文件中的文件，点击打开这时您的FA-124软件中的Defauit下拉文件中会出现List\List File\Program子文件,如下图:移动鼠标将这三个文件拉至右侧，如下图恭喜！！程序安装成功按键即可结束联机功能序号一览表序号目录一数据库的编写及检查和运用1 数据库的输入方法1．1 平曲线数据库1．2 竖曲线数据库1．3 横坡超高数据库1．4 隧道数据库1．4．1 隧道断面变化里程数据库1．4．2 隧道断面数据库1．4．3 隧道结构层数据库1．5 EXCLE操作数据库及传输1．6 列表初始化二程序使用及其操作指南1 界面1〈Xuan-Ze(1)〉菜单界面1．1 三维模式 A1．2 简单反算 B1．3 单交点法 C1．4 导线简易平差 D1．5 多功能正算 E1．5．1 简单单点正算1．5．2 简单多点正算1．5．3 简单结构计算1．5．4 简单支导线计算1．6 单线元法 F1．7 坐标系转换 G1．8 面积计算 H1．9 四等水准计算 I2 线路选择3 界面2〈Xuan-Ze(2)〉菜单界面3．1 线路单点三维计算 A3．2 线路单点三维反算 B3．3 线路逐桩计算 C3．4 隧道模式 D3．5 三维功能的设置 E3．6 涵洞计算 F3．7 设计边桩计算 G3．8 边坡放样 H4 界面3〈Xuan-Ze(3)〉菜单界面4．1 右线隧道超欠计算 A4．2 左线隧道超欠计算 B4．3 仰坡计算 C4．4 定点放样计算 D一数据库编写及检查和运用（请参考列表说明文件对应学习）1，程序数据库的输入方法列表基本认识：9860计算器列表功能支持File1～File6（ 6张列表），查看调度方式为进入MENU菜单模式，进入STAT列表功能，先按SHIFT再按MENU进入参数设置界面，List File功能即是，移动光标至List File 按F1选择FILE 出现1～6选择，如果您想调取第二张列表，输入2按EXE回车，再按EXIT退出键，即可看到列表的第二张表格，现在即可对该表进行编辑和检查。

9860计算器[教材]9860计算器经过几个月刻苦研究，本人开发的全能三维坐标计算程序(适用于卡西欧9860折叠式图形计算器及系列卡西欧图形计算器)终于完成。

本人开发的全能三维坐标计算程序，适应性强，地形、建筑、鉄路、公路、各种管线沟渠等都适用。

程序中的核心程序就是网上发表的线元通用积分程序，它适应各种线元，直线、折线、完整缓和曲线、非完整缓和曲线、园曲线、S型曲线、卵型曲线、复曲线等由各种线元组合的复杂曲线。

线元通用积分程序在本人开发的程序中，线元输入，坐标正算，坐标反算，隧道超欠挖都在应用。

本人开发的全能三维坐标计算程序功能最全，地形测量、建筑放线、路基分层测量、斜交、超高、加宽、边坡放线、隧道超欠挖等均可使用，你只需要在程序运行中根据程序中的提示输入相应的参数即可运行相应的功能。

建筑放线你只需要在线元输入中按直线元输入一个线元数据即可，K+即是你确定的纵向建筑放线方向距离，-C就是相对应横向距离，运行后即可显示你需要的放线数据水平角Hr及水平距离HD.你需要做的是设置仪器数据中以你定的建筑原点(N=0,E=0)输入相应坐标数据。

本人开发的全能三维坐标计算程序中，道路加宽及超高在缓和曲线全段范围内进行，加宽曲率变化按四次曲线公式计算，超高曲率变化按三次曲线公式计算，超高计算以道路中心旋转计算。

本人开发的全能三维坐标计算程序，在进行道路加宽及超高计算时，程序根据里程自动判断所在位置(直线段、前缓和曲线段、园曲线段、后缓和曲线段)及线路转向(左转、右转)并计算加宽值和超高值，加宽值自动设置为曲线内侧值，超高值按横向距离值自动计算加入设计标高中，同时显示该位置超高计算的坡度。

本人开发的全能三维坐标计算程序中，数据库功能最全(按MENU键，按2键。

进入统计模式)，第一行数据是程序运行中的各种参数数据，第二行及以后数据是:第一列到第十一列为测量数据库，包括坐标正反算中所有数据(输入的和输出的数据)，第十二列到第十五列为标准点数据库，第十六列到二十一列为线元数据(包括平曲线，竖曲线，边坡断面，隧道断面等)。

程序清单AADo:Deg:ClrText“F1 Fangyang”“F2 Jiance”“F3 suidao”…FN:6→V:3→I:Prog “GN”…XL:3→V:Prog “GN”Prog “FN”:ClrText“Cont”:1→W:Prog “SC”LpWhile F=1ZZList 7[1]→I:List 8[I]→I:1→V Do:I+1→I:List 9[I+1]→Q LpWhile K>Q-List 12[I+1]List 10[I]→M:List 11[I]→NList 16[I]→S:List 17[I]→RList 9[I]→Q:-List 12[I]→J6→W…Q H:Q+J→Q:Prog “SC”:Prog “GN”K-Q→J:1E-20→B:List 13[I]→OO<0=>1÷List 17[I-1]→BAbsO→O:(1÷R-B)÷2÷O→CZX:If J<0:Then Prog “SC”Return :IfEnd7→W…HQ:If J<O:Then Prog “SC”Return:IfEnd…HY:O→J:Prog “SC”:Prog “GN”Q+O→Q:K-Q→J:List 14[I]→O8→W…YQ:If J<O:Then Prog “SC”Return:IfEnd…YH:O→J:Prog “SC”:Prog “GN”Q+O→Q:K-Q→J:List 15[I]→O1÷R→B: 1E20→RO<0=>List 17[I+1]→RAbs O→O: (1÷R-B)÷2÷O→C7→W…HQ:If J<O:Then Prog “SC”Return:IfEnd…HZ:O→J: Prog “SC”:Prog“GN”K-Q-O→J6→W…ZX:Prog “SC”主程序设置角度单位为度F1放样F2 检测F3 隧道接受F1~F3功能键选择输入线路号执行上述按键对应的F1~F3功能是否继续F1是F2 否按键为F1时重新开始中桩计算子程序获取平曲线数据行号,指定沿曲线按导线递推读取下一曲线交点里程JD直到里程小于下一曲线起点(JD-T)读取交点坐标读取切线方位角和圆半径读取交点里程和负的切线长直线计算功能由交点推算到起缓求第一缓曲测线长、默认起点曲率、缓曲长若第一缓长为负令前曲圆曲率为起点曲率第一缓长改为正,求缓曲变化系数K小于曲线起点按直线计算跳出子程序缓曲计算功能K小于缓圆按缓曲计算跳出子程序由曲线起点推算到缓圆求圆曲段测线长及圆曲长圆曲计算功能K小于圆缓按圆曲计算跳出子程序由缓圆推算到圆缓求第二缓曲测线长、缓曲长求起点曲率、默认终点半径若第二缓长为负令后曲圆半径为终点半径第二缓长改为正,求缓曲变化系数缓曲计算功能K小于曲线终点按缓曲计算跳出子程序由圆缓推算到缓终求直线长直线计算功能K大于曲终按直线计算…FY:If:F=1:Then Do:ClrText“Fangyang”5→V:Prog “GN”:I=0=>ReturnProg “ZZ”:Prog “GN”Do:ClrText:4→W:0→L“F1 Daoxian”:“F2 Shexian”:“F3 2Bian”…FN:6→V:3→I:Prog “GN”:F→V:F=3=>2→V “J”?->r:r→J: “A”→θ: θ→A…SX.DX:ClrText:Prog “GN”…“XY”:Prog “SC”…SX:If F=3:Then -J→r:A→θProg “GN”:Prog “SC”:IfEnd: “OK”▲ClrText:“F1 Next”: “F2 K?”: “F3 Quit”…FN:6→V:3→I:Prog “GN”LpWhile F=1:LpWhile F=2Return:IfEnd…JC:If F=2:Then Do:ClrText“Jiance”:0→List 25[1]“F1 Lumian”:“F2 Bianpo”:“F3 2D”…FN:6→V:3→I:Prog “GN”:F→U…K?:5→V:Prog “GN”:I=0=>Return Do:…FS: “X”?→X:“Y”?→Y7→V:Prog “GN”: I=0=>Return… “KJ”:ClrText:0→L:5→W:Prog “SC”If U≠3:Then “Z”?→ZList 7[1]→I:List 8[I]→AIf List 25[1]=0:Then…ZG:8→V:Prog “GN”3→W:Prog “SC”:…DM:0→W:Prog “SC”…LJ:9→W:Prog “SC”:IfEndIf U=1:Then “-H”?→R:Else Z-G→R:IfEnd …PK:0→V:Prog “GN”If U=1:Then AbsJ→r:Z-R-H-(r-K)C→R:r-K-Q→J Else Abs J-E-Q→J:List 25[1]→Q:J→List 25[1]Q≠0=>QJ÷(Q-J)→J:IfEnd… “dKdH”:0→L:2→W:Prog “SC”: “OK”▲If U=2:Then ClrText“Next PJ”:1→W:Prog “SC”:F=1=>0=>List 25[1] IfEnd:IfEnd:ClrText“F1 Next”: “F2 Menu”: “F3 Quit”…FN:6→V:3→I:Prog “GN”LpWhile F=1:LpWhile F=2Return:IfEnd 放样计算“放样”输入里程中桩坐标计算指定显示坐标模式F1 导线,F2 射线,F3 二边接受F1~F3功能键读取测线长,转角执行导线或射线计算显示坐标如按键是F3再算对称点计算,显示图形第二点坐标F1 下一点,F2 更换中桩,F3 退出放样接受F1~F3功能键执行上述按键对应的F1~F2功能如是F3 退出检测计算“检测”F1 路面,F2 边坡,F3 2维”接受F1~F3功能键输入近似里程输入待检坐标执行反算求出里程和位置显示里程和位置如不是F3则输入测点高程获取纵横断面数据行号如第一次测断面则计算中桩高显示中桩高,获取断面数据行号计算硬(土)路肩高,宽,如F1待检层距路面高,F2 计算测点和土路肩高差求测点边坡宽(相对路肩)如F1求相对路面边的高宽超欠如F2 求相对土路肩高差和边坡宽基本超欠如不是第一点则考虑原地面坡度修正宽超欠显示高差,宽度超欠如F2 检测边坡时询问“下一坡脚F1是F2否”F1则将上次测点距边坡归零如是F3不执行输入测点高及以上语句F1 继续原来功能F2 返回功能选单F3退出检测接受F1~F3按键执行上述按键对应的F1~F2功能如是F3退出If V=1 Or V=2:Then S+θ→θ:{M,N}+Rec(r, θ)List Ans[1]→r:List Ans[2]→θIf V=1:Then r→M: θ→N:S+A→S:IfEndReturn:IfEndIf V=3:Then Dim List 6→Q:Q=1=>StopDo:ClrText: “”:?→I:Int Abs I+1→ILpWhile I<2 Or I>Q:I→List 7[I]Return:IfEndIf V=4 Or V=5:Then List 7[1]→IList 6[I]→Q:List 7[I]→M:If V=5:Then ClrText “XL”: “QDK”: “ZDK”:Locate 4,1,I-1Locate4,2,Q:Locate4,3,M: “K”?→K:IfEndIf K<Q Or K>M:Then 0→I: “K over”▲Else List 8[I]→I:IfEnd:Return:IfEndIf V=6:Then Do:Do:8.9-G etKey÷10→FLpWhile Frac F≠0:LpWhile F>I: Return:IfEndIf V=7:Then Do:Prog “ZZ”:Prog “GN”Pol(X-M,Y-N):List Ans[1]→MRec(M,List Ans[2]-S:List Ans[2]→JP*list Ans[1]÷(P-J)→Q:K+Q→K4→V:Prog “GN”:I=0=>ReturnLpWhile Abs Q>1milli:Return:IfEndIf V=8=:Then List 9[A]→θIf θ<0:Then ClrText:“ZG”:1→W:Prog “SC”If F=1:Then –θ→θ:Return:Else 0→θ:IfEnd:IfEndIf θ=0:Then “ZG”?→θ: -θ→List 9[A] :Return: :IfEnd θ→I:Do:List 18[I+1]→P:List 21[I]→NList 19[I]→Q:List 18[I]→O:I+1→I:P-O→PNAbs P÷P→N:Abs(NP÷2)→PLpWhile K>Q+P:K-Q→Q:List 20[I]+OQ→θQ+P→Q:Q>0=>θ+Q2÷2÷N→θ:Return:IfEndIf V=9:Then If r<0:Then Do:List 22[I]→PList 23[I]→Q:I+1→I:List 22[I]→N:List 23[I]→O LpWhile K>N:IfEndElse Do:List 22[I]→P:List 24[I]→Q:I+1→IList 22[I]→N:List 24[I]→O:LpWhile K>N:IfEnd (K-P)÷(N-P)→P:3P^(2^S)-2P^(3^S)→PQ+P(O-Q)→I:Return:IfEndIf V=0:Then D→I: Do:List 25[I]→P:List 26[I]→Q I+1→I: List 25[I]→N:List 26[I]→OLpWhile R<Q Or R>O(R-P) ÷(N-P)→P: Q+P(O-Q)→Q:Return:IfEnd 计算下一点坐标射线计算如果V=1把终点作为起算点(导线)输线路号,无数据时退出输入线路号如有数据,线路所在行号保存到List 7[1]检查里程取得起点里程终点里程线路起终点里程显示已知数据,提示输入里程如果里程不在范围则“K超范围”否则输出平曲线数据所在行号识别按键F1~FI只对F1~FI有效反算,先算出中桩坐标求出测点到中桩距离求出到切线垂直距离计算切线方向改正量检验里程是否超限切线改正量小于1mm则结束计算中桩高程如果上次高程为手输,则询问是保留F1 是F2 否F1用原数据,F2 重输入手工输入中桩高自动计算中桩高,读出后坡,半径变坡里程,前坡,求坡差求半径和切线长如果在竖曲线内则计算直坡各点高在竖曲线上的加上改正量直线或3次抛物线内插求值查左线数据库,查右线数据库求出比例系数内插求值边坡宽直线内插求值查询变坡点找到高程点所在坡面直线内插求出边坡宽SCIf W=1:Then “F1 Yes”: “F2 No”6→V:2→I:Prog “GN” :Return:IfEndIf W=2:Then “dG=”:”dK=”:L+2→LLocate 4,L-1,R:Locate 4,L,J:Return:IfEndIf W=3:Then “ZG=”:L+1→LLocate 4,L,θ: Return:IfEndIf W=4:Then “X=”:”Y=”:L+2→LLocate 3,L-1,r:Locate 3,L, θ:Return:IfEndIf W=5:Then “K=”:”J=”:L+2→LLocate 3,L-1,K:Locate 3,L, J:Return:IfEndIf W=6:Then 0→A:0→θ:J→r:1E20→P:Return:IfEnd If W=7:Then J r List 2(CJList 2+B)→List 3Jlist 1cosList 3:Sum List Ans→rJlist 1sinList 3:Sum List Ans→θJ r(CJ+B)→A:Pol(r, θ):List Ans[1]→rList Ans[2]→θ:1÷(2CJ+B)→P: Return:IfEndIf W=8:Then J r÷R→A:A÷2→θ2Rsinθ→r:R→P: Return:IfEndIf W=9:Then J→r:List 10[A]→MList 14[A]→R:List 11[A]→TList 12[A]→C:List 15[A]-1→SIf S=-2:Then ClrText“Next Lm”:1→W:Prog “SC”:F-3→S:IfEndIf S=-1:Then S→List 15[A]“CG”?→C:C→List 12[A]“KD”?→M:M→List 10[A]“TJ”?→T:T→List 11[A]“CZ”?→R:R→List 14[A]Else If S=0 Or S=1:Then 7→V:C→IProg “GN”:I→C:T→I:Prog “GN”:I→TM→I:Prog “GN”:I→M:R→I: Prog “GN”:I→RIf R<0:Then If Abs C>0.02:Then –JC→rM→I:Prog “GN”:I→R:R(Abs C-0.02)+θ→θ:IfEnd 0→R:IfEnd:θ+MC→HIf C<-0.04:Then H+TC→θ:Else H-0.04T→θ:IfEnd R+M→K:K+T→r:Return:IfEndIf W=0:Then List 13[A]→IIf I<0:Then 2→D:If I=-1:Then ClrText“New Dm”:1→W:Prog “SC”:F-2→I:IfEndIf I=0:Then “H”?→List 25[D]:“W”? →List 26[D] Do:D+1→D:“H”?→List 25[D]:“W”? →List 26[D] ClrText: “Next Bp”:1→W:Prog “SC”:LpWhile F=1 2→D:-1→List 13[A]:IfEnd:Return:IfEnd7→V:Prog “GN”:O→D:Return:IfEnd输出等子程序是否选项F1 是F2 否接受F1, F2键高度和宽度误差显示显示数值高程输出显示显示数值坐标输出显示显示数值位置输出显示显示数值直线延长计算,转角,偏角,弦长,半径缓曲延长计算,分偏角计算坐标分量计算坐标分量计算转角,弦长偏角,半径圆曲延长计算,转角,偏角弦长,半径路肩高宽计算,路面保存位置分隔带,土路肩宽保存位置超高保存位置,线路等级(内插方式)或数据写入状况如上次数据是手工临时输入提示是用原数据还是重输如要求重输,则先改写数据写入状态为已输入输入超高输入路面宽输入土路肩宽输入分隔带半宽如已知线路等级则按内插方式计算C超高,T,土路肩宽M路面宽,分隔带宽如分隔带宽小于0,且超高大于2%计算曲线内侧路面宽,改正中桩高计算路面边高以-4%坡为界,分别计算土路肩高计算路面宽,土路肩宽断面号查询如临时断面数据已输入提示用原断面还是重输入如要求重输,先输入第一个边坡点输入第二个边坡点提示是否还输入下一点将数据状态改为已输入,输出2为断面数据位置否则查表找出断面数据位置.使用说明书一、数据准备1、高斯公式常数表高斯公式五节点10个常数保存在LIST第1、2列，共占5行。

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+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 ：Th en **→ 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值。

卡西欧9860GIISD坐标正反算程序主程序XY-LCLbi 0:“1LC-XY,2XY-LC”？→V:If V=1:Then Goto 1:Else Goto2:IfEnd:Lbi 1: “K”？→L:“Dj-Dy”？→Q: “F0”？-＞J:Prog “1-N”: Prog “ZSZB”: “X=”:X◢“Y=”:Y ◢“FWJ=”:O◥DMS◢Goto 0:Lbi 2:0→Q:0→J: “XO”？→M: “YO”？→R: “KL”？→L: Prog “FSZB”: LC=”？→Q◢Goto 0: 正算子程序ZSZBL-S→H:(T-I)H／(K-S) →U7→N: Lbi 0:C+90(NU/8+2I)(NH/8)/3.141592654→List 1[N]:Dsz N: Goto 0C+90(U+2I)H/3.141592654→O:O+J→P:A+Abs H(Cos C+4(Cos List 1[1]+ Cos List 1[3]+ Cos List 1[5]+ Cos List 1[7])+2(Cos List 1[2]+ Cos List 1[4]+ Cos List 1[6])+Cos O)/24+Q Cos P→X:B+Abs H(Sin C+4(Sin List 1[1]+ Sin List 1[3]+ Sin List 1[5]+ Sin List 1[7])+2(Sin List 1[2]+ Sin List 1[4]+ Sin List 1[6])+ Sin O)/24+Q Sin P→Y:反算子程序FSZBLbi 0: Prog “1-N”:Prog “ZSZB”:O-90→Z:(R-Y)Cos Z-(M-X)Sin Z→P:P+L→L:If Abs P≧0.001:Then Goto 0:Else Goto 1:IfEnd:Lbi 1 (R-Y)Cos O-(M-X)Sin O→Q:路线选择子程序1-N“1-N”→V:If V=0:Then Prog “X-0”: IfEnd:If V=1:Then Prog “X-1”: IfEnd:If V=2:Then Prog “X-2”: IfEnd:数据库X-0 X-1 X-2 X-3If L≧起点桩号And L<终点桩号:Thdn起点桩号→S:起点X坐标→A:起点Y坐标→B:起点方位角→C:终点桩号→K:起点半径曲率→I: 终点半径曲率→T: IfEnd 、、、、、、、、、、、、、、、、、、、、、、、式中:I、T为1/I、1/T(曲线中右正左负);直线段I、T经为0,第一缓和段I=0、T=1/T,圆曲线中I=1/I、T=1/T,第二缓和段I=1/I、T=0。