Tammo 80

Naar aanleiding van mijn voetbalplaatjesavontuur werd ik onlangs gebeld door iemand van het tv-programma Kassa. Zij wilden, in het kader van het komende WK, de verzamelacties van alle supermarkten met elkaar vergelijken. En of ik dan kon uitrekenen hoe lang het duurde voordat je alle ‘gadgets’ compleet had.
Helaas, helaas, was ik vorige week op vakantie, dus heeft Vincent het voor Kassa doorgerekend, aangevuld met wat simulaties die ik onderweg heb gedaan. We werden in de uitzending maar kort genoemd (van 23:30 tot 24:42 in het filmpje), maar op de site staat al een uitgebreider verhaal, inclusief het document waarin Vincent de resultaten toelicht.

Vanmiddag is het zover: na tien jaar aan de Universiteit Utrecht rond ik mijn promotie af met de verdediging van mijn proefschrift. De verdediging is openbaar, dus wie zin heeft kan om 14:30 in het Academiegebouw van de Universiteit Utrecht langskomen.

Dit is ‘m dan. Zo’n twee uur na ontvangst hadden m’n moeder en Peter de code in de stellingen al gekraakt, als eerste. De code luidde:

13-1 91-2 23-5 105-20 101-7 100-3 110-4 35-7 54-2 34-3 38-4 116-2 30-4 30-1 26-2 116-10 107-1 105-60 117-4 96-5 73-11 132-5 110-2 94-1 95-7 31-8 51-8 35-62 56-6 68-10 54-4 30-10 13-2 75-2 51-3 69-29 48-7 8-2 132-11 45-1 34-8 8-1 70-2 13-1 108-7 67-2 50-2 18-1 66-19 56-28 58-12 19-6 68-1 67-5

(En ze kwamen er ook achter dat hier een paar typefoutjes in staan…)

Naar aanleiding van het bericht in het AD gisteren, was ik vanochtend te horen in een heus interview met Radio Rijnmond.

Naar aanleiding van mijn artikel in De Pers werd ik dinsdag gebeld door een meneer van het Ublad (de Utrechtse universiteitskrant). Of ik het nog iets uitgebreider kon vertellen. Nou, jawel hoor. Ziehier het resultaat.

De reporter wilde erg graag weten wat mijn voetbalclub was, dus ik heb maar gezegd dat dat VIOS is. Daar heb ik zelfs nog gevoetbald, ik heb het tot de D’s geschopt. Toen ben ik gestopt, omdat ik altijd madeliefjes zat te plukken op het veld.

Update: Het AD heeft het bericht van het U-blad overgenomen.

Een tijdje geleden heb ik, naar aanleiding van een vraag van Brenda, eens uitgezocht hoe het zit met de voetbalplaatjes van Albert Heijn. Haar vraag was als volgt:

Moi jong! Teun vraagt zich af hoeveel AH-voetbalplaatjes je moet sparen om de 270 plaatjes compleet te krijgen (5 plaatjes per zakje, uitgaande van een gelijke verdeling van plaatjes). Heb jij enig idee? Hij denkt zelf 1,5 x zoveel, ik vermoed meer. x Brenda

Ik heb het meteen even uitgezocht. Eerst heb ik het op een kladblaadje geprobeerd, toen heb ik toch maar even een simulatieprogrammaatje gemaakt, dat virtueel een miljoen albums volspaart. Al snel leverde dat het antwoord: je moet gemiddeld 1668 plaatjes sparen voor een vol album. De volgende dag wist Jeroen dit alsnog op een kladblaadje uit te rekenen. Hij redeneert als volgt.

Als je al k verschillende plaatjes hebt, is de kans dat je een nieuw kaartje krijgt 270 – k / 270 (er zijn immers 270 – k plaatjes waarin je geïnteresseerd bent, en 270 totaal). Het verwachte aantal kaartjes dat je moet pakken voordat je een nieuw kaartje pakt is 270 / 270 – k. Dus als je nog maar k=0 kaartjes hebt, is het verwachte aantal kaartjes dat je moet sparen voor je een nieuw kaartje krijgt precies 270 / 270 – 0 = 1. Dûh. Maar als je al k=269 kaartjes hebt moet je dus gemiddeld 270 / 270 – 269 = 270 kaartjes pakken voordat je je laatste kaartje pakt. Het verwachte totale aantal kaartjes dat je moet pakken is nu:

Dat komt dus overeen met wat de simulatie opleverde. Maar omdat ik het simulatieprogrammaatje toch had liggen, heb ik het gebruikt voor een iets moeilijker scenario. De klantenservice van de Albert Heijn wist me namelijk te melden dat in elk zakje vijf verschillende plaatjes zitten. Dat is natuurlijk voordelig voor de spaarders. Maar het helpt niet veel: volgens de simulatie moet je nu gemiddeld nog steeds 1655 kaartjes sparen voor een vol album.

Vincent vroeg zich af of het veel zou helpen om samen te werken: hoeveel kaartjes moeten twee mensen sparen om twee albums vol te krijgen? Of hoeveel kaartjes moet een klas van 20 kinderen sparen om 20 albums vol te krijgen? Dat staat in het plaatje hieronder.

Na hier een paar uur werk in gestoken te hebben dacht ik dat ik dit resultaat ook wel met anderen kon delen. De persvoorlichter van de universiteit was meteen enthousiast, en wist het geplaatst te krijgen in De Pers van vanochtend:

Update: Nu ook op pauze.nl en zelfs op Kidsweek. Naar aanleiding daarvan ook in Elsevier Retail (“Dat heeft Dijkema uitgerekend in opdracht van Kidsweek”), en naar aanleiding daarvan op zibb.nl, b2bcontact.nl.

Ik gebruik voor m’n proefschrift het pakket MathPSfrag om wiskundige labels aan figuren toe te voegen (dit is een Mathematica-variant op PSfrag). In versie 7 van Mathematica werkte dit pakket plotseling niet meer, doordat er een nieuw object Image was geïntroduceerd. Dit heb ik opgelost met het volgende stukje code. Misschien heeft iemand er iets aan.

BoundingBoxFromRaster[gr_Image, extramargin_Integer] :=
  Module[
    {bgcolor = ImageData[gr][[1, 1]],
    wholedim = Reverse[ImageDimensions[gr]]},
      {{countlines[Transpose[ImageData[gr]], bgcolor],
      countlines[Reverse[ImageData[gr]], bgcolor]} – extramargin,
      {wholedim[[2]] –
      countlines[Reverse[Transpose[ImageData[gr]]], bgcolor],
      wholedim[[1]] – countlines[ImageData[gr], bgcolor]} + extramargin
    }
  ]

Een leuk filmpje van de Wiskundemeisjes, dat ook nog eens een vrij goed beeld geeft van mijn werk.

Wiskundige zoekt vrouw van Ionica Smeets op Vimeo.

Zo actief als vorige week zaterdag was, zo passief was afgelopen zaterdag. Ik heb eerst eens lekker uitgeslapen en snel ontbeten. Daarna heb ik heerlijk Marokkaans gegeten bij Taoufik, samen met een stel collegae. Taoufik had heerlijk gekookt, iets met kippenpootjes, iets met gehaktballetjes, en een salade met koriander. En daarna lekkere Hollands chocolade-ijs. Dit alles, in combinatie met een lekker biertje, zorgde ervoor dat ik de rest van de dag lekker thuis op de bank heb zitten uitbuiken. Heerlijk.

Jawel, m’n weblog wordt met de dag saaier. Hierbij een stuk code, gebaseerd op dit bericht in een nieuwsgroep. Het geeft een idee wat wij LaTeX–gebruikers moeten doorstaan om bepaalde dingen voor elkaar te krijgen.

Laat ik even zeggen wat ik wilde. Met het pakket hyperref worden verwijzingen aanklikbaar. Nadeel hiervan is dat in de verwijzing hoofdstuk 1 alleen de 1 aanklikbaar wordt. Voor minder geoefende muizers is dit een wat klein klikdoel. Mooier zou het zijn als heel de tekst hoofdstuk 1 een link was. Dat kan met het commando autoref, dat al zit ingebakken in hyperref. Nu moet alleen hyperref zelf het woord figuur bedenken. Dit is weliswaar in te stellen, maar het moet in alle gevallen gelijk zijn. Dat is een nadeel, want soms (aan het begin van een zin) wil je Figuur in plaats van figuur. Hiervoor zou een commando Autoref wel handig zijn.

Na een uur prutsen werkt dat nu, en misschien kan ik iemand anders dat uur besparen. Hierbij de volledige ellende (met veel dank aan Arthur):

\usepackage{textcase}
\newcommand{\titlecase}[1]{\expandafter\MakeTextUppercase#1}
\makeatletter
\DeclareRobustCommand*{\Autoref}{%
\@ifstar{\HyRef@Autoref\@gobbletwo}{\HyRef@Autoref\hyper@@link}%
}
\def\HyRef@Autoref#1#2{%
\begingroup
\Hy@safe@activestrue
\expandafter\HyRef@Autosetref\csname r@#2\endcsname{#2}{#1}%
\endgroup
}
\def\HyRef@Autosetref#1#2#3{% link command, csname, refname
\HyRef@ShowKeysRef{#2}%
\ifcase 0\ifx#1\relax 1\fi\ifx#1\Hy@varioref@undefined 1\fi\relax
\edef\HyRef@thisref{\expandafter\@fourthoffive#1\@empty\@empty\@empty}%
\expandafter\HyRef@testreftype\HyRef@thisref.\\%
\Hy@safe@activesfalse
#3{%
\expandafter\@fifthoffive#1\@empty\@empty\@empty
}{%
\expandafter\@fourthoffive#1\@empty\@empty\@empty
}{%
\expandafter\expandafter%
\expandafter\titlecase\expandafter%
\expandafter%
\HyRef@currentHtag\expandafter\@firstoffive#1\@empty\@empty\@empty\null%
% \HyRef@currentHtag
% \expandafter\@firstoffive#1\@empty\@empty\@empty
% \null
}%
\else
\protect\G@refundefinedtrue
\nfss@text{\reset@font\bfseries ??}%
\@latex@warning{%
Reference `#2' on page \thepage\space undefined%
}%
\fi
}
\makeatother