全套4850测量程序.docx

全套4850测量程序.docx

《全套4850测量程序.docx》由会员分享，可在线阅读，更多相关《全套4850测量程序.docx（17页珍藏版）》请在冰豆网上搜索。

全套4850测量程序

全套4850测量程序

CASIOfx-4850p公路工程计算器程序集

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

一

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

二

CHAOGAO（超高） 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程

三

YYLDFWJ（任意两点方位角） 计算任意两点间的距离和方位角

四

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

五

TIANWAG-C（填挖高差） 计算左、中、右处填挖高差

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

七 ZHUIPO（锥坡） 进行锥坡放样计算

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

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

2 P-Q-XJ-S（平曲线计算子程序） 利用交点坐标进行计算曲线要素

3 YAO-SU（平曲线要素计算子程序） 进行平曲线要素计算

4 ZB（平曲线的坐标计算子程序） 进行平曲线的坐标计算

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

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

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

8 HYYH（缓圆点圆缓点坐标计算之子程序） 计算HY至YH间中桩坐标及其切线方位角

9 YHHZ（圆缓点直缓点坐标计算之子程序） 计算YH至HZ间中桩坐标及其切线方位角

10 S0（缓和曲线长度等于零坐标计算之子程序） 计算S=0的圆曲线中桩坐标及其切线方位角

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

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

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

14 JU-LIFWJ（任意两点间距离、方位角计算之子程序） 计算任意两点间的距离和方位角

15 SQXBG-1（竖曲线标高计算之子程序） 计算竖曲线设计标高

16 SQXCANSHU（竖曲线参数） 输入各个竖曲线相关参数（按桩号先后顺序依次输入）

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

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-LIFWJFY（距离方位角放样即偏角法放样）]

M“1-11XY，2-12JU-LI，3-13XYJU-LI，4-14YSZH，M≤0-INPUTJDXY”：

V=M：

Z[67]=0

M＞10﹦>GotoW：

≠>M≤0﹦>Goto  3  

Lbl7：

{T}：

T“INPUTQIAN-HOUJU-LI（QIAN+，HOU-）”：

  Z[51]=T：

{U}：

U“INPUTP（ZHUANGWEISHU）”：

Z[52]=U：

Goto1

Lbl3:

Z[67]=-1：

Prog“P-Q-XJ-S”

LblW:

V=14﹦>Prog“X1”

V=14﹦>GotoV

V＞10﹦>V=V-10：

Z[67]=1:

≠>V=V

V=AbsV：

V=1﹦>Z[67]=1:

Goto6:

≠>V＞1﹦>V＜4﹦>“INPUTCE-ZHAN-DIAN  X，Y”：

{X，Y}：

≠>V=4﹦>GotoV  

Lbl6:

Goto7

Lbl9:

Z：

Z[67]=1﹦>Prog“X1”

Prog“YAO-SU”：

Prog“XY”

Z[67]=-1﹦>K=Z[15]

Goto9

Lbl1:

{P}：

P“SHIFUOINPUT  V，K（P＞0，NOP＜0，YES）”：

Z[65]=P：

P＜0﹦>GotoK

V=Z[55]：

K=Z[61]：

“INPUTV[1]=”：

{V}：

Z[55]=V：

“INPUTK[1]=”：

{K}：

Z[61]=K：

Z[52]=1﹦>Goto  K

V=Z[56]：

K=Z[62]：

“INPUTV[2]=”：

{V}：

Z[56]=V：

“INPUTK[2]=”：

{K}：

Z[62]=K：

Z[52]=2﹦>Goto  K

V=Z[57]：

K=Z[63]：

“INPUTV[3]=”：

{V}：

Z[57]=V：

“INPUTK[3]=”：

{K}：

Z[63]=K：

Z[52]=3﹦>Goto  K

V=Z[58]：

K=Z[64]：

“INPUTV[4]=”：

{V}：

Z[58]=V：

“INPUTK[4]=”：

{K}：

Z[64]=K

LblK:

Z[67]=1﹦>Goto  9  

M=1﹦>Goto0

“INPUTCE-ZHAN-DIANX,Y”:

I“X”：

J“Y”

Z：

Z[1]=I:

Z[2]=J：

“INPUTHOU-SHI-DIANN,E”:

NE：

Z[10]=N：

Z[11]=E:

P=N-I：

F=E-I：

Prog“JU-LIFWJ”

“HOU-SHI-DIAN”:

“JU-LI=”:

L▲

“FWJ=”:

W->DMS▲

Z[12]=W

Lbl0:

Z:

Prog“CANSHU”

M≠4﹦>Goto2

“ZH=”:

Q▲

“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时调用其自程序《CANSHU》的参数，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▲

Goto0

Lbl2:

Prog“ZHONGZHUANG”

Z[3]=W:

Z[4]=N[1]:

Z[5]=E[1]：

Z[53]=0

LblB:

D=Z:

K=Z[7]:

Z[53]=1+Z[53]

Z[65]<0﹦>GotoN

P=Z[53]：

V=Z[54+P]：

K=Z[60+P]：

GotoP

LblN:

{K}：

K=0﹦>V=90：

GotoP

{V}

LblP:

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﹦>Goto5

“N[2]=”：

P+Z[1]▲

“E[2]=”：

F+Z[2]▲

M=1﹦>Goto8

Lbl5:

Prog“JU-LIFWJ”

“FWJ=”:

W▲

“JU-LI=”:

L▲

M≠3﹦>Goto8  

“SHUIPINGJIAO=”：

W=Abs（W-Z[12]）:

W->DMS▲

Lbl8:

I=Z[1]:

J=Z[2]:

N=Z[10]:

E=Z[11]:

Z[7]=K

U=Z[52]:

T=Z[51]

“NOWZ=”:

Z▲

Z[53]=U﹦>Z=Z+T

“NO.”：

Z[53]▲

“NEXTZ=”:

{Z}：

Z=D﹦>GotoB:

≠>Goto0

LblV：

V=14﹦>Prog“P-Q-XJ-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=为测站点与路线中、边桩坐标间的距离；

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

NOWZ=为现在的桩号；

NO.为现在的桩号的第几个桩位；

NEXTZ=为下一桩位的桩号。

二  CHAOGAO（超高）

M“SHIFUOINPUT  CANSHU（M＞0，NO  M＜0，YES）”

M≥0﹦>Goto0

“INPUTVZUO﹦>V<0YOU﹦>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：

Lbl0:

{Z}:

M<0﹦>GotoA

I“INPUT  I（I≥0﹦>SHE-JIGAO-CHENG≠>JI-SUAN  CHAO-GAO）”

Z[15]=I：

Prog“SQSBG-1”:

Z[8]=G

Z[15]<0﹦>Goto1

“SHE-JIGAO-CHENG=”：

G▲

Lbl1:

Prog“CANSHU”

AZ[4]=1:

≠>Z[4]=-1

B=Z[6]：

GotoB

LblA:

C=Z[8]:

V=Z[4]:

K=Z[9]:

J=Z[10]

LblB:

Prog“CHAOGAO-1”

“I[1]=”：

100*I[1]▲

“I[2]=”：

100*I[2]▲

“B[1]=”：

B[1]▲

“B[2]=”：

B[2]▲

“Z[1]=”：

Z[1]▲ 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程

输入M值，当M〈0时，则需要输入圆曲线参数；当M≥0,则直接调用子程序中的对应参数。

[输入v值，当圆曲线为左转弯时，则V为负值,当圆曲线为右转弯时，则V为正值。

圆曲线（ZH）起点桩号Q，圆曲线（HZ）起点桩号C，缓和段长度为S，路面宽度为K（半幅宽度），内侧路基最大加宽值为J，路拱横坡度为B（必须取负数），最大超高横坡度为H（必须取非负数）。

]

显示结果含义：

G为设计高程。

I[1]为左侧路面横坡度，负值为左侧低于中桩，正值为左侧高于中桩。

I[2]为右侧路面横坡度，负值为右侧低于中桩，正值为右侧高于中桩。

B[1]为左侧路面宽度

B[2]为右侧路面宽度

主程序名及内容 备      注

（接上页）

“Z[2]=”：

Z[2]▲

“Z[3]=”：

Z[3]▲

M<0﹦>Goto0

“H[1]=”：

H[1]=Z[8]+Z[1]▲

“H[2]=”：

H[2]=Z[8]+Z[2]▲

“H[3]=”：

H[3]=Z[8]+Z[3]▲

Goto0 Z[1]为左侧路面边缘与设计高程之差

Z[2]为中桩处与设计高程之差

Z[3]为右侧路面边缘与设计高程之差

H[1]为左侧路面边缘设计标高

H[2]为中桩处设计标高

H[3]为右侧路面边缘设计标高

三YYLDFWJ（任意两点方位角）

Lbl0:

XYNE：

P=N-X：

F=E-Y

Prog“JU-LIFWJ”

“JU-LI=”:

L▲

“FWJ=”:

W▲

{XYNE}:

Goto0 计算任意两点间的距离和方位角

输入第一点的坐标X，Y；输入第一点的坐标N，

E。

显示结果含义：

L为任意两点间的距离

W为任意两点间的方位角

四SQXBG（竖曲线标高）

M:

M≥0﹦>Goto1

IJRNH：

Lbl1:

{Z}：

Prog“SQSBG-1”

“SHE-JIGAO-CHENG=”：

G▲

Goto1 计算竖曲线设计标高

（输入M值，当M〈0时，则需要输入圆曲线参数；

当M≥0,则直接调用子程序中的对应参数。

）

显示结果含义：

G为设计高程

五  TIANWAG-C（填挖高差）

N“INPUTJIE-GOU-CENG-HOU-DU”

H“INPUTSHI-XIAN-GAO-CHENG”:

M=3

Z[8]=N:

Z[9]=H:

Z

LblA:

D=Z

Prog“SQSBG-1”

Z[15]=G:

Prog“CANSHU”

AZ[4]=1:

≠>Z[4]=-1

B=Z[6]:

Prog“CHAOGAO-1”

Z[5]=I[1]:

“INPUTV（V=1,2,3ZUOZHONGYOU）”:

{V}

V=1﹦>Goto1:

≠>V=2﹦>Goto2:

≠>V=3﹦>Goto1:

≠>

Goto4  

Lbl1:

J=Z[11]:

“KUAN-DU>=SHE-JI﹦>J>=0≠>J〈0”

{J,F}:

Z[11]=J

V=1﹦>I=Z[5]:

H=Z[1]:

≠>I=Z[2]:

H=Z[3]

Z[7]=Z[10]+H+IJ-Z[8]-Z[9]+F：

Goto3

Lbl2:

J=Z[12]：

“ZUO﹦>J〈0≠>YOUJ>0≠>ZHONGJ=0”

{J，F}:

Z[12=J：

J>0﹦>I=Z[5]：

≠>I=-I[2]

Z[7]=Z[15]+Z[2]-IJ-Z[8]-Z[9]+F▲

Lbl3:

“TIAN-WAGAO-CHA=”：

Z[7]▲

Lbl4:

N=Z[8]：

H=Z[9]：

{Z}:

Z=D﹦>GotoB:

≠>GotoA

 计算左、中、右处填挖高差（必须调用平、竖曲线参数才能进行计算）

输入结构层厚度N值（即本结构层顶面至设计高程之差值）；输入视线高程H值。

输入桩号Z值。

输入v值，当计算左侧边桩高差时，则V=1；当计算中桩高差时，则V=2,当计算右侧边桩高差时，则V=3值。

输入边桩加宽值J，当边桩至中桩之距离大于该侧设计路基宽度时，则J为正值；当边桩至中桩之距离小于该侧设计路基宽度时，则J为负值。

输入中桩或边桩处的前视读尺数F值。

当V=2时，J为偏左或偏右的距离，左为负值，右为正值，不偏离J=0；铺稳定层适用中桩左右偏离，其他J=0。

显示结果含义：

为所侧点至本结构层顶面之填挖高差（正值为

填，负值为挖）。

主程序名及内容 备      注

六BZZB（边桩坐标）

I“INPUTI（I≥0﹦>JU-LIFWJFY≠>X，YFY）”：

Z[15]=I

M“INPUTM（M=244﹦>S244-QIAO）”：

M≠244﹦>GotoB

LblA:

Z“INPUTLI-CHENG”：

Z≥148﹦>Z/1000

Z≥148﹦>GotoA

Z＞130﹦>Prog“S244-QIAO”

P=N-X：

F=E-Y：

“QIAO-LIANGZHONG-XINZHUANG-HAOZ=”：

Z▲

Prog“JU-LIFWJ”

N=（X+N）/2：

E=（Y+E）/2：

Z[15]＜0﹦>GotoC

I“INPUTBMBIAN-HAO”：

Z[13]=I：

Prog“S244-BM”

“X=”：

X▲

“Y=”：

Y▲

“H=”：

H▲

GotoC

LblB:

Z[15]＜0﹦>Goto1

“INPUTCE-ZHAN-DIANX,Y”:

XY

Lbl1:

“JI-SUAN-YUAN-DIANN，E，FWJ”：

NE：

W=Z[2]：

{W}

Lbl0:

Z=Z[14]：

{Z}：

Z“INPUTQIAN-HOUJU-LI（QIAN+，HOU）”：

{VK}：

Z[14]=Z：

Z≥0﹦>A=0：

Z[1]=Z：

≠>A=180：

Z[1]=-1

N[2]=N+cos（W+A）×Z[1]+cos（W+V）×K

E[2]=E+sin（W+A）×Z[1]+sin（W+V）×K

I=Z[15]：

Z=[14]：

Z[15]＜0﹦>Goto2

P=N[2]-X：

F=E[2]-Y：

Prog“JU-LI-FWJ”

“FWJ=”:

W▲

“JU-LI=”:

L▲

W=Z[2]：

Goto0

Lbl2:

“N[2]=”：

N[2]▲

“E[2]=”：

E[2]▲

Goto0 主要进行桥梁及涵洞各点坐标计算放样

输入I值（距离方位角放样时I≥0，坐标放样时I＜0）。

输入M值（M=244时，进行S244线桥梁放样计算）。

输入S244线桥梁的里程桩号。

显示桥梁中心桩号

输入桥梁附近的导线点编号

输入测站点坐标

输入计算原点的坐标N、E。

输入前后距离，角度及左右距离。

显示测站点与计算点的方位角和距离。

显示计算点的坐标。

7 ZHUIPO（锥坡）

I“INPUTI（I≥0﹦>JUFWJFY≠>X，YFY）”：

ABWVXYKM：

Z[3]=W：

I<0﹦>Goto0

“INPUTCE-ZHAN-DIANN,Y”:

{NE}

Lbl0:

Z[1]=M/K：

Z[2]=B√（1-Z[1]2）

N[2]=X+A*Z[1]cosW+Z[2]cos（W+V）

E[2]=Y+A*Z[1]sinW+Z[2]sin（W+V）

I<0﹦>Goto1

P=N[2]-X：

F=E[2]-Y：

Prog“JU-LI-FWJ”

“FWJ=”:

W▲

“JU-LI=”:

L▲

W=Z[3]：

Goto2

Lbl1:

“N[2]=”：

N[2]▲

“E[2]=”：

E[2]▲

Lbl2:

{M}：

Goto0 进行锥坡放样计算

子程序名及内容 备      注

1  XY（坐标计算子程序）

Prog“ZB”：

Z[53]=0

LblB:

Z[69]=Z:

B=Z[70]:

Z[53]=1+Z[53]

Z[65]<0﹦>GotoN

P=Z[53]：

U=Z[54+P]：

B=Z[60+P]

LblP:

B＜0﹦>U=AbsU：

B=-AbsB：

≠>U＜0﹦>U=AbsU：

B=-AbsB：

≠>U=AbsU：

B=AbsB    

Goto3

LblN:

{B}：

B“K（ZUO-，YOU+）”：

B≠0﹦>U=Z[68]:

{U}：

U“V（ZHENGJIAOV=+90）”：

U=AbsU：

Z[68]=U

Lbl3:

N[2]=N+Bcos（W+U）：

E[2]=E+Bsin（W+U）

V＞1﹦>I=PoL（N[2]-X,E[2]-Y:

J＜0﹦>J=J+360:

≠>J=J  

V=2﹦>GotoA

“N[2]=”:

N[2]▲

“E[2]=”:

E[2]▲

V=1﹦>Goto9

“FWJ=”：

J->DMS▲

“JU-LI=”:

I▲

V=2﹦>Goto9

J＞S“HOU-SHI-DIAN-FWJ0”﹦>F=J-S:

≠>F=J+360-S  

“JI-SUANSHUI-PING-JIAO0=”:

F->DMS▲

{I}:

I“CE-JU-LI”:

“CE-X=”:

Rec（I,J）+X▲

“CE-Y=”:

J+Y▲

Lbl9“NOWZ=”:

Z▲

Z[53]=Z[52]﹦>Z=Z+Z[51]

“NO.”：

Z[53]▲

“NEXTZ=”:

{Z}：

Z=Z[69]﹦>GotoB

Lbl2

 利用交点参数数据库进行计算

当M输入11时，计算并显示坐标；输入12时，为距离方位角放样；输入13时，计算并显示施检表（6、7）中的各项数据；输入4时，计算并显示交点要素，并可与施工图纸中的直线、曲线及转角表的数据相核对，检验子程序X1的要素输入是否正确。

N[2]=为施检表（7）中的X设计坐标；

E[2]=为施检表（7）中的Y设计坐标；

FWJ=为施检表（7）中的计算方位角；

JU-LI=为施检表（7）中的计算距离；

HOU-SHI-DIAN-FWJ0输入测站点至后视的方位角；

JI-SUANSHUI-PING-JIAO0=为施检表（7）中的计算水平角；

CE-JU-LI输入测站点至求算点的实测距离；

CE-X=为施检表（7）中的X实测坐标；

CE-Y=为施检表（7）中的Y实测坐标；

2  P-Q-XJ-S（平曲线计算子程序,利用交点坐标计算）

V=14﹦>Goto1

“QI-DIAN”：

XY：

Z[1]=X：

Z[2]=Y：

“JD”：

NE：

P=1：

Z[3]=N=N：

Z[4]=E：

K“JD-Z=”：

K：

“ZHONG-DIAN”：

U“X=”：

B“Y=”：

Z[5]=U：

Z[6]=B：

R：

H“S1=”：

Z[19]=H：

L“S2=”：

Z[20]=L

Lbl1：

Prog“YAO-SU”

“JD0=”：

A->DMS▲

“FWJ0=”：

F->DMS▲

“T1=”：

T▲

“T2=”：

C▲

“L=”：

D▲

“E=”：

（R+H2/24R）/sin（tan-1（（R+H2/24R）/（T-（H/2-H3/240R2）））-R▲

“ZH=”:

O▲

“HY=”:

O+H▲

“QZ=”:

O+H+（AbsAR3.1415927/180-H/2-L/2）/2▲

“YH=”:

O+D-L▲

“HZ=”:

O+D▲

V≠14﹦>K=Z[15]

 利用交点坐标进行计