用于公路工程测量的CASIO4X00计算器程序集
所求桩号值在的曲线要素范围外 输入各曲线要素的值 圆曲线元(R=S) 直线元(RS=64) 根据输入的半径值 并判定所属曲线段 缓和曲线元(R≠S≠∞) PJ=？输入偏角值
R.ANG=？输入右交角值
再次根据输入的半径 圆曲线元(R=S) 直线元(RS=64) 并判定所属曲线段 A=？输入缓和曲线参数
计算圆曲线元的 的切线纵横支距值 缓和曲线元(R≠S≠∞) 计算圆曲线元的中桩大地坐标值和垂直于切线方向的方位角 计算各种情况下 的切线纵横支距值缓和曲线元的J、M、T、V值 计算圆曲线元的中桩大地坐标值和垂直于切线方向的方位角 计算各种情况下缓和元的中桩大地坐 标值和垂直于切线方向的方位角 计算边桩大地坐标值 要得出测站点到放样点的极坐标 运行子程序【AZIMUTH】 计算各种情况下缓和曲线元 的切线纵横支距值 计算得出极坐标值
§1-1-5匝道曲线要素写入程序
简单说明：匝道要素写入程序。配合主程序【CURVE ELEMENT】运行，计算放样点坐标。 程序框图： 从【CURVE ELEMENT】中调入运行 3 2 输入1、2、3、4、5 调用C匝道要素 调用B匝道要素 分别进入ABCDE匝道 计算 4 1 5 调用D匝道要素 调用A匝道要素 调用E匝道要素 Goto 6 设定F值，正交为90 斜交为交角值 各输入值含义： PEG NO. —所求点桩号；WIDTH—（边中距）边桩到中桩的距离；XQ—起点X坐标；YQ—起点Y坐标；AZIMUTH QD—起点处切线方位角；QD—起点桩号；RQ=>R∞InpuT8—起点半径，如果为∞则输为8；RZ=>R∞InpuT8—终点半径，如果为∞则输为8；A—缓和曲线参数，只有当曲
6
用于公路工程测量的CASIO4X00计算器程序集
线为缓和曲线时才会出现；PJ—偏角，按左负右正输入，如果为缓和曲线段可输入+1或-1。如果为直线则不会出现；R.ANG—（右角）边桩与中桩切线方向右交角；
§2 竖向曲线（高程）计算程序组
【简介】
该程序组中分主竖曲线程序和超高加宽程序。竖曲线程序可计算公路常用的二次抛物线线型。既可配合子程序【DATA】综合运行，亦可单独运行；超高加宽程序中的超高部份以一个主程序可计算绕中轴、边轴旋转的不同地形的高速、二级路超高加宽。既可单独运行，也可配合子程序【ALL ROAD】综合运行，可自动根据两平曲线要素来判断是否有公切点、是S型还是C型曲线，可自动得出计算点相对于该处设计标高的高差。加宽部份可以计算高次抛物线加宽和直线加宽。如果由竖曲线和超高加宽程序配合计算则可直接得出该点的设计高程。是一个严密的、庞大的、实用的、不可多得的大型程序组。拥有它，真正做到了只需带一个4800计算器，就能计算任意桩号处的任意点设计标高。
§2-1竖曲线
程序框图：
进行下一轮运算 设定计算器状态 Peg NO.=? 输入桩号 所求桩号值在的竖曲线要素范围外运行子程序 输入各要素的值 【DATA】 计算W、T值 根据输入的桩号值 判定所属曲线段抛物线坡段运行 H值 显示设计高程 H值
计算各种情况下的设计标高 H值 直坡段 计算设计标高 §2-2竖曲线说明
本程序适用于计算采用二次抛物线过渡的竖曲线。从上一交点的曲直点计算到该交点的曲直点。运行时将i1——交点前一个坡度的代数值的百分数,如0.3%则i1输入为0.3，i2——交点前一个坡度的代数值的百分数,格式同前。R——竖曲线半径，SJD——竖交点桩号，STAT——曲线计算起点（上一交点的桩号+其切线长），H0——竖交点设计标高，PEG NO.？——所要求点的桩号逐个输入，则会得出该点的设计高程：H=＃＃＃.＃＃，如果你要计算
7
用于公路工程测量的CASIO4X00计算器程序集
出设计高程与地面高程的高差则可将L28:Goto7删除，在得出H的值后计算器会问D？——输入地面高程，马上显示高差?H=±＃＃＃.＃＃。如果桩号超出起点或者曲直点的值则会显示：1.RUN AGAIN<重新运行> 2.CONTINUE<继续运行>，输入1则重新运行程序，即输入下段竖曲线要素，输入2或其它值则会继续要求输入桩号，该方法可以防止因桩号误输而出现要重新输入曲线要素的情况，也可以不重新运行程序即可输入下一段曲线要素。
如果要将此程序编为单独运行程序只须将L04行去掉，程序【DATA】亦可删除。 建议：
你可将程序按File1：【H.CURVE】，File2：【V.CURVE】，File3：【AZIMUTH】，File4：【ALL ROAD】File5：【DATA】的顺序写入，这样只要你一按计算器中的FILE键，就可直截进入【H.CURVE】程序，按三下FILE键就可进入【AZIMUTH】程序。方便、快捷。
§2-3超高加宽程序 §2-3-1 超高程序说明
该程序的编写是根据一段路线为：二级公路改建工程，以交点K15+594.946分界，K8+000~K15+594.946为平原微丘区设计，K15+594.946~K18+000为山岭重丘区设计，有两段大半径单圆曲线，因R>2500故不设超高。不设加宽。旋转方式为绕中线旋转。应用时要根据实际情况修改少许语句，如：L34行中K表示路面宽度，J表示路肩宽度，A表示路面横坡度，Y表示路肩横坡度，T表示中桩到设计高程的高差，如果要直接得出左、右桩设计高程则在L33行中将倾斜的文字内容写入（L34行中T=0删除），则运行时在输入桩号和宽度之后将中桩设计高程HS输入即可得出左、右桩设计高程，如果只要得出左右桩与中桩的高差则可将HS输为0为避免烦锁可在L34行中将T=0输入，而L33行中倾斜的文字则可以不要。
假如有一段曲线要素：JDn：半径：687.79第一缓和段长：95第二缓和段长：95偏角：16°25′26.8″（右）交点桩号：K10+591.581；JDn+1：半径：250第一缓和段长：90第二缓和段长：90偏角：54°11′15.7″（左）交点桩号：K10+910.447
运行程序：先将JDn的曲线要素按：Rn——半径，LS1n——第一缓和段长，LS2n——第二缓和段长，JDn——交点桩号，CORNERn——偏角（左负右正）。输入后，程序又问：Rn-1？??CORNERn-1？就将JDn-1的各要素输入。接着计算器又问：PEG NO.？输入要求点的桩号，WIDTH？输入路肩（面）到中桩的距离，即显示：H LEF=±#.＃＃，H MID=±#.＃＃,H RIG=±#.＃＃分别表示左、中、右到中桩的高差。该程序只能从JDn-1的HY点算至JDn的HY点，如果桩号超出该范围则会显示：1.RUN AGAIN 2.CONTINUE？输入1则重新运行程序（注意：该法只能是从终点算到起点才可第一次只需输入两段曲线要素，以后每次只要输入上一段要素就可以了），即输入下两段曲线要素，输入2或其它值则会继续要求输入桩号，该方法可以防止因桩号误输而出现要重新输入曲线要素的情况，也可以不重新运行程序即可输入下一段曲线要素。
8
用于公路工程测量的CASIO4X00计算器程序集
注意：本程序对有公切点的相邻两曲线的两缓和段计算为：S型曲线则在公切点GQ处回到双向横坡的“提肩阶段”，C型曲线则在公切点GQ点处形成斜向内侧的单向横坡中间段按直线内插法计算。不论那种曲线，只要有公切点，程序都会在运行到缓和段时自动显示GQ=＃＃＃＃＃.＃＃＃，本程序暂不考虑部份缓和段超高的情况。
§3 其它实用程序组 §3-1曲线要素复核
程序框图： 进行下一轮运算 设定计算器状态 输入R、LS、JD、PJ等 各曲线要素值 计算Ly、 O、P 所求桩号值在的曲线要素范围外运行子程序 输入各曲线要素的值 【ZDYS】 圆曲线元(R=S) 直线元(RS=64) 根据输入的半径值 并判定所属曲线段运行 缓和曲线元(R≠S≠∞) PJ=？输入偏角值
R.ANG=？输入右交角值
再次根据输入的半径 圆曲线元(R=S) 直线元(RS=64) 并判定所属曲线段 A=？输入缓和曲线参数
计算圆曲线元的 的切线纵横支距值 缓和曲线元(R≠S≠∞) 计算圆曲线元的中桩大地坐标值和垂直于切线方向的方位角 计算各种情况下 的切线纵横支距值缓和曲线元的J、M、T、V值 计算圆曲线元的中桩大地坐标值和垂直于切线方向的方位角 计算各种情况下缓和元的中桩大地坐 标值和垂直于切线方向的方位角 计算边桩大地坐标值 要得出测站点到放样点的极坐标 运行子程序【AZIMUTH】 计算各种情况下缓和曲线元 的切线纵横支距值 计算得出极坐标值 R——半径、LS1——第一缓和曲线、LS2——第二缓和曲线JD——交点桩号、CORNER—
9
用于公路工程测量的CASIO4X00计算器程序集
—偏角，左负右正、ZY——直圆点、ZH——直缓点、HY——缓圆点、QZ——曲中点、YH——圆缓点、HZ——缓直点、YZ——圆直点、E0——外距、J——校正值（切曲差）
§3-2锥坡放样
程序名：【ZHUI PO】
说明：该程序为一锥坡放样程序，方便、简单、明了。适用于正交桥台、墙背锥坡放样，其输出结果可以直截输入到全站仪中用于坐标放样。运行程序【ZHUI PO】，将各变量按以下图示或说明值输入： 路中心线ABHJ—锥坡基础标高AZIMUTHi1:2D左侧锥坡桥台右侧锥坡1:i1E（X0，Y0）CFHJ—锥坡坡尖标高路面左侧边坡右侧边坡 图1 X0，Y0——锥坡尖的横、纵坐标，i1—路基坡度，i2—锥坡迎水面坡度，AZIMUTH—桥台侧面指向河心的方位角，1.LEFT 2.RIGHT—如果要放样的锥坡为左侧锥坡则输为1，反之输为2，n为等分数，其值应在0~1之间。当n值输入的间隔越密集，则打出的点就越密集，注意：当n值输入到0.9~1.0之间时应加密，因为其变化较大。怎么样？试试看！
§3-3求多边形所围面积程序（输入相邻点平距和高差）
§3-4 横断面积计算（不太理想，还需要改进）
10