正整數冪三項式展開(II)
程式由網友王義之mike提供，可以計算三項式(axb + cxd +exf )n中某一項的係數，其中a≠0、c≠0、e≠0及n為正整數。
網友提供程式日期: 2008年11月22日
程式需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。
注意: 藍色的英文字為統計模式中的變數(maxX 按 shift 2 2 2，maxY 按 shift 2 2 → 2，n 按 Shift 1 3)。
程式 (131 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 + maxX^(D - Y)
Y nCr AnsB^(Y - Ans) D nCr Y n^(Ans→M: IfEnd:
Next: Norm 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)
返回 CASIO fx-50FH 及 fx-50F PLUS 程式集