The Black Forest

522. Submitted on 2005/5/3, 11.05 h by Arduenn:

Zwart is goed, maar nu even niet

De Zwarte Doos

Op de Universiteit van Princeton, New Jersey, zo ongeveer het Cambridge van de Verenigde Staten, waar nota bene Albert E. heeft gewerkt, zijn ze hun verstand verloren. In Princeton is de bakermat van het Global Consiousness Project waarin de Zwarte Doos centraal staat. De Zwarte Doos genereert random data. 'Pieken' in deze data, of afwijkingen van het gemiddelde, gingen steeds vooraf aan 'grote' gebeurtenissen, zoals de dood van prinses Diana, 9/11 en de tsunami van 2004.

En ja hoor, de verklaring is als volgt: de aarde/de wereldbevolking is n groot bewust wezen dat in de toekomst kan kijken en met behulp van telekinese de datavorming van de Zwarte Doos (het zijn er meer en ze worden ook wel 'eieren' genoemd) benvloedt.

[image]

De Nostradamus van de 21e eeuw

Bij het project zijn wetenschappers van over de hele wereld betrokken, waaronder ook professor Dick Bierman, hoogleraar Parapsychologie aan de universiteit van Amsterdam. (Daar betalen wij belasting voor). De man is trouwens geen onbekende bij Skepsis.

Zo'n random-generator zou toch gemakkelijk te maken moeten zijn (in een of andere scripttaal op het web ofzo)? Het moet toch een koud kunstje zijn om deze lulkoek te ontkrachten?

(Via een artikel van Red Nova)

[Update] Voorspel hel en verdoemenis met deze TI-Basic-calculator van D. of deze Zwarte Bos-Doos van ondergetekende.

There are 16 comments to this post (the latest by Boramor on 2005/5/3, 18.55 h).

1. Boramor commented on 2005/5/3, 11.34 h:

Uhm, is dat niet gewoon net als op mijn Ti83+ die random dobbelstenen gooit?

Woohoo! Ik bezit de aarde!

2. Dave commented on 2005/5/3, 13.00 h:

Random neem je vaak niet waar als willekeurig. Dat is wel een beetje een probleem. Een paar voorbeelden uit de praktijk:

Het eerste potje tetris dat je speelt is altijd hetzelfde. Dat komt doordat Tetris de decimalen van Pi afloopt, en altijd bij de eerste decimaal begint. De NRC had ooit een wedstrijd om muziek te maken op basis van Pi. Wat een onzin. Ga tetris spelen. Daar leer je Pi van kennen. De eerste keer dat je af gaat is het eerste echte random nummer. Zo'n nummer heet een seed, een zaadje.

Het probleem van Pi is dat het bijna-patronen bevat. Dat betekent dat het niet zo heel geschikt is als random-generator voor bijvoorbeeld test-ruis voor audio-analyse, of statistische analyse. Het zelfde geldt waarschijnlijk voor getallen als e.

Je kunt ook random generators maken, bijvoorbeeld op basis van Frequentie Modulatie. Maar het probleem daarvan is, dat deze generators vroeger of later in herhaling vallen. Dat is bijvoorbeeld aan de hand met sufflemodes in cd-spelers. Die patronen leer je kennen.

Nu we het toch over 'leren kennen' hebben: Het menselijk brein is best gevoelig voor het karakter van random-generatoren. Onlangs is de random-generator in de iPod ge-update. Die sprong eerst volkomen willekeurig door je playlist, maar nu niet meer. Hij blijft nu een beetje in de buurt springen, en maakt maar af en toe een grote sprong. Dat is een veel prettiger algoritme.

Het menselijk brein is bedraad om patronen waar te nemen. Het probleem is dat wanneer je weinig data hebt, zeg 1 tsunami, 1 dikke aanslag, en 1 random number feed, je al snel patronen gaat zien. Dat is immers hoe je brein tegen je bewustzijn praat. Dat zie je vaak bij het dobbelen. De dobbelsteen gaat rond door de groep, en 1 persoon gooit een aantal beurten achter elkaar hoge ogen. Je ziet een patroon. Maar dat patroon lijkt er alleen maar te zijn omdat je je waarneming slechts over iets van 20 beurten baseert.

Voor de perceptie vaan willekeurigheid doet het aantal meetgegevens er enorm toe. Je "windowsize" is bepalend! Dus er is 1 manier om de voorspellende waarde van hun generator te testen: Laat ze komen met een lijst van 100 opeenvolgende voorbeelden van een piek die gevolgd werd door een ramp.

3. Arduenn commented on 2005/5/3, 13.10 h:

Laat ze komen met een lijst van 100 opeenvolgende voorbeelden van een piek die gevolgd werd door een ramp.

Bedoel je "laat ze komen met een lijst van 100 opeenvolgende rampen en laat daar de piek van zien"?

Dat doen ze vast niet. Want dan blijkt er geen reet meer van te kloppen.

4. WarLord commented on 2005/5/3, 13.19 h:

De dood van Diana is toch geen grote gebeurtenis...als dat uit de black box komt dan blijkt al dat het onzin is of in elk geval subjectief naar een beperkt deel van de westerse wereld toe.

(Of is Andr Hazes ook voorspeld?)

@Dave

Goede uitleg btw.

5. dxtr commented on 2005/5/3, 14.00 h:

Ik dacht precies hetzelfde Boramor.

Lbl 1
randInt(1,1000)->A
Disp A
Goto 1

Geniaal zeg ik je!

6. Boramor commented on 2005/5/3, 15.38 h:

Verdomd ja.

En voor de schoonheid:

Lbl 1

randInt(1,X)->A

Disp "Random number:",A

Pause

Goto 1

7. Sheriff Schurger commented on 2005/5/3, 15.58 h:

Of zo:

Lbl 1

randInt(1,Je Moeder)->A

Disp "Random number:",A

Goto 1

8. Boramor commented on 2005/5/3, 16.44 h:

Wat is een getal tussen 1 en 'Je Moeder'?

Mijn Ti83+ Erreurt.

9. dxtr commented on 2005/5/3, 17.01 h:

Deze doet het wel:

v2.0 Final

Prompt X

Lbl 1

randInt(1,X)->A

Disp A

randInt(1,X)->B

Disp B

A-B->C

If C<(-0.8*X)

Then

Goto 2

Else

Goto 1

Lbl 2

Disp "HET EINDE VAN"

Disp "DE WERELD"

10. dxtr commented on 2005/5/3, 17.11 h:

C<-800 (bijvoorbeeld geeft natuurlijk aan dat er een piek is tussen A en B. Wat je ook nog zou kunnen doen is er een teller inprogrammeren met:

V=1

[...]

Lbl2

V+1->V

If V=10

Then

[...]

11. Arduenn commented on 2005/5/3, 17.13 h:

Wat is dat voor spaghetti-taal?!? Het lijkt wel BASIC.

12. Arduenn commented on 2005/5/3, 17.17 h:

<?

if (!$samples) $samples = 40;

$df = $samples-1;

$expected = $samples/2;

$query = "disaster";

for ($n=0; $n<$samples; $n++) {

$coin = mt_rand(0,1);

if($coin==1) $observed++;}

$chi = ($observed-$expected)*($observed-$expected)/$expected;

$p = p_chi($chi,$df);

$paranormal = number_format((1-$p)*100,40);

$news = file_get_contents("http://news.search.yahoo.com/news/search?p=$query");

preg_match ("/of about <strong>(.*?)<\/strong>/",$news,$count);

echo "Coin flips = $samples\n";

echo "Expected heads: $expected\n";

echo "Observed heads: $observed\n";

echo "Chi-squared: $chi\n";

echo "Degrees of freedom: $df\n";

echo "p-value: $p\n";

echo "The chance that de difference between the amount of observed and expected heads is caused by a paranormal event is smaller than $paranormal percent.\n";

echo "The number of news items containing the word '$query' found at news.yahoo.com: $count[1].\n";

function norm_p($z) {

$z = abs($z);

$a1 = 0.0000053830;

$a2 = 0.0000488906;

$a3 = 0.0000380036;

$a4 = 0.0032776263;

$a5 = 0.0211410061;

$a6 = 0.0498673470;

$p = ((((($a1*$z+$a2)*$z+$a3)*$z+$a4)*$z+$a5)*$z+$a6)*$z+1;

$p = pow($p,-16);

return($p);}

function gfn($t) {

if (abs(1-$t)<=0.1) {

$g=0;

for($j=1;$j<=5;$j++) {

$g += 2*pow(1-$t,$j)/(($j+1)*($j+2));}}

else {

$g = (1-$t*$t+2*$t*log($t))/((1-$t)*(1-$t));}

return($g);}

function p_chi($chi,$df) {

if ($chi<=0) {

$p = 1;}

else {

$d = $chi-$df+2/3-0.08/$df;

$g = gfn(($df-1)/$chi);

$z = $d*sqrt((1+$g)/(2*$chi));

$p = norm_p($z)/2;

if ($z<0) $p = 1-$p;}

return($p);}

?>

13. dxtr commented on 2005/5/3, 17.37 h:

Klopt, Arduenn. Het is een speciale variant van Basic: TI-Basic (van Texas Instruments). Ik vind het wel een fijne programmeertaal, alleen je kunt er niet zo heel veel mee.

14. D. commented on 2005/5/3, 17.51 h:

Als je er eens mee wilt spelen, hier staat een emulator;

http://jcpti89.free.fr/emu.php

(Wel even een echte lenen om de rom code uit te lezen.)

15. Arduenn commented on 2005/5/3, 17.59 h:

Spelen jullie intussen hier eens mee.

16. Boramor commented on 2005/5/3, 18.55 h:

Hoho, je kan met TI-basic heel wat handige dingen.

Ik noem maar iets: spiekbriefjes, vergelijkingen oplossing in 1 seconde, etc.

Add new comment:

Name:

Site:

The Black Forest navigation bar

|< : << : : >> : >|