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

[Mike58]

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

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

 

[Zetrix]

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..

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

 

[Zetrix]

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..

 

[Mike58]

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

 

[Zetrix]

Mike spiegare queste cose sulle dist in figure non e semplice
ad ogni modo ti farò vedere un esempio di calcolo..



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..

 

[Mike58]

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

 

[Zetrix]

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..

 

[Zetrix]

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

 

[Mike58]

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.

 

[Zetrix]

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..

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

 

[Zetrix]

 

[Zetrix]

 

[Zetrix]