求点C到直线AB的距离和CB两点间的距离改进版.docVIP

求点C到直线AB的距离和CB两点间的距离 Deg:Fix 3 “A X ”?A “A Y ”?B “B X ”?C “B Y ”?D Lbl 1 “C X ”?E “C Y ”?F: D-B / C-A →G （直线AB斜率） -1/G→H （AB垂线斜率） F-B+A*G-E*H / G-H →M （C点在AB直线上垂足的X坐标） F- M-E *H→N （C点在AB直线上垂足的Y坐标） Pol C-A,D-B :I→P:If J 0:Then J+360→Q:Else J→Q:IfEnd（AB的方位角） Pol E-A,F-B :I→T:If J 0:Then J+360→U:Else J→U:IfEnd（AC的方位角） U-Q- V √ E-M ^2+ F-N ^2 →K （C点到直线AB的投影距离） √ E-C ^2+ F-D ^2 →L （C点到B点的距离） Cls “D C→AB ”:Locate 10,1,K （C点到直线AB的投影距离） “∠C-B ”:Locate 6,2,V° （如果是正数则C点在AB直线左侧） “L B→C ”:Locate 8,3,L （C点到B点的距离） “AC-AB ”:Locate 7,4,T-P◢ （A到C的距离减去A到B的距离） Goto 1