Som D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 rel freq p/361 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 02 1 0 0 0 3 2 0 2 2 0 0 3 1 1 2 1 3 3 2 2 28 0,0194 0,02783 5 9 2 2 5 1 5 5 4 6 5 2 2 4 5 4 8 3 4 1 82 0,06 0,05564 7 11 6 6 11 8 2 6 7 4 6 5 5 5 10 8 10 10 8 5 140 0,0972 0,08335 13 6 5 9 8 3 6 7 11 7 7 4 11 13 1 5 5 6 12 11 150 0,1042 0,11116 13 10 7 12 8 9 10 8 9 10 10 13 8 9 8 9 11 13 8 10 195 0,1354 0,13897 11 17 13 15 13 12 16 13 12 14 18 12 16 13 14 13 8 13 16 11 270 0,1875 0,16678 7 6 17 12 8 16 11 12 8 11 10 10 10 10 10 14 7 4 3 9 195 0,1354 0,13899 3 5 10 8 5 8 6 6 7 10 9 12 11 7 9 3 6 10 7 10 152 0,1056 0,111110 5 4 4 4 4 7 10 6 5 3 5 5 5 5 6 8 6 4 4 4 104 0,0722 0,083311 4 4 6 3 4 5 1 3 6 4 1 5 1 4 3 6 6 2 7 4 79 0,0549 0,055612 3 0 2 1 3 1 5 4 1 3 1 1 2 1 4 1 2 4 1 5 45 0,0313 0,027872 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 1440 1,0000Klasopdracht : Laat iedere leerling bovenstaande simulatie doen, met zijn eigen RandomSeed Number. Dit gebeurt met de instructie 3→rand, waarbij 3 bvb. het klasnummer is vande leerling. Verzamel de info in een spreadsheet; bereken de relatieve frequentie en vergelijkmet de theoretische kans.AANDACHTSommige programma’s beginnen met ClrAllListsGebruik dit NOOIT4. Puzzelstukjes in koekjesdozenEen fabrikant verkoopt koekjesdozen met daarin 5 verschillende stukjes van een puzzel.Hoeveel dozen moet men minimaal aankopen om de 5 stukjes zeker te hebben ? Prog PUZ1ClrHomeDisp "? DOZEN KOPEN OM","5 STUKJES","TE HEBBEN ?"{0,0,0,0,0}→L₁While prod(L₁)=0randInt(1,5)→RL₁(R)+1→L₁(R)EndDisp sum(L₁)Telkens we op Enter drukken, wordt de simulatie opnieuw gedaan.We doen nu de simulatie 20 maal met het Prog PUZ2 en berekenen gemiddeldeDe meerwaarde van programmeren met de TI-84 +116Regis Ockerman
ClrList L₂ClrHomeDisp "EXP 20 * DOEN"For(I,1,20){0,0,0,0,0}→L₁While prod(L₁)=0randInt(1,5)→RL₁(R)+1→L₁(R)Endsum(L₁)→L₂(I)End1-Var Stats L₂Door de statistische gegevens op te vragen krijgen we een beeld van het maximaal aantal dateventueel moet aangekocht worden.Willen we een groot aantal simulaties doen, bvb. 1000, dan moeten we het programma nogwijzigen. Dit is dan ook het geval in PUZ3.ClrHomeDisp "1000 * UITVOEREN"seq(X,X,1,75)→L₂seq(0,X,1,75)→L₃For(I,1,1000){0,0,0,0,0}→L₁While prod(L₁)=0randInt(1,5)→RL₁(R)+1→L₁(R)Endsum(L₁)→TL₃(T)+1→L₃(T)End1-Var Stats L₂,L₃De meerwaarde van programmeren met de TI-84 +117Regis Ockerman