5800线元法修正版程序编写.docx
- 文档编号:4901374
- 上传时间:2023-05-07
- 格式:DOCX
- 页数:29
- 大小:124.48KB
5800线元法修正版程序编写.docx
《5800线元法修正版程序编写.docx》由会员分享,可在线阅读,更多相关《5800线元法修正版程序编写.docx(29页珍藏版)》请在冰点文库上搜索。
5800线元法修正版程序编写
1.2版本,添加了遗漏的标点符号,修改了竖曲线与隧道,让隧道测量步骤简化一些。
此程序根据4850线元法程序改编,本人第一次编写程序内容可能有些不尽人意敬请谅解.
程序名称不可更改,包括符号,也不要擅自删减子程序,如需更改必须与各子程序相呼应,否则将无法调动程序进行计算。
1~16页为程序说明与应用步骤具体解释,17~26页为程序编写,所有S开头后面有横杠的为各项数据库,如换线路更改数据库即可完成各项计算。
注意:
程序编写时有下划线字符为一次性输入字符,不可拆分。
置仪点X坐标输入时必须输入小数,如果无小数将默认调动导线点数据库(例如3843.000那么请输入3843.0001并不影响计算)
程序名(0-0)主程序目录
(U=1):
数据库输入原始数据计算中边桩*
(U=2):
数据库输入原始数据反算线外点垂桩距状态(线路任一点坐标反算桩号及偏距)*
(U=3):
计算平面位置检查记录表
(U=4):
人工输入原始数据计算中边桩(数据库计算线元方位角)*
(U=5):
人工输入原始数据推算开挖、填筑桩状态(不常用)
(U=6):
数据库输入原始数据推算开挖、填筑桩状态*
(U=7/7.1):
计算斜交斜做涵洞单跨桥、斜交正做涵洞七点放样状态
并能避免曲线内单跨桥涵进出水口长度不一致,同时适用于曲线桥扇形布桩的盖梁放样,曲线桥扇形布桩的支座放样。
*
(U=8):
数据库输入原始数据计算锥坡放样
(U=9):
后方交会
(U=10):
数据库输入原始数据求线外两点交路线的桩号与夹角
(U=11):
圆心辐射法隧道断面超欠挖(适合各种隧道线型)*
(U=12):
手动输入原始数据求多边型面积、亩数*
(U=13):
数据库输入原始数据求设计高程(竖曲线)*
(U=14):
坐标正反算小程序
(U=1)数据库输入原始数据计算中边桩
(Y)置仪点X坐标(也可输入导线点编号,输入导线点编号即可使用导线点数据库)
(O)置仪点Y坐标(当X坐标输入导线点编号后则此行不显示,因数据库已装入X和Y坐标)
(B)步长(步长就是间隔长度,当要计算大量有相同距离间隔且相同中边桩,步长就是好东西了,输入数量每次计算自动加减桩号距离)
(Q)所求桩号(计算第二个桩开始Q已经自动加入步长不用手动输入,但仍然会显示给你看,并可修改成别的桩号)
(V)中桩到边桩的方位角,即与中桩前进方向方位角的夹角(注意:
左转为负数,右转为正数)
(D)中桩到边桩的距离(中桩输入0)
计算完成会显示四个成果:
DMS放样方位角(置仪点与所求桩号的放样方位角)
I放样距离(置仪点与所求桩号的放样距离)
所求桩号的X坐标
所求桩号的Y坐标
按—号继续下一步放样计算
(U=3)数据库输入原始数据计算中边桩(偏差检测、资料编写)
(B)步长(步长就是间隔长度,当要计算大量有相同距离间隔且相同中边桩,步长就是好东西了,输入数量每次计算自动加减桩号距离)
(MM)所允许的最大误差(毫米为单位,比如高速的中线最大误差是20MM,就输入20)
(Q)所求桩号(计算第二个桩开始Q已经自动加入步长不用手动输入,但仍然会显示给你看,并可修改成别的桩号)
(V)中桩到边桩的方位角,即与中桩前进方向方位角的夹角(注意:
左转为负数,右转为正数)
(D)中桩到边桩的距离(中桩输入0)
计算完成会显示四行成果:
DMS放样方位角(置仪点与所求桩号的放样方位角)
I放样距离(置仪点与所求桩号的放样距离)
所求桩号的X坐标
所求桩号的Y坐标
按(—)号显示偏差检测成果:
所求桩号的X坐标
所求桩号的Y坐标
所求桩号的双轴偏差X轴偏差
Y轴偏差
按-号下一步计算
(U=4)人工输入原始数据计算中边桩(线元角计算)
(Y)置仪点X坐标
(O)置仪点Y坐标
(B)步长
(H+)起算点桩号
(E)起算点X坐标
(F)起算点Y坐标
(A)起算点方位角
(+-C)起算点曲率(即为半径分之一,也就是1/半径,直线为0,左转为负,右转为正)
(+-Z)终算点曲率(即为半径分之一,也就是1/半径,直线为0,左转为负,右转为正)
(G)终算点桩号
(Q)所求桩号(既是起算点桩号,因程序内字符转换冲突只好再输入)
(V)左右夹角(左转为负,右转为正,中桩输入0)
(D)中边桩距离(中桩输入0)
计算完成会显示四个成果:
(此处可忽略,参照U=1计算成果)
计算完成按(AC/on)一次,然后按(EXIT)将内容(Prog0-0)清除输入字母(R),再按(EXE)显示为线元方位角数字(注:
必须用度,分,秒抄记,因为计算结果为百进位,度分秒为60进位)
注:
此计算成果谨适用于数据库线元角输入(即:
数据库曲线段线元角ZH~HY、HY~YH、YH~HZ段)
(U=5):
人工输入原始数据推算开挖、填筑桩状态(不常用)
(Y)置仪点X坐标
(O)置仪点Y坐标
(H+)起算点桩号
(E)起算点X坐标
(F)起算点Y坐标
(A)起算点方位角
(+-C)起算点曲率(即为半径分之一,也就是1/半径,直线为0,左转为负,右转为正)
(+-Z)终算点曲率(同上)
(G)终算点桩号
(W)实测大地高程
(S)变坡点设计高程
(I)=变坡点设计高程与实测大地高程之高差(正为填方、负为挖方)
(P)填方或挖方的坡比(若1:
0.75则输入0.75填挖坡比全为正)
(B)中桩到变坡点的宽度
(D)=推算的中桩到开挖、填筑桩距离
(D?
)采用的中桩到开挖、填筑桩距离
(Q)所求开挖、填筑桩号
(V)左右夹角(注:
只能输入线路右边90和左边-90因为开挖、填筑桩总是垂直的)
计算完成显示四个结果:
(同U=6显示结果相同,按—号下一步计算)
(U=6):
数据库输入原始数据推算开挖、填筑桩状态
(Y)置仪点X坐标(O)置仪点Y坐标(W)实测大地高程
(S)变坡点设计高程(距离地面最近的那个平台或路面高程)
(I)=变坡点设计高程与实测大地高程之高差(自动计算所得结果,此处不需输入。
正为填方、负为挖方)
(P)填方或挖方的坡比(若1:
0.75则输入0.75填挖坡比全为正)
(B)中桩到变坡点的宽度(中桩到开始计算之坡段的坡角)
(D)=推算的中桩到开挖、填筑桩距离(自动计算,此处不需输入)
(D?
)采用的中桩到开挖、填筑桩距离(此处不需输入)
(Q)所求开挖、填筑桩号
(V)左右夹角(注:
只能输入线路右边90和左边-90因为开挖、填筑桩总是垂直的)
计算完成会显示四个成果:
DMS放样方位角(放样方位角)
I放样距离(置仪点与所求桩的放样距离)
推算开挖、填筑桩的X坐标
推算开挖、填筑桩的Y坐标
(U=7斜交斜做涵洞单跨桥、U=7.1斜交正做涵洞七点放样状态)(适用于曲线桥扇形布桩的盖梁,曲线桥扇形布桩的支座放样、并能避免曲线内单跨桥涵进出水口长度不一致)(曲线桥必备)
(Y)置仪点X坐标
(O)置仪点Y坐标
(+QZK-QXK)跨距(既是线路方向盖梁、涵洞的宽度)
(Q)涵洞桩号(中心桩号)
显示四个结果:
DMS放样方位角(置仪点与所求桩的放样方位角)
I放样距离(置仪点与所求桩的放样距离)
涵洞中桩X坐标
涵洞中桩Y坐标
按(—)号继续计算显示R线路方位角(此处无需修改)
按(EXE)继续计算
(V)转角(涵洞或者曲线桥的进流水轴与中桩的切线方位角的夹角、左负,右正)(下面以输入右侧为开始)
(D)涵斜长(即是所要放样的偏距,必须输入涵洞中桩偏距)
显示四个结果:
DMS放样方位角(置仪点与所求桩的放样方位角)
I放样距离(置仪点与所求桩的放样距离)
右侧涵洞中心点X坐标
右侧涵洞中心点Y坐标
按(—)号继续显示左、右侧方向数据(此处以输入右侧为开始,如果先输入左侧则反之)转下页U=7
接上页U=7
显示四个结果:
DMS放样方位角(置仪点与所求桩的放样方位角)
I放样距离(置仪点与所求桩的放样距离)
右侧中心点前进方向放样桩X坐标(跨距的一半)
右侧中心点前进方向放样桩Y坐标(跨距的一半)
按(—)号继续显示左、右侧方向数据(此处以输入右侧为开始,如果先输入左侧则反之)
显示四个结果:
DMS放样方位角(置仪点与所求桩的放样方位角)
I放样距离(置仪点与所求桩的放样距离)
右侧中心点后退方向放样桩X坐标(跨距的一半)
右侧中心点后退方向放样桩Y坐标(跨距的一半)
按(—)号继续显示左、右侧方向数据(此处以输入右侧为开始,如果先输入左侧则反之)
(V)左侧转角(此处程序已自动转向180度,无需输入数据)
(D)涵斜长(即是所要放样的偏距)
显示四个结果:
DMS放样方位角(置仪点与所求桩的放样方位角)
I放样距离(置仪点与所求桩的放样距离)
左侧涵洞中心点X坐标
左侧涵洞中心点Y坐标
按(—)号继续显示左、右侧方向数据(此处以输入右侧为开始,如果先输入左侧则反之)转下页U=7
接上页U=7
显示四个结果:
DMS放样方位角(置仪点与所求桩的放样方位角)
I放样距离(置仪点与所求桩的放样距离)
左侧中心点前进方向放样桩X坐标(跨距的一半)
左侧中心点前进方向放样桩Y坐标(跨距的一半)
按(—)号继续显示左、右侧方向数据(此处以输入右侧为开始,如果先输入左侧则反之)
显示四个结果:
DMS放样方位角(置仪点与所求桩的放样方位角)
I放样距离(置仪点与所求桩的放样距离)
左侧中心点后退方向放样桩X坐标(跨距的一半)
左侧中心点后退方向放样桩Y坐标(跨距的一半)
附图为右夹角75度斜交涵洞
(U=8):
数据库输入原始数据计算锥坡放样
(B)正交半路宽度,包括耳墙的宽度(P)椭圆单侧斜长轴
(+-S)椭圆单侧斜短轴(当从近桥0点往远桥1点推桩号增加时,S上输入负值。
当从0点往远桥1点推桩号减少时,S输入正值)。
(Q)所求桩号
(V)转角(上/下流水轴与中桩的前进切线方位角的夹角,左负右正)
(Y)置仪点X坐标
(O)置仪点Y坐标
(0-1)等分比(必须是0/0.1/0.2至0.8/0.9/0.95/0.985/1,否则在0到1之外会显示程序行出错)(0为最靠近桥的点,1为最远离桥的点)
计算完成会显示四个成果:
DMS放样方位角(置仪点与所求桩的放样方位角)
I放样距离(置仪点与所求桩的放样距离)
椭圆上对应等分点X坐标
椭圆上对应等分点Y坐标
(U=9):
后方交会
1:
(XA?
)输入A点X坐标
2:
(YA?
)输入A点Y坐标
3:
(XB?
)输入B点X坐标
4:
(YB?
)输入B点Y坐标
5:
(D1?
)输入A点到P点的直线距离
6:
(D2?
)输入B点到P点的直线距离
7:
(Q?
)输入A点到P点与B点到P点中间的夹角代码1(顺时针为+1,逆时针为-1)
8:
(XP=)计算所得P点X坐标
9:
(YP=)计算所得P点Y坐标
注:
计算完成按EXE继续循环以上1~9步骤。
(U=2):
数据库输入原始数据反算线外点垂桩距状态(坐标反算)
(P)实测X坐标(S)实测Y坐标(Q)所求桩号大概范围
计算完成会显示三个成果:
Q所求位置的桩号(垂直桩号位置)
I距离中桩的垂直距离
DMS与中线方位角的夹角(左负、右正)
—————————————————————————————
(U=10):
数据库输入原始数据求线外两点交路线的桩号与夹角
(P)线外第一点X坐标(S)线外第一点Y坐标
(W)线外第二点X坐标(B)线外第二点Y坐标
(Q)开始推算的桩号(距离真正的垂直桩号不要太远,在同一平曲线或两边的直线段上最好)
计算完成会显示三个成果:
Q线外两点交路线的桩号
I线外第一点交路线的距离
DMS交点桩切线前进方向与交点桩到线外第一点方向的转角(左负、右正)
(U=11):
圆心辐射法隧道断面超欠挖(X-SDCQW可独立运行)
1:
(K?
)当前断面设计桩号
2:
(CH=?
)当前断面实测高程
3:
(I=?
)实测点距离中桩距离(偏距)
4:
(W=)所得测点超欠挖数值(负超,正欠)
图示中桩设计高程0M
(U=12)多边型面积计算程序(MJJS可独立运行)
(N)观测点数(实测坐标站数)(最少输入3个点数)
(X1)首站X坐标
(Y1)首站Y坐标
(XN)次站X坐标
(YN)次站Y坐标
(XN)三站X坐标
(YN)三站Y坐标
以此类推依次输入与观测点数相对应的实测坐标(注:
必须依次输入坐标,不可打乱顺序、)
计算结束会显示两个结果:
MIAN-JI=面积
AREA(MU)=亩(每亩666m2)
显示结果初期为面积可再按(EXE)键即可同时显示面积、亩数
(U=13):
数据库输入原始数据求设计高程(S-SQX可独立运行)
(K)输入线路内任意设计桩号
显示一个成果:
(H)设计高程
—————————————————————————————
(U=14):
坐标正反算小程序(ZFS可独立运行)
(1):
(N=?
)输入数字1运行正算
2:
(X=?
)输入已知X坐标3:
(Y=?
)输入已知Y坐标
4:
(J=?
)输入已知方位角5:
(D=?
)输入已知距离
6:
(X=)所求点X坐标7:
(Y=)所求点Y坐标
(1)(N=?
)输入数字2运行反算
2:
(X1=?
)输入已知X1坐标3:
(Y1=?
)输入已知Y1坐标
4:
(X2=?
)输入已知X2坐标5:
(Y2=?
)输入已知Y2坐标
6:
(L=)所求两点间距离7:
(F=)所求方位角(已加入象限角)
程序名(00)运行主程序
Lbl
hileEnd
WhileU=10:
Prog"X-10":
WhileEnd
WhileU=11:
Prog"X-SDCQW":
WhileEnd
WhileU=12:
Prog"MJJS":
WhileEnd
WhileU=13:
Prog"X-SQX":
Whi0:
Deg:
Cls:
Fix3:
"U"?
U
WhileU=1:
Prog"X-1":
WhileEnd
WhileU=2:
Prog"X-2":
WhileEnd
WhileU=3:
Prog"X-3":
WhileEnd
WhileU=4:
Prog"X-4":
WhileEnd
WhileU=5orU=6:
Prog"X-5-6":
WhileEnd
WhileU=7orU=7.1:
Prog"X-7-7.1":
WhileEnd
WhileU=8:
Prog"X-8":
WhileEnd
WhileU=9:
Prog"X-9":
WleEnd
WhileU=14:
Prog"ZFS":
WhileEnd
Goto0
——————————————————————————————————
程序名(F1)中桩计算部分(子程序)
Rad:
Abs(QH)I:
Abs(GH)J:
A180+CI+I2(ZC)2JR:
E+∫(cos(A180+CX+X2(ZC)2J),0,I,4)T:
F+∫(sin(A180+CX+X2(ZC)2J),0,I,4)K:
IfQG:
ThenR+R:
IfEnd:
Deg:
180RR
Return
——————————————————————————————————
程序名(PAUSE)显示部分(子程序)
Lbl0:
Getkey=25Stop:
Getkey≠67Goto0
Return
(注:
Stop结尾不是P字母,是一个类似p的符号)
——————————————————————————————————
程序名(SDXD)导线点数据库
WhileY=1:
55555.111Y:
66666.233O:
WhileEnd
Return
(注解:
WhileY=导线点编号:
导线点X坐标Y:
导线点Y坐标O:
WhileEnd注:
有多少导线点就要输入多少段数据最后以Return结束)
——————————————————————————————————
程序名(XDXD)导线点子程序
IfFrac(Y)=0:
ThenProg"SDXD":
Else"O"?
O:
IfEnd
Return
——————————————————————————————————
程序名(XFS)反算子程序
TKJ:
IfT=YAndK=O:
ThenO+10^(7)O:
IfEnd:
Pol(TY,KO):
IfJ<0:
ThenJ+360J:
IfEnd
Return
程序名(XINPUT)显示部分(子程序)
"H+"?
H:
"E"?
E:
"F"?
F:
"A"?
A:
"+C"?
C:
"+Z"?
Z:
"G+"?
G
Return
——————————————————————————————————
(XPUBLIC)共用计算中桩,转角,边桩,反算,显示的过程(子程序)
Prog"XF"
U=110R
R+VJ
Prog"XZS":
Prog"XFS":
Prog"XXS"
Return
——————————————————————————————————
程序名(XT)两点斜直线交点部分(子程序)
Prog"XXJX"
Prog"XFS"
IfAbs(JR)<1:
ThenQIQ:
ElseQ+IQ:
IfEnd
IfI<0.001:
ThenPT:
SK:
Prog"XFS":
Cls:
Locate1,1,"Q":
Locate3,1,Q:
Locate1,2,"I":
Locate3,2,I:
JRJ:
IfJ>180:
ThenJ+180J:
IfEnd:
Prog"X60":
Fix6:
Locate1,4,"DMS":
Locate5,4,J:
Fix3:
Prog"PAUSE":
Cls:
IfEnd
Return(注:
此子程序"DMS"是分体字符)
——————————————————————————————————
程序名(XTW)填挖部分(子程序)
"W"?
W:
"S"?
S:
W+SI"I":
I◢
"P"?
P:
"B"?
B:
Abs(IP)+BD:
"D":
D◢
"D":
?
D
Return
——————————————————————————————————
程序名(XXJX)子程序
tan(A)E:
tan(R)F:
(EPSFT+K)(EF)Y:
E(YP)+SO
Return
——————————————————————————————————
程序名(XXS)显示子程序
Cls:
IfJ<0:
ThenJ+360J:
IfEnd:
Prog"X60":
Fix6:
Locate1,1,"DMS":
Locate5,1,J:
Fix3:
Locate1,2,"I":
Locate5,2,I:
Locate1,3,T:
Locate1,4,K:
Prog"PAUSE":
Cls
Return(注:
此子程序"DMS"是分体字符)
—————————————————————————————
程序名(XZS)正算子程序
TK:
T+Rec(D,J)T:
K+JK
Return
程序名(X1)线路坐标正算、不可用于曲线桥的盖梁与支座放样
"Y"?
Y:
Prog"XDXD"
"B"?
B
Lbl0:
"Q"?
Q
"V"?
V:
"D"?
D
Prog"SPQX"
Prog"XPUBLIC"
Q+BQ
Goto0
——————————————————————————————————
程序名(X10)计算线外两点的桩号、夹角与偏距
"P"?
P:
"S"?
S:
"W"?
W:
"B"?
B
"Q"?
Q
Lbl0:
Prog"SPQX"
Prog"XF"
Pol(PW,SB)
IfJ<0:
ThenJ+360J:
IfEnd
JA
Prog"XT"
Goto0
——————————————————————————————————
程序名(X2)线路坐标反算
"P"?
P:
"S"?
S
"Q"?
Q
Lbl0:
Prog"SPQX"
Prog"XF"
R+90A
Prog"XT"
Goto0
程序名(X3)计算平面位置检查记录表
"B"?
B:
"MM"?
S
Lbl0:
"Q"?
Q
"V"?
V:
"D"?
D
Prog"SPQX"
Prog"XPUBLIC"
S+2SRan#I:
(S2I2)J:
Int(I)1000I:
Int(J+2JRan#)1000J:
Cls:
Locate1,1,T+I:
Locate1,2,K+J:
Locate1,3,I:
Locate9,3,J:
Locate9,4,(I2+J2):
Prog"PAUSE":
Cls
Q+BQ
Goto0
程序名(X4)人工输入原始数据计算线元积分方位角
"Y"?
Y:
Prog"XDXD"
"B"?
B
Lbl0:
Prog"XINPUT"
Lbl1:
"Q"?
Q
"V"?
V:
"D"?
D
Prog"XPUBLIC"
"R":
R►DMS◢
Q+BQ
IfQ>G:
ThenGH:
ZC:
Goto0:
ElseGoto1:
IfEnd
——————————————————————————————————程序名(X56)推算开挖、填筑桩状态
"Y"?
Y:
Prog"XDXD"
Lbl0:
IfU=5:
ThenProg"XINPUT":
IfEnd
Lbl1:
Prog"XTW"
"Q"?
Q
IfQ>GAndU=5:
ThenGH:
ZC:
Goto0:
IfEnd
"V"?
V
IfU=6:
ThenProg"SPQX":
IfEnd
Prog"XPUBLIC"
Goto1
——————————————————————————————————
程序名(X-7-7.1)计算斜交斜做涵洞单跨桥、斜交正做涵洞七点放样状态,并能避免曲线内单跨桥涵进出水口长度不一致,同时适用于曲线桥扇形布桩的盖梁放样,曲线桥扇形布桩的支座放样(曲线桥必备)
"Y"?
Y:
Prog"XDXD"
"+QZKQXK"?
B
0D:
0V
"Q"?
Q
Prog"SPQX"
Prog"XPUBLIC"
"R":
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 5800 线元法 修正 程序 编写