ntrekningar = 1000000 # Talet på trekningar. nfaste = 16 # Talet på faste tal. nrekker = 10 # Talet på innleverte rekker. fastetal = sample( 1:34, nfaste ) # Lag dei faste tala. print( fastetal ) # Vis dei faste tala. fastkupong = matrix( nrow=nrekker, ncol=7 ) # Opprett den faste kupongen. tilfkupong = fastkupong # Opprett ein tilfeldig kupong. for( i in 1:nrekker ) # Fyll ut den faste kupongen. fastkupong[i,] = sample( fastetal, 7 ) print(fastkupong) # Vis den faste kupongen. fastvinning = rep( 0, 8 ) # Lag oversiktstabell over gevinstar for tilfvinning = fastvinning # dei to kupongane. names(fastvinning) = 0:7 # Gje gevinstvektoren namn. names(tilfvinning) = 0:7 # Ditto. for( i in 1:ntrekningar ) # Føreta ntrekingar trekningar og gevinstutrekningar. { cat( 100 * i / ntrekningar, "\n" ) trekning = sample( 1:34, 7 ) # Trekk vinnerrekka. for( i in 1:nrekker ) # Gå gjennom rekkene i kupongane. { tilfkupong[i,] = sample( 1:34, 7 ) # Lag den tilfeldige kupongen. fastrette = length( intersect( trekning, fastkupong[i,] ) ) # Talet på rette i fastkupongen. tilfrette = length( intersect( trekning, tilfkupong[i,] ) ) # Ditto for tilfeldigkupongen. fastvinning[fastrette+1] = fastvinning[fastrette+1] + 1 # Fyll ut gevinstoversikt. tilfvinning[tilfrette+1] = tilfvinning[tilfrette+1] + 1 # Ditto. } } print( fastvinning ) # Vis talet på gevinstar ved fast kupong. print( tilfvinning ) # Vis talet på gevinstar ved tilfeldig kupong. print( 100 * fastvinning / ( ntrekningar * nrekker ), digits = 16 ) # Gevinstfrekvens (i prosent) print( 100 * tilfvinning / ( ntrekningar * nrekker ), digits = 16 ) # Ditto.