工程测量实用程序5800P331.docx
- 文档编号:5921148
- 上传时间:2023-01-02
- 格式:DOCX
- 页数:13
- 大小:46.42KB
工程测量实用程序5800P331.docx
《工程测量实用程序5800P331.docx》由会员分享,可在线阅读,更多相关《工程测量实用程序5800P331.docx(13页珍藏版)》请在冰豆网上搜索。
工程测量实用程序5800P331
YL自编
★QL(坐标反算)
“XØ”?
C:
“YØ”?
D:
Lbi1:
“X2”?
X:
“Y2”?
Y:
If(X-C)=Ø:
ThenGoto2:
ElseGoto3:
IfEnd
Lbi2:
If(Y-D)>Ø:
Then“Q=”:
9Ø°→W◢
Else“Q=”:
27Ø°→W◢
IfEnd:
Goto6
Lbi3:
If(Y-D)=Ø:
ThenGoto4:
ElseGoto5:
IfEnd
Lbi4:
If(X-C)>Ø:
Then“Q=”:
Ø°→W◢
Else“Q=”:
18Ø°→W◢
IfEnd:
Goto6
Lbi5:
tan-1((Y-D)÷(X-C))→W:
If(X-C)<Ø:
ThenW+18Ø→W:
IfEnd:
If(X-C)>Øand(Y-D)<Ø:
ThenW+360→W:
IfEnd
“Q=”:
W°→W◢
Lbi6:
“L=”:
√¯((X-C)2+(Y-D)2)→T◢
Goto1
说明:
(已知两点坐标,反算方位角及两点间距离)
先按FILE键,光标选择QL,按EXE运行。
输入:
XØ?
测站点(或起算点)X轴坐标,按EXE
YØ?
测站点(或起算点)Y轴坐标,按EXE
X2?
后视点(或方向点)X轴坐标,按EXE
Y2?
后视点(或方向点)Y轴坐标,按EXE
显示:
Q方位角,按EXE
L两点间距离
再按EXE进行循环运算,重复输入X2?
Y2?
不进行循环运算按AC退出。
★XY(坐标正算)
“XØ”?
C:
“YØ”?
D:
Lbi1:
“Q”?
W:
“L”?
M:
“X=”:
C+Mcos(W)→X◢
“Y=”:
D+Msin(W)→Y◢
Goto1
说明:
(已知一点坐标,方位角、距离,求另一点坐标)
先按FILE键,光标选择XY,按EXE运行。
输入:
XØ?
测站点(或起算点)X轴坐标,按EXE
YØ?
测站点(或起算点)Y轴坐标,按EXE
Q?
已知方位角,按EXE
L?
两点间距离,按EXE
显示:
X所求点X轴坐标,按EXE
Y所求点Y轴坐标
再按EXE进行循环运算,重复输入Q?
L?
不进行循环运算按AC退出。
★GC(高程)
“HSGC”?
Z:
“HSDS”?
E:
“YG=”:
Z+E→S◢
Lbi1:
“QSDSORQSGC”?
H:
“QSGCORQSDS=”:
S-H→G◢
Goto1
说明:
(标高测设时计算实测高程或读数)
先按FILE键,光标选择GC,按EXE运行。
输入:
GSGC?
后视点高程,按EXE
GSDS?
后视点读数,按EXE
显示:
YG仪高,按EXE
输入:
QSDSORQSGC?
前视读数或前视高程,按EXE
显示:
QSGCORQSDS=前视高程或前视读数
再按EXE进行循环运算,重复输入QSDSORQSGC?
不进行循环运算按AC退出。
★fx-5800P曲线正算万能程序
主程序文件名:
QXZS-WN
Lbl1:
“QDLC”?
G:
“QDX”?
A:
“QDY”?
B:
“QDFWJ”?
Q:
“QDR”?
R:
“ZDR”?
O
:
“ZDLC”?
E
Lbl2:
?
L:
“JJ°”?
J:
?
K:
Prog“Z01ZS”
Lbl3:
“CFJS”?
Z:
IfZ=1:
ThenGoto2:
ElseX→A:
Y→B:
W→Q:
E→G:
O→R:
Goto1:
Ifend
说明:
输入:
“QDX”?
、“QDY”?
起点坐标
“QDLC”?
起点里程
“QDFWJ”?
起点切线方位角
“QDR”?
起点半径,左转弯输入“-1÷R”,右转弯输入“1÷R”,直线输入0
“ZDR”?
终点半径,左转弯输入“-1÷R”,右转弯输入“1÷R”,直线输入0
“ZDLC”?
终点里程
L?
待求点里程
“JJ°”?
与待求点里程中线的切线方向的交角0~180
“K”?
距中线距离,右正左负,计算中线输入0
“CFJS”?
输入1重复该段计算,输入其他重新输入要素计算
显示:
QXFWJ=待求点切线方位角
X=、Y=待求点坐标
子程序文件名:
ZO1ZS
6→N:
(L-G)÷N→H:
(O-R)÷(E-G)→U:
NUH+R→P:
9ØH÷л→S:
Q+(P+R)×N×S→W
LblØ:
IfW≥36Ø:
ThenW°-36Ø°→W:
ElseGoto1:
IfEnd
Lbl1:
IfW<Ø:
ThenW°+36Ø°→W:
ElseW°→W:
IfEnd
1→T
A+H÷6×(cos(Q)+cos(W)+4×∑(cos(Q+((T+Ø.5)HU+2R)×(T+Ø.5)S),T,Ø,(N-1))+2×∑(cos(Q+(UHT+2R)TS),T,1,(N-1)))+Kcos(W+J)→X
B+H÷6×(sin(Q)+sin(W)+4×∑(sin(Q+((T+Ø.5)HU+2R)×(T+Ø.5)S),T,Ø,(N-1))+2×∑(sin(Q+(UHT+2R)TS),T,1,(N-1)))+Ksin(W+J)→Y
“X=”:
X◢
“Y=”:
Y◢
“QXFWJ=”:
W◢
文件名:
******根据工程名称自己设定
LblØ:
?
L:
“JJ°”?
J:
?
K
Lbl1:
终点里程→E:
IfL≤E:
Then起点里程→G:
起点X坐标→A:
起点X坐标→B:
起点方位角→Q:
1÷起点半径→R:
1÷终点半径→O:
Prog“ZO1ZS”:
ElseGoto2(对应下一段的转移标记Lbln):
IfEnd:
GotoØ
Lbl2:
(参照Lbl1修改要素)······
说明:
单项工程全线贯通编程,按设计图纸的平曲线要素,按直线、圆曲线、缓和曲线分段输入。
★JLJH(距离交会)
“X1”?
C:
“Y1”?
D:
“H1”?
M:
“L1”?
U:
“DH1”?
I:
“LJG1”?
G:
“X2”?
X:
“Y2”?
Y:
“H2”?
N:
“L2”?
V:
“DH2”?
J:
“LIG2”?
Z:
“YQG”?
H:
Prog“FWJ”:
√¯((X-C)2+(Y-D)2)→L:
W+cos-1((U2+L2-V2)÷(2UL))→P:
W+18Ø-cos-1((V2+L2-U2)÷(2VL))→O
“XØ=”:
(C+X)÷2+(Ucos(P)+Vcos(O))÷2→E◢
“YØ=”:
(D+Y)÷2+(Usin(P)+Vsin(O))÷2→F◢
“HØ=”:
(M+G-I+N+Z-J-2H)÷2→H◢
E→C:
F→D
说明:
(用于设置任意测站)
先按FILE键,光标选择JLJH,按EXE运行。
输入:
X1?
已知点1的X轴坐标,按EXE
Y1?
已知点1的Y轴坐标,按EXE
H1?
已知点1的高程,按EXE
X2?
已知点2的X轴坐标,按EXE
Y2?
已知点2的Y轴坐标,按EXE
H2?
已知点2的高程,按EXE
L1?
已知点1的实测平距,按EXE
L2?
已知点2的实测平距,按EXE
DH1?
已知点1的实测高差,按EXE
LJG1?
已知点1的棱镜高,按EXE
DH2?
已知点2的实测高差,按EXE
LJG2?
已知点2的棱镜高,按EXE
YQG?
测站仪器高度,按EXE
显示:
XØ测站点X轴坐标,按EXE
YØ测站点Y轴坐标
HØ测站点高程
(已知点1必须位于左侧)
★SQXBG(竖曲线标高计算)
“DDL”?
U:
“DDH”?
W:
?
R:
?
T:
“I1”?
G:
“I2”?
S
Lbi1:
?
L:
?
N:
Prog“SS1”:
Goto1
说明:
(竖曲线里程桩号标高)
先按FILE键,光标选择SGX,按EXE运行。
输入:
DDL?
竖曲线顶点里程,按EXE
DDH?
竖曲线顶点高程,按EXE
R?
竖曲线半径(上拱为正,下弯为负),按EXE
T?
竖曲线切线长,按EXE
I1?
前段坡度(带符号),按EXE
I2?
后段坡度(带符号),按EXE
L?
所求点里程,按EXE
N?
所求点距设计中线标高高差(上正下负),按EXE
显示:
H所求点标高
再按EXE进行循环运算,重复输入L?
和N?
不进行循环运算按AC退出
★SS1(竖曲线子程序1)
IfL≤U:
ThenProg“SS2”:
ElseProg“SS3”:
IfEnd
★SS2(竖曲线子程序2)
(T+L-U)2÷(2R)→Z:
If(U-L)>T:
ThenØ→Z:
IfEnd:
W-G÷1ØØ×(U-L)-Z→V:
“H=”:
V+N→H◢
★SS3(竖曲线子程序3)
(T-L+U)2÷(2R)→Z:
If(L-U)>T:
ThenØ→Z:
IfEnd:
W+S÷1ØØ×(L-U)-Z→V:
“H=”:
V+N→H◢
★MJ(面积计算程序)
Lbi1:
“X1”?
C:
“Y1”?
D:
“X2”?
M:
“Y2”?
N:
Ø.5×(CN-MD)→S
Lbi2:
?
X:
IfX=Ø:
ThenGoto3:
Ifend:
?
Y:
S+Ø.5×(MY-XN)→S:
X→M:
Y→N:
Goto2
Lbi3:
“MJ=”:
Abs(S+Ø.5×(MD-CN))→S◢
Goto1
说明:
1、按逆时针顺序输入坐标点
2、要结束输入坐标时,?
X输入Ø
3、MJ=显示面积
★SFZY(四分之一法)
“XC”?
→S:
?
R:
LBl1:
“BXC=”:
S÷2→K◢
“M=”:
R-√¯(R2-(S÷2)2)→M◢
“XB=”:
√¯(K2+M2)→S◢
Goto1
XC………实量弦长
R…………半径
显示:
BXC=:
半弦长,即弦长中点长度
M=:
垂距,弦中点量出长度
XB=:
斜边长度
ZXZB(直线坐标计算)
“QDL”?
G:
“QDX”?
A:
“QDY”?
B:
?
Q:
Lbi1:
?
L:
?
K:
Prog“ZZ”:
Goto1
说明:
(计算直线段任意里程桩号坐标)
先按FILE键,光标选择ZX,按EXE运行。
输入:
QDL?
直线段起点里程,按EXE
QDX?
起点X轴坐标,按EXE
QDY?
起点Y轴坐标,按EXE
Q?
起点计算方向方位角,按EXE
L?
所求点里程,按EXE
K?
所求点距中线宽度(右正左负),按EXE
显示:
X所求点X轴坐标,按EXE
Y所求点Y轴坐标,
再按EXE进行循环运算,重复输入L?
K?
不进行循环运算按AC退出。
YQXZB(圆曲线坐标计算)
“ZYL”?
G:
“ZYX”?
A:
“ZYY”?
B:
?
R:
?
Q:
Lbi1:
?
L:
?
K:
Prog“YY”:
Goto1
说明:
(计算圆曲线段任意里程桩号坐标)
先按FILE键,光标选择YQX,按EXE运行。
输入:
ZYL?
直圆点里程,按EXE
ZYX?
直圆点X轴坐标,按EXE
ZYY?
直圆点Y轴坐标,按EXE
R?
圆曲线半径(右转为正,左转为负),按EXE
Q?
直圆点计算方向的切线方位角,按EXE
L?
所求点里程,按EXE
K?
所求点距中线宽度(右正左负),按EXE
显示:
X所求点X轴坐标,按EXE
Y所求点Y轴坐标,
再按EXE进行循环运算,重复输入L?
K?
不进行循环运算按AC退出。
HHQXZB(缓和曲线坐标计算)
“GQL”?
G:
“GQX”?
A:
“GQY”?
B:
?
Q:
“A”?
R:
Lbi1:
?
L:
?
K:
Prog“HH”:
Goto1
说明:
(计算缓和曲线段任意里程桩号坐标)
先按FILE键,光标选择HHQX,按EXE运行。
输入:
GQL?
起点里程,按EXE
GQX?
起点X轴坐标,按EXE
GQY?
起点Y轴坐标,按EXE
A?
缓和曲率(右转为正,左转为负),按EXE
Q?
起点计算方向的切线方位角,按EXE
L?
所求点里程,按EXE
K?
所求点距中线宽度(右正左负),按EXE
显示:
X所求点X轴坐标,按EXE
Y所求点Y轴坐标,
再按EXE进行循环运算,重复输入L?
K?
不进行循环运算按AC退出。
YQXYS(圆曲线要素)
LBlØ:
“Q1”?
O:
“Q2”?
P:
?
R:
“JDL”?
G:
“JDX”?
C:
“JDY”?
D:
IfR>Ø:
ThenO-P→Q:
ElseP-O→Q:
IfEnd
IfQ<Ø:
Then“ZJ=”:
Q+36Ø→Q◢
Else“ZJ=”:
Q→Q◢
IfEnd
“T=”:
Abs(R)×tan(Q÷2)→T◢
“L=”:
Abs(R)×Q×π÷18Ø°→L◢
“ZYL=”:
G-T→I◢
“ZYX=”:
C+Tcos(O+18Ø°)→E◢
“ZYY=”:
D+Tsin(O+18Ø°)→F◢
“YZL=”:
I+L→J◢
“YZX=”:
C+Tcos(P)→M◢
“YZY=”:
D+Tsin(P)→N◢
GotoØ
说明:
圆曲线要素计算程序
输入
Q1、Q2:
顺里程方向直线的方位角
R:
曲线半径,右转弯为正,左转弯为负
JDL:
交点里程
JDX、JDY:
交点坐标
显示
ZJ=转角
T=切线长
L=曲线长
ZYL=直圆点里程
ZYX=、ZYY=直圆点坐标
YZL=圆直点里程
YZX=、YZY=圆直点坐标
ZZ(直线坐标计算子程序)
Q+9Ø→O:
A+(L-G)cos(Q)→E:
B+(L-G)sin(Q)→F:
Prog“BZZB”
YY(圆曲线坐标计算子程序)
18Ø×Abs(L-G)÷(Rπ)→P:
If(L-G)>Ø:
ThenQ+P+9Ø→O:
ElseQ+P-9Ø→O:
IfEnd:
(Abs(R))×sin(Abs(P))→U:
R-R×cos(Abs(P))→V:
Prog“ZBZH”:
Prog“BZZB”
HH(缓和曲线坐标计算子程序)
9Ø×(L-G)2÷(πR2)→P:
IfR<Ø:
Then-P→P:
IfEnd:
If(L-G)>Ø:
Then
Q+P+9Ø→O:
ElseQ+P-9Ø→O:
IfEnd:
Abs(L-G)-Abs(L-G)^(5)÷(4ØR^(4))→U:
Abs(L-G)^(3)÷(6R2)-Abs(L-G)^(7)÷(336R^(6))→V:
IfR<Ø:
Then-V→V:
IfEnd:
Prog“ZBZH”:
Prog“BZZB”
ZBZH(坐标转换)
A+Ucos(Q)-Vsin(Q)→E:
B+Usin(Q)+Vcos(Q)→F
BZZB(边桩坐标)
“X=”:
E+Kcos(O)→X◢
“Y=”:
F+Ksin(O)→Y◢
FWJ(方位角)
tan-1((Y-D)÷(X-C))→W:
If(X-C)<Ø:
ThenW+18Ø→W:
IfEnd:
If(X-C)>Øand(Y-D)<Ø:
ThenW+360→W:
IfEnd
HHQXYS(缓和曲线要素)
“Q1”?
O:
“Q2”?
P:
?
R:
“LS”?
S:
“JDL”?
G:
“JDX”?
C:
“JDY”?
D
IfR<0:
ThenO-P→Q:
ElseP-O→Q:
IfEnd
IfQ<0:
Then“ZJ=”:
Q+360°→Q◢
Else“ZJ=”:
Q→Q◢
IfEnd:
“CXJ=”:
S÷2R×180°÷
→V:
V°→V◢切线角
“NRZ=”:
S2÷(24×R)→N◢内移值
“CXZZ=”:
S÷2-S∧(3)÷(240×R2)→M◢切线增值
“TH”:
(R+N)tan(Q÷2)+M→T◢缓和切线长
“L=”:
R×Q×
÷180°+S→L◢曲线总长
“LY”:
R(Q-2V)×
÷180°→J◢圆曲线长
“ZHL=”:
G-M◢直缓点里程
“ZHX=”:
C+Mcos(O+180°)→A◢直缓点坐标
“ZHY=”:
D+Msin(O+180°)→B◢直缓点坐标
“HYL”:
G-M+S◢缓圆点里程碑
S-S∧(5)÷(40×R2×S2)→u:
S2÷(6R)-S∧(4)÷(336R∧(3))→V:
IfR<0:
Than-V→V:
IfEnd:
“HYX=”:
A+uCos(O)-VSin(O)→E◢缓圆点坐标
“HYY=”:
B+uSin(O)-VCos(O)→F◢缓圆点坐标
“YHL=”:
G-M+S+J◢圆缓点里程
“HZL=”:
G-M+S+J+S◢缓直点里程
“HZX=”:
C+MCos(P)→A◢缓直点坐标
“HZY=”:
D+MSin(P)→B◢缓直点坐标
★ZWJK(转弯加宽)
”QDL”?
U:
”ZKL”?
G:
”ZDL”?
V:
”ZKZ”?
I:
LBl1:
?
L:
IfL≤G:
ThenGoto2:
ElseGoto3:
IfEnd
LBl2:
”JKZ=”:
(L-U)÷(G-U)×I→P◢
Goto1
LBl3:
”JKZ=”:
(V-L)÷(V-G)×I→P◢
Goto1
说明:
输入
”QDL”?
起点里程
”ZKL”?
最宽点里程
”ZDL”?
终点里程
”ZKZ”?
最宽值
L?
计算点里程
显示:
”JKZ=”加宽值
★CGGC(超高高差)
”QDL”?
U:
”ZDPL”?
G:
”ZDL”?
V:
”QDP”?
S:
”ZDBPZ”?
I:
”ZDP”?
T:
LBl1:
?
L:
?
K:
IfL≤G:
ThenGoto2:
ElseGoto3:
IfEnd
LBl2:
”CGPD=”:
(L-U)÷(G-U)×(I-S)+S→M◢
”CGGC=”:
M×K÷100→N◢
Goto1
LBl3:
”CGPD=”:
I-(L-G)÷(V-G)×(I-T)→M◢
”CGGC=”:
M×K÷100→N◢
Goto1
说明:
输入
”QDL”?
起点里程
”ZDPL”?
最大坡度里程
”ZDL”?
终点里程
”QDP”?
起点坡度值(如2%输入2,-1%输入-1)
”ZDBPZ”?
最大变坡值(如2%输入2,-1%输入-1)
”ZDP”?
终点坡度值(如2%输入2,-1%输入-1)
L?
计算点里程
K?
计算点宽度
显示:
“CGPD=”超高坡度(%)
”CGGC=”超高高差(相对设计中线标高高差)
(Ø为零,O为字母)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 工程 测量 实用程序 5800 P331
![提示](https://static.bdocx.com/images/bang_tan.gif)