5800计算器直线程序

5800计算器线路、匝道中边桩万能程序彭赐明改编网上类似程序于河南高速郑漯8标LB1

1↙Cls

:

Fix

4

:

Deg

:"XZJ="?R◢

(输入置镜点X）"YZJ="?S◢

(输入置镜点Y）LB1

2↙"K="?K◢

(输入计算点里程）If

K<第一线元终点里程

：THEN

线元起点X→A:线元起点Y→B:线元起点半径（直线起点终为10的45次方）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线起终点为10的45次方）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Goto

3:IfEnd↙………………………………（线元数据分段输入）LB1

3↙W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→X:E

(X/C

HX^2)×180/π→V:V<0=>V

360→V:"QXJ=":V→DMS◢(计算点切线方位角）A

∫(Cos(E

(X/C

HX^2)*180/π，0，X)→Z

:B

∫(Sin(E

(X/C

HX^2)*180/π，0，X)→Y

:"XI=":Z◢(计算点中心X）"YI=":Y◢(计算点中心Y）"PJ="?P◢(输入计算点边桩偏角左－右＋）"PD="?Q◢(输入计算点边桩偏距）Rec(Q,V

P):Z

I→Z

:Y

J→Y:"XP=":Z◢(计算点边桩X）"YP=":Y◢(计算点边桩Y）Pol(Z-R,Y-S):J<0=>J

360→J:"FYJ=":J→DMS◢(放样方位角）"FYD=":I◢(放样距离）Goto

2↙

Deg:Fix3

Lbl 0

“XA=”?X:”YA=”?Y:“XB=”?U:”YB=”?V

“XC=”?T:”YC=”?W

(Y-V)÷(X-U)→M:(M×X+T÷M-Y+W)÷(M+1÷M)→C:Y+M×(C-X) →D

√((T-C)2+(W-D)2) →L

pol((C-X),(D-Y)):J＜0ÞJ+360→J

Cls:Norm 1:“JULI=“Locate6,1,L:““:“Z-H“:Locate 6,3,I◢

Goto 0

注释：

依次输入直线上已知两点的坐标(XA,YA)、(XB,YB)

直线外一点的坐标(XC,YC)

程序计算出C点在距中线的偏距“JULI=”直线上的桩号 “Z-H=”

---