直线坐标计算(正反算)
01-18
Deg:Fix 3
"QDK"?K:"QDX"?X:"QDY"?Y:"FWJ"?A: CLS :“ZS[1],FS[2]”?L
If L=1:Then Goto 1:Else If L=2:Then :Goto 3:If end
正算
LbI 1
"CZX"?U:"CZY"?V
LbI 2
"KP"?P :"YZJ"?D :"PJ"?C
X+(P-K)cos(A)+Ccos(A+D)→F
Y+(P-K)sin(A)+Csin(A+D)→G
Pol(F-U,G-V): If J∠0:Then J+360→J:IfEnd CLS
"A1=":Locate
Goto 2
注J 后面一定要加角度那符号(输入。,,,健就OK ) 4,1,J 。:"D1=":Locate 4,2,I:"XP=":Locate 4,3, F:"YP=":Locate 4,4,G◢ 反算
LbI 3
?M:? N: Pol (M-X,N-Y ):I→D:If J <0 :Then J+360→P: If End
J →P:Ifend
If A∠P: Then P-A→O: Else A-P→O:Ifend
D Sin(O) →Q
“k=”:K+Q除以Tan(O) →R ◢
“PJ=”:D Sin(O) →Q:If A∠P:Then Q→Q:Else -Q→Q ◢
Goto 3