Hrvatski matematički elektronski časopis math.e | |
http://web.math.hr/mathe/ |
Sada je jasno da je tražena vjerojatnost (zapravo vjerojatnost da Fibonaccijev broj počinje sa 14 ili sa 28): log(15/14) + log(29/28) = log(435/392), što približno iznosi 0.0452032.
Sljedeća sekvenca naredbi u programskom paketu Mathematica 5 daje relativnu frekvenciju
pojavljivanja događaja da druga znamenka Fibonaccijevog broja bude 4 puta veća od prve za prvih 10000 Fibonaccijevih brojeva.
Frekvencija dobivena na ovaj način iznosi 0.0452.
frekvencija=0;
For[i=7,i<=10000,i++,
broj=Fibonacci[i];
If[(IntegerDigits[broj][[1]]==1 && IntegerDigits[broj][[2]]==4) ||
(IntegerDigits[broj][[1]]==2 && IntegerDigits[broj][[2]]==8),
frekvencija++]]
frekvencija/10000.