道路中边桩坐标计算程序

5800计算器程序集 第 1 页 共 3 页 5800中桩正算计算程序 ZGXY（主程序） Lb1 0:〝XA=〞?A“YA=”？B“CA=”?C“RAˉ1=”？O：“RBˉ1=”？E: “KA=” ？F:“KB=”？G:“X0=”？S:“Y0=”?S← Lb1 1:“KI=”？H:“DL=”?O:“DR=”?R:“A=”?T:H?Goto3← (E-D)÷Abs（G-F）→P:Abs（H-F）→Q:P×Q→I:C+（I+2×D）×Q×90÷∏→J← C＋（I÷4+2×D）×Q×45÷（2×∏）→M:C+(3×I÷4+2×D)×Q×135÷(2×∏) →N← C+(I÷2+2×D)×Q×45÷∏→K← “X=”:A+Q÷12×(Cos(C)+4×(Cos(M)+Cos(N))+2×Cos(K)+Cos(J))→X▲ “Y=”:B+Q÷12×(Sin(C)+4×(Sin(M)+Sin(N))+2×Sin(K)+Sin(J))→Y▲ X→M:Y→N:Prog“FW”← “XL=”:X+O×Cos(J+T-180)→U▲ “YL=”:Y+O×S

道路中边桩的计算程序

【摘要】本文通过介绍南通市开发区七号路工程中边桩计算的原理，编写一套实用的中边桩计算程序

Abstract: The article compiles a practical calculation programme by the introduction of the middle and side piles in the projects in No 7 road development area in Nan tong city.

【关键词】 放样 计算 数学模型

Key Words: Layout, calculation, mathematics modeling 引言

我公司承建了南通市开发区七号路的道路、桥梁、雨污水的建设工程。本人担任项目的工程测量工作，七号路总长4.6Km，与老路交叉改造段长0.9Km。七号路距与老路交叉口20米处有一条通运输船的大河，设计有一座桥梁。设计老路交叉改造段加高三米，与七号路形成平面交叉口，道路拐弯弧度有大有小，形成斜坡，设计采用石驳加固。真实的开挖和坡脚桩长需在放样时根据实地高程作一些调整。设计图只提供了道路曲线元素表，交点、起终点的坐标，直、圆曲线的中边桩坐

道路中边桩的计算程序

【摘要】本文通过介绍南通市开发区七号路工程中边桩计算的原理，编写一套实用的中边桩计算程序

Abstract: The article compiles a practical calculation programme by the introduction of the middle and side piles in the projects in No 7 road development area in Nan tong city.

【关键词】 放样 计算 数学模型

Key Words: Layout, calculation, mathematics modeling 引言

我公司承建了南通市开发区七号路的道路、桥梁、雨污水的建设工程。本人担任项目的工程测量工作，七号路总长4.6Km，与老路交叉改造段长0.9Km。七号路距与老路交叉口20米处有一条通运输船的大河，设计有一座桥梁。设计老路交叉改造段加高三米，与七号路形成平面交叉口，道路拐弯弧度有大有小，形成斜坡，设计采用石驳加固。真实的开挖和坡脚桩长需在放样时根据实地高程作一些调整。设计图只提供了道路曲线元素表，交点、起终点的坐标，直、圆曲线的中边桩坐

单圆曲线中边桩坐标计算程序PM4-3

单交点单圆曲线中边桩坐标计算程序(PM4-3)

(2) 主程序——PM4-3，占用内存1070字节。 "SINGLE CIRCLE CURVE" 显示程序标题1 "METHOD OF COORDINATE PM4-3" 显示坐标法标题2

Deg:ClrStat:FreqOn:Fix 3 基本设置 14

DimZ 定义额外变量

"JD MILEAGE PEG(m)="?Z 输入以m为单位的交点桩号

"JD X(m)="?U 输入交点x坐标

"JD Y(m)="?V 输入交点y坐标 "ZD X(m)="?M 输入转点x坐标

"ZD Y(m)="?N 输入转点y坐标 Pol(U-M,V-N):Cls 计算ZDJD的边长与方位角 If J<0:Then J+360A:Else J

A:IfEnd 判断ZDJD的方位角A "TURNING ANGLE -L,+R(Deg)="?Q

圆曲线中边桩坐标计算公式：

L=F-H；

注：L---所求点曲线长；F---所求点里程；H---圆曲线起点（ZY点桩号里程） X=XZY+2×R×SIN（L÷2R）×COS｛α±(L÷2R)｝+S×COS｛α±(L÷R)+M｝;

X=YZY+2×R×SIN（L÷2R）×SIN｛α±(L÷2R)｝+S×SIN｛α±(L÷R)+M｝.

注：

α---线路方位角；

M---所求边桩与路线的夹角；

S---所求边桩至中桩的距离；

"±"---曲线左偏取“-”右偏取“+”；

当S=0时极为中桩坐标。

本人经高速公路施工一线使用过的。记住在公式中加入Excel的Radians（）函数将度转为弧度即可轻松方便地使用，从ZY点坐标准确快速推算地计算出整条圆曲线。 注意要分清左偏右偏两种情况。

5800竖曲线

“SQXJSCX”↙

Lb1 1↙

CLs:Fix 3↙

“K=”?k◢ (计算点里程输入)

If k<67549.755 AND K≥66894.3 :Then -0.0005

利用数据库改编任意线元中桩、边桩坐标计算

通用程序09 （线元法）

一、主程序（XY—Z-H-R）

Deg：2→Dimz ：Fix 3 LbI 0

？N：？S:“E=90（R）,-90（L）”?E Prog “ZD—DATA” “X=“：X⊿ “Y=”：Y⊿ Go To 0

二、数据库文件 （ZD—DATA）

18013.122→Z[1]：18083.122→Z[2]

If N≤Z〖2〗 ：Then 464435.269→A：474023.60→B：173°24”35.3〞→F： 0→R：400→U：1→G Prog “SUB—H1” Prog “SUB—H2” Return：Ifend

Z[2] →Z[1]：18151.1→Z[2] If N≤Z〖2〗 ：Then 464365.551→A：474029.600→B：178°25”23.47〞→F： 400→R：400→U Prog “SUB—ZD--R”

Return：Ifend ` Z[2] →Z[1]：18221.1→Z[2]

If N≤Z〖2〗 ：Then 464297.766→A：474025.702→B：188°9”37.14〞→F Pr

精品文档

曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序 一、程序功能

本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(

SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线

元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲

率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另

外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲

线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。

特别申明：(1). 适用于弧长小于2倍半径的各种线元坐标正反算，精度优 于1mm；

(2). 在引用该核心计算部分时，请注明来源。

精品文档

精品文档

二、源程序 1.主程序(TYQXJS)

\=> XY\：\=> SZ\：N：U\：V\：O\：G\：H\：P\：R\：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠>Goto 2Δ←┘ Lbl 1：{SZ}：SZ：W=Abs(S

曲线任意里程中边桩坐标正反算(4850P计算器)程序(第四次修改版）

曲线任意里程中边桩坐标正反算(CASIO fx-4850P计算器)程序 （ 第四次修改版 ）

一、程序功能及原理

1.功能说明：本程序由一个主程序(TYQXjs)和四个子程——正算子程序(SUB1)、反算子程序(SUB2)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序也可以在CASIO fx-4800P计算器运行。

2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。 二、源程序 1.主程序(TYQXjs)

Lbl 0：Defm 50:\=> XY,2.XY => SZ\：N： N=1=>Goto 1：≠>Goto 2Δ←

Lbl 1：{SZ}：SZ

S≤Z[18]=>J

H

现代公路

IGHWAY

用Excel程序快速计算公路工程逐桩坐标

文/左 卿

引言

在公路工程设计及施工过程中，逐桩坐标的计算是一项必不可少的工作，尤其近些年随着全站仪的普及使用，坐标放样法因速度快、精度高而被广泛应用，逐桩坐标计算的工程量也因此而大大增加。例如：某高速公路某一合同段有20公里的路基，按照常规的设计及施工方法，不考虑曲线加桩，按每20m一个断面，每个断面左右幅2个点，则需要计算1000个点2000个坐标。如此大的计算量如果采用传统的计算器计算，不仅费时，还难免出错。笔者从事多年施工工作，针对这一情况，利用Microsoft Office中的Excel电子表格的编程计算功能，设计了一套包括直线、缓和曲线和圆曲线的坐标计算程序，该计算程序具有快速、精确、程序简单、使用方便等优点，较其他编程软件编制的计算程序更灵活、更适用。

坐标计算

直线段逐桩坐标

首先介绍函数Value（MIDB（“ZH”，2，n）&MIDB(“ZH”，n+3，7)），n表示公里数的位数，当里程公里数为1位数，则n=1，当公里数为2位数，n=2，当里程公里数为3位数时，n=3……。如ZH=K136+700，运行该函数，n=3，结果=136700，其目的为将K136+700文

精品文档

曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序 一、程序功能

本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(

SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线

元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲

率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另

外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲

线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。

特别申明：(1). 适用于弧长小于2倍半径的各种线元坐标正反算，精度优 于1mm；

(2). 在引用该核心计算部分时，请注明来源。

精品文档

精品文档

二、源程序 1.主程序(TYQXJS)

\=> XY\：\=> SZ\：N：U\：V\：O\：G\：H\：P\：R\：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠>Goto 2Δ←┘ Lbl 1：{SZ}：SZ：W=Abs(S