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=”
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)