三角形內心

三角形內心

程式由網友 roviury 提供。

更新日期: 2011年9月29日

程式一 (75 bytes)

程式一需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。

注意: 藍色的英文字為統計模式中的變數(Σx 按 Shift 1 2，Σy 按 Shift 1 → 2)。

?→X: ?→Y: ?→A: ?→B: ?→C: ?→D:

FreqOn: X , Y ; Pol(A-C , B-D DT:

A , B ; Pol(x-C , y -D) + 0Pol(x-A , y-B DT:

C , D ; X DT: x◢ y

程式二需要在 CMPLX 模式下執行，因此在輸入程式前請先按 Mode 2。

程式二 (61 bytes)

?→A: ?→B: ?→C: . 5 ( arg(A - C) - arg( B - C:

C + . 5 ( Abs(A - C) + Abs(B - C) - Abs(A - B) )

cos( Ans )^-1∠( Ans + arg(B - C

例題: A、B及C三點的坐標分別為(0 , 0)、(4 , 3) 及 (4 , 0)，求三角形ABC的內心的坐標。

程式一按法:

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

所以內心 = (3 , 1)

程式二按法:

按 Prog 1 再按 4 + 3 i EXE (以複數形式輸入座標)

0 + 0 i EXE 4 + 0 i EXE (顯示實數部為3)

Shift Re<=>Im (顯示虛數部為 1i，所以內心 = (3 , 1))

註: 使用程式二時，要注意若答案的x坐標為0(實數部)，答案會直接先顯示y坐標的值(虛數部(有 i字))