CASIO计算器公路施工放样程序

CASIO fx—4850（4800）型编写的公路工程三维坐标测量及放样程序一、简述高速公路、路网工程和新农村公路建设任务繁重，公路建设点多、线长、信息多的特点，迫切要求施工测量现场必须信息全面、快速、灵活、准确，能快捷应对线路长，受地形地物制约较大路段，无规则的斜交构造物、高挖高填路堑路堤边坡、各式各类的平面线型。

以下介绍CASIXfx——4850（4800）型编写的公路工程三维坐标测量及放样程序，该程序不受平面线型、独立单元、线路里程桩号、断面距离、断面斜交角度的限制，能方便快捷地得到施工线路的任何设计坐标值、高程值、断面超高值、断面加宽值、填挖高度、边坡超欠挖宽度、边坡线、对应坐标的里程和边距；只需通过对数据库的编辑，就能满足各种平面线型，且占用空间较小。

本套程序是共有1个主程序，11个子程序。

包括了路线坐标正反算、竖曲线、超高加宽、边坡放样、断面计算及数据库等程序。

适用于CASIO4850/4800，4800用户需要修改清单内结果显示的字段（例如：“X=”：X◢改为X“X=”◢ 或“Z=”：G=H+G◢改为G“Z”=H+G◢）。

二、程序功能及计算范围2.1程序功能根据不同需要，本程序共设置了6种计算模式Ling-ZCX：1-ZS，正算模式：适用于中、边桩计算，里程桩号及边距=>平面坐标。

2-FI，放样1模式：适用于路基、路面施工放样，里程桩号及边距=>平面坐标、路面高程。

3-FS，反算模式：适用于任意点里程、边距计算，任意点坐标=>里程、边距。

4-F2，放样2模式：适用于路基施工放样，任意点坐标=>里程、边距、填挖高度，边坡超欠挖宽度，最近平台高度（<1.5）。

5-Z0，设计高程计算，即竖曲线计算，里程桩号=>设计高程。

6-DM，断面计算，里程桩号、边距=>设计高程、加宽值、指定边桩的高程。

2.2计算范围平曲线：直线-缓和曲线（或无）-圆曲线-缓和曲线（或无）-直线中任意桩号，允许两缓和曲线不等长等标准曲线，也可以计算曲线元、卵形曲线，回头曲线，复曲线，匝道等复杂类型曲线。

幽灵版CASIO5800公路施工程序集使用说明1．程序总序本程序采用交点法与线元法有机结合，能够灵活自如的根据自己的标段特点，想用交点法就用交点法，想用线元法就用线元法。

真正的实现随心所欲的数据编程，本程序默认线路为三条，第1,2条线路采用交点法，第3条线路采用线元法，使你可以同时计算三个工地的数据情况，还可以根据自己的喜好和要求，无限的加载线路条数。

2．程序详情主程序分3个分别为00ZZ,01ZZ,02ZZ,支持的功能如下：1.支持三维坐标正算输出。

2.支持三维反算输出3.高程输出，一次性显示左横坡，右横坡，纵坡和算点高程。

4.左右路基宽度一次性输出。

5.边坡放样支持挖方五级边坡及以上，填方三级边坡及以上。

6.定值路基放样填挖值。

7.极坐标计算距离方位角8.隧道放样可计算任何复杂隧道圆心，采用圆曲线和直线有机串列。

9.支持单交点正反算与单交点高程计算。

10.支持导线计算，可以平差闭合附和导线，无定向导线和支导线。

11.涵洞计算放样，一次数据输入，涵洞四角点自动输出。

12.桥梁平分中矢法。

可以计算斜交桥梁的构造物坐标。

13.支持桥梁斜交高程计算。

14.附带一款抓捕双色球的自动分析程序，丰富大家的工作之余生活。

15.附带多边形面积计算程序。

16.两点后方交会程序。

17.土方路基横断面放量计算。

18.导线水准高程平差。

19.水准测量计算小程序。

20.支持桩号步长叠加功能。

总之，程序功能非常强大，期待更多程序功能望各位测友自行发掘。

2．计算实例1. 选择00ZZ主程序EXE 进入界面1.选择1XYZ 按1（5s）进入EXECZX? 39477.185 EXECZY? 4944.518 EXEQX;X=1，X=2，RAMP=3? 2 EXEKP=>TEP? 20 EXEKM? 2500 EXED? 10 EXEEXEZFWJ=65º28’26”X=39495.848Y=4973.375H=15.513EXEAI=57.0624DI=34.366接下来选择线元法线路3算个例子如下：1.选择1XYZ 按1（5s）进入EXECZX? （测站X）570.703 EXECZY? （测站Y）4085.244 EXEQX;X=1，X=2，RAMP=3? 3 EXEKP=>TEP? 20 EXEKM? 130 EXED? ﹣10.75 EXEEXEZFWJ=56º23’46.16”X=625.064Y=4048.126H=40.385EXEAI=325.4027DI=65.824计算出该点的三维坐标X,Y,H,和极坐标放样数据AI为十进制小数模式(57度06分24秒)，DI为极坐标距离。

CASIO fx —5800 计算器工程测量与公路测量程序1、坐标正算＂X0=″X:＂Y0=″Y:＂I= ″I:＂J=″JX+ICos(J)→ U:Y+ISin(J)→ V＂X=″:U （待求点的 X 坐标）＂Y=″:V （待求点的 Y 坐标）说明： X0 Y0 ：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0＂X1=″X:＂Y1=″Y:＂X2=″U:＂ Y2=″V?Pol(U-X,V-Y):?J<0 J+360→ J＂I= ″:I＂J=″:J DMSGOTO 0说明： X1Y1 ：第一点的坐标，X2Y2 第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″X: ＂Y0=″Y:＂ FWJ=″D: ＂ QDHAO=″G: ＂ ZDHAO=″C: ＂ R=″RLbl 1＂DQHAO=″LL<G Or L ＞ C GOTO 2＂P Y=″K180(L- G)÷ ( π R) → E2RSin→ FReC(Abs(F),D+ ：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→ o:o<0 360+o→ 0o＂F WJ=″:o? DMSGoto 1Lbl 2＂END″说明： X0Y0 ：起始点的坐标， FWJ：起始点的方位角， QDHAO ：起点里程， ZDHAO 终点里程，R：半径， DQHAO ：待求点里程， PY ：偏移量4、竖曲线＂QZHAO ″=J:＂H+B″=B:＂I1=″C:＂I2=″D:＂R=″R:＂T=″T:((D-C)÷100)÷Abs((D- C)÷ 100)→ A:Abs(D-C)÷ 100)→ S＂T″:SJ-T→ XJ＋T→ YLbl 0＂DQ=″LIf L<X:Then Goto 1:Else If? L＞Y:Then Goto 1:If End:If End＂GC=″:B+C(L -J)100+A(L÷- J+T)? ÷(2R) →HGoto 0Lbl 1＂END″说明： QZHAO ：曲中点里程， H+B ：曲中点高程， I1：第一坡度， I2：第二坡度， R：半径，T：切线长， DQ：待求点里程。

CASIO4800公路测量施工放样计算程序CASIO4800公路测量施工放样计算程序序先进的测设仪器和新技术的推广应用，给我们的测设工作带来了高质量和高效益。

但是运用软件的严重滞后，先进的仪器设备没有发挥出应有的作用，迫切呼唤新技术的开发、利用，广大工程技术人员渴求掌握更多、更新的先进技术，以减轻劳动强度，提高速度和精度。

《高等级公路定线测量及施工放样测量计算程序》一书既是在这样的形势下开发的，是作者多年来精心研究并在多条高等级公路上实际应用中成熟起来的。

本书运用极坐标法给出了公路测设和施工放样的计算程序，易于广大工程技术人员掌握，有着良好的社会和经济效益。

该书既是一本工具书，又可作为一本通俗易懂的教科书，丰富了学生的课堂知识，对测量课程的改革起到了充实作用。

我相信，只要我们广大的工程技术人员认真学习、运用本方法，必将对公路测设和施工控制测量技术的进步起到积极的作用。

前言当前国内高等级公路设计已经由传统的沿中线作业的设计方法逐步过渡到在路线外建立沿线控制网的设计方法，为适应新模式下高等级公路的定线测量、施工放样测量，特编写此书。

本书叙述浅显易懂，循序渐进，逐步深入，使读者易于接受和理解。

详细讲解程序的使用方法，并附有实例计算过程、计算成果，便于读者自学、程序调试，使之在短期内能快速上手使用本程序。

《高等级公路定线测量及施工放样测量计算程序》全书共五章。

第一章概论，对程序特点、适用范围等进行简要介绍；第二章为导线坐标计算及程序，主要讲述有关导线坐标的计算方法、计算程序；第三章主要讲述了程序的录入方法及源程序清单；第四章详细介绍程序中的符号含意、使用方法及步骤；第五章分别列举处于三种不同坐标系统中的计算实例，详尽介绍计算程序应用技巧。

本书的编写得到了杨金华校长等领导的大力支持和关心，及其他教师的热情帮助和鼓励，在此谨致诚挚的谢意。

由于编者水平有限，书中难免出现遗漏、不足和错误，诚请各位读者和同行专家批评指正。

公路曲线大地坐标施工放样程序（CASIO fx-58000）一、主程序28:""?:""?:""?:""?:.5^(3)/(240):""?:"":(/(24R )-G ^(4)/(2688R ^(3)))ta n (0.5)T "":/180+G L""?:"":[3]"1,2"?:""?:""?:""?:10:"Z B J SD im Z X C Z Y C C L S G R R G G R Q A A T Q R G L R A Z H O H Z O Z Y Z H J D N P J DE MF F L b K π→====-→==++→=→==+→=====▲▲▲"?:","?:""?:0:0:0:P r "":P r "":0:K V N W V B B K O S IfS T h e n S XY U o g C o g D G o to IfE n d ==-+=-→↵≤→→→↵[][]IfS L :T h e n T +C O S (A )(T +S -L )X :S i n (A )(T +S -L )Y :A U :P ro g "C ":P ro g "D ":G o to 0:IfE n d IfS L -G :T h e n L -S S :P ro g "B ":X Z1:YZ2:T -Z [2]S in (A )+C o s (A )(T -Z [1])X :Z [2]C o s (A )+S in (A )(T -Z [1])Y :L -S S :A -U U :P ro g "C ":P ro g "D ":G o ≥→→→↵≥→→→→→→→2222to 0:IfE n d IfS G :T h e n 90(2S -G )/(R )U :Q +R S in (U )X :G/(24R )-G ^(4)/(2688R ^(3))+R (1-C o s (U ))Y :P ro g "C ":P ro g "D ":G o to :If E n d If S G :T h e n K -0S :S -S ^(5)/(40RG)X :S ^(3)/(6R G )-S ^(7)/(336R ^(3)G ^(3))Y :90S /(R G )ππ↵≥→→→↵≤→→→U :P ro g "C ":P ro g "D ":G o to 0:I f E n d →↵二、子程序 BSC"X=Dta注：”/”表示÷三、程序变量说明以程序运行时计算器显示为准：XC?EC?提示输入架仪点的坐标LS?提示输入测设曲线缓和曲线长R?提示输入测设曲线半径A?提示输入测设曲线转角（以度分秒输入）T= L=显示计算的曲线元素（检验LS、R、A是否输入正确）ZH? 提示输入测设曲线直缓（圆）桩桩号（对比设计资料可检查直缓（直圆）桩桩号输入是否正确Y1,Z2?判断曲线转向，右转输入1，左转输入2JDN?JDE?提示输入交点的N和E坐标F?提示输入曲线计算起始边的坐标方位角（以度分秒格式输入）K?提示输入欲放样点的桩号V?提示输入欲放样点相对中点的法线方向的距离，位于曲线内侧输入负值，外侧为正值，测设中桩时输0B?提示输入欲放样点相对中点的切线方向的距离，位于曲线前进方向输入正值，后退方向输入负值。

C A S I O f x-5800P计算与道路坐标放样计算
一、前言
本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。

原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。

改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是：
1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦；
2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）；
3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）；
4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现
程序的特点：
1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写；
2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐；
3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。

程序代码
计算器操作正算说明记住要输入正算1
C匝道计算结果。

卡西欧5800P 测量程序汇总CASIO fx5800P公路施工放线测量公式及程序一、已知座标，求平距和方位角(座标反算)：公式：D=√（Xp-Xo）2+（Yp-Yo）2 α=arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M：（Y-B）→N：“D=”：√（M2+N2）⊿ tan-1(N/M) →C:If M＜0:Then “Q=”：180+C →Q ⊿ Else If N＞0: Then “Q=”：C→Q ⊿ Else “Q=”：360+C→Q ⊿ If End : If End : Goto 0 说明：（A，B）为测站点坐标，（X，Y）为所求点坐标。

输出：D为平距，Q为方位角。

二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：X =Xo+LcosQ Y=Yo+LsinQ程序：“A”？→A：“B”？→B：“Q”？→Q：“Z”？→Z：Lbl 1: “P”?→P：“J”？→J：“M”？→M：Abs（M-Z）→W：“X=”：A+W*cos(Q)+P cos(Q+J)→X ⊿“Y=”：B+W*sin(Q)+P sin(Q+J) →Y ⊿Goto 1 说明：（C，D）为直线起点坐标，Q为直线方位角，Z为起点桩号，L为所求坐标点桩号。

“U”为左边距，“T”为右边距，“V”为偏角；U=0时不算边桩坐标。

输出：（X，Y）为中桩坐标，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。

三、已知圆曲线起点坐标（U，V），切线方位角Q，桩号Z和圆半径R，求圆曲线上桩号为 L的点中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：ψ=90L/(лR) (偏角公式） C=2Rsin ψ (对应弧的弦长公式）弦的方位角:Q=Qo±ψ（曲线左转时为“-”）程序：“U”？→U：“V”？→V：“Q”？→Q：“R”？→R：“Z”？→Z：“W=-1，1”：？→W：“ZJ=”：？→Z[1]：“YJ=”：？→Z[2]：“PIAN JIAO”：？→T：Lbl 2: “M”？→M：180*（M-Z）/（2π*R）→J：R*2sin(J)→K:If W=-1:Then“X=”:U+K*cos (Q-J）→X⊿ “Y=”：V+K*sin(Q-J)→Y ⊿“Q=”：Q-180*（M-Z）/（πR）→O⊿ Else If W=1:Then“X=”:U+K*cos(Q+J）→X⊿“Y=”：V+K*sin(Q+J)→Y ⊿ “Q=”：Q+180*（M-Z）/（πR）→O⊿ IfEnd:IfEnd:T=0=＞Goto 2：“XL=”:X+Z[1]*cos(O-T)→F⊿“YL=”：Y+Z[1]*sin(O-T)→P⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]*sin(O+T) ⊿ Goto 2 说明：W=-1时曲线左转, W=1时曲线右转。

2.1 版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作类型。

隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。

增加锥坡放样计算。

二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。

输入-2,返回选择线路。

坐标计算中输入-3,则显示本段曲线要素。

程序名：0ZCXLbI Q: 15→DimZ：Norm 2:1→A：＂A:XY=1， ZD=2 ，GC=3， GD=4，BP=5， FM=6， ZP=7， JS=8， SD=9＂?A:A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:A=9=>Goto 9LbI 1:Prog ＂DX＂:LbI A:Prog＂QX＂:90→B: ＂PJ1＂?B:B→C: ＂PJ2＂?C:B→Z[1]:C→Z[8]:LbI B:1→F: ＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog＂KM＂:?D:Porg＂THB＂:O→L: ＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto BLbI 2:2→F:90→Z[1]:Prog＂QX＂:LbI C: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂XO＂? X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto C:LbI 3:Prog＂QX＂:0→B: ＂H-B＂?B:B→Z[9]:LbI D: ＂KM＂?Z: Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg＂H＂:Fix 3: ＂ H=＂:Lc oate 6,4,H-Z[9] ◢＂ I=＂:Locate 6,4,I◢ Goto DLbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3: ＂ SJGD=＂:Locate7,4,L◢ Goto ELbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[15]:LbI F:2→F:90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:0→M:”M0”?M: M→Z[4]:Prog＂3FBZ＂Fix 2:Z[3] →D:Abs（D）-S→O: ＂ L0=＂:Locate 6,4,O◢Prog＂ZD＂: Z[5]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto F:LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]: ＂K M＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:?D:Prog＂THB＂: Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2:H-M→T: ＂ TW=＂:Locate 6,4,T◢ Goto H:LbI 7:Prog＂DX＂:LbI I:Prog＂QX＂:0→D: ＂LD:Z-,Y+＂? D:Ab s(D) →R: ＂LR＂?R: ＂Z0＂?Z: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:SZ+,DZ-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂Z P＂:Goto J:LbI 8:Prog＂DX＂:LbI K:?X:X=-1=>Goto 0:X=-2=>Goto 8:?Y:Prog＂JS＂:Goto K:LbI 9:Porg＂DX＂:LbI L:Prog”QX”:LbI M:2→F:90→Z[1]: ＂K M＂?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog＂SD1＂: 0.5→A:“CQHD＂?A:“X0＂?X:＂Y0＂?Y:0→M=＂M0＂?M:M→Z[8]: A→Z[15]:Prog＂5SD＂： Goto M:LbI X:Mat F◢ Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：3FBXProg”THB”:D→P:Prog”GD”:If D<0:Then 0.75-L→D:Goto H:E lse L-0.75→D:Goto H:IfEndLbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4]<0: Then –Z[4] →G:Goto W:Else Z[4] →G:Goto T:LbI W:Z[8]+Z[9] →A: If G>A:Then Goto 1:Else If G>Z[8]:The n Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5]→S:Goto Z:LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z: LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14] +Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:LbI Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SDProg”KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[10]) ×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:I f Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:LbI R:√((Z[13]-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4]-Z[15] →L:Goto L:LbI S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 ) ×S÷Abs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6]-Z[15] →L:Goto L:LbI L: Fix 2:” L0=”: Locate 6,4,L◢Prog”ZD”:“ H0=”: Locate 6,4,Z[8]-H◢4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSX：Y：Z[11]→K：Z[12]→L：Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J: Fix 4:” FWJ=”: Locate 6,4,J◢F ix 3:” S=”:Locate 6,4,I◢5．路基宽度子程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名： GD1→S: Prog “G1”:Z-C→E:(B-A)*E/S+A→L:6．坐标计算次程序（ＴＨＢ）程序名：THBIf Q=2:Then Goto J: Else 1÷P→Ｃ：(P-R)÷(2HPR)→Ｓ：180÷Π→E：If F=1:Then Abs(Ｚ－0) →W：Prog "Ａ"：Ｇoto 2:El se Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:LbI J: If F=1:Then Prog "Z"：Ｇoto 1:Else Prog ＂ZX＂：Ｇo to 2: IfEnd:LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: Lb I 27. 线元法正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N：0.0469 10077→K： 0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KW Ｓ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1 -L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW (C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)→Ｚ［２］：X+Ｄcos（Ｚ［２］+ Z[1]）→Ｘ： Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ8. 线元法反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ： 0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto 1：Else W+Ｄ→W:Goto 0: If End:←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］+90) →D9. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4) ÷2688÷R∧(3)→A:H÷2-H∧(3) ÷240÷R2→B:(R+A)tan(Abs(P) ÷2)+B→T:O-T→C:C+H→L:L+ΠR×Abs(P) ÷180→N:N-H→E:P÷Abs(P) →W:0→M:If Z<C:Then Z-O→S:G→Z[2]:Goto 2: IfEnd: If Z≥N:Then Z-N+T→S:G+P→Z[2]:Goto 2: IfEnd: If Z≥E:Then N-Z→S:Prog“HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3: IfEnd:If Z>L:Then 180(Z-L+0.5H) ÷R÷Π→S :H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:H2÷R÷24-H∧(4) ÷2688÷R∧(3)+R(1-Cos(S))→B:R→M:G+WS→Z[2]:Goto 4: IfEnd:Z-C→S:Prog “HX”:G+WK→Z[2]:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J:Goto 3:LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 310. 交点法缓和段转化子程序(HX)程序名：HXS-S∧(5) ÷40÷R2÷H2+S∧(9) ÷3456÷R∧(4) ÷H∧(4)→A:S∧(3)÷6÷R÷H-S∧(7) ÷336÷R∧(3) ÷H∧(3)+S∧(11) ÷42240÷R∧(5)÷H∧(5)→B:90S2÷Π÷R÷H→K:RH÷S→M11. 交点法反算子程序(ZX)程序名：ZXZ:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S: Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:Else Got o 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JM Π)/180→I:Z+I→Z:Goto 0:IfEndLbI 212．高程计算子程序（H）程序名：HP rog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI →H:Goto 0:Else If Z<F:Then Q+SI→H:Goto 0:Else If Z≤E:Th en Q+SI+S2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Got o I:Else Prog “I”:H+V→H:Goto I:L bI I13.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd:LbI 1: If W=1:Then:Goto Z:Else:Goto X: IfEndLbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z -C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V14．导线点子程序（DX）程序名：DXZ[11] →K:Z[12] →L:“X Z”?K:”YZ”?L:K→Z[11]:L→Z[12]15．线路选择子程序(线路选择输0时。

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

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

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

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

根据上图提供的数据，可以编辑成如下的数据文件：文件名:CHLNR3→DimZ “X0”?A:”Y0”?B:“Ln”?L:Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: Els e “Xp”?X:”Yp”?Y:X→Z[1]：Y→Z[2]：IfEnd:Lbl 1:If L>0 :Then 98°39°35.12°→C：4474.384→D：2415 .861→E：140→F：31°17°23°→G：410.007→H:600→R:IfEnd: If 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:Prog”XLJS”:If Z[3]≠0. 0001:Then Goto 0:Else (Z[1]－X)cos(Ｏ)＋(Z[2]－Y)sin(Ｏ)→N:L＋N→L:－(Z[1]－X)sin(O)+(Z[2]－Y)cos（O）→K：If Abs（N）≥0.001：Then Goto 1：Else “L=“:L◢“K=”:K◢IfEnd:Goto 0: IfEnd在面程式中，有两个条件转移语句即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……如果还有其他弯道，可以继续完后加。

CASIO fx-5800p道路主线坐标放样程序简化使用程序说明：此程序是根据教科书结合工地实践应用继续开发，本程序包含一个母程序和两个子程序，本程序简化了部分详细输出内容，加快了实地放样计算的速度，本程序还有一大优点就是有“一劳永逸”的效果，先把子程序输入计算器，然后根据曲线要素表，用其中的数据代替母程序中的文字提示（包括括号），输入计算器，在运行母程序，然后检核，每一个曲线至少检查一个点，检核无误后即可，每次去工地放样就可以免带图纸，同时也大大的提高了野外放样计算的速度。

ZBFY(道路主线坐标放样程序母程序)：Lbl 0↵“KP=”?P↵If P<(第一个曲线的结束桩号)：Then↵（第一个曲线的交点x坐标）→X↵（第一个曲线的交点y坐标）→Y↵（第一个曲线的上一交点x坐标）→M↵（第一个曲线的上一交点y坐标）→N↵（第一个曲线的转角，左-右+）→O↵（第一个曲线的半径）→R↵（第一个曲线的第一缓和曲线长度）→B↵（第一个曲线的第二缓和曲线长度）→C↵（第一个曲线的交点桩号）→K↵Prog“-ZBFY”:Goto 0:IfEnd↵If P<(第二个曲线的结束桩号)：Then↵（第二个曲线的交点x坐标）→X↵（第二个曲线的交点y坐标）→Y↵（第二个曲线的上一交点x坐标）→M↵（第二个曲线的上一交点y坐标）→N↵（第二个曲线的转角，左-右+）→O↵（第二个曲线的半径）→R↵（第二个曲线的第一缓和曲线长度）→B↵（第二个曲线的第二缓和曲线长度）→C↵（第二个曲线的交点桩号）→K↵Prog“-ZBFY”:Goto 0:IfEnd↵...(重复If到IfEnd的语句，有n个曲线，就重复n-1次) ...（最后一个曲线的交点x坐标）→X↵（最后一个曲线的交点y坐标）→Y↵（最后一个曲线的上一交点x坐标）→M↵（最后一个曲线的上一交点y坐标）→N↵（最后一个曲线的转角，左-右+）→O↵（最后一个曲线的半径）→R↵（最后一个曲线的第一缓和曲线长度）→B↵（最后一个曲线的第二缓和曲线长度）→C↵（最后一个曲线的交点桩号）→K↵Prog“-ZBFY”:Goto 0 (结束)-ZBFY(带“-”号的程序表示子程序)：Deg:Fix3:26→DimZ↵Lbl0↵If O<0:Then -1→W:Else 1→W:IfEnd:W O→A↵B2÷24÷R-B∧(4) ÷2688÷R∧(3)+B∧(6)÷506880÷R∧(5)→Z〔6〕↵C2÷24÷R-C∧(4) ÷2688÷R∧(3)+C∧(6)÷506880÷R∧(5)→Z〔7〕↵B÷2-B∧(3)÷240÷R2+B∧(5)÷34560÷R∧(4)→Z〔8〕↵C÷2-C∧(3)÷240÷R2+C∧(5)÷34560÷R∧(4)→Z〔9〕↵Z〔8〕+(R+ Z〔7〕-（R+ Z〔6〕）cos(A))÷sin(A)→S↵Z〔9〕+(R+ Z〔6〕-（R+ Z〔7〕）cos(A))÷sin(A)→T↵RAπ÷180÷(B+C)÷2→L↵K-S→Z〔1〕↵Z〔1〕+B→Z〔2〕↵Z〔1〕+L÷2+(B-C) ÷4→Z〔3〕↵Z〔1〕+L-C→Z〔4〕↵Z〔4〕+ C→Z〔5〕↵Pol(X-M,Y-N):J →Z〔20〕:J+O→Z〔19〕↵X-Scos(Z〔20〕) →Z〔21〕↵Y-Ssin(Z〔20〕) →Z〔22〕↵X+Tcos(Z〔19〕) →Z〔23〕↵Y+Tsin(Z〔19〕) →Z〔24〕↵If P> Z〔1〕:Then Goto1:IfEnd↵Z〔1〕-P →L↵“XP=”:X-(S+L)cos(Z〔20〕) →F“YP=”:Y-(S+L)sin(Z〔20〕) →GZ〔20〕→Z↵Goto 5↵Lbl 1↵If P> Z〔2〕:Then Goto 2:IfEnd↵P- Z〔1〕→L:L→Z〔14〕:B→Z〔15〕:Prog”-FY”↵“XP=”: Z〔21〕+ Z〔16〕cos(Z〔20〕)-W Z〔17〕sin(Z〔20〕) →F“YP=”: Z〔22〕+ Z〔16〕sin(Z〔20〕)+W Z〔17〕cos(Z〔20〕) →GZ〔20〕+90WL2÷(BRπ)→Z↵Goto 5↵Lbl 2↵If P> Z〔4〕:Then Goto 3:IfEnd↵P- Z〔1〕→L:90(2L-B) ÷R÷π→Z〔13〕↵Rsin(Z〔13〕)+ Z〔8〕→Z〔16〕:R(1-cos(Z〔13〕))+ Z〔6〕→Z 〔17〕↵“XP=”: Z〔21〕+ Z〔16〕cos(Z〔20〕)-W Z〔17〕sin(Z〔20〕) →F“YP=”: Z〔22〕+ Z〔16〕sin(Z〔20〕)+W Z〔17〕cos(Z〔20〕) →GZ〔20〕+W Z〔13〕→Z↵Goto 5↵Lbl 3↵If P> Z〔5〕:Then Goto 4:IfEnd↵Z〔5〕-P→L:L→Z〔14〕:C→Z〔15〕:Prog”-FY”↵“XP=”: Z〔23〕- Z〔16〕cos(Z〔19〕)-W Z〔17〕sin(Z〔19〕) →F“YP=”: Z〔24〕- Z〔16〕sin(Z〔19〕)+W Z〔17〕cos(Z〔19〕) →GZ〔19〕-90WL2÷(CRπ)→Z↵Goto 5↵Lbl 4↵P- Z〔5〕→L↵“XP=”:X+(T+L)cos(Z〔19〕) →F“YP=”:Y+(T+L)sin(Z〔19〕) →GZ〔19〕→Z↵Lbl 5↵“D ANGLE”?H↵If H=0:Then Goto 9:IfEnd:?D↵“XB=”:F+Dcos(Z+H) →Z〔11〕“YB=”:G+Dsin(Z+H) →Z〔12〕Goto 5↵Lbl 9 (结束)-FY(子程序2)：If Z〔14〕=0:Then 0→Z〔16〕:0→Z〔17〕:Else↵Z〔14〕- Z〔14〕∧(5) ÷40(RZ〔15〕)2+ Z〔14〕∧(9) ÷3456÷(RZ 〔15〕)∧(4) →Z〔16〕↵Z〔14〕∧(3) ÷6÷(RZ〔15〕)- Z〔14〕∧(7) ÷336÷(RZ〔15〕)∧(3)+ Z〔14〕∧(11) ÷42240÷(RZ〔15〕)∧(5) →Z〔17〕↵IfEnd （结束）CASIO fx-5800p道路匝道坐标放样程序简化使用程序说明：本程序根据主线坐标放样程序的思想编写，原理相同，优点相同，使用相同。