全套4850测量程序超全

编号 主程序名（其中文含义） 程序计算功能 一

FANG YANG （ 放 样 ） 计算路线中、边桩坐标，测站点与路线中、边桩坐标间的距离和方位角等 二

CHAO GAO (超高) 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程 三

YYLDFWJ (任意两点方位角) 计算任意两点间的距离和方位角 四

SQXBG（竖曲线标高） 计算竖曲线设计标高 五

TIAN WA G-C(填挖高差) 计算左、中、右处填挖高差

六 BZZB （边桩坐标） 主要进行桥梁及涵洞各点放样计算 七 ZHUI PO （锥坡） 进行锥坡放样计算

编号 子程序名（其中文含义） 程序计算功能

1 XY （坐标计算子程序） 利用交点参数数据库进行计算

2 P-Q-X J-S （平曲线计算子程序） 利用交点坐标进行计算曲线要素 3 YAO-SU (平曲线要素计算子程序) 进行平曲线要素计算 4 ZB (平曲线的坐标计算子程序) 进行平曲线的坐标计算

5 X1 （曲线要素数据库子程序） 曲线要素数据库（按桩号先后顺序依次输入）

6 ZHONG ZHUANG（中桩坐标计算之子程序） 计算任意点中桩坐标及其切线方位角

7 ZH HY（直缓点 缓圆点处中桩坐标计算之子程序） 计算ZH至HY间中桩坐标及其切线方位角

8 HY YH（缓圆点 圆缓点坐标计算之子程序） 计算HY至YH间中桩坐标及其切线方位角 9 YH HZ（圆缓点 直缓点坐标计算之子程序） 计算YH至HZ间中桩坐标及其切线方位角 10 S0（缓和曲线长度等于零坐标计算之子程序） 计算S=0的圆曲线中桩坐标及其切线方位角

11 ZXZB（直线段坐标计算之子程序） 计算直线段中桩坐标及其切线方位角

12 CHAO GAO-1（超高计算之子程序） 计算左右两侧路基横坡度、宽度、左中右处设计标高之差值

13 JK--B[2]（加宽计算之子程序） 计算内侧路基宽度

14 JU-LI FWJ(任意两点间距离、方位角计算之子程序) 计算任意两点间的距离和方位角 15 SQXBG-1（竖曲线标高计算之子程序） 计算竖曲线设计标高

16 SQX CAN SHU（竖曲线参数） 输入各个竖曲线相关参数（按桩号先后顺序依次输入） 17 CAN SHU（圆曲线参数） 输入各个平曲线相关参数（按桩号先后顺序依次输入）

18 S244-QIAO（S244 线桥梁坐标参数） S244 线桥梁坐标参数数据库（按桩号先后顺序依次输入）

19 S244-BM（S244 线桥梁附近的导线点参数） S244 线桥梁附近的导线点参数数据库（按桩号先后顺序依次输入）

常用字母的一般含义：（输入时）

1. 判断参数M，当M≥0时，调用子程序相应参数；当M＜0时，直接输入相应参数。任意点的桩号为Z。

2. 圆曲线（ZH）起点桩号Q，其坐标为（X，Y），方位角为A；圆曲线（HZ）起点桩号C，其坐标为（N，E），方位角为B；圆曲线半径为R，缓和段长度为S，内侧路基最大加宽值为J，路面宽度为K（半幅宽度），路拱横坡度为B（必须取负数），最大超高横坡度为H（必须取非负数）。

3. 竖曲线：第一坡度值为I（上坡为正值，下坡为负值），第二坡度值为J（上坡为正值，下坡为负值），竖曲线半径为R，变坡点桩号为N，变坡点高程为H。

4. 计算边桩坐标时： V为旋转角度（左为负值，右为正值。正交时V取90或-90），K为边桩到中桩的距离。

主程序名及内容 备 注

一 FANG YANG （ 放 样 ）

[原名为 JU-LI FWJ FY (距离 方位角 放样 即偏角法放样)]

M“1-11 XY，2-12 JU-LI，3-13 XY JU-LI，4-14 YSZH，M≤0-INPUT JDXY”：V=M：Z[67]= 0

M＞10﹦> Goto W：≠> M≤0﹦> Goto 3

Lbl 7：{T}：T“INPUT QIAN-HOU JU-LI（QIAN +，HOU -）”： Z[51]=T：{U}：U“INPUT P（ZHUANG WEI SHU）”：Z[52]=U：Goto 1 Lbl 3: Z[67]= -1：Prog “P-Q-X J-S” Lbl W: V=14﹦>rog “X1” V=14﹦>Goto V

V＞10﹦>V=V-10：Z[67]= 1:≠> V=V

V=Abs V：V=1﹦> Z[67]= 1:Goto 6:≠> V＞1﹦> V＜4﹦>“INPUT CE-ZHAN-DIAN X，Y”：{X，Y}：≠> V=4﹦> Goto V Lbl 6:Goto 7

Lbl 9:Z：Z[67]= 1﹦> Prog “X1” Prog “YAO-SU” ：Prog “XY” Z[67]=-1﹦>K=Z[15] Goto 9 Lbl 1:

{P}：P“SHI FUO INPUT V，K（P＞0，N O P＜0，YES）”： Z[65]=P： P＜0﹦> Goto K V=Z[55]：K=Z[61]：“INPUT V[1]=”：{V}：Z[55]=V：“INPUT K[1]=”：{K}：Z[61]=K：Z[52]=1﹦> Goto K V=Z[56]：K=Z[62]：“INPUT V[2]=”：{V}：Z[56]=V：“INPUT K[2]=”：{K}：Z[62]=K：Z[52]=2﹦> Goto K V=Z[57]：K=Z[63]：“INPUT V[3]=”：{V}：Z[57]=V：“INPUT K[3]=”：{K}：Z[63]=K：Z[52]=3﹦> Goto K

V=Z[58]：K=Z[64]：“INPUT V[4]=”：{V}：Z[58]=V：“INPUT K[4]=”：{K}：Z[64]=K Lbl K: Z[67]=1﹦> Goto 9 M=1﹦> Goto 0

“INPUT CE-ZHAN-DIAN X,Y”:I“X”：J“Y”

Z：Z[1]=I:Z[2]=J：“INPUT HOU-SHI-DIAN N,E”:NE：Z[10]=N：Z[11]=E=N-I：F=E-I：Prog “JU-LI FWJ”

“HOU-SHI-DIAN”: “JU-LI=”▲ “FWJ=”:W->DMS▲ Z[12]=W

Lbl 0:Zrog“CAN SHU” M≠4﹦> Goto 2 “ZH=”▲ “X=”:X▲ “Y=”: Y▲

“A-FWJ=”:A▲ “HZ=”:C▲ “N=”:N▲ “E=”:E▲

“B-FWJ=”:B▲ “R=”:R▲

“S=”:S▲ (输入M值，当M〈0时，则需要输入圆曲线交点参数；当M≥0,则直接调用子程序中的对应参数，M=1，2，3，4时调用其自程序《CAN SHU》的参数，M=11，12，13，14时，调用《X1》的参数。）

输入前后距离，前为正值，后为负值。 输入每个断面的桩数（为1～4）。

输入测站点坐标X、Y值。

是否输入V，K值，当输入正数时，计算过程中不必输入V，K；当输入负值时，计算过程中需要输入V，K。

输入第1～4个桩位的K，V值：K为边桩到中桩的距离（左为负值，右为正值）， V为旋转角度（左为负值，右为正值。正交时V取90或-90）；当V或K为负值时，计算左侧边桩；当V、K同时为正值时，计算右侧边桩；当K=0时，计算中桩。

输入测站点坐标X、Y值。 输入后视点坐标N、E值。

显示结果含义：

HOU-SHI-DIAN （后视点）；

JU-LI=为测站点与后视点的计算距离； FWJ=为测站点与后视点的计算方位角。

曲线的ZH桩号、坐标X、Y、方位角；

曲线的HZ桩号、坐标N、E、方位角； 曲线半径R； 缓和段长度S；

主程序名及内容 备 注 （接上页）

“JIA-KUAN-ZHI=”:J▲ “CHAO-GAO-ZHI=”:H▲ Goto 0

Lbl 2rog“ZHONG ZHUANG”

Z[3]=W:Z[4]=N[1]:Z[5]=E[1]：Z[53]=0 Lbl B=Z:K=Z[7]:Z[53]=1+Z[53] Z[65] <0﹦> Goto N

P=Z[53]：V=Z[54+P]：K=Z[60+P]：Goto P Lbl N:{K}：K=0﹦> V=90：Goto P {V}

Lbl P:K＜0﹦> V=-AbsV：K=AbsK：≠>V＜0﹦> V=-AbsV：K=AbsK：≠>V=AbsV：K= AbsK P=Z[4]+cos(Z[3]+V) ×K-Z[1] F=Z[5]+sin(Z[3]+V) ×K-Z[2]

V＜0﹦> V=AbsV：K=-AbsK：≠>V=AbsV：K= AbsK M=2﹦> Goto 5 “N[2]=”：P+Z [1]▲ “E[2]=”：F+Z [2]▲ M=1﹦> Goto 8

Lbl 5: Prog “JU-LI FWJ” “FWJ=”:W▲ “JU-LI=”▲ M≠3﹦> Goto 8

“SHUI PING JIAO=”：W=Abs(W-Z[12]):W->DMS▲ Lbl 8:I=Z[1]:J=Z[2]:N=Z[10]:E=Z[11]:Z[7]=K U=Z[52]:T=Z[51] “NOW Z=”:Z▲ Z[53]=U﹦> Z=Z+T “NO.”：Z[53] ▲

“NEXT Z=”:{Z}：Z=D﹦> Goto B:≠> Goto 0 Lbl V：V=14﹦>rog “P-Q-X J-S” V=14﹦>{Z}：Goto W

加宽值； 超高值。

输入桩位的K，V值：K为边桩到中桩的距离（左为负值，右为正值）， V为旋转角度（左为负值，右为正值。正交时V取90或-90）；当V或K为负值时，计算左侧边桩；当V、K同时为正值时，计算右侧边桩；当K=0时，计算中桩。

N[2]=为该桩位的X坐标值； N[1]=为该桩位的Y坐标值；

FWJ=为测站点与路线中、边桩坐标间的方位角。 JU-LI=为测站点与路线中、边桩坐标间的距离；

SHUI PING JIAO=为测站点与后视点及测站点与路线中、边桩间的水平夹角。

NOW Z=为现在的桩号；

NO.为现在的桩号的第几个桩位； NEXT Z=为下一桩位的桩号。 二 CHAO GAO (超高)

M“SHI FUO INPUT CAN SHU（M＞0，N O M＜0，YES）” M≥0﹦> Goto 0

“INPUT V ZUO﹦> V<0 YOU﹦> V≥0”: VQC：S“S1=”:Z[1]=S: {S}：S“S2=”：Z[20]=S：S=Z[1]：JBH:Z[8]=C:Z[4]=V:Z[9]=K: Z[10]=J：Lbl 0: {Z}:M<0﹦> Goto A

I“INPUT I （I≥0﹦> SHE-JI GAO-CHENG≠>JI-SUAN CHAO-GAO）” Z[15]=I：Prog “SQSBG-1”: Z[8]=G Z[15]<0﹦> Goto 1

“SHE-JI GAO-CHENG=”：G▲ Lbl 1rog “CAN SHU” A Z[4]=1:≠> Z[4]=-1 B=Z[6]：Goto B

Lbl A:C=Z[8]:V=Z[4]:K=Z[9]:J=Z[10] Lbl B: Prog “CHAO GAO-1” “I[1]=”：100*I[1] ▲ “I[2]=”：100*I[2] ▲ “B[1]=”：B[1] ▲ “B[2]=”：B[2] ▲ “Z[1]=”：Z[1] ▲ 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程

本文来源：https://www.bwwdw.com/article/3p4t.html