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