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=”
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024