圓族 (Family of circles)
程式由網友wimwim提供。
網友提供程式日期: 2009年6月20日
程式需要在 SD 模式下執行，因此在輸入程式前請先按 Mode Mode 1 進入SD模式。
注意: e 是按 ALPHA ln，藍色的英文字為統計模式中的變數(Σx 按 Shift 1 2，n 按 shift 1 3)。
程式 (209 bytes)
Stat clear: ?→A: ?→B: ?→C: ?→D: ?→X: ; D - 1 DT: X DT: ?→Y:
e→M: ?→M: M-e => Goto 0: (A2 - AD + B2 - BΣx - 2C + 2Y)
┘(2C - 2Y + X2 +D2 - AD - BX→M◢ Goto 1: Lbl 0: ?→X: e→D:
?→D: D-e => (MA + XB - 2D)┘(2D - XΣx - Mn→M◢
D=e => -(M2 +X2 + AM + BX + C)┘(M2 +X2 + nM + ΣxX + Y→M◢
Lbl 1: 1+M→X: (A+ nM)┘X◢ (B+ΣxM)┘X◢
(C+YM)┘X
例題1: 兩圓方程為
C1: x2 + y2 - 4x - 5y + 4 = 0 及
C1: x2 + y2 - 5x - 7y + 6 = 0，
若以C1及C2的共弦作為一圓的直徑，求該圓的方程。
設所求圓方程為 x2 + y2 - 4x - 5y + 4 + k(x2 + y2 - 5x - 7y + 6) = 0
按 Prog 1 再按 - 4 EXE - 5 EXE 4 EXE - 5 EXE - 7 EXE
6 EXE EXE (不輸入數值表示再沒有任何資料輸入，顯示-2┘3，即k= - 2/3)
EXE (顯示 - 2) EXE (顯示 - 1) EXE (顯示0，即圓方程為x2 + y2 - 2x - y = 0)
例題2: 兩圓方程為
C1: x2 + y2 + 2x + 3y - 7 = 0 及
C1: x2 + y2 + 3x - 2y - 1 = 0，
若圓通過上述兩圓的交點及點(1,2)，求圓方程。
設所求圓方程為 x2 + y2 + 2x + 3y - 7 + k(x2 + y2 + 3x - 2y - 1) = 0
按 Prog 1 再按 2 EXE 3 EXE - 7 EXE 3 EXE - 2 EXE - 1 EXE
1 EXE 2 EXE EXE (不輸入數值表示再沒有任何資料輸入，顯示-2，即k= -2)
EXE (顯示4) EXE (顯示-7) EXE (顯示5，即圓方程為x2 + y2 + 4x - 7y + 5 = 0)
例題3: 兩圓方程為
C1: x2 + y2 - 4x + 2y = 0 及
C1: x2 + y2 - 2y - 4 = 0，
若圓通過上述兩圓的交點且直線 2x + 4y - 1 = 0通過該圓的圓心，求圓方程。
設所求圓方程為 x2 + y2 - 4x + 2y + k(x2 + y2 - 2y - 4) = 0
按 Prog 1 再按 - 4 EXE 2 EXE 0 EXE 0 EXE -2 EXE -4 EXE
2 EXE 4 EXE - 1 EXE (顯示1┘3，即k為1/3)
EXE (顯示-3) EXE (顯示1) EXE (顯示- 1,即圓方程為x2 + y2 - 3x + y - 1 = 0)