编程计算器测量程序集文档格式.docx
- 文档编号:20055831
- 上传时间:2023-01-16
- 格式:DOCX
- 页数:13
- 大小:33.70KB
编程计算器测量程序集文档格式.docx
《编程计算器测量程序集文档格式.docx》由会员分享,可在线阅读,更多相关《编程计算器测量程序集文档格式.docx(13页珍藏版)》请在冰豆网上搜索。
1.用途:
该程序是“坐标反算公式”程序,用于根据两点1、2的平面坐标(X1,Y1)、(X2,Y2),计算两点间的距离D12及坐标方位角A12。
G“X1”:
B“Y1”:
C“X2”:
H“Y2”:
E=C-G:
F=H-B↙
Pol(E,F):
I“D12”◢
J“A12”
X1,Y1——点1的平面坐标;
X2,Y2——点2的平面坐标;
D12——点1至点2间平距;
A12——点1至点2坐标方位角。
由于编程时用到了极坐标函数POL(),故在程序运行中,会出现I=?
XXX(数字)及J=?
XXX(数字)这是函数POL计算出的两个量,不能改变,直接回车默认即可。
三.ZHENGSUAN(正算)
该程序是“坐标正算公式”程序,用于根据点1的平面坐标(X1,Y1),及点1至点2的平距D12、坐标方位角A12,来计算点2的平面坐标(X2,Y2)。
B“X1”:
C“Y1”:
D“D12”:
A“A12”↙
X“X2”=B+DcosA◢Y“Y2”=C+DsinA
A12——点1至点2坐标方位角;
X2,Y2——点2的平面坐标。
另外在输入A12时,可直接输入“度分秒”。
四.YUANZHU(圆主)
该程序是“单圆曲线主点测设元素及里程计算”程序。
2.程序数学模型:
3.程序清单:
A“TURNINGANGLE”:
R:
B“JD”↙
T=Rtan(A÷
2)◢L=RAπ÷
180◢E=R÷
cos(A÷
2)-R◢D=2T-L◢C“ZY”=B-T◢F“YZ”=C+L◢
G“QZ”=F-L÷
2
4.程序说明:
TURNINGANGLE——交点JD处的转角;
R——圆曲线半径;
JD——交点。
T——切线长;
L——圆曲线长;
E——外矢距;
D——切曲差;
ZY——ZY点里程;
YZ——YZ点里程;
QZ——QZ点里程。
五.YUANXIANG(圆详)
该程序是“单圆曲线切线支距法及长弦偏角法详细测设”程序。
A“ZYORYZ”:
Lbl1↙
{L}:
B=180Abs(L-A)÷
R÷
π:
X=RsinB◢Y=R-RcosB◢D“ANGLE”=B÷
2◢C“DISTANCE”=2RsinD◢Goto1
ZYORYZ——ZY点或YZ点里程(桩号);
L——某桩的里程(桩号);
X——切线支距法的X值;
Y——切线支距法的Y值;
ANGLE——偏角法的偏角值,单位为“度”。
若要查看其“度分秒”,可在程序运行显示时先后按“SHIFT”、“度分秒”这2个键;
DISTANCE——长弦偏角法的弦长。
六.HUANZHU(缓主)
该程序是“完整对称带缓和曲线的圆曲线”的主点测设元素及里程计算程序。
S“LS”:
H“JD”↙
B=180S÷
(2Rπ)↙
P=S2÷
24÷
R-S^4÷
(2688R^3)↙
Q=S÷
2-S^3÷
(240R2)↙
T=(R+P)tan(A÷
2)+Q◢M=R(A-2B)π÷
180↙
L=M+2S◢E=(R+P)÷
2)-R◢D=2T-L◢N“ZH”=H-T◢O“HY”=N+S◢
U“QZ”=O+M÷
2◢V“YH”=O+M◢W“HZ”=V+S
LS——缓和曲线长;
JD——交点里程(桩号)。
L——曲线长;
ZH——ZH点里程;
HY——HY点里程;
QZ——QZ点里程;
YH——YH点里程;
HZ——HZ点里程。
七.HUANQIE(缓切)
该程序是“完整对称带缓和曲线的圆曲线”的切线支距法详细测设坐标计算程序。
A“ZH”:
{L,B}↙
:
↙
Lbl2↙
C=Abs(L-A):
D=RS:
X=C-C^5÷
40D2+C^9÷
3456D^4-C^13÷
599040D^6+C^17÷
17542600D^8◢
Y=C^3÷
6D-C^7÷
336D^3+C^11÷
42240D^5-C^15÷
9676800D^7+C^19÷
3530097000D^9◢Goto1↙
Lbl3↙
E=180(Abs(L-A)-S)÷
π+180S÷
(2πR):
2688÷
R^3:
240÷
R2↙
X=RsinE+Q◢
Y=R-RcosE+P◢
Goto1↙
ZH——ZH点桩号(里程);
L——待测设桩的桩号(里程);
B——当待测设中桩位于缓和曲线段,则输入“1”,当待测设中桩位于圆曲线段,则输入“1”以外的数值。
Y——切线支距法的Y值。
八.HUANPIAN(缓偏)
该程序是“完整对称带缓和曲线的圆曲线”的偏角法详细测设计算程序。
S“LS”↙
B=30S÷
F“B0”=2B◢
{L}↙
E=Abs(L-A):
D“ANGLE”=(E÷
S)2B◢
C“DISTANCE”=E-E^5÷
(90R2S2)◢
Goto1
B0——在以后要测设圆曲线段上的中桩时,架仪于HY(或YH)点,瞄准ZH(或HZ)点,拨角B0为圆曲线的切线方向,找到切线方向后,即按单圆曲线偏角法去测设即可;
L——待测设桩的桩号(里程);
ANGLE——偏角法的偏角值,在程序显示中其单位为“度”。
若要查看其“度分秒”,可在显示时先后按“SHIFT”、“度分秒”这2个键;
九.ZHUANHUAN(转换)
该程序是“两平面坐标系间坐标转换”的计算程序。
C“X0”:
E“Y0”:
D“ANGLE”:
F“SIGN”↙
Lbl0↙
{A,B}↙
F
1
A=A:
B=-BΔX=C+AcosD-BsinD◢
Y=E+BcosD+AsinD◢
Goto0
X0,Y0——施工坐标系(A-O’-B)的原点O’在统一坐标系(x-o-y)中的坐标。
ANGLE——为统一坐标系的x轴顺时针旋转至施工坐标系的A轴的角值。
SIGN——为符号函数,若输入“1”时,则表明x-o-y为左手系,且A-O’-B也为左手系;
若输入“1”之外值,则表明x-o-y为左手系,而A-O’-B为右手系。
A,B——某点在施工坐标系中的纵、横坐标。
X,Y——该点在相应统一坐标系中的纵、横坐标。
十.FUDAOXIAN(附导线)
该程序是“附合导线平差”的计算程序。
Defm40:
X“X0”:
Y“Y0”:
F“A0”:
S“X1”:
E“Y1”:
A“A1”:
C“UNKNOWNPOINT”↙
N=0:
M=0:
Lbl0↙
N=N+1:
{L,D}:
G=180:
F=F+L:
G
F=F+G:
F=F-GΔF
2G
F+F-2GΔZ[2N-1]=F:
Z[2N]=D:
M=M+D:
N<
C+1
Goto0Δ{L}:
F+F-2GΔB“FW”=F-A◢R:
H“FR”=R
(C+2)◢B=-B÷
(C+2)
P=0:
Q=0:
N=N+1◢
Z[2N-1]“A”=Z[2N-1]+NB◢
I=Z[2N]cosZ[2N-1]:
P=P+I:
Z[2C+2N+1]=I:
J=Z[2N]sinZ[2N-1]:
Q=Q+J:
Z[2C+2N+2]=J:
Goto1ΔF“FX”=P-S+X◢G“FY”=Q-E+Y◢H“F”=
(F2+G2)◢K=H÷
M◢
V=-F÷
M:
W=-G÷
Lbl2↙
Z[2C+2N+1]=Z[2C+2N+1]+VZ[2N]:
Z[2C+2N+2]=Z[2C+2N+2]+WZ[2N]:
X=X+Z[2C+2N+1]◢
Y=Y+Z[2C+2N+2]◢N<
C
Goto2:
“END”
X0,Y0,A0——已知的起始点的纵、横坐标及起始边的坐标方位角。
X1,Y1,A1——已知的结束点的纵、横坐标及结束边的坐标方位角。
UNKNOWNPOINT——待求未知点的个数。
L,D——观测的导线各左转角及平距。
FW,R,FR——导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。
N,A——各条导线边序号及其坐标方位角。
FX,FY——坐标增量ΔX、ΔY的闭合差。
F,K——导线全长闭合差、导线全长相对闭合差。
N,X,Y——各导线点的序号及其纵横坐标。
注:
(1)本程序是按10个未知点来设计的,若未知点数超过10个时,按“4倍点数”来改变源程序中的“Defm40”。
(2)显示的角度允许误差FR的单位为“秒”。
(3)在程序显示中角度单位为“度”。
若要查看其“度分秒”,可在显示时先后按“SHIFT”、“度分秒”这2个键。
十一.BIDAOXIAN(闭导线)
该程序是“闭合导线平差”的计算程序。
N“UNKNOWNPOINT”:
N=N+1↙
I=0:
E=0:
C=0:
I=I+1:
Z[2I-1]=L:
Z[2I]=D:
E=E+L:
C=C+D:
I<
N
Goto0ΔB“FW”=E-180(N-2)◢R:
A“FR”=R
N◢B=-B÷
N:
I=1:
Z[2N+1]=F:
I+I+1◢F=F+Z[2I-1]:
180
F=F+180:
F=F-180ΔF
360
F+F-360ΔZ[2N+2I-1]“A”=F+(I-1)B◢I<
Goto1ΔI=0:
G=0:
H=0:
I+I+1:
Z[2I-1]=Z[2I]cosZ[2N+2I-1]:
G=G+Z[2I-1]:
Z[2N+2I]=Z[2I]sinZ[2N+2I-1]:
H=H+Z[2N+2I]:
N
Goto2ΔG“FX”◢H“FY”◢I“F”=
(G2+H2)◢K=I÷
C◢U=-G÷
C:
V=-H÷
C↙
Lbl3↙
I+I+1◢Z[2I-1]=Z[2I-1]+UZ[2I]:
Z[2N+2I]=Z[2N+2I]+VZ[2I]:
X=X+Z[2I-1]◢Y=Y+Z[2N+2I]◢
N-1
Goto3:
I,A——各条导线边序号及其坐标方位角。
I,X,Y——各导线点的序号及其纵横坐标。
十二.SHUIZHUN(水准)
该程序是“单一水准路线的平差”的计算程序。
A“CODE”:
Defm20:
Lbl0:
{H}:
Z[2I]=H:
G=G+H↙
A=1
M=M+L:
{N}:
Z[2I-1]=N:
M=M+NΔI<
Goto0ΔB“H0”:
D“H1”:
F=B+G-D◢J“FR”=R
M÷
1000◢AbsF<
J
“CHAOXIANCHA”:
H=B:
Lbl1:
I=I+1◢H=H+Z[2I]+VZ[2I-1]◢I<
Goto1:
CODE——地形编码,当是平地,统计公里数时输入“1”;
当是山地,统计测站数时输入非“1”。
UNKNOWNPOINT——待求高程点的个数。
L——水准点间的路线长。
N——水准点间的测站数。
H——水准点间的实测高差。
H0,H1——已知的起始点和结束点的高程。
F,FR——高差闭合差、高差允许闭合差。
R——高差允许闭合差系数。
等外水准:
12(按测站数)或40(按公里数);
四等水准:
6(按测站数)或20(按公里数)。
I,H——第I段及第I个待求水准点的高程。
(1)本程序是按10个未知点来设计的,若未知点数超过10个时,按“2倍点数”来改变源程序中的“Defm20”。
(2)当水准路线是闭合水准路线时,只需将H0,H1输入相同的值。
十三.FANGPINGAO(方平高)
该程序是“方格网法平整场地,填挖方量基本平衡时的设计高程”的计算程序。
X“INPUTANGLENUMBER”:
C=C+H:
X
Goto0ΔM“INPUTEDGENUMBER”:
J=0:
D=0:
Lbl1↙
J“I”=J+1:
D=D+2H:
J<
M
Goto1ΔP“INPUTCORNERNUMBER”:
K=0:
K“I”=K+1:
E=E+3H:
K<
P
Goto2ΔQ“INPUTMIDDLENUMBER”:
L=0:
F=0:
L“I”=L+1:
F=F+4H:
L<
Q
Goto3ΔG“H0”=(C+D+E+F)÷
4÷
N——方格的个数。
INPUTANGLENUMBER——输入角点的个数。
INPUTEDGENUMBER——输入边点的个数。
INPUTCORNERNUMBER——输入拐点的个数。
INPUTMIDDLENUMBER——输入中点的个数。
H——各点的实测高程。
H0——填挖方量基本平衡时的设计高程。
十四.FANGTUFANG(方土方)
该程序是“方格网法平整场地时,填、挖方量”的计算程序。
D:
E“H0”:
A=0:
J=J+1:
F“DH”=H-E◢F>
G=G+F÷
4:
A=A+F÷
4ΔJ<
Goto1ΔY“INPUTEDGENUMBER”:
B=0:
Lbl2:
K=K+1:
M“DH”=H-E◢M>
L=L+M÷
2:
B=B+M÷
2ΔK<
Y
Goto2ΔZ“INPUTCORNERNUMBER”:
Q=Q+1:
T“DH”=H-E◢T>
P=P+3T÷
C=C+3T÷
4ΔQ<
Z
Goto3ΔW“INPUTMIDDLENUMBER”:
R=0:
S=0:
Lbl4↙
S=S+1:
U“DH”=H-E◢U>
R=R+U:
I=I+UΔS<
W
Goto4ΔN“VW”=(G+L+P+R)D2◢V“VT”=-(A+B+C+I)D2
D——方格的边长。
H0——平整场地时的设计高程。
DH——填挖高度(各点的实测高程与设计高程之差),正为挖,负为填。
VW,VT——挖方、填方。
十五.JIZHUOBIAO(极坐标放样程序)
1、用途:
该程序是用于根据测站点坐标(x1,y1)和后视点坐标(x2,y2),计算在测站点后视后视点,用极坐标法放样任一待定点(x,y)所需正拨的水平角及边长。
2、程序数学模型:
3、程序清单:
L=J:
{X,Y}:
M=X-G:
N=Y-B↙
Pol(M,N):
D=I◢
A=J-L:
A◢Goto1
X1,Y1——测站点的坐标。
X2,Y2——后视点的坐标。
X,Y——待放样点的坐标。
A——测站点后视后视点,旋转至待放样点所需正拨的水平角角值。
D——测站点至待放样点的水平距离。
由于编程时用到了极坐标函数POL(),故在程序运行中,放样第一个点时,会出现J=?
XXX(数字)及I=?
放样以后几个点时,不会出现此现象。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 编程 计算器 测量 程序