工程测量实用程序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为字母）
升级会员 