多邊形面積(邊及夾角)
若已知多邊形的N - 1個邊長及N-2個內角，程式可以計算多邊形的面積及最後一邊的長度。
程式編寫日期: 2008年3月27日
程式 (112 bytes)
Mem clear: ?→Y: Lbl 0: ?→A: ?→B: A - X→A:
A>2πr => A - 2πr→A: √( Y2 + B2 - 2YB cosA→C:
2-1YB sin AM+: cos-1 ( (B2 + C2 - Y2) ÷ 2BC→X:
(0>A) + (A>πr) => -X→X: M→A: C→B: C→Y: Goto 0
註1: 順序輸入數據，第一邊長、第一邊及第二邊的內角、第二邊長、第二邊及第三邊的內角、第三邊長 .....，當輸入至第N-1邊後顯示面積及第N邊長度。
註2: 輸入的邊長及內角必須順多相連，否則計算不成立。
註3: 注意輸入的夾角是內角，而內角是可以大於180o。
例題1: 一五邊形，其中四個邊及三個內角順序為 2、30o、2、300o、2、30o及2，求五邊形的面積及第五邊的長度。
注意:要在DEG Mode執行
按 Prog 1再按 2 EXE 30 EXE 2 EXE 300 EXE 2 EXE
30 EXE 2 EXE (顯示面積為2.26795) EXE (顯示第五邊的長度為2)
計算完後後， 請按 AC 終止程式
例題2: a=4, b=5, ∠C=40o ，求三角形面積及c。
注意:要在DEG Mode執行
按 Prog 1 再按 4 EXE 40 EXE 5 EXE (顯示面積為6.42788) EXE (顯示c為3.21842)
計算完後後， 請按 AC 終止程式