公路测量程序

2007/11/19

CASIO-5800公路测量程序

一 文件名：HHQX 缓和曲线段内任意点坐标计算程序 “FWJ=”？Q

“ZHUAN XIANG L（-1），R（1）=”？N “R（m）=”?R “LS(m)=”?D “KZH=”?G “XZH=”?U “YZH=”?V LbI 0 “KP=”?H Abs(H-G)→C

C-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →J

C^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5) →K Q+N(C^2/(2RD)×(180/Π)) →F U+J×Cos(Q)+K Cos(Q+90N) →A V+J×Sin(Q)+K Sin(Q+90N) →B LbI 1 “XP=”：A ◢ “YP=”：B ◢

“QIE XIAN FWJ=”：F ◢ LbI 2

“BIAN JU(m)=”?S S=0＝＞Goto 0 LbI 3

“JIA JIAO L(-),R(+) =”?E A+S Cos(F+E) →X B+S Sin(F+E) →Y LbI 4

“X[1]=”：X ◢ “Y[1]=”：Y ◢ Goto 2

FWJ=?---输入交点间方位角

ZHUAN XIANG L（-1），R（1）=？---输入曲线转向，左输-1，右输1 R（m）=?---输入曲线半径 LS(m)=?---输入缓和曲线长 KZH=?---输入ZH点桩号

XZH=? 、YZH=?---输入ZH点坐标 KP=?---输入待求点桩号

BIAN JU(m)=?---输入边距(斜交时输入斜长),不论左右一律正值,当不计算边桩时输入O JIA JIAO L(-),R(+) =?---输入边桩与中桩法线方向夹角,左边输负值,右边输正值。

1

二文件名：YQX 圆曲线段内任意点坐标计算程序 “FWJ=”？Q

“ZHUAN XIANG L（-1），R（1）=”？N “R（m）=”?R “LS(m)=”?D “KHY=”?G “XHY=”?A “YHY=”?B LbI 0 “KP=”?H Abs(H-G)→C

2R Sin(90C/(RΠ)) →J

Q+N((90D/(RΠ))+（90C/(RΠ)）) →I Q+N(((C/R)×(180/Π))+ (90D/(RΠ))) →F LbI 1

A+J Cos(I) →X B+J Sin(I) →Y “XP=”：X ◢ “YP=”：Y ◢

“QIE XIAN FWJ=”：F ◢ LbI 2

“BIAN JU(m)=”?S S=0＝＞Goto 0 LbI 3

“JIA JIAO L(-),R(+) =”?E X+S Cos(F+E) →K Y+S Sin(F+E) →L LbI 4

“X[1]=”：K ◢ “Y[1]=”：L ◢ Goto 2

FWJ=?---输入交点间方位角

ZHUAN XIANG L（-1），R（1）=？---输入曲线转向，左输-1，右输1 R（m）=?---输入曲线半径 LS(m)=?---输入第一缓和曲线长 KYH=?---输入YH点桩号

XYH=? 、YZH=?---输入YH点坐标 KP=?---输入待求点桩号

BIAN JU(m)=?---输入边距(斜交时输入斜长),不论左右一律正值,当不计算边桩时输入O JIA JIAO L(-),R(+) =?---输入边桩与中桩法线方向夹角,左边输负值,右边输正值。

三 \"SINGLE CIRCLE VERTICAL CURVE\" 显示程序标题 Deg:ClrStat:FreqOn:Fix 3 基本设置

\"C MILEAGE PEG(m)=\"?Z 输入以m为单位的变坡点桩号

2

\"HC(m)=\"?H 输入变坡点高程 \"i1(%)=\"?A 输入坡度1 \"i2(%)=\"?B 输入坡度2 \"R(m)=\"?R 输入竖曲线半径 13 DimZ 定义额外变量维数

If A-B>0:Then -1 Z[10]:Else 1 Z[10]:IfEnd

tan-1(0.01A) Z[1]:tan-1(0.01B) Z[2] 计算坡度竖直角Z[1],Z[2] Z[1]-Z[2] Z[13]:Abs(Z[13]) Z[3] 计算坡度转角Z[3] 0.5(Z[1]+Z[2]) Z[4] 计算变坡点 的铅垂线与外距直线的夹角 RZ[3]π÷180 L 计算竖曲线长 Rtan(0.5Z[3]) T 计算切线长

R((cos(0.5Z[3]))-1-1) E 计算竖曲线外距 \"α1(DMS)=\":Z[1] 显示第一纵坡竖直角 \"α2(DMS)=\":Z[2] 显示第二纵坡竖直角 \"α1-α2(DMS)=\":Z[13] 显示竖曲线转角 \"DELT(DMS)=\":Z[4] 显示 \"L(m)=\":L 显示竖曲线长 \"T(m)=\":T 显示切线长 \"E(m)=\":E 显示竖曲线外距长 Z-T List X[1] 计算竖曲线起点A的桩号 Tcos(Z[1]) List Y[1] 计算C→A的水平距离 H-Tsin(Z[1]) List Freq[1] 计算竖曲线起点A的高程 \"START-A PEG(m)=\":List X[1] 显示竖曲线起点A的桩号 \"DIST C A(m)=\":List Y[1] 显示C→A的水平距离 \"HA(m)=\":List Freq[1] 显示A点的高程

List X[1]+0.5L+Z[10]Esin(Z[4]) List X[2] 计算变坡点投影到圆曲线点D的桩号与高程 H+Z[10]E÷cos(Z[4]) List Freq[2]

Tcos(Z[1]) List Y[2] 计算A→D点的水平距离 \"D PEG(m)=\":List X[2] 显示D点的桩号与高程 \"DIST A D(m)=\":List Y[2] \"HD(m)=\":List Freq[2]

List X[1]+L List X[3] 计算竖曲线终点B桩号与高程 Tcos(Z[2]) List Y[3] 计算C→B的水平距离 H+Tsin(Z[2]) List Freq[3]

\"END-B PEG(m)=\":List X[3] 显示竖曲线终点B的桩号 \"DIST C B(m)=\":List Y[3] 显示C→B的水平距离 \"HB(m)=\":List Freq[3] 显示B点高程 \"INT DIST(m)=\"?I 输入整桩间距

If I 0:Then 20 I:IfEnd 当输入的整桩间距 0时，取I=20 3 K 为计数变量赋初值

\"ONLY CALC +PEG(1)\"? G 输入1为只计算加桩点的坐标 If G=1:Then Goto 1:IfEnd K+1 K 计数变量计数

Int(List X[1]÷I)I+I List X[K] 计算并存储从A点开始的第一个整桩号

3

\"INT PEG(m)=\":List X[K] 显示整桩桩号

Prog \"SUB10-11\" 调子程序计算并显示第一缓和曲线逐桩点的测量坐标 Do

K+1 K: List X[K-1]+I List X[K] 计数变量计数，存储整桩号 \"INT PEG(m)=\":List X[K] 显示整桩桩号

Prog \"SUB10-11\" 调子程序计算并显示竖曲线高程 LpWhile List X[K]+I\"+PEG(m)=\"? F 输入加桩号

If F List X[1]:Then Break:IfEnd 加桩号小于A点桩号时结束程序运行 If F List X[3]:Then Break:IfEnd 加桩号大于B点桩号时结束程序运行 K+1 K 计数变量计数

F List X[K] 存储加桩号到统计串列 \"+PEG(m)=\":List X[K] 显示加桩桩号

Prog \"SUB10-11\" 调子程序计算并显示竖曲线高程 LpWhile F>0 \"PM10-1 END\" (3) 子程序

SUB10-11，占用内存356字节

入口参数为桩号List X[K]，A或B点至j点的平距存储在List Y[K]，竖曲线高程存储在List Freq[K]。 If List X[K] List X[2]:Then List X[K]-List X[1] J 计算A→j的圆弧长 90J÷(πR) Z[5]:2Rsin(Z[5]) Z[6] 计算弦切角Z[5]与弦长Z[6]

Z[1]+Z[10]Z[5] Z[7]:Z[6]sin(Z[7]) Z[8] 计算弦长A→j的竖直角Z[7]与高差Z[8] Z[6]cos(Z[7]) List Y[K] 计算弦长A→j的水平距离 List Freq[1]+Z[8] List Freq[K] 计算并存储j点的高程 \"DIST A J(m)=\":List Y[K] 显示A→j的水平距离 Else List X[3]-List X[K] J 计算B→j的圆弧长

90J÷(πR) Z[5]:2Rsin(Z[5]) Z[6] 计算弦切角Z[5]与弦长Z[6]

-Z[2]+Z[10]Z[5] Z[7]:Z[6]sin(Z[7]) Z[8] 计算弦长B→j的竖直角Z[7]与高差Z[8] Z[6]cos(Z[7]) List Y[K] 计算弦长B→j的水平距离 List Freq[3]+Z[8] List Freq[K] 计算并存储j点的高程 \"DIST B J(m)=\":List Y[K] 显示B→j的水平距离 IfEnd

\"HJ(m)=\":List Freq[K] 显示竖曲线高程 Return

程序显示完计算标题后，提示用户输入的已知数据分别为：以米为单位的变坡点桩号、变坡点高程、以%为单位的纵坡 ， ，竖曲线半径 。完成已知数据输入后，屏幕先显示曲线要素：变坡道1的竖直角 、坡道2的竖直角 、坡点转角 、变坡点 的铅垂线与外距直线的夹角 、竖曲线长 、切线长 、外距 ，竖曲线起点 的桩号、距变坡点 的水平距离、 点高程， 点的桩号、距离 点的水平距离、 点的高程，竖曲线终点 的桩号、距变坡点 的水平距离、 点高程。

完成竖曲线三个主点桩号计算后，屏幕提示输入整桩间距，当输入的整桩间距值小于0时，程序自动取整桩间距值为20m。然后提示“ONLY CALC +PEG(1)?”，要求输入是否只计算加桩点高程控制数值，输入数值1为只计算加桩点的高程，否则为先计算逐桩点的高程，后计算加桩点高程。

4

5