Casio fx 5800P道路中边桩坐标正反算程序
Casio fx 5800道路中边桩坐标
正反算程序
主程序J－JSMS
6→DimZ：“1-ZS,2-FS”?Z:While Z=1:Goto 1:WhileEnd:Goto2
Lbl 1
“X(0)”?U:”Y(0)”?V:”K?”P:”BZJL”?D:”N°”?W
Prog”JP”:Prog”DFLR”:Goto 1
Lbl 2
?X:?Y:”BJ”?W:Prog “JF”:”K=”:P▲
“BZ=”:D▲
Goto 2
平曲线正算子程序JP
If P≤29395.714本段线元终点桩号（ＨＺ点桩号）:Then Prog “ＪＤ６（本段线元所在交点号）“:Goto A:IfEnd
If P≤……………
以上蓝色部分为里程判断部分，需计算几个交点则输入几条如上语句Lbl A
If E<1:Then 1e-9→E:IfEnd
If K<1:Then 1e-9→K:IfEnd
E2÷(24R)-E4÷(2688R3)→Z[1]:E÷2-E3÷(240R2)→Z[2];（E2-K2）÷(24R)÷sin(Abs（O）) →X：（R+Z[1]）tan(Abs(O÷2))+Z[2]-X→Z[3]:(R+K2÷(24R)-K4÷2688÷R3)×tan(Abs(O÷2))+K÷2-K3÷240
÷R2+X→Z[4]:Abs(πO R)÷180+(E+K)÷2→L:(R+Z[1])÷sin(J)-R →X:A-Z[3]→X:X+E→Y：If E<1:Then X：Y：X+（L-K-E）÷2+E→Y：X+L-K→Y：X+L→X：IfEnd
If K<1:Then X:Else Y：X：IfEnd(以上红色部分为曲线要素计算部分，输入时可省略)
Lbl 1
F→J:B-Z[3]cos(F)→X:C-Z[3]sin(F)→Y:E→G
If P≤A-Z[3]:Then A-Z[3]-P→I:-I→M:0→N:F+W→H:Goto 5:IfEnd If P≤A-Z[3]+E:Then P-A+Z[3]→I:90I2÷(πRE)→H
O<0=>-H→H:H+W+F→H:Goto 3:IfEnd
If P≤A-Z[3]+L-K:Then P-A+Z[3]-E→I:Goto 4:Else Goto 2:IfEnd Lbl 2
B+Z[4]×cos(F+O)→X:C+Z[4]×sin(F+O)→Y:F+O+180→J:K→G
If P≤A-Z[3]+L:Then A-Z[3]+L-P→I:90I2÷(πRK)→H
O>0=>-H→H
H+J+W+180→H:Goto 3:Else P-A+Z[3]-L→I:-I→M:0→N:J+W+180→H：Goto 5：IfEnd
Lbl 3
I-I5÷(40R2G2)→M:I3÷(6GR)-I7÷336÷(RG)3→N:Goto 5
Lbl 4
（E+2I）×90÷R÷π→H:Rsin(H)+Z[2]→M:R(1-cos(H))+Z[1]→N O<0=>-H→H:J+H+W→H:Goto 5
Lbl 5
If P≤A-Z[3]+L-K And O<0:Then -N→N:IfEnd
If P>A-Z[3]+L-K And O>0:Then -N→N:Else N→N:IfEnd:Goto 6 Lbl 6
X+Mcos(J)-Nsin(J)+Dcos(H)→X:Y+Msin(J)+Ncos(J)+Dsin(H)→
Y:Return
反算里程边距子程序JF
X→U:Y→V:0→D;“DYK”?P
Lbl 1
Prog”JP”:H-180→J:(V-Y)cos(J)-(U-X)sin(J)→I:If
Abs(I)<.0001:Then Goto 2:Else P+I→P:Goto 1:IfEnd
Lbl 2
(V-Y)÷sin(H)→D:Return
数据库子程序JD6
29110.089(交点桩号)→A:4732448.996（交点Ｘ坐标）→
B:512363.644（交点Ｙ坐标）→C:258°09′10″（起始边方位角）→F: 24°32′23″（转角左转曲线以负值输入）→O:1000（曲线半径）→R:150（第一缓和曲线长度）→E:150（第二缓和曲线长度）→K:Return
如有多个交点则相应建立多个数据库子程序。
放样子程序 DFLR
“X=”:X→I▲
“Y=”:Y→J▲
Pol((I-U),(J-V))
J<0=>J+360→J
“F=”:J▼DMS◢
“D=”:I◢
Lbl 0
“CLJL”?S
“CHAZHI”:S-I→E◢
While Abs(E)≤0.05 O r S=0:Return:WhileEnd:Goto 0
说明：本程序以交点法为内核，可对公路中边桩坐标正、反算进行计算，允许缓和曲线不等长，即可计算卵形曲线。经实际应用，计算精度满足施工要求，正算坐标与设计最大误差为２mm，反
算误差最大５mm。
“1-ZS,2-FS”?——选择正、反算，输１为正算，２为反算
正算时程序运行过程如下：
“X(0)”? ——输入测站点X坐标
”Y(0)”? ——输入测站点Y坐标
”K?”——输入计算点里程
”BZJL”？——输入边桩距离，左负右正，中桩输0
”N°”? ——输入边桩方向与线路前进方向右侧夹角
“X=”——显示计算点的X坐标
“Y=”——显示计算点的Y坐标
“F=”——显示测站点至计算点的方位角
“D=”——显示测站点到计算点的水平距离
“CLJL”?——输入测量距离（输入0时运行下一步后自动反回程序起点进行下点计算。）
“CHAZHI”——显示测量实际距离与放样点理论距离的差值，当差值小于5cm时返回程序初始，继续计算下点；否则返回
继续要求输入测量距离。
反算时程序运行如下：
X? ——输入任意测量点X坐标
Y? ——输入任意测量点Y坐标
”BJ”? ——输入计算点与线路理论右角（一般为90度）“DYK”?——输入估算大概桩号，可加快反算速度（输入值与真值相差在100m时，计算时间约为5秒钟。）
”K=”——显示计算点对应里程
”BZ=”——显示计算点与线路中线距离，左负右正
道路中边桩坐标计算教案资料
道路中边桩坐标计算 道路工程放样的主要工作包括：线路中线放样、路基施工放样、路面施工测量等内容。而线路线路中线是由直线与曲线组成的，直线的测设相对容易，故曲线测设是工程建筑物放样的重要组成部分之一。就线路而言，由于受地形、地物及社会经济发展的要求限制，线路总是不断从一个方向转到另一个方向。这时，为了使车辆平稳、安全地运行，必须使用曲线连接。这种在平面内连接不同线路方向的曲线，称为平面曲线，简称平曲线。 平面曲线按其半径的不同分为圆曲线和缓和曲线。圆曲线上任意一点的曲率半径处处相等。缓和曲线是在直线与圆曲线，圆曲线与圆曲线之前设置的曲率半径连续渐变的一段过渡曲线；缓和曲线上任意一点曲率半径处处在变化。当缓和曲线作为直线与圆曲线之间的介曲线时，其半径变化范围自无穷大至圆曲线半径R，若用以连接半径为R1和R2的圆曲线时，缓和曲线的半径便自R1向R2过渡。 按曲线的连接方式不同，可分为： a、单圆曲线，亦称为单曲线，即具有单一半径的曲线 b、复曲线，由两个或两个以上的单曲线连接而成的曲线 c、反向曲线，由两个不同方向的曲线连接而成的曲线 d、回头曲线，由于山区线路工程展现需要，其转向角接近或超过180度的曲线 e、螺旋线，线路转向角达360度曲线 f、竖曲线，连接不同坡度的曲线，竖曲线有凹形和凸形两种，顶点在曲线之上的为凸形竖曲线，反之为凹形竖曲线。 2.2 平面曲线放样数据计算基本公式
2.2.1 缓和曲线基本公式 1、缓和曲线具有的特征是曲线上任意点的曲率半径与该点至起点的曲线长成反比。如图2.1所示，设缓和曲线上任一点P 的半径为ρ，该点至起点的曲线长为l ，则回旋线的基本公式为： h L R l A l A l C ?=?== =ρρ22 （2-1） 式中，2 A 为常数，ρ为缓和曲线参数，表示缓和曲线半径的变化率。 图 2.1 带缓和曲线的圆曲线 2、切线角公式，如图2.1所示，可知切线角公式为： ?????? ?? ?? ? ? ??==?===)(1802)(2)(1802)(2200 000022 2πββπββR L rad R L RL l rad RL l C l S S S S （2-2）
道路逐桩坐标计算
道路逐桩坐标计算[可读数据库文件(.mdb)，或读文本文件(.txt或.dat) 附件(点击下载)： ;;; by yshf ;;;道路逐桩坐标计算[可读数据库文件(.mdb)，或读文本文件(.txt或.dat)] ;;;1. 根据“道路设计参数文件”[.txt或.dat(文本文件)， ;;; 或者.mdb(Access 2000 数据库)] ”中的平面曲线线元参数、 ;;; 道路纵断面参数成批地计算所求点坐标和相应中线点的设计高程， ;;; 并在Auto CAD中绘制出逐桩坐标表。 ;;; ;;;2. 必须将下载的文件“zbjgchjsb1.fas”存到“E:\\算例文件夹”中， ;;; 如存入其它地方，则程序不会进行计算。 ;;; ;;;3. 运行环境为：Auto CAD 2000以上版，Access 2000以上版数据库。 ;;; ;;;4. 计算前，先准备数据： ;;; (一)平面曲线 ;;; 平面曲线按线元法将各线元要素录入到Access 2000以上版数据 ;;; 库的“道路平面曲线线元参数表”中，或者录入到文本文件(.txt或 ;;; .dat)。当曲线左偏时，其线元长度输入负值；右偏及直线时其线元 ;;; 长度输入正值。 ;;; 起点切线方位是以度.分分秒秒的形式录入的，例如57°09′13.32″ ;;; 录入为57.091332。 ;;; ;;; (二)平曲线曲率半径约定如下： ;;; (1).当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次;;; 代替。 ;;; (2).当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半;;; 径均等于圆弧的半径。 ;;; (3).当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，;;; 以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直;;; 线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半;;; 径等于圆曲线的半径。 ;;; (4) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计;;; 规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接;;; 时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的;;; 半径。 ;;; ;;; (三)竖曲线 ;;; 竖曲线按变坡点里程、变坡点高程、竖曲线半径的方式录入到 ;;; “道路纵断面参数表”中，在变坡点未设有竖曲线的，其竖曲线半径 ;;; 输入0。 ;;; ;;; (四)注意事项
5800简单全线坐标计算程序
5800全线任意坐标计算程序 1. 正算主程序(ZHCX) （不运行） 8→DimZ 1÷P→Z[4 ]：(P-R)÷(2HPR)→D: 180÷π→E “Z=”?Z:”YJJ=”?A:Abs(S-O)→W 0.26→Z[1 ]: 0.74→B: 0.02→K: 0.82→Z[3 ]: 1-Z[3 ]→F:1-K→Z[2 ] U+W(Z[1 ]cos(G+QEKW(Z[4 ]+KWD))+Bcos(G+Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+Bcos(G+QEFW (Z[4 ]+FWD))+ Z[1 ]cos(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→X: V+W(Z[1 ] sin (G+QEKW(Z[4 ]+KWD))+B sin(G+ Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+B sin(G+QEFW (Z[4 ]+FWD))+ Z[1 ] sin(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→Y： G+QEW(Z[4 ]+WD)→F：X+Zcos(F+A)→X：Y+Zsin(F+A)→Y:If F≧360:Then F-360→F:IfEnd ”X=”:X→X◢ ”Y=”:Y→Y◢ If F﹤0:Then F+360→F:IfEnd ”QX FWJ=”:F▼DMS◢ “C=1=>XX: C=2=>XZ”: ”C=”?C: ”QHJU=”?L: If C=1：Then Goto 1:Else Goto 2: IfEnd 可以计算斜交斜做或斜交正做的桥涵坐标 Lbi 1 X+L cos(F)→X：Y+Lsin(F)→Y: Goto 3 Lbi 2 X+L cos(F+A-90)→X：Y+Lsin(F+A-90)→Y: Goto 3 Lbi 3 “QH-X=”: X →X◢ “QH-Y=”: Y →Y◢ Prog “FY” 2 . 参数子程序（直接运行） M(主线) 一条线路一个名称 “S=”?S If S≦线元终点：Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H：线元起点半径→P：线元终点半径→R：（左偏-1，或右偏 1）→Q:Goto 1:IfEnd … … If S≦线元终点：Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H：线元起点半径→P：线元终点半径→R：（左偏-1，或右偏 1）→Q:Goto 1:IfEnd Lbi 1 Prog “ZBJS” 3. 放样程序（FY）（不运行） “X0=”?M:“Y0=”？N Pol((X-M, Y-N)
道路施工测量公路边线桩点的坐标计算及放样方法
公路边线桩点的坐标计算及放样方法 中建四局一公司 （贵阳市云岩区松柏巷1号５5000３） 【摘要】本文主要讨论了在高等级公路施工放样过程中,公路边桩的坐标计算和放样方法。一、引言 公路施工放样测量是按照设计和施工要求将图纸上的路线设计方案放样到实地上去的一项工作，对新建的高等级公路而言，各方面的质量要求都很高,为确保路基在施工过程中路基宽度、坡比符合设计要求，笔者在此主要探讨了利用全站仪对公路边桩放样时的坐标计算方法 二、曲线上任一点的中桩坐标的计算 以直缓(ＴS）或缓直（ST）点为原点,以直缓点（或缓直点)的缓和曲线的切线为X轴,过直缓点（或缓直点)且垂直于X轴为Y轴,建立切线直角坐标系如图1，用切线支距法计算出曲线上每一点切线坐标。 １、曲线上任一点的中桩坐标的计算: 1.1、缓和曲线上任一点i的切线坐标计算: xｉ=l i - l５i/（４0R2ｌ02） 参考文献（1） ｙi=ｌ3ｉ/(6Rl０) 式中：x i、y i：缓和曲线上任一点的切线坐标。 l i :缓和曲线上任一点到直缓点(或缓直点)的距离。 l0：缓和曲线长度。 Ｒ:圆曲线半径。
1.２、带有缓和曲线的圆曲线上任一点的坐标计算 x ｉ=Ｒsin αi ＋ｍ y i ＝R(１-ｃos αi )＋P 式中：ｘｉ、y i ： 带有缓和曲的圆曲线上任一点的坐标。 m ：增加缓和曲线后,切线增值长度。 ｍ= l ０／2 - l 02/（24０Ｒ2) p ：增加缓和曲线后,圆曲线相对切线的内移量 p=ｌ02/（24R) αｉ: i 点至缓和曲线起点弧长所对应的圆心角 αi =l ｉ/R?18０°/π+β0 式中：ｌi :圆曲线上任一点到圆曲线起点的长度。 β0：缓和曲线角度。 β０= l 0/（2R)? 180°／π l o : 缓和曲线长度 １.3、利用坐标系变换，将切线直角坐标系变换为测量坐标系: 图1 １)、第一段缓和曲线上的点，即从TS 点SC 点之间: 参考文献（1）
线元法万能坐标计算程序
线元法万能坐标计算程序(适用于CASIO fx-9750GⅡ计算器) 论文https://www.360docs.net/doc/ac15449559.html,/：本论文仅供学习交流使用，本站仅作合理转载，原作者可来邮要求删除论 文。 摘要：我国公路建设事业正处于一个高速发展的时期，在公路工程施工过程中，施工技术人员经常要使用全站仪、水准仪进行施工放样、高程测量，在测量过程中，手工计算速度慢，失误率高，工作效率极低。利用CASIO fx-9750GⅡ编程函数计算器强大的内存（可诸存63000个字符）和编程功能，编写各种计算程序，能够在2秒钟内计算出施工放样、桩点坐标等施工过程中的各项数据资料，同时也使我们有更多的时间去挑战更富有创造性的工作。 关键词：坐标放线线元测量程序 1、前言 本程序采用Gauss-Legendre（高斯-勒让德）五节点公式作内核,计算速度（太约2秒）适中，计算精度很高。在此之前，本人曾用过以下公式作内核：①积分公式simpson法②双重循环复化高斯2节点③高斯-勒让德3节点④求和公式复化simpson法⑤双重循环复化simpson法⑥高斯-勒让德4节点，⑦高斯-勒让德5节点，经过测试③计算最快，⑦代码稍长但计算速度只比③⑥稍慢，精度最高，可满足线元长小于1/2πD 的所有线形的精度要求。⑦作内核分别计算圆曲线长1/4πD、1/2πD、3/4πD、πD处的精度,1/4πD时偏差为0.001mm,1/2πD时偏差为0.55m m,3/4πD时偏差为31.63mm，πD时偏差为968mm，偏差按半径倍数增大，如线元长大于1/2πD（1/2圆周长）时，可将其拆分二个或多个线元单位，以确计算保精度。 2、程序特点 事先将所有的平曲线交点的线元要素诸存到计算器内，测量时只输桩号、边距等程序会自动寻找各类要素，一气呵成地完成施工测量任务，中途不需人工转换各类要素数据，本程序可诸存几百条线路的要素数据，计算时可按需选择线路编号进行测量。测量时不需查阅及携带图纸，仅一台CASIO fx-9750GⅡ编程函数计算器即可。 本程序含一个主程序:3XYF，五个子程序:GL（公式内核）、QD（线路选择）、XL（线路要素判断）、GF（坐标反算）、File 1 （要素存放的串列工作簿）。可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、终点里程、起点曲率半径、止点曲率半径）及里程边距或坐标，对该线元段范围内任意里程中边桩坐标进行正反算。 3、计算公式及原理 如图：BC 间为一曲线元，曲线元上任一点的曲率随至B 点的弧长作线性变化。设起点B 的曲率为KA ，终点C 的曲率为KB ，R 为曲线半径。±表示曲线元的偏向，当曲线元左偏时取负号，当曲线元右偏时取正号,直线段以1的45次方代替（即半径无穷大）。 式中：αΑ＝起始方位角l ＝p 点到B的距离lS=曲线总长αp＝p 点切线方位角 R1=R5=0.118463442528095 ,R2 = R4 = 0.239314335249683 , R3 = 0.28444444444444 V1=1-V5= 0.046910070 ,V 2= 1-V4 = 1 0.2307653449 V3= 0.5 利用上面公式及CASIO fx-9750GⅡ编程函数计算器可编写下列计算程序。 4、程序清单 （1）、3XYF（主程序） "1→XY2→FS"?→V:V=1=>Goto 1:V=2=>Goto 2↙（选择计算功能） Lbl 1:File 1:”XLn”?→S:Prog “QD”↙（选择线路）
道路坐标计算公式(简单实用)
曲线坐标计算 1、曲线要素计算 （1）缓和曲线常数计算 移距R l 24/p 2 s = 切垂距 23 s 240/2/m R l l s -= 缓和曲线角R l R l s s πβ/902/0??== （2）曲线要素计算 切线长 m R T ++=2/tan )p (α 曲线长 ?+=?-+=180/]180/)2([20απβαπR l R l L s s 外矢距 R R E -+=)]2/cos(/)p [(0α 切曲差 L T q -=2 2、主要点的里程推算
s s s S l YH HZ )/22l -(L QZ YH )/22l -(L HY QZ l +=+=+=+=-=ZH HY T JD ZH 检核： HZ T JD =-+q 3、方位角计算 根据已知JD1和JD2的坐标计算出 21JD JD -α 偏角βαα±=--211JD JD JD ZH ?±-=-18011JD ZH ZH JD αα 4、计算直线中桩坐标 (1)计算ZH 点坐标： ZH JD JD ZH ZH JD JD ZH T y y T x x --?+=?+=1111sin cos αα (2)计算HZ 点坐标： 2 11211cos cos JD JD JD HZ JD JD JD HZ T y y T x x --?+=?+=αα (3)计算直线上任意点中桩坐标 待求点到JD1的距离为i L 2 112 11sin cos -JD JD i JD i JD JD i JD i i L y y L x x HZ T L --?+=?+=+=αα里程 待求点里程 5、计算缓和曲线中桩坐标 (1)第一缓和曲线上任意点中桩坐标 在切线坐标系中的坐标为： s i s i Rl l y Rl l l x 6/)(40/3 25=-= ZH 到所求点方位角：
通过逐桩坐标计算曲线要素
通过逐桩坐标表推算曲线要素（CAD篇） 摘要：现在从事工程行业的都流行使用AutoCAD进行绘制图形，为了更好的利用这个绘图工具来绘制线路曲线要素，本文将讲解如何通过设计院提供的逐桩坐标表推算未知曲线要素。 关键词：AutoCAD 技巧曲线要素 说明：AutoCAD已经成为国际上广为流行的绘图工具。具有良好的用户界面，通过交互 菜单或命令行方式便可以进行各种操作。它的多文档设计环境，让非计算机专业人员也能很快地学会使用。在不断实践的过程中更好地掌握它的各种应用和开发技巧，从而不断提高工作效率。 如何提高CAD速率？ 通常在开始绘图的时候一些人由于对工具命令不熟悉直接使用工具栏等查找命令，这样对制图的效率会大打折扣从而导致绘图的速率缓慢，提高制图的方法需要掌握CAD的快捷命令，孰能生巧的记住，然后择优选用其中的一些常用的绘图命令，把繁琐的长命令转化为简单的命令使用，其次需要多练习绘图的方式与方法才会提高绘图水平。 推算原理： 通过逐桩坐标表（含曲线五大桩）然后利用Excel生成展点命令在AutoCAD中进行坐标展点，再通过工具或命令绘制进行查询曲线长、切线长、外失距、交点坐标、交点里程、曲线半径、方位角、转角等。 准备工作： 1、逐桩坐标表X、Y（含曲线五大桩） 2、AutoCAD绘图软件 演示版本为：AutoCAD 2007 示例文件：某高速铁路逐桩坐标表 演示范围：DK07+586.707~DK12+126.03（由于该交点属于大转角则演示明显）
操作流程：坐标展点→绘制半径→绘制切线长→查询方位角→查询转角→查询交点坐标→查询交点里程→查询外失距→绘制缓和曲线。（请注意逐桩坐标表中所提供的ZH、HY、QZ、YH、HZ等说明） 准备操作如下： 1、打开“逐桩坐标表”并复制（里程桩号、坐标X、坐标Y）数据到“曲线坐标计算程序VBA 4.6”的“交点法正算”表格中，效果图如下： 逐桩坐标表见（本文附件）下载地址附后！
fx-4800P缓和曲线和圆曲线坐标正反算程序(正确版)
缓和曲线和圆曲线坐标正反算程序主程序“TYQXJS” Lb1 0↙→（EXE） {NUVOGHPRQ}:“1.SZ=>XY”: “2.xy=>SZ”: N:U“QDX”:V“QDY”:O“QDLC”:G“FWJ”: H“LS”:P“RO”:R“RN”:Q“ZP=-1,YP=+1,ZZ=0” :C=1÷P:D=(P-R)÷(2HPR):E=180÷π:N=1=>Goto 1:≠=>Goto 2◣↙Lb1 1:{SZ}:SZ:W= Abs(S-O): Prog“1”: X“XS”=X◢ Y“YS”=Y◢ F“FS”=F-90◢ Goto 3↙ Lb1 2:{XY}:XY:I=X:J=Y: Prog“2”:S“S”=O+W◢ Z“Z”=Z◢ Goto 3↙ Lb1 3↙ {DE}:E“QX-JJ,Z-1,Y+1”:D“BZ-JL”↙ F=F+E↙ X=X+D Cos F◢ Y=Y+D Sin F◢ {DE}:D“BZ-JJ”:E“JJ,Z-1,Y+1”↙ F=F+E↙
X=X+D Cos F◢ Y=Y+D Sin F◢ Goto 0 子程序1：“1” A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1 -L:M=1-K:X=U+W(ACos(G+QEKW(C+KWD))+BCos(G+QELW(C+LWD))+BCos(G+Q EFW(C+FWD))+ACos(G+QEMW(C+MWD))):Y=V+W(ASin(G+QEKW(C+KWD))+BSin (G+QELW(C+LWD))+BSin(G+QEFW(C+FWD))+ASin(G+QEMW(C+MWD))):F=G+QE W(C+WD)+90:X=X+Z Cos F:Y=Y+Z Sin F 子程序2: “2” T=G-90:W=Abs((Y-V)Cos T-(X-U)Sin T):Z=0: Lb1 0:Prog“1”:L=T+QEW(C+WD):Z=(J-Y)Cos L-(I-X)Sin L:Abs Z<1E-6=>Goto 1: ≠=>W=W+Z:Goto 0◣↙(E为：4800P键盘的EXE键) Lb1 1:Z=0Prog“1”:Z=(J-Y)÷Sin F◣ 注：第一缓和曲线起点半径输入无穷大（10 45），终点输入圆曲线半径；第二缓和曲线起点半径输入圆曲线半径，终点半径输入无穷大（10 45）；圆曲线输入给出的起点和终点半径；直线段则都输入无穷大（10 45）。 其中起点切线方位角用此程序计算。 ◣(代替空心) 坐标正算 程序“ZBZS” Lb1 0↙ X“HSX”:Y“HSY”:U“CZX”:V“CZY”↙ X-U≥0=>Goto 1: ≠=>Goto 2◣↙
带有缓和曲线的圆曲线逐桩坐标计算例题
带有缓和曲线的圆曲线逐桩坐标计算 例题：某山岭区二级公路，已知交点的坐标分别为JD1（40961.914,91066.103）、JD2（40433.528,91250.097）、JD3（40547.416,91810.392），JD2里程为 K2+200.000，R=150m,缓和曲线长度为40m,计算带有缓和曲线的圆曲线的逐桩坐标。（《工程测量》第202页36题） 解：（1）转角、缓和曲线角、曲线常数、曲线要素、主点里程、主点坐标计算
方法一：偏角法（坐标正算） （2）第一缓和段坐标计算 228370'''= β 308416012'''= α （3）圆曲线段坐标计算 1490153-0'''==- βααJD ZY 切线 桩号 弧长 里程里程桩点ZY -=i l 偏角 02 31β??? ? ??=?S i i L l 方位角 i c i ?-=12αα (左转) 弦长 22590S i i i L R l l c -= Xi i c i ZH i c X X αcos += Yi i c i ZH i c Y Y αsin += ZH: K2+048.562 0 160 48 03 40576.543 91200.296 +060 11.438 0 12 30 160 35 33 11.438 40565.754 91204.097 +080 31.438 1 34 23 159 13 40 31.438 40547.149 92211.446 HY K2+088.562 40 2 32 47 158 15 16 39.968 40539.419 91215.104 桩号 弧长 里程里程桩点HY -=i l 偏角 π ?=?90R l i i 方位角(左转) i JD ZY c i ?=---0βαα 弦长 i i R c ?=sin 2 X i c i HY i c X X αcos += Y i c i HY i c Y Y αsin += HY: K2+088.562 0βαα-=-JD ZY 切线 153 09 41 40539.419 91215.104 +100 11.438 2 11 04 150 58 37 11.435 40529.420 91220.652 +120 31.438 6 00 15 147 09 26 31.380 40513.055 91232.122 +140 51.438 9 49 26 143 20 15 +160 71.438 13 38 37 139 31 04 QZ: K2+176.280 87.718 16 45 10 136 24 31 86.473 40476.789 91274.728 +180 91.438 +200 111.438 +220 131.438 +240 151.438 +260 171.438 YH:K2+263.99 8 175.436 33 30 21 119 39 20 165.606 40457.480 91359.018
坐标计算方法
已知：①缓和曲线上任一点离ZH点的长度：l ②圆曲线的半径：R ③缓和曲线的长度：l0 ④转向角系数：K(1或－1) ⑤过ZH点的切线方位角：α ⑥点ZH的坐标：xZ，yZ 计算过程： 说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下： 当计算第二缓和曲线上的点坐标时，则： l为到点HZ的长度 α为过点HZ的切线方位角再加上180° K值与计算第一缓和曲线时相反 xZ，yZ为点HZ的坐标 切线角计算公式：
已知：①圆曲线上任一点离ZH点的长度：l ②圆曲线的半径：R ③缓和曲线的长度：l0 ④转向角系数：K(1或－1) ⑤过ZH点的切线方位角：α ⑥点ZH的坐标：xZ，yZ 计算过程： 说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下： 当只知道HZ点的坐标时，则： l为到点HZ的长度 α为过点HZ的切线方位角再加上180° K值与知道ZH点坐标时相反
xZ，yZ为点HZ的坐标 三、曲线要素计算公式 公式中各符号说明： l——任意点到起点的曲线长度（或缓曲上任意点到缓曲起点的长度）l1——第一缓和曲线长度 l2——第二缓和曲线长度 l0——对应的缓和曲线长度 R——圆曲线半径 R1——曲线起点处的半径 R2——曲线终点处的半径
P1——曲线起点处的曲率 P2——曲线终点处的曲率 α——曲线转角值 四、竖曲线上高程计算 已知：①第一坡度：i1(上坡为“＋”，下坡为“－”) ②第二坡度：i2(上坡为“＋”，下坡为“－”) ③变坡点桩号：SZ ④变坡点高程：HZ ⑤竖曲线的切线长度：T ⑥待求点桩号：S 计算过程： 五、超高缓和过渡段的横坡计算
缓和曲线上任意点坐标计算程序
第一缓和曲线加圆曲线上任意点坐标计算程序：L1：U=U"Ｘ0"：V=V"Y0"：F"FANG"=F：E=E"LEFT-1"：LbI 0 L2：｛B｝：｛D｝：｛P｝ L3：L=AbS（B-A"ZHD"） L 4： L5：X=L-LX Y5/（40R2S2） L6：Y= LX Y3/（6RS）- LX Y7/（336RX Y3SX Y3）：G=90L2/（∏RS） L GOtO 2 7： L8：LbI 1 L9：L=L-S L10：O=90S/（∏R）+90L/（∏R） L11：M=2（Rsin（90L/∏/R）） L12：X=S-SX Y3/（40R2）+Mcos O L13：Y=S2/（6R）+MsinO:G=90S/（∏R）+180L/（∏R） L GOtO 2 14： L15：LbI 2 L16：W=tan-1（Y/X）:Q=√（X2+Y2） L 17： L E=1=>G=-G 18： L19：X[1]=U+Qcos（F+W）+Dcos（F+G+P）◢ L20：Y[1]=V+Qsin（W+F）+Dsin（F+G+P）◢ L21：GOtO 0
注、○1、XO—为起点X坐标 EXE ○2、YO—为起点Y坐标 EXE ○3、F？—方位角 EXE ○4、LEFT-1？—左偏取1右偏取0 EXE ○5、B？—所求坐标点里程（起点输0时为到起点长度）EXE ○6、ZHD？—为直缓点里程或直圆点里程（起点可以输0）EXE ○7、S？—缓和曲线长、圆曲线时输为0 EXE ○8、R？—半径EXE ○9、D？—中桩到边桩长度EXE ○10、P？—左右方向与中线切线交角、法线方向时左-90右+90 EXE ○11、上述每一步输完后必须确认、结果显示字后转到B进行循环操作。
卡西欧fx-5800P直线圆曲线坐标正反算程序
[精] fx 5800 直线圆曲线坐标正反算程序 (2010-07-01 21:50:11) 标签： 杂谈 直线计算程序 0→I:0→J:”X 0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J→A:If A<0: Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd: D+Scos(A) →X:”X=”:X◢ E+Ssin(A) →Y:”Y=”:Y◢ Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X◢ E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y◢ Goto 0 输入程序时注意区别字母O与数字0 程序运行时符号说明 X0? Y0?分别输入直线起点的XY坐标值 X1? Y1?分别输入直线终点的XY坐标值 O? 输入边桩与中桩的距离(左边桩为负值,右边桩为正值),如计算中桩坐标输入0 S? 输入所求点到直线起点的距离 圆曲线计算程序 0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T: T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A→A:IfEnd: sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X◢ D+Hsin(A-KN+GN) →Y:”Y=”:Y◢ R-0.5√(4R2-H2) →Q:”Q=”:Q◢ “S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X◢ Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y◢ Goto 0 输入程序时注意区别字母O与数字0 程序运行时符号说明 X0? Y0?分别输入直线起点的XY坐标值 X1? Y1?分别输入直线终点的XY坐标值 R? 输入圆曲线半径 L:-1 R:1?圆曲线向左转弯时输入-1,向右转弯时输入1 ZY? 输入起点桩号
线路逐桩坐标计算原理
线路逐桩坐标计算原理 高等级公路、铁路的测设通常要用全站仪应用极坐标法测设中线，利用极坐标法测设中线就必须知道线路中线的点位坐标。下面就有关计算原理进行说明。 直线段逐桩坐标计算原理 直线是线路中最基本的线形。直线以最短的距离连接两目的地，具有线路短捷，汽车行车方向明确，驾驶操作简单，视距良好等特点，同时直线线形简单也容易计算。其计算方法和导线类似，知道一个已知点坐标，直线的方位角和距离（即历程差）就能计算未知点里程桩坐标。 如图2-1，例如已知直线A 点坐标和直线方位角AB α以及直线AB 之间的距离AB d 推算B 点坐标： 图2-1直线线路 ? ??+=+=AB AB A B AB AB A B d Y Y d X X ααsin cos （2-1） 圆曲线逐桩坐标计算原理 铁路与公路线路的平面通常由直线和曲线构成，这是因为在线路的定线中，由于受地形、地物或其他因素限制,需要改变方向。在改变方向处，相邻两直线间要求用曲线连结起来,以保证行车顺畅安全。这种曲线称平面曲线。 由于受地形等条件限制，路线总是不断从一个方向转到另一个方向。这时为了工程能 安全运营，必须用曲线来连接。其中，圆曲线是最基本线路曲线之一，它是有一定曲率的圆弧。下面介绍圆曲线的理论计算。 如图2-2所示，直线与圆曲线的连接点称为直圆点（ZY ）；圆曲线的中点称为曲线中点（QZ ）；圆曲线与直线的连接点称为圆直点（YZ ）。圆曲线要素有线路转向角α，圆曲线半径R ，圆曲线长L ，外矢距E 及切曲差q 。其中转向角α（单位：度、分、秒）和半径R 是已知数据，其余要素如切线长T ，曲线长L, 外
测量坐标计算
一、坐标正反算： 数学数轴X （横轴）Y （竖轴） 测量数轴Y （横轴）X （竖轴），测量计算中以测量竖轴判断象限，象限以顺时针排列。 正算cos AB B A AB X X D α?=+ sin AB B A AB Y Y D α=+? 直圆点里程ZY=JD-T 圆直点里程YZ=ZY+L 曲中点里程QZ=YZ-L/2 R>300m 时，曲线上20m 定一个桩，R<200m 时，曲线上100m 定一个桩。 l i 为曲线点至ZY （或YZ ）的曲线长 i 点与ZY 点在曲线上夹角 i 180= i l R απ?
i 点与ZY 点在X 上变化 sin i i x R α= i 点与ZY 点在Y 上变化 () 1cos i i y R α=- 2.缓和曲线和圆曲线相对坐标计算 0缓和曲线长 001802l R βπ=? 24 003-242688l l p R R =3002 2240l l m R =- 00018036l R βδπ ==? 切线支距法
缓和曲线： 59 2244 00403456l l x l R l R l =-+ 3711 3355 000 -633642240l l l y Rl R l R l =+ 圆曲线：00002290180180==2l l l l l l R R R ?βπππ ---?=?+? （） 特别提示：此处线路转向±与其他情况正好相反！ 3、已知两坐标系纵轴夹角计算 X 0、Y 0为施工坐标原点，α为两坐标系纵轴夹角 0cos sin p p X X x y αα=+- 0cos sin p p Y Y y x αα=+-
路线中桩坐标计算
路线逐桩坐标计算 高等级公路路线设计中，必须计算各点位的逐桩坐标，以作为路线施工放样的依据，也是公路交工和峻工验收时检测中线偏位的依据，故坐标计算能力，已是道路桥梁工程技术专业学生的必备技能。 1、路线交点偏角、交点间距、曲线要素及主点桩计算 如图所示，设路线起点坐标), , ( YJ XJ JD任一交点i的坐标为 , ,... 3,2,1 ), , (n i YJ XJ JD i i i =则相邻两交点之间的 坐标增量： 1 ,1 1 ,1 - - - - - = ? - = ? i i i i i i i i YJD YJD Y XJD XJD X 路线交点坐标计算： i i i i i i i i Y YJD YJD X XJD XJD ,1 1 ,1 1 - - - - ? + = ? + = 交点间距：2 ,1 2 ,1 ,1 ) ( ) ( i i i i i i Y X S - - - ? + ? = 象限角 i,1 i i,1 i ,1X Y arctan - - -? ? = i i θ 象限角与方位角A之间关系 i i i i i i i i i i A Y X ,1 ,1 ,1 ,1 ,1 ,0 ,0 - - - - - = > ? > ?θ θ位于第一象限， 时， i i i i i i i i i i A Y X ,1 ,1 ,1 ,1 ,1 180 ,0 ,0 - - - - - = > ? < ?θ θ－ 位于第二象限， 时，ο i i i i i i i i i i A Y X ,1 ,1 ,1 ,1 ,1 180 ,0 ,0 - - - - - + = < ? < ?θ θο 位于第三象限， 时， i i i i i i i i i i A Y X ,1 ,1 ,1 ,1 ,1 360 ,0 ,0 - - - - - = < ? > ?θ θ－ 位于第四象限， 时，ο 路线偏角 i α等于后方位角减前方位角： 1 2 θ θ α- =
5800计算器公路坐标计算程序(全线)直缓和圆曲线程序
5800计算器公路坐标计算程序(全线) 原４８５０程序改编 Lb1 1 ”K”?K:”W”?W:”O”?O:”I”?I IF K<41490.879:Then 40776.825→A: 41490.879→ B: 3761346.715→ M: 505279.147→N：166°45′36.3″→F： 1/1045→D：1/1045→E ：Goto 0 :Return:Ifend IF K<41690.879:Then 41490.879→A: 41690.879→ B: 3760651.641→ M: 505442.686→N：166°45′36.3″→F： 1/1045→D：1/1000→E ：Goto 0 :Return:Ifend IF K<42242.154:Then 41690.879→A: 42242.154→ B: 3760455.626→ M: 505481.961→N：172°29′22.78″→F： 1000→ R：Goto 2: Return:Ifend IF K<42442.154:Then 42242.154→A: 42442.154→ B: 3759916.982→ M: 505403.549→N：204°04′31.62″→F： 1/1000→D： 1/1045→E： Goto 0 : Return:Ifend IF K<42673.884:Then 42442.154→A: 42673.884→ B: 3759740.299→ M: 505310.019→N ：209°48′18.1″→F： 1/1045→D： =1/1045→E ：Goto 0 : Return:Ifend IF K<42863.884:Then 42673.884→A: 42863.884→ B:3759539.223→ M:505194.838→N：209°48′18.1″→F：-1/1045→D:-1/800→E：Goto 0 : Return:Ifend IF K<43636.692:Then 42863.884→A: 43636.692→ B:3759370.853→ M:505107.051→N：203°00′04.15″→F：R=-800：Goto2 : Return:Ifend IF K<43826.692:Then 43636.692→A: 43826.692→ B:3758630.216→ M: 505167.591→N：147°39′10.35″→F： -1/800→D：E=-1/1045→E :Goto 0 : Return:Ifend IF K<44825.092:Then 43826.692→A: 44825.092→ B:3758478.338→ M: 505281.555→N：140°50′56.4″→F：-1/1045→D：-1/1045→E: Goto 0 : Return:Ifend IF K<45025.092:Then 44825.092→A: 45025.092→ B:3757704.093→ M: 505911.911→N：140°50′56.4″→F： 1/1045→D：1/1000→E：Goto 0 : Return:Ifend IF K<45300.109:Then 45025.092→A: 45300.109→ B:3757544.945→ M: 506032.892→N：146°34′42.88″→F：R=1000：Goto 2 : Return:Ifend IF K<45500.109:Then 45300.109→A: 45500.109→ B:3757297.588→ M: 506151.102→N：162°20′09.32″→F： 1/1000→D： 1/1045→E ：Goto 0 : Return:Ifend IF K<45805.835:Then 45500.109→A: 45805.835→ B:3757103.485→ M: 506198.937→N：168°03′55.8″→F： 1/1045→D：1/1045→E： Goto 0 : Return:Ifend IF K<45980.835:Then 45805.835→A: 45980.835→ B:3756804.367→ M: 506262.160→N：168°03′55.8″→F： -1/1045→D： -1/1000→E：Goto 0 : Return:Ifend IF K<46136.333:Then 45980.835→A: 46136.333→ B:3756634.336→ M: 506303.312→N：163°03′07.63″→F：R=-1000：Goto 2 : Return:Ifend Lb1 0 (E-D)÷(Abs(B-A)) →P： Abs(K-A) →Q： F+(PQ+2D)Q×90÷∏→J F+(PQ÷4+2D)Q×45÷(2∏) →G F+(3PQ÷4+2D)Q×135÷(2∏) →H F+(PQ÷2+2D)Q×45÷∏→S：
关于道路平曲线逐桩坐标计算
论文题目：关于道路平曲线逐桩坐标的计算作者：贾陇春 单位：陕西省宝鸡市市政工程公司 日期：二○○六年十二月十日
关于道路平曲线逐桩坐标的计算 —CASIOfx-4500P计算器程序开发和应用 作者：贾陇春单位：宝鸡市市政工程公司 简介：近年来，随着我国公路建设的不断发展，公路等级越来越高，对道路测量精度的要求也越来越高。现在公路施工设计图一般只提供直线及转角一览表，有些道路虽然提供部分整桩号的坐标，但在实际施工中有些地方却无法进行测设，而需要在破桩号处进行测设，这就需要我们进行逐桩计算或补充一些点的坐标。结合测量学的专业知识，利用CASIO-4500P计算器独有的编程功能，通过不断的摸索和实践，编制了一套能完整计算道路平曲线要素及逐桩坐标、距离道路中线两侧任意一点坐标的程序，这个程序不但能计算出圆曲线上各点的坐标，还能计算出带有缓和曲线的圆曲线上任意一点的坐标。 关键字：平曲线程序坐标计算 前言：近年来，随着我国公路建设的不断发展，公路等级越来越高，对道路测量精度的要求也越来越高。随着测量手段及测量仪器的不断发展，测量精度和测量效率有了明显的提高。全站仪的应用为我们的测量工作带来了极大的方便，全站仪不但测量精度高，而且测量效率高，利用提供的高等级导线点能精确的测设出想要的目标点。 现在公路施工设计图一般只提供直线及转角一览表，有些道路虽然提供部分整桩号的坐标，但在实际施工中有些地方却无法进行测设，而需要在破桩号处进行测设，这就需要我们进行逐桩计算或补充一些点的坐标。结合测量学的专业知识，利用CASIO-4500P计算器独有的编程功能，通过不断的摸索和实践，编制了一套能完整计算道路平曲线要素及逐桩坐标、距离道路中线两侧任意一点坐标的程序，这个程序不但能计算出圆曲线上各点的坐标，还能计算出带有缓和曲线的圆曲线上任意一点的坐标。这样以来，在施工测量中利用CASIO-4500P计算器工作平台，就能很快计算出想要测设点的坐标，结合全站仪坐标放样功能，就能精确测设出需要的目标点。 编制的这个应用程序由两大部分组成，第一部分是主程序，主要用于计算平曲线要素及各点的坐标；第二部分是子程序，主要用于计算交点之间的计算方位角。下面对这个程序进行详细的介绍。 平曲线计算（PQXJS/CASIOfx-4500P） F1（主程序名PQXJS） L1 C“HJX”D“HJY”U“JX”V“JY” :B=U-C:Q=V-D:Prong2:F◢W=（B2+Q2)◢A:Fix3 输入HJ(X，Y)；JD(X，Y)；计算距离W和方位角F并输出； 输入JD转角A（左为负值，右为正直）取小数点后三位。 L2 Lb1:｛RH｝—输入JD半径R，缓和曲线长度H L3 B=90H/(πR) L4 P=H2/(24R) L5 Q=H/2-H3/240R2 L6 T=(R+P)tgA/2+Q:T◢—输出切线长T L7 L=πRA/180+H:L◢—输出曲线长L L8 E=（R+P）secA/2-R:E◢—输出外距值E L9 I“D”=2T-L◢—输出切曲差D L10 J“JD”—输入交点桩号
道路中边桩坐标放样正反算CASIO fx-5800P程序(全线贯通) 四方
一、前言 本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。 改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。 程序的特点： 1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。 二、道路示例项目基本资料 基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600）。这里摘取直线、曲线及转角表资料如下（若图片不清晰，请参见参见教材P161附录1）：
. - .
. 三、程序代码 .