MARIANO TOMATIS

WONDER INJECTOR

Scrittore e illusionista
Mariano illumina le
meraviglie sul confine
tra Scienza e Mistero.

In libreria e in ebook

E-MAIL

mariano.tomatis@gmail.com

TWITTER

@marianotomatis

RSS

blog_of_wonders

ARCHIVIO

 2014 (82)

 2013 (89)

 2012 (55)

 2011 (59)

 2010 (58)

VEDI TUTTI I 343 POST

Il messaggio nascosto sul gettone dello Stupid Fun Club

Pubblicato giovedě 10 maggio 2012 • Scritto da Mariano Tomatis • Permalink

Il 9 maggio 2012 Mark Frauenfelder pubblica su BoingBoing la fotografia di uno strano gettone. (1) L’ha ricevuto in dono a Berkeley, durante una visita allo Stupid Fun Club. Supponendo che nasconda qualcosa, in margine all’immagine Mark si chiede:

Qual è il messaggio segreto?

Reduce dallo studio delle ruote di Lullo, usate per compilare un libro magico del Cinquecento, formulo l’ipotesi che le varie “tacche” sulle sette ruote concentriche del gettone si trovino in corrispondenza di angoli notevoli — ognuno collegato a una lettera dell’alfabeto.

A partire dall’immagine, registro le coordinate di ciascuna tacca, per realizzare una versione elettronica del gettone in ambiente R.

library(plotrix)
distance<-function(x1,y1,x2,y2)  (2)

#Coordinate delle tacche sul JPG
x<-c(103,31,115,75,40,101,70,75)
y<-c(22,105,49,34,79,85,96,90)
#Inversione dell’asse Y per il grafico
y<-150-y
#Disegno dei punti in corrispondenza delle tacche
plot(x,y,xlim=c(0,150),ylim=c(0,150), asp = 1)
#Disegno dei cerchi concentrici e dei segmenti
for(i in 1:8)
 (3)

Aggiungendo le lettere dalla A alla Z intorno al cerchio più esterno si può individuare la corrispondenza tra gli otto segmenti e le relative lettere.

#Aggiunta delle lettere
for(i in 1:length(alpha))
text(75+70*cos((pi*2)*((33.5-i)/26)),
75+70*sin((pi*2)*((33.5-i)/26)),
LETTERS[i])
 

Scarica da qui lo script di R per produrre questa immagine.

Lette nell’ordine, dal segmento corrispondente al cerchio più esterno a quello più interno, le lettere formano la parola CREATION (4).

Scarica da qui lo script di R per produrre questa immagine.

Quando ritorno su BoingBoing scopro che Dan ci è arrivato prima di me. Onore a lui!

_________________

(1) Un ringraziamento a Ferdinando Buscema per avermelo segnalato.

(2) sqrt((x2-x1)^2+(y2-y1)^2)

(3)
draw.circle(75,75,distance(75,75,x[i],y[i]),border=“lightgray”)
segments(75,75,x[i],y[i])

(4) Scarica da qui lo script di R per ottenere la parola CREATION a partire dalle coordinate.

Potrebbero interessarti anche:

Abbiamo una responsabilità verso la meraviglia

Siamo tutti Peter Kolosimo

Il principio di Kruskal o come trovare “Dio” con la matematica

Un pensiero sulla felicità di Raymond Smullyan