1.坐标计算程序
X“XO”:Y“YO”: K“ZB(1)FWJ(2)”=1=>Goto 1Δ←┘
K=2=>Goto2Δ
Lbl 1：{KCS}:C“FWJ”: S“JU-LI” ←┘
N“XJS”=X+S cos C◢
E“YJS”=Y+S sin C◢
K“ZB(1)FWJ(2)”=2=>Goto 2Δ←┘
K=1=>Goto1Δ
Lbl 2：{KAB}:A“X1”:B“Y1” :I=0:J=0:POL(A-X,B-Y) ←┘
J<0=>J=J+360Δ←┘
I“JU-LI”=I◢
J“FWJ”=J◢
K“ZB(1)FWJ(2)”=1=>Goto 1Δ←
K=2=>Goto2ΔΔ
- 本文固定链接: https://www.chtfs.com/3306/
- 转载请注明: acer 于 测绘途夫 发表
这个作者貌似有点懒，什么都没有留下。