正整數冪三項式展開(II)
程式是根據網友王義之mike提供的fx-50FH程式修改，使 程式適合fx-3650P使用， 程式可以計算三項式(axb + cxd +exf )n中某一項的係數，其中a≠0、c≠0、e≠0及n為正整數。
編寫日期: 2009年1月5日
程式需要在 REG Quad 模式下執行，因此在輸入程式前請先按 Mode Mode 2 → 3 進入REG Quad模式。
注意: 藍色的英文字為統計模式中的變數(Σx³ 按 Shift 1 → → 1，Σy 按 Shift 1 → 2，Σxy 按 Shift 1 → 3)，而 ³√是按shift x³，πr 是按 Shift EXP Shift Ans 2。
程式 (176 bytes)
Stat clear: ?→M: ³√(M-1 DT: ?→M: 1 , M DT: ?→M:
0 , M - Σy DT: ?→A: ?→B: ?→C: ?→D: Lbl 0: 0→M: ?→X:
0→Y: Lbl 1: (C - A)-1(ΣxyD - X - Y(Σxy - C: (Y≧Ans)(Ans≧0)
(sin πr Ans = 0)=0 => Goto 2: (C - A)-1(ΣxyD - X - Y(Σxy - C: M +
Y nCr Ans × D nCr Y × Σx³^(D - Y) Σy^Ans B^(Y - Ans→M: Lbl 2:
Y + 1→Y: D≧Y => Goto 1: M◢ Goto 0
例題: 試展開 (2 - 3x + 4x²)³，求常數項及x³項的係數。
∵ (2 - 3x + 4x²)³=(2x0 - 3x1 + 4x2)3
按 Prog 1 再按 2 EXE 0 EXE - 3 EXE 1 EXE 4 EXE 2 EXE 3 EXE
0 EXE (冪數0代表計算常數，顯示常數項為8)
EXE 3 EXE (顯示x³項的係數為 - 171)