Gruppo di studio e documentazione
Archivio storico in sola lettura dei 18.154 messaggi scambiati dal 17 giugno 2004 al 1° ottobre 2007.
Una testimonianza unica di tre anni di ricerche e confronti intorno al mistero di Rennes-le-Château,
conservata per documentare una stagione irripetibile della sua storia. |
|
 Search |
| View previous topic :: View next topic |
| Author |
Message |
Mariano Tomatis
Joined: 17 Jun 2004
Posts: 2475
Location: Torino
|
 Posted: 27 February 2005, 8:14 pm Post subject: Allineamenti |
|
|
Per chi fosse interessato all'argomento, ho rifatto i calcoli proposti da Putnam & Wood a p.272-273 del loro Il tesoro scomparso di Rennes-le-Château, Newton & Compton Editori, 2004.
Utilizzando gli stessi loro parametri, ma iterando 5000 volte (invece che 5 volte), ho ottenuto questa lista, più precisa:
2 - 4053
3 - 792
4 - 95
5 - 9
6 - 1
7 - 0
8 - 0
9 - 0
La maggior precisione si riflette nel fatto che la somma dei numeri su proposti è pari a 4950, senza il piccolo errore di Putnam&Wood (che avevano ottenuto 4951).
_________________
Mariano Tomatis Antoniono |
|
| Back to top |
|
 |
Mariano Tomatis
Joined: 17 Jun 2004
Posts: 2475
Location: Torino
|
| Posted: 27 February 2005, 8:20 pm Post subject: |
|
|
"E gli mostrava il programma, quello sì, cabalistico..."
Umberto Eco, Il Pendolo di Foucault, cap.5
| Code: | #include <math.h>
#include <stdlib.h>
#define E 10
#define N_PUNTI 100
#define WIDTH 5000
#define HEIGHT 5000
#define ITERAZIONI 5000
double d(int ax, int ay, int bx, int by)
{
return sqrt((ax-bx)*(ax-bx) + (ay-by)*(ay-by));
};
long int cc(int a, int b)
{
long int c,t1 = 1,t2 = 1;
for(c=0;c<b;c++)
{
t1 = t1*(a-c);
t2 = t2*(b-c);
}
return t1/t2;
}
int main(int argc, char *argv[])
{
struct punto
{
int x;
int y;
} p[100];
int c,i,j,coincide;
float v[8];
float vv[8];
int contatore;
float pp,pq;
srandom(time(NULL));
for(c=0;c<8;c++) vv[c]=0;
for(contatore=0;contatore<ITERAZIONI;contatore++)
{
for(c=0;c<8;c++) v[c]=0;
for(c=0;c<N_PUNTI;c++)
{
do {
coincide=0;
p[c].x=random()%WIDTH;
p[c].y=random()%HEIGHT;
if(c>0) {
for(i=0;i<c;i++) {
if(d(p[i].x,p[i].y,p[c].x,p[c].y)<(2*E)) {
coincide=-1;
}}}
} while(coincide);
}
for(i=0;i<N_PUNTI;i++)
{
for(j=i+1;j<N_PUNTI;j++)
{
pp=2*d(p[i].x,p[i].y,p[j].x,p[j].y)*E/(WIDTH*HEIGHT);
pq=1-pp;
for(c=0;c<8;c++)
{
v[c]+=cc(N_PUNTI-2,c)*pow(pp,c)*pow(pq,N_PUNTI-2-c);
}
}
}
for(c=0;c<8;c++)
{
vv[c]+=v[c];
}
}
for(c=0;c<8;c++)
{
printf("\n%d punti: %-10.0f", c+2, vv[c]/ITERAZIONI);
}
return 0;
}; |
_________________
Mariano Tomatis Antoniono |
|
| Back to top |
|
|
Bandit
Joined: 30 Mar 2005
Posts: 9
|
| Posted: 31 March 2005, 3:48 pm Post subject: |
|
|
cosa è? a cosa serve questo programma?
e poi è stato fatto con il DEV c++?
ciao |
|
| Back to top |
|
|
Mariano Tomatis
Joined: 17 Jun 2004
Posts: 2475
Location: Torino
|
| Posted: 31 March 2005, 4:02 pm Post subject: |
|
|
L'ho scritto in Notepad, può essere compilato con un qualsiasi compilatore C. Calcola gli allineamenti attesi in un paesaggio secondo il metodo descritto nel loro libro da Putnam & Wood, il cui riferimento è nel post precedente.
_________________
Mariano Tomatis Antoniono |
|
| Back to top |
|
|
Bandit
Joined: 30 Mar 2005
Posts: 9
|
| Posted: 31 March 2005, 4:05 pm Post subject: |
|
|
| scusami ma, quale paesaggio? |
|
| Back to top |
|
|
Mariano Tomatis
Joined: 17 Jun 2004
Posts: 2475
Location: Torino
|
| Posted: 31 March 2005, 4:19 pm Post subject: |
|
|
Ciao,
senza il riferimento bibliografico è difficile spiegare l'algoritmo. Se avessi il libro, lì è tutto ben spiegato.
Si tratta di contare, presa una mappa casuale, quanti allineamenti si ottengono statisticamente tra N punti disposti a caso su di essa. Confrontando il paesaggio di Rennes (o qualsiasi altro) con i risultati ottenuti, si può determinare se tali allineamenti sono statisticamente significativi o meno.
Il risultato degli autori è che no, non sono significativi.
_________________
Mariano Tomatis Antoniono |
|
| Back to top |
|
|
|
Powered by phpBB © 2001, 2005 phpBB Group
|
