正整數冪三項式展開(II)
程式由網友王義之mike提供，可以計算三項式(axb + cxd +exf )n中某一項的係數，其中a≠0、c≠0、e≠0及n為正整數。
更新日期: 2014年8月1日
程式需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。
注意: 藍色的英文字為統計模式中的變數(maxX 按 shift 2 2 2，maxY 按 shift 2 2 → 2，n 按 Shift 1 3)。
程式 (133 bytes)
ClrStat: ?→A: ?→B: ?→C: A , B ; C DT:
?→A: ?→B: ?→C: ?→D: Lbl 0: Fix 0: 0→M: ?→X:
For 0→Y To D: (C - A)-1(maxYD - X - Y(maxY - C:
If (Ans≦Y)(Ans≧0)(Ans=Rnd(Ans: Then M +
Y nCr Ans × D nCr Y × maxX^(D - Y) B^(Y - Ans)
n^(Ans→M: IfEnd: Next: Norm 1: M◢ Goto 0
註: 如果是使用fx-50FH，上述程式中的乘號 ×可以省略不輸入，程式長度可節省2 bytes。
例題: 試展開 (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)
返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集