Alur kerja 5 langkah, dijalankan berurutan dalam satu sesi. Setiap langkah dieksekusi pada mesin dan keluaran di bawah adalah apa yang dihasilkannya.
atLeastOnce[p_, n_] := 1 - (1 - p)^nTanpa keluaran - langkah ini menyiapkan sesuatu untuk langkah berikutnya.
N[atLeastOnce[1/100, 50]]0.3949939328624633expectedHits = 50 (1/100)1/2atLeastTwice = N[1 - (1 - 1/100)^50 - 50 (1/100) (1 - 1/100)^49]0.08943531309603069Plot[atLeastOnce[1/100, n], {n, 0, 300}]-Graphics-