| Ricevo una email da Scaravetti e la posto per condivisione.
mas
LA MATRICE 6 X 15 X (di Adriano Scaravetti)
(titolo dato da mas)
Caro XXX (mas),
ti sei proprio interessato a quanto ti ho scritto e mi fa piacere; l'arte di tener vivo un interesse si e' persa.
Ti avevo promesso ed ora mantengo.
Ecco lo script per Analizzare le Distanze a Ruota:
Scrivi "Analisi Distanze",1
Scrivi "============================ by ScaraLab"
Scrivi
Sub main()
Dim dist(45,2),ru(1),n(2),nn(1)
ini = EstrazioneFin - 0
fin = EstrazioneFin - 0
r=1 'ruota di analisi
cl=9 'ciclo di analisi
For est=ini To fin
AvanzamentoElab ini, fin, est
ru(1)=r : Erase dist
For es=est-(cl-1) To est
For p1=1 To 4
n1=Estratto(es,r,p1)
For p2=p1+1 To 5
n2=Estratto(es,r,p2)
d=Distanza(n1,n2)
dist(d,1)=d : dist(d,2)=dist(d,2)+1
Next
Next
Next
Scrivi "["+Format2(est)&"] "&DataEstrazione(est)&_
" Ruota di "&NomeRuota(r)&" Elenco Distanze dal "&_
DataEstrazione(est-(cl-1))&" al "&dataestrazione(est)&_
" Tot. "&cl&" estrazioni"
OrdinaMatrice dist,-1,2
Scrivi : som=0
For h=1 To 45
If dist(h,2)>0 Then Scrivi Format2(h)&" - La Distanza "&_
formatspace(dist(h,1),3,True)& " sortita "&_
formatSpace(dist(h,2),3,True)&" volte in "&_
Formatspace(cl,3,True)&" estrazioni"
som=som+dist(h,2)
Next
Scrivi " Totale Presenze "&formatSpace(som,5,true)&_
" Media: "&formatspace(Round(som/45,2),5,True)
Scrivi
ColoreTesto 0
Scrivi String(89,"*")
Next
End Sub
Questo script va utilizzato per studi molto piu' approfonditi sia statistici che della Teoria dei Quadrati.
Fanne un buon utilizzo.
Scaravetti Adriano, Italia 26 Aprile 2015
|
