Novità

xMike58.....script sulle dist. in figura..

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
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
tua immagine

mia simulazione
 
ok MIKE, non so se ai osservato con le dist in figura 1 4 7 e le dist in figura 2 5 8 non rileva nessuna
condizione ma soltanto con le dist in figura 3 6 9...dopo vedo il tuo script con la tabella..
e se si puo migliorare la tabella..poi bisogna vedere anche le somme delle dist
queste sono anch'esse importanti e poi si dovrà studiare come completare la figura..


Codice: 
Sub Main
   Dim Nu(3),Ru(1),Dist(3),Fig(3),somma
   '
   '
   'r = ScegliRuota
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      For r = 1 To 12
         If r = 11 Then r = 12
         '
         For p1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  '
                  For k = 3 To 45 Step 3 ' seleziona le dist in figura
                     '
                     '
                     a = Estratto(es,r,p1)
                     b = Estratto(es,r,p2)
                     c = Estratto(es,r,p3)
                     '
                     d = Distanza(a,b)
                     e = Distanza(b,c)
                     f = Distanza(a,c)
                     '
                     somma =(d + e + f)
                     '
                     Nu(1) = a
                     Nu(2) = b
                     Nu(3) = c
                     '-----------------
                     Ru(1) = r
                     '-----------------
                     Dist(1) = d
                     Dist(2) = e
                     Dist(3) = f
                     '
                     '
                     Fig(1) = Figura(d)
                     Fig(2) = Figura(e)
                     Fig(3) = Figura(f)
                     '
                     'If Fig(1) = Fig(2) And Fig(1) = Fig(3) Then
                     '
                     If Fig(1) = k And Fig(2) = k And Fig(3) = k Then
                     '
                     '
                     'If Fig(1) = k And Fig(2) = k Or Fig(1) = k And Fig(3) = k _
                        'Or Fig(2) = k And Fig(3) = k Then
                        '
                        '
                        ReDim MatriceCaselleDaEvid(5,1)
                        '
                        MatriceCaselleDaEvid(1,0) = r
                        MatriceCaselleDaEvid(1,1) = p1
                        '
                        MatriceCaselleDaEvid(2,0) = r
                        MatriceCaselleDaEvid(2,1) = p2
                        '
                        MatriceCaselleDaEvid(3,0) = r
                        MatriceCaselleDaEvid(3,1) = p3
                        '
                        '
                        'Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                        '
                        '-----------------
                        Call OrdinaMatrice(Nu,1,1)
                        '-------------------------------------------------------------------------------
                        '
                        '
                        '---------------------------------------------------------------------------
                        'Call DisegnaCerchioCiclometrico(Nu,True,,,,True,True)
                        '
                        Scrivi DataEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & StringaNumeri(Nu,,1) & " = somma " & somma & vbTab & " dist " & StringaNumeri(Dist) & vbTab & " figura " & StringaNumeri(Fig) & " ",0,1,1,5
                        Scrivi
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub
 
Ultima modifica:
Codice: 
Sub Main
   Dim Nu(3),dist(3),Fig(3),T,somma
   Ini = EstrazioneFin - 0
   fin = EstrazioneFin
   For es = Ini To fin
      T = Array(T,"data est.","ruota","numeri","distanze","somma dist."," figure dist.")
      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)
                  d = Distanza(a,b)
                  e = Distanza(a,c)
                  f = Distanza(b,c)
                  somma = Fuori90(d + e + f)
                  '
                  'If Figura(d) = Figura(e) Or Figura(d) = Figura(f) Or Figura(e) = Figura(f) Then
                  '
                  If somma = 1 <> 90 Then
                     '
                     Nu(1) = a : Nu(2) = b : Nu(3) = c
                     dist(1) = d : dist(2) = e : dist(3) = f
                     Fig(1) = Figura(d) : Fig(2) = Figura(e) : Fig(3) = Figura(f)
                     T = Array(T,es & " - " & DataEstrazione(es),SiglaRuota(r),StringaNumeri(Nu),StringaNumeri(dist),somma,StringaNumeri(Fig))
                     Call AddRigaTabella(T)
                  End If
                  If somma = 90 Then Call SetColoreCella((5),RGB(255,51,171),5)
               Next
            Next
         Next
      Next
      CreaTabella
   Next
End Sub

MIKE ho sistemato meglio la tabella ho messo evidenziare la somma ..
per adesso la tabella cosi va bene..
 
Sull' Utilizzo che ne devi fare poi vedi tu, in pratica hai fatto tutti i numeri sviluppati in 10 terzine con relativi distanze.
Penso per vedere le varie distanze, ma poi hai tralasciato la condizione principale dell2 2 figure-distanza uguali.
Va bene cosi, sono tue scelte e vedute.
Solo non capisco cosa fa e cosa dovrebbe fare (perchè non filtra nulla) questa riga di codice.

If somma = 1 <> 90 Then
Nu(1) = a : Nu(2) = b : Nu(3) = c
dist(1) = d : dist(2) = e : dist(3) = f
Fig(1) = Figura(d) : Fig(2) = Figura(e) : Fig(3) = Figura(f)
T = Array(T,es & " - " & DataEstrazione(es),SiglaRuota(r),StringaNumeri(Nu),StringaNumeri(dist),somma,StringaNumeri(Fig))
Call AddRigaTabella(T)
End If
 
Mike spiegare queste cose sulle dist in figure non e semplice
ad ogni modo ti farò vedere un esempio di calcolo..

6501.PNG

vedi sulla ruota di CA abbiamo tre dist 43.33.10 la somma delle dist e 86 e le figure delle dist 7.6.1
adesso fai 6+1=7 se le due figure danno la figura 7 allora deve dare anche la figura 5 (6-1=5)
quindi il numero che completerà la figura deve creare una dist di figura 5
il calcolo e facile almeno per me ma per gli altri forse e piu difficile..
lo stesso calcolo adesso lo faremo sulle dist..
10+33=43
43+43=86 (somma di tutte le dist della figura)
allora il numero che completa la figura e
10+43=53
ambata 10+10=20
adesso se inseriamo il 20 nella figura crea la dist di figura 5 che avevamo detto..
20-43 dist 23 --->fig5
questo e un modo per calcolare le ambate ma ci sono altre diverse teorie di calcolo..
 
Ultima modifica:
Ciao Zetrix, ho capito poi l'utilizzo dal mio punto di vista è sempre Kaos.
Invece io ti dicevo che la condizione If somma = 1 <> 90 Then segnalata non da risultati e quindi rivedila per i tuoi scopi
 
Ciao Mike,
la condizione If somma = 1 <> 90 Then la scrivo quasi su tutti gli script e una riga di base
poi in base ai miei studi scrivo la somma o dist che mi serve per calcolare una
condizione di gioco
comunque tornando alle figure delle dist per fare una selezione di base
si possono scegliere quelle dist che abbiano tutte la stessa figura
oppure le dist che sono tutte pari oppure tutte le dist che siano tutte dispari..
 
Mike se consideriamo una condizione avende le dist con la stessa figura
a genova e l'unica condizione che rileva questa condizione

08.07.2023 GE 01.19.64 = somma 90 dist 45.18.27 figura 9.9.9

19+64=83-45=38-1=37 (ambata)

Estrazione del 08.07.2023
Genova 35 64 19 36 01

l'ambata 37 si gioca per estratto determinato nelle caselle libere
dove non sono occupati i numeri di calcolo
ovvero la 1° e 4°

GE 37 AMBATA in 1 e 4° POS

SE noti su GE sono usciti il 35 36 ---->35+1=36+1=37
 
Ultima modifica:
Si Zetrix, dal tuo punto di vista e osservazione delle estrazioni, hai le tue ragioni nel fare queste analisi.
Cosa posso dirti , io intervengo dal punto di vista script funzionante e che raggiunga un obiettivo, poi è anche risaputo che le mie osservazioni lottologiche sono principalmente di natura statistica, come dal mio logo si può immaginare.

Ciao e buona osservazione.
 
si Mike ho visto che quasi tutti gli script che ai fatto hanno le basi di statistica dei rit
a differenza di te la statistica dei rit per me e relativa..e tanto meno i rit. storici che non servono a niente..


Codice: 
------------------------------
 dist. in figura 1-4-7
------------------------------
1  dist. in figura 1
4  dist. in figura 4
7  dist. in figura 7
10  dist. in figura 1
13  dist. in figura 4
16  dist. in figura 7
19  dist. in figura 1
22  dist. in figura 4
25  dist. in figura 7
28  dist. in figura 1
31  dist. in figura 4
34  dist. in figura 7
37  dist. in figura 1
40  dist. in figura 4
43  dist. in figura 7
------------------------------
 dist. in figura 2-5-8
------------------------------
2  dist. in figura 2
5  dist. in figura 5
8  dist. in figura 8
11  dist. in figura 2
14  dist. in figura 5
17  dist. in figura 8
20  dist. in figura 2
23  dist. in figura 5
26  dist. in figura 8
29  dist. in figura 2
32  dist. in figura 5
35  dist. in figura 8
38  dist. in figura 2
41  dist. in figura 5
44  dist. in figura 8
------------------------------
 dist. in figura 3-6-9
------------------------------
3  dist. in figura 3
6  dist. in figura 6
9  dist. in figura 9
12  dist. in figura 3
15  dist. in figura 6
18  dist. in figura 9
21  dist. in figura 3
24  dist. in figura 6
27  dist. in figura 9
30  dist. in figura 3
33  dist. in figura 6
36  dist. in figura 9
39  dist. in figura 3
42  dist. in figura 6
45  dist. in figura 9
------------------------------
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 05 febbraio 2026
    Bari
    59
    63
    12
    74
    89
    Cagliari
    04
    60
    78
    51
    31
    Firenze
    63
    56
    13
    84
    39
    Genova
    43
    03
    73
    86
    84
    Milano
    73
    68
    21
    69
    27
    Napoli
    29
    60
    61
    02
    09
    Palermo
    49
    28
    51
    89
    23
    Roma
    43
    21
    77
    31
    30
    Torino
    05
    25
    64
    76
    89
    Venezia
    14
    16
    77
    51
    56
    Nazionale
    53
    20
    06
    89
    28
    Estrazione Simbolotto
    Cagliari
    42
    44
    32
    31
    06
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto