Loading [MathJax]/jax/output/HTML-CSS/jax.js

2017年4月17日月曜日

学習環境

数学読本〈4〉数列の極限,順列/順列・組合せ/確率/関数の極限と微分法(松坂 和夫(著)、岩波書店)の第15章(「場合の数」 を数える - 順列・組合せ)、15.3(二項定理)、二項定理の応用、二項係数の性質、問40、41、42.を取り組んでみる。


    1. r·n!(nr)!r!=n!(nr)!(r1)!n·(n1)!(n1r+1)!(r1)!=n!(nr)!(r1)!

    2. ni=1i(ni)=ni=1in!(ni)!i!=nni=1(n1)!(ni)!(i1)!=nn1i=0(n1)!(n(i1))!i!=nn1i=0(n1)!((n1)i)!i!=nn1i=0(ni)=n(1+1)n1=n·2n1

  1. (m+nr)xr=ri=0(mi)(nri)

  2. (nr+1)(nr)=n!(nr1)!(r+1)!·(nr)!r!n!=nrr+1nrr+1=1nr=r+1r=n12r<n12(nr)<(nr+1)r>n12(nr)>(nr+1)

コード(Emacs)

HTML5

<button id="run0">run</button>
<button id="clear0">clear</button>
<pre id="output0"></pre>
<script src="sample40.js"></script>

JavaScript

let btn0 = document.querySelector('#run0'),
    btn1 = document.querySelector('#clear0'),
    pre0 = document.querySelector('#output0'),
    p = (x) => pre0.textContent += x + '\n';

let range = (start, end, step=1) => {
    let iter = (i, result) => {
        return i >= end ? result : iter(i + step, result.concat([i]));
    }
    return iter(start, []);
};
let factorial = (n) => {
    return n <= 1 ? 1 : n * factorial(n - 1);
};

let combination = (n, r) => {
    return factorial(n) / (factorial(r) * factorial(n - r));
};

let term = (n, i) => i * combination(n, i),
    f = (n) => range(1, n + 1).map((i) => term(n, i)).reduce((x, y) => x + y);


let output = () => {        
    p('40-1.');
    let r = Math.floor(Math.random() * 100) + 1,
        n = r + Math.floor(Math.random()) + 1;
    
    p(`${r * combination(n, r)} === ${n * combination(n - 1, r - 1)}: ` +
      `${r * combination(n, r) === n * combination(n - 1, r - 1)}`);

    p('40-2.');
    n = Math.floor(Math.random() * 100);
    p(`${n * Math.pow(2, n - 1)} === ${f(n)}: ` +
      `${n * Math.pow(2, n - 1) === f(n)}`);

    p('42.');
    n = Math.floor(Math.random() * 100) + 2;
    p(range(0, n + 1).map((i) => Math.floor(combination(n, i))));
};

btn0.onclick = output;
btn1.onclick = () => {
    pre0.textContent = '';
};

output();
40-1.
182 === 182: true
40-2.
3307330976350208 === 3307330976350208: true
42.
1,37,666,7769,66044,435896,2324784,10295472,38608020,124403620,348330136,854992151,1852482995,3562467299,6107086799,9364199759,12875774669,15905368709,17672631900,17672631900,15905368709,12875774669,9364199759,6107086799,3562467299,1852482995,854992151,348330136,124403620,38608020,10295472,2324784,435896,66044,7769,666,37,1

0 コメント:

コメントを投稿