58004850测量程序.docx
- 文档编号:27959215
- 上传时间:2023-07-06
- 格式:DOCX
- 页数:25
- 大小:28.82KB
58004850测量程序.docx
《58004850测量程序.docx》由会员分享,可在线阅读,更多相关《58004850测量程序.docx(25页珍藏版)》请在冰豆网上搜索。
58004850测量程序
1-JINYU(主程序)
Lbl4:
“1→ZS,2→FS,3→CQW”?
N(选择计算模式,1为正算,2为反算,3为超欠挖)
N=1=>Goto1:
N=2=>Goto2:
N=3=>Goto3
Lbl1:
“K=”?
S:
“P=”?
Z:
Prog“SJ¬-PM”:
Abs(S-O)→W:
Prog“SUB1-ZS”:
“X=”:
Locate4,4,X:
“Y=”:
Locate4,4,Y:
F-90→F:
S→K:
Prog“SJ¬-GC”:
“H=”:
Locate4,4,H:
“W=”:
Locate4,4,F°◢
Goto4
(正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=)
Lbl2:
“K(L)=”?
S:
“X=”?
X:
“Y=”?
Y:
Prog“SJ¬-PM”:
X→I:
Y→ J:
Prog"SUB2-FS":
O+W→S:
“K=":
Locate4,4,S:
“P=":
Locate4,4,Z:
S→K:
Prog“SJ¬-GC”:
“H=”:
Locate4,4,H:
F-90→F:
“W=”:
Locate4,4,F°◢
Goto4
(反算-输入反算点大概里程K(L)=、输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=)
Lbl3:
“K(L)=”?
S:
“X=”?
X:
“Y=”?
Y:
Prog“SJ¬-PM”:
X→I:
Y→ J:
Prog"SUB2-FS":
O+W→S:
“K=":
Locate4,4,S:
“P=":
Locate4,4,Z:
S→K:
Prog“SJ¬-GC”:
“H=”:
Locate4,4,H:
F-90→F:
“W=”:
Locate4,4,F°◢
Prog“SJ-CQW”◢
Goto4
(超欠挖-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=、输入实测高程H1=、显示超欠挖值及第几圆心上CQ→Y?
=)
SJ¬-PM(子程序名-平面线形数据库)
IfS≥59227.681(线元起点里程):
Then2599818.013→U(线元起点X坐标):
496887.918→V(线元起点Y坐标):
59227.681→O(线元起点里程):
208028’39”→G(线元起点方位角):
100→H(线元长度):
1×1045→P(线元起点曲率半径):
1×1045→R(线元终点曲率半径):
0→Q(线元左右偏标志:
左-1右1直0):
IfEnd
IfS≥59327.681(线元起点里程):
Then2599730.112→U(线元起点X坐标):
496840.237→V(线元起点Y坐标):
59327.681→O(线元起点里程):
208028’39”→G(线元起点方位角):
90→H(线元长度):
1×1045→P(线元起点曲率半径):
750→R(线元终点曲率半径):
-1→Q(线元左右偏标志:
左-1右1直0):
IfEnd
(注:
有多个平面线形,依照上面的依次变更,每多一个,就增加一个。
每次只需要修改以上的数据或增加一个判断。
)
SJ-GC¬(子程序名-竖曲线数据库)
IfS<变坡终点里程AndS≥变坡起点里程:
Then大里程坡度→A:
小里程坡度→B:
变坡点里程→O:
变坡点高度→G:
半径→R:
Prog“SUB3-GC”:
IfEnd
(注:
1.有多个竖曲线,依照上面的依次变更,每多一个,就增加一个。
每次只需要修改以上的数据或增加一个判断。
2.如整条线只有一个纵坡比喻为2﹪,那么程序应为IfS<终点里程AndS≥起点里程:
Then0.02→A:
0.02→B:
起点里程→O:
起点高程→G:
1×1045→R:
Prog“SUB3-GC”:
IfEnd)
SJ-CQW(子程序名-隧道数据库)
“H1=”?
F
IfF-H>5.845:
Then√((Abs(Z))2+(F-H-0.45)2)-7.45→W:
“CQ→Y1=”:
W:
IfEnd:
(显示超欠和第1圆心)
IfF-H≤5.845AndF-H>-1.169:
Then√((Abs(Z)-1)2+(Abs(F-H-1.5))2)-6→W:
“CQ→Y2=”:
W:
IfEnd:
(显示超欠和第2圆心)
IfF-H≤-1.169:
Then√((Abs(Z))2+(H-F+14.05)2)-16.5→W:
“CQ→Y3=”:
W:
IfEnd:
(显示超欠和第3圆心)
(注:
隧道断面有多个圆心,依照上面的依次变更,每多一个,就增加一个。
每次只需要修改以上的数据或增加一个判断。
)详细数据见下图:
SUB1-ZS(正算子程序)¬
1÷P→C:
(P-R)÷(2HPR)→D:
180÷π→E:
0.1739274226→ A:
0.3260725774→B:
0.0694318442→K:
0.3300094782→L:
1-L→F:
1-K→M:
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X:
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y:
G+QEW(C+WD)+90→F:
X+Zcos(F)→X:
Y+Zsin(F)→Y
SUB2-FS(反算子程序)¬
G-90→T:
Abs((Y-V)cos(T)-(X-U)sin(T))→W:
0→Z:
Lbl0:
Prog"SUB1-ZS":
T+QEW(C+WD)→L:
(J-Y)cos(L)-(I-X)sin(L)→Z:
IfAbs(Z)<1E-6(注:
此处1E-6可输入0.000001):
thenGoto1:
ElseW+Z →W:
Goto0:
IfEnd
Lbl1:
0→Z:
Prog"SUB1-ZS":
(J-Y)÷sin(F)→Z
SUB3-GC(高程子程序)
O-S→L:
A-B→W:
Abs(R*W÷2)→T:
O-T→M:
O+T→P
IfS≤M:
ThenG-L*B→H:
Goto5:
ElseIfS≤O:
ThenGoto3:
ElseIfS≤P:
ThenGoto4:
IfEnd:
IfEnd:
IfEnd
Lbi3
IfW>O:
ThenG+(M-S)2÷2÷R-L*B→H:
Goto5:
ElseIfW<O:
ThenG-(M-S)2÷2÷R-L*B→H:
Goto5:
IfEnd:
IfEnd
Lbi4
IfW>O:
ThenG+(S-P)2÷2÷R-L*A→H:
Goto5:
ElseIfW<O:
ThenG-(S-P)2÷2÷R-L*A→H:
Goto5:
IfEnd:
IfEnd
Lbi5
H→H:
Return
说明:
(正算1秒,反算和超欠挖5秒完成)
所有程序名。
不同线路,只需改动SJ-PM,SJ-GC,SJ-CQW三个子程序里的内容,其它不变。
1为正算,2为反算,3为超欠挖.
K= 正算时,输入所求点里程。
反算时得出里程结果
X=,Y= 正算时得出结果。
反算时输入实测坐标
P= 正算时输入偏距。
反算时得出偏距
H= 正算时得出高程。
反算时得出高程
H1= 超欠挖时输入实测高程
CQ→Y?
= 得出超欠挖值及第几圆心上
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-WA
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 58004850 测量 程序