Novità

La Figura del TRIANGOLO per TRE TERZINE

Imaging ho calcolato un numero con un algoritmo di 5 livello sai che vuol dire..e il massimo livello..
lo schema non lo posso mettere troppo complicato..

soltanto che ho visto che questa ambata rit da 61 estr a TO..

non lo so ma ci possiamo provare lo stesso..
 
Ultima modifica:
3922.PNG

Imaging quante cose devo spiegarvi..a TO e uscito un ambo spia..
provo a scrivere nello spoiler non mettiamo troppe cose a vista..
1 numero 13 = somma 55
2 numero 42= differenza 29

previsione
ambata 13 TO in 3 Pos
ambo 13 42 TO
 
Ultima modifica:
Vedi l'allegato 2240234

Imaging quante cose devo spiegarvi..a TO e uscito un ambo spia..
provo a scrivere nello spoiler non mettiamo troppe cose a vista..
Queste lezioni a me mi fanno bene e non solo a me che faccio ricerche previsioni e metodi ma anche chi ci legge che sia Visibile o Invisibile ecc. mi servirebbe .....esco un attimo fuori argomento sto preparando una nuova ricerca metodo ...
 
Codice:
Sub Main()
   Dim ruota(5),ruote(5)
   Dim posta(5),poste(5)
   Dim r1,r2,r3
   Dim ambo1(2),ambo2(2),terzina(3)
   Dim caso
   '
   posta(2) = 1
   poste(2) = 1
   poste(3) = 1
   '
   rk = InputBox("Quale 1 numero vuoi controllare?",,0)
   rv = InputBox("Quale 2 numero vuoi controllare?",,0)
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   '
   caso = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      For r1 = 1 To 8
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               '
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2)
               '-----------------------------------
               For r2 = r1 + 1 To 9
                  '
                  n3 = Estratto(es,r2,p1)
                  n4 = Estratto(es,r2,p2)
                  '----------------------------------
                  For r3 = r2 + 1 To 10
                     '
                     n5 = Estratto(es,r3,p1)
                     n6 = Estratto(es,r3,p2)
                     '-----------------------------------
                     For rx = rk To rk
                        For rw = rv To rv
                           '--------------------------------
                           b1 = Fuori90(n1 + n5)
                           b2 = Fuori90(n4 + n6)
                           '
                           b3 = Fuori90(n2 + n6)
                           b4 = Fuori90(n3 + n5)
                           '
                           b5 = Fuori90(n3 + n5)
                           b6 = Fuori90(n2 + n4)
                           '
                           b7 = Fuori90(n1 + n3)
                           b8 = Fuori90(n4 + n6)
                           '
                           '--------------------------
                           n7 = Fuori90(b1 - n2)
                           n8 = Fuori90(b1 - n3)
                           n9 = Fuori90(b3 - n1)
                           n10 = Fuori90(b3 - n4)
                           '-------------------------
                           n11 = Fuori90(b5 - n1)
                           n12 = Fuori90(b5 - n6)
                           n13 = Fuori90(b7 - n2)
                           n14 = Fuori90(b7 - n5)
                           '-------------------------
                           '
                           If pari(Fuori90(n1 + n5)) And pari(Fuori90(n4 + n6)) And b1 = b2 _
                              Or pari(Fuori90(n2 + n6)) And pari(Fuori90(n3 + n5))And b3 = b4 _
                              Or pari(Fuori90(n3 + n5)) And pari(Fuori90(n2 + n4))And b5 = b6 _
                              Or pari(Fuori90(n1 + n3)) And pari(Fuori90(n4 + n6))And b7 = b8 Then
                              '
                              '
                              n15 = Fuori90(b1/2)
                              n16 = Fuori90(b3/2)
                              n17 = Fuori90(b5/2)
                              n18 = Fuori90(b7/2)
                              '
                              ruote(1) = r1
                              ruote(2) = r2
                              ruote(3) = r3
                              ruote(4) = TT_
                              ruote(5) = NZ_
                              '----------------------------
                              If b1 = b2 Then
                                 ambo1(1) = Fuori90(b1 - n2)
                                 ambo1(2) = Fuori90(b1 - n3)
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n15
                              End If
                              '-------------------------------
                              If b3 = b4 Then
                                 ambo1(1) = Fuori90(b3 - n1)
                                 ambo1(2) = Fuori90(b3 - n4)
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n16
                              End If
                              '----------------------------------
                              If b5 = b6 Then
                                 ambo1(1) = Fuori90(b5 - n1)
                                 ambo1(2) = Fuori90(b5 - n6)
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n17
                              End If
                              '----------------------------------
                              If b7 = b8 Then
                                 ambo1(1) = Fuori90(b7 - n2)
                                 ambo1(2) = Fuori90(b7 - n5)
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n18
                              End If
                              '
                              Scrivi String(99,"-") & " gioco n. " & caso
                              '---------------------------------
                              If rx = ambo1(1) And rw = ambo1(2) Or rw = ambo1(1) And rx = ambo1(2) Then
                                 '
                                 ReDim MatriceCaselleDaEvid(6,1)
                                 ' 1
                                 MatriceCaselleDaEvid(1,0) = r1 '
                                 MatriceCaselleDaEvid(1,1) = p1 '
                                 ' 2
                                 MatriceCaselleDaEvid(2,0) = r1 '
                                 MatriceCaselleDaEvid(2,1) = p2 '
                                 ' 3
                                 MatriceCaselleDaEvid(3,0) = r2 '
                                 MatriceCaselleDaEvid(3,1) = p1 '
                                 ' 4
                                 MatriceCaselleDaEvid(4,0) = r2 '
                                 MatriceCaselleDaEvid(4,1) = p2 '
                                 ' 5
                                 MatriceCaselleDaEvid(5,0) = r3 '
                                 MatriceCaselleDaEvid(5,1) = p1 '
                                 ' 6
                                 MatriceCaselleDaEvid(6,0) = r3 '
                                 MatriceCaselleDaEvid(6,1) = p2 '
                                 '
                                 Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                                 '
                                 '-------------------------------------------------------------
                                 If b1 = b2 Then
                                    Scrivi "" & n1 & "+" & n5 & Space(0) & " = " & b1 & " ",1,1,7,3,4
                                    Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b2 & " ",1,1,7,3,4
                                 End If
                                 '
                                 If b3 = b4 Then
                                    Scrivi "" & n2 & "+" & n6 & Space(0) & " = " & b3 & " ",1,1,7,3,4
                                    Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b4 & " ",1,1,7,3,4
                                 End If
                                 '--------------------------------------------------------------------
                                 If b5 = b6 Then
                                    Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b5 & " ",1,1,7,3,4
                                    Scrivi "" & n2 & "+" & n4 & Space(0) & " = " & b6 & " ",1,1,7,3,4
                                 End If
                                 '
                                 If b7 = b8 Then
                                    Scrivi "" & n1 & "+" & n3 & Space(0) & " = " & b7 & " ",1,1,7,3,4
                                    Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b8 & " ",1,1,7,3,4
                                 End If
                                 '-------------------------------------------------------------------
                                 Scrivi
                                 If b1 = b2 Then
                                    Scrivi("" & Format2(n8) & "____" & Format2(n7) & ""),0,0,2,3,6
                                    Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n4) & Space(4) & Format2(n15) & Space(4) & Format2(n6) & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n3) & " ",0,1,1,3,6
                                    Scrivi "" & Space(15) & "",0,1,1,3,6
                                 End If
                                 '-------------------------------------------
                                 If b3 = b4 Then
                                    Scrivi("" & Format2(n10) & "____" & Format2(n9) & ""),0,0,2,3,6
                                    Scrivi("" & "____" & Format2(n6) & "") & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n3) & Space(4) & Format2(n16) & Space(4) & Format2(n5) & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n2) & "____" & Format2(n1) & "____" & Format2(n4) & " ",0,1,1,3,6
                                    Scrivi "" & Space(15) & "",0,1,1,3,6
                                 End If
                                 '--------------------------------------------------------------------
                                 If b5 = b6 Then
                                    Scrivi("" & Format2(n12) & "____" & Format2(n11) & ""),0,0,2,3,6
                                    Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n2) & Space(4) & Format2(n17) & Space(4) & Format2(n4) & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n3) & "____" & Format2(n1) & "____" & Format2(n6) & " ",0,1,1,3,6
                                    Scrivi "" & Space(15) & "",0,1,1,3,6
                                 End If
                                 '-------------------------------------------------------------------
                                 If b7 = b8 Then
                                    Scrivi("" & Format2(n14) & "____" & Format2(n13) & ""),0,0,2,3,6
                                    Scrivi("" & "____" & Format2(n3) & "") & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n4) & Space(4) & Format2(n18) & Space(4) & Format2(n6) & " ",0,1,1,3,6
                                    Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                    Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n5) & " ",0,1,1,3,6
                                    Scrivi "" & Space(15) & "",0,1,1,3,6
                                 End If
                                 '
                                 Scrivi
                                 ImpostaGiocata 1,ambo1,ruote,posta,k
                                 Gioca es,1,,1
                                 Scrivi
                                 Scrivi String(55,"-")
                                 Scrivi
                                 ImpostaGiocata 1,terzina,ruote,poste,k
                                 Gioca es,1,,1
                                 Scrivi
                              End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,7,3,4,4,8
   Scrivi "sistema a cruciverba",0,1,7,3,4,4,8
End Sub

Imaging in questo listato ho aggiunto anche una opzione
si puo digitare i due numeri che calcolano il cruciverba..
 
niente sui cruciverba con i numeri isotopi non a calcolato nessun cruciverba..
allora proviamo con il metodo RAMBO...............................................................................
 
3926.png
47+71 = 28
48+70 = 28

Numeri in gioco 13.42 su BA NA VE TT per Ambo


volendo si puo giocare una quartina su ruota si puo giocare

13 42 14 59 per ambo e terno

la somma 28 la genera sia il 14 (14+14=28) e sia il 59 (59+59=28)
 
Ultima modifica:
Imaging però con il cruciverba con le dist e tutt altra cosa..

comunque devo sistemare meglio le somme non devo mettere il fuori 90..

47+71 = 28 (fuori 90)
47+71 = 118/2 = 59
 
Ultima modifica:
ho fatto la modifica sul listato delle somme ai visto come cambia la previsione
prima calcolava il 14 adesso calcola il 59..
la terzina genera tre ambi..

13 42
59 42
59 13
nel pronostico del listato ho messo solo l'ambo del cruciverba piu la terzina
comunque ognuno gioca come vuole..
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40

Ultimi Messaggi

Indietro
Alto