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":
升级会员 