【自創程式】聯立二元一次方程 + 圓形與直線交點 + 圓形在一點上的切線

今天要介紹的是站主自己寫的計算機三合一方程:

(1): 聯立二元一次方程(Simultaneous Linear Equation in two unknown)
(2): 圓形與直線交點(Intersection point of a circle and a straight line)
(3): 圓形在一點上的切線(Tangent to a circle on a point)

目錄：
1. 程式
2. 例題檢查
3. 實戰

1. 程式 (202 Bytes)

?→M : ?→A : ?→B : ?→C : M = 0 => ?→D : ?→X : ?→Y :
M = 1 => Goto 1 : M = 2 => Goto 2 : AX - DB→M : M^-1(CX - YB◢ M^-1(AY- DC : Goto 0 :
Lbl 1 : Y² + BY + C→C : 2XY + BX + A→B : X² + 1→A : B² - 4AC◢ (2A)^-1√(Ans→M : - B┘(2A→D : D + M◢
Y + XAns◢D - M◢ Y + XAns : Goto 0 :
Lbl 2 : Y→D : X→M : Pol(Y + B ┘2, X + A ┘2) -√(-C + 4^-1(A² + B²◢ - tan(Y◢D - MAns : Lbl 0

2. 例題檢查

聯立二元一次方程(Simultaneous Linear Equation in two unknown)

假設我們想找以下聯立方程的解:

(1): 6x - 7y = 40
(2): 2x + 11y = 40

我們按Prog 1
再按 0 EXE ( 0 代表Method 0，代表我們要用聯立二元一次方程的程式)
6 EXE -7 EXE 40 EXE
2 EXE 11 EXE 40 EXE (顯示 9 ，代表 x = 9)
EXE (顯示 2 ，代表 y = 2)

圓形與直線交點(Intersection point of a circle and a straight line)

假設我們想找以下圓形及直線的交點:

(1): x² + y² + 2x - 2y - 7 = 0
(2): y = 0.75x - 2

我們按Prog 1
再按 1 EXE ( 1 代表Method 1，代表我們要用圓形與直線求交點的程式)
2 EXE -2 EXE -7 EXE
0.75 EXE -2 EXE
(顯示0, 代表△, △>0 表示有兩個交點, △=0 表示一個重覆的交點, △<0 表示沒有交點)

EXE (顯示 0.8) EXE (顯示 -1.4) (代表第一個交點的X Y坐標為(0.8, -1.4))
EXE (顯示 0.8) EXE (顯示 -1.4) (代表第二個交點的X Y坐標為(0.8, -1.4))

P.S. 如△<0 的話，則在△<0 之後伯顯示 Math Error

圓形在一點上的切線(Tangent to a circle on a point)

假設我們想找以下圓形在某點的切線

(1): x² + y² - 20x +10 = 0
(2): (x, y) = (1, 3)

我們按Prog 1
再按 2 EXE ( 2 代表Method 2，代表我們要用圓形在某點上的切線的程式)
-20 EXE 0 EXE 10 EXE
1 EXE 3 EXE
(顯示 0 , 代表△, △>0 表示該點在圓形外面 ,△=0 表示該點在圓形之上, △<0 表示該點在圓形裡面)
EXE (顯示 3) EXE (顯示 0) (代表切線為 y = 3x + 0)

3. 練習

待更新