直線的一般式轉換為法線式

直線的一般式轉換為法線式

程式編寫日期: 2007年12月25日

程式可以將直線一般式Ax + By + C = 0 轉為法線式 x cosθ+ y sinθ – p = 0

注意: π^r 是按 SHIFT EXP SHIFT Ans 2

程式 (62 bytes，使用記憶C、D、X及Y)

?→X: ?→Y: ?→C: Y(C=0) - C + X(YC=0→D:

X² + Y²: Pol( DX÷Ans , DY÷Ans: C => X: Ans◢

Y + 2π^r(0>Y

注意: 以下例題是在DEG MODE之下執行。

例題1: 將 4x – 5y + 6 = 0 以法線方程式表示。

按 Prog 1 再按 4 EXE - 5 EXE 6 EXE (顯示p為0.937042571)

EXE (顯示θ為128.6598083^o)

所以法線方程為 x cos128.66^o + y sin128.66^o – 0.93704 = 0

例題2: 將 3x – 4y = 0以法線方程式表示。

按 Prog 1 再按 3 EXE - 4 EXE 0 EXE (顯示p為0)

EXE (顯示θ為126.8698976^o)

所以法線方程為 x cos126.87^o + y sin126.87^o = 0