多點求多邊形面積(I)

多點求多邊形面積(I)

程式二由網友 roviury提供。

更新日期: 2012年1月30日

程式一 (62 bytes)

ClrMemory: ?→A: ?→B: A→X: B→Y: While 1:

A→C: Abs( M┘2→A: B: ?→A: ?→B:

X Ans - YC + BC - Ans A+ YA - XBM+: WhileEnd

程式二需要在 CMPLX 模式下執行，因此在選擇新程式位置後，按 2 選用CMPLX模式，而坐標資料會以複數形式輸入。

程式二 (44 bytes，使用記憶為A, B, C及M)

?→A: A→B: MM-:

While 1: ?→C: B Conjg(C M+: C→B: M + C Conjg(A:

4^-1Abs( Ans - Conjg(Ans→C: WhileEnd

例題1: 己知四點分別為(0,0)，(3,4)，(-1,7)及(- 4,3)，求四邊形面積。

注意: 輸入的點數多於3點，要依須時針或逆時針方向輸入，否則不能正確計算多邊形面積。

程式一的按法:

按 Prog 1 再按 0 EXE 0 EXE 3 EXE 4 EXE -1 EXE 7 EXE - 4 EXE 3 EXE (顯示面積為25)

計算完結請按AC終止程式。

注意: 輸入的點數多於3點，要依須時針或逆時針方向輸入，否則不能正確計算多邊形面積。

程式二的按法:

按 Prog 1 再按 0 + 0i EXE 3 + 4i EXE -1 + 7i EXE - 4 + 3i EXE (顯示面積為25)

計算完結請按AC終止程式。

例題2: 己知三點分別為(2,3)，(4,5)及(3,7)，求三角形面積。

程式一的按法:

按 Prog 1 再按 2 EXE 3 EXE 4 EXE 5 EXE 3 EXE 7 EXE (顯示面積為3)

計算完結請按AC終止程式。

程式二的按法:

按 Prog 1 再按 2 + 3i EXE 4 + 5i EXE 3 + 7i EXE (顯示面積為3)

計算完結請按AC終止程式。