直線的一般式轉換為法線式
程式可以將直線一般式Ax + By + C = 0 轉為法線式 x cosθ+ y sinθ – p = 0
程式編寫日期: 2007年2月21日
注意: πr 是按 SHIFT EXP SHIFT Ans 2
程式 (62 bytes，使用記憶C、D、X及Y)
?→X: ?→Y: ?→C: Y(C=0) - C + X(YC=0→D:
X2 + Y2: 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.6598083o)
所以法線方程為 x cos128.66o + y sin128.66o – 0.93704 = 0
例題2: 將 3x – 4y = 0以法線方程式表示。
按 Prog 1 再按 3 EXE - 4 EXE 0 EXE (顯示p為0)
EXE (顯示θ為126.8698976o)
所以法線方程為 x cos126.87o + y sin126.87o = 0