Mike58
Advanced Member >PLATINUM PLUS<
Zetrix , quando parlavo di legge del Kaos , sembravano parole ma poi come vedi d uno script si passa ad altra tipologia.
Ad ogni modo sono riuscito a simulare i tuoi dati.
script
tua immagine
mia simulazione
Ad ogni modo sono riuscito a simulare i tuoi dati.
script
Codice:
Sub Main
Dim Nu(3),dist(3),Fig(3),T
Ini = EstrazioneFin - 2
fin = EstrazioneFin
For es = Ini To fin
T = Array(T,"Data Es","Ruota","Numeri","Distanze","Somma Dist","2 Uguali figure")
Call InitTabella(T,,,,,"Arial Black")
For r = 1 To 10
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
aa = Distanza(a,b)
bb = Distanza(a,c)
cc = Distanza(b,c)
sm = Fuori90(aa + bb + cc)
If Figura(aa) = Figura(bb) Or Figura(aa) = Figura(cc) Or Figura(bb) = Figura(cc) Then
Nu(1) = a : Nu(2) = b : Nu(3) = c
dist(1) = aa : dist(2) = bb : dist(3) = cc
Fig(1) = Figura(aa) : Fig(2) = Figura(bb) : Fig(3) = Figura(cc)
T = Array(T,es & " - " & DataEstrazione(es),SiglaRuota(r),StringaNumeri(Nu),StringaNumeri(dist),sm,StringaNumeri(Fig))
Call AddRigaTabella(T)
End If
Next
Next
Next
Next
CreaTabella
Next
End Sub
mia simulazione