x ilegend numero minimo e massimo

Zetrix · 13 Agosto 2023

i legend ha scritto:
Per curiosità, che differenza di risultati c'è tra la tua formula e la mia fatta a caso?

Puoi fare le prove?

ilegend ti rispondo subito e inutile fare delle prove perche qualsiasi formula che si scrive
le ambate escono ugualmente alcune per caso e altre no
il problema non e l'ambata ma come combinare l'ambo che e piu difficile..
e per combinare l'ambo e ovvio che si deve combinare anche l'ambata
e se non si mette la formula giusta per entrambe e difficile fare ambo..
per l'ambata e piu facile perche devi indovinare soltanto un numero..
di ambate ne ho tantissime di tecniche ma e difficile fare ambo
anche se ho delle tecniche che sono studiate per combinare l'ambo
ma gli ambi la maggior parte escono su tutte e l'ambo a tutte paga 23,50 volte la posta
allora e meglio giocare l'ambetto su ruota..
quanto scrivo e difficile fare ambo intendo dire l'ambo su ruota..

i legend · 13 Agosto 2023

Zetrix ha scritto:
ilegend ti rispondo subito e inutile fare delle prove perche qualsiasi formula che si scrive
le ambate escono ugualmente alcune per caso e altre no
il problema non e l'ambata ma come combinare l'ambo che e piu difficile..
e per combinare l'ambo e ovvio che si deve combinare anche l'ambata
e se non si mette la formula giusta per entrambe e difficile fare ambo..
per l'ambata e piu facile perche devi indovinare soltanto un numero..

Infatti volevo capire la differenza percentuale .
pura e semplice curiosità .
Buona notte a tutti .

Zetrix · 13 Agosto 2023

ilegend non ho ancora una formula magica per vincere sempre l'ambo su ruota
se no sarei milionario ma non credere che neanche quelli che scrivono sulle riviste di lotto
non hanno una formula sempre vincente..

buonanotte a tutti

i legend · 13 Agosto 2023

Zetrix ha scritto:
ilegend non ho ancora una formula magica per vincere sempre l'ambo su ruota
se no sarei milionario ma non credere che neanche quelli che scrivono sulle riviste di lotto
non hanno una formula sempre vincente..
buonanotte a tutti

Zetrix infatti non ho chiesto una formula magica. So che non esiste
Cmq l importante che ti ho dato ina mano nello script .

Zetrix · 14 Agosto 2023

Codice:

venerdì, ago 11 2023
BA  |65.38.48.42.82
BA  |82.65.48.42.38    65 59 55      | BA .. .. .. 59 .. |     1  c    12.08.2023
________________________________________________________________________________
CA  |08.12.75.29.90
CA  |90.75.29.12.08    44 27 23      |                   |     1  c    12.08.2023
________________________________________________________________________________
FI  |70.46.58.55.44
FI  |70.58.55.46.44    67 58 56      |                   |     1  c    12.08.2023
________________________________________________________________________________
GE  |61.25.40.38.60
GE  |61.60.40.38.25    41 39 26      |                   |     1  c    12.08.2023
________________________________________________________________________________
MI  |56.46.23.59.33
MI  |59.56.46.33.23    49 36 26      |                   |     1  c    12.08.2023
________________________________________________________________________________
NA  |39.88.49.70.68
NA  |88.70.68.49.39    86 67 57      |                   |     1  c    12.08.2023
________________________________________________________________________________
PA  |45.63.17.67.83
PA  |83.67.63.45.17    79 61 33      |                   |     1  c    12.08.2023
________________________________________________________________________________
RO  |37.83.55.41.82
RO  |83.82.55.41.37    56 42 38      |                   |     1  c    12.08.2023
________________________________________________________________________________
TO  |29.25.89.62.58
TO  |89.62.58.29.25    85 56 52      |                   |     1  c    12.08.2023
________________________________________________________________________________
VE  |39.36.19.69.70
VE  |70.69.39.36.19    40 37 20      | VE 37 .. .. .. .. |     1  c    12.08.2023
________________________________________________________________________________
NZ  |31.54.12.41.28
NZ  |54.41.31.28.12    44 41 25      |                   |     1  c    12.08.2023
________________________________________________________________________________
sabato, ago 12 2023
BA  |83.89.70.59.05
BA  |89.83.70.59.05    76 65 11      |                   |     0  c    12.08.2023
________________________________________________________________________________
CA  |46.08.55.78.83
CA  |83.78.55.46.08    60 51 13      |                   |     0  c    12.08.2023
________________________________________________________________________________
FI  |90.12.19.35.76
FI  |90.76.35.19.12    49 33 26      |                   |     0  c    12.08.2023
________________________________________________________________________________
GE  |03.86.69.65.31
GE  |86.69.65.31.03    82 48 20      |                   |     0  c    12.08.2023
________________________________________________________________________________
MI  |39.32.76.68.27
MI  |76.68.39.32.27    47 40 35      |                   |     0  c    12.08.2023
________________________________________________________________________________
NA  |14.65.26.76.83
NA  |83.76.65.26.14    72 33 21      |                   |     0  c    12.08.2023
________________________________________________________________________________
PA  |69.43.90.31.67
PA  |90.69.67.43.31    88 64 52      |                   |     0  c    12.08.2023
________________________________________________________________________________
RO  |05.07.26.39.46
RO  |46.39.26.07.05    33 14 12      |                   |     0  c    12.08.2023
________________________________________________________________________________
TO  |60.36.79.12.10
TO  |79.60.36.12.10    55 31 29      |                   |     0  c    12.08.2023
________________________________________________________________________________
VE  |37.48.16.84.39
VE  |84.48.39.37.16    75 73 52      |                   |     0  c    12.08.2023
________________________________________________________________________________
NZ  |83.90.07.30.82
NZ  |90.83.82.30.07    89 37 14      |                   |     0  c    12.08.2023
________________________________________________________________________________

ilegend ho aggiunto altre due ambate ma cosi si deve scegliere l'ambata
comunque domani vedrò di migliorare la tabella e le ambate..

Zetrix · 14 Agosto 2023

Codice:

Sub Main
   Dim atemp,r,i,es,aN(3),aR(1),nclp,ncolpo,sEstr,rk,rx
   Dim a,b,c,x,y,z
   '
    rk = InputBox("Quale numero vuoi controllare?",,0)
    '
   For es = EstrazioneFin - 17 To EstrazioneFin
      Scrivi DataEstrazione((es),1),0,1,2,5
      For r = 1 To 11
         If r = 11 Then r = 12
         For rx = rk To rk
         ReDim ae(0)
         Call GetArrayNumeriRuota(es,r,ae)
         atemp = Array(0,0,0,0,0,0)
         For i = 1 To 5
            atemp(i) = ae(i)
         Next
         Call OrdinaMatriceTurbo(atemp,- 1)
         '
         x = Fuori90(atemp(1) - atemp(2) + atemp(3))
         y = Fuori90(atemp(2) - atemp(3) + atemp(4))
         z = Fuori90(atemp(3) - atemp(4) + atemp(5))
         '
         If rx = x Or rx = y Or rx = z Then
         '
         aN(1) = x
         aN(2) = y
         aN(3) = z
         '-------------
         aR(1) = r
         '
         Call VerificaEsitoTurbo(aN,aR,es + 1,1,nclp,,,ncolpo,sEstr)
         Scrivi SiglaRuota(r) & "  |" & StringaNumeri(ae,,1)
         Scrivi SiglaRuota(r) & "  |" & StringaNumeri(atemp,,1) & Space(4) & "",,0
         Scrivi Format2(aN(1)) & " " & aN(2) & " " & aN(3) & " " & Space(4) & " | " & FormatSpace(sEstr,17) & " | " & Space(4) & FormatSpace(ncolpo,3) & "c" & Space(4) & DataEstrazione(es + ncolpo) & "",0,1,1,5
         Scrivi String(80,"_")
         End If
      Next
      Next
   Next
End Sub

buon lunedi,
ilegend vedi come e questo script ho aggiunto anche la possibilità
di scegliere un numero che si vuole giocare su una ruota

Zetrix · 14 Agosto 2023

Codice:

sabato, ago 12 2023

BA  |83.89.70.59.05
BA  |89.83.70.59.05    76 72 16      |                   |     0  c    12.08.2023
________________________________________________________________________________
CA  |46.08.55.78.83
CA  |83.78.55.46.08    60 69 17      |                   |     0  c    12.08.2023
________________________________________________________________________________
FI  |90.12.19.35.76
FI  |90.76.35.19.12    49 60 28      |                   |     0  c    12.08.2023
________________________________________________________________________________
GE  |03.86.69.65.31
GE  |86.69.65.31.03    82 35 37      |                   |     0  c    12.08.2023
________________________________________________________________________________
MI  |39.32.76.68.27
MI  |76.68.39.32.27    47 61 34      |                   |     0  c    12.08.2023
________________________________________________________________________________
NA  |14.65.26.76.83
NA  |83.76.65.26.14    72 37 53      |                   |     0  c    12.08.2023
________________________________________________________________________________
PA  |69.43.90.31.67
PA  |90.69.67.43.31    88 45 55      |                   |     0  c    12.08.2023
________________________________________________________________________________
RO  |05.07.26.39.46
RO  |46.39.26.07.05    33 20 24      |                   |     0  c    12.08.2023
________________________________________________________________________________
TO  |60.36.79.12.10
TO  |79.60.36.12.10    55 36 34      |                   |     0  c    12.08.2023
________________________________________________________________________________
VE  |37.48.16.84.39
VE  |84.48.39.37.16    75 46 18      |                   |     0  c    12.08.2023
________________________________________________________________________________
NZ  |83.90.07.30.82
NZ  |90.83.82.30.07    89 31 59      |                   |     0  c    12.08.2023
________________________________________________________________________________

i legend · 14 Agosto 2023

Buon lunedì a tutti .

Zetrix una volta che hai scelto il numero
Perché fare ?

For rx = rk to rk

Next

Se cancelli il for vedrai che funziona ugualmente.

Bisogna tenere il codice più lineare possibile e fargli fare solo le operazioni necessarie.

Ciao

Zetrix · 14 Agosto 2023

ciao ilegend la possibilità di scegliere un numero serve per vedere le convergenze su una ruota
di una ambata ma queste sono scelte personali..

comunque ho notato una cosa nello script

Zetrix · 14 Agosto 2023

Codice:

________________________________________________________________________________
TO  |60.36.79.12.10
TO  |79.60.36.12.10    55 36 34      |                   |     0  c    12.08.2023
________________________________________________________________________________

ilegend vedi questa combinazione su TO calcola l'ambata 36
ma il 36 e gia estratto su TO e allora in questi casi si deve fare un altro calcolo
36+45=81
si deve sostituire il 36 con l'81 che e il suo diametrale
in teoria quanto abbiamo una ambata che e uguale agli estratti
si dovrà sostituire con il diam.
quindi si deve risistemare lo script

Zetrix · 14 Agosto 2023

Codice:

sabato, ago 12 2023
BA  |83.89.70.59.05
BA  |89.83.70.59.05    76 72 16      |                   |     0  c    12.08.2023
________________________________________________________________________________
CA  |46.08.55.78.83
CA  |83.78.55.46.08    60 69 17      |                   |     0  c    12.08.2023
________________________________________________________________________________
FI  |90.12.19.35.76
FI  |90.76.35.19.12    49 60 28      |                   |     0  c    12.08.2023
________________________________________________________________________________
GE  |03.86.69.65.31
GE  |86.69.65.31.03    82 35 37      |                   |     0  c    12.08.2023
________________________________________________________________________________
MI  |39.32.76.68.27
MI  |76.68.39.32.27    47 61 34      |                   |     0  c    12.08.2023
________________________________________________________________________________
NA  |14.65.26.76.83
NA  |83.76.65.26.14    72 37 53      |                   |     0  c    12.08.2023
________________________________________________________________________________
PA  |69.43.90.31.67
PA  |90.69.67.43.31    88 45 55      |                   |     0  c    12.08.2023
________________________________________________________________________________
RO  |05.07.26.39.46
RO  |46.39.26.07.05    33 20 24      |                   |     0  c    12.08.2023
________________________________________________________________________________
TO  |60.36.79.12.10
TO  |79.60.36.12.10    55 81 34      |                   |     0  c    12.08.2023
________________________________________________________________________________
VE  |37.48.16.84.39
VE  |84.48.39.37.16    75 46 18      |                   |     0  c    12.08.2023
________________________________________________________________________________
NZ  |83.90.07.30.82
NZ  |90.83.82.30.07    89 31 59      |                   |     0  c    12.08.2023
________________________________________________________________________________

ilegend lo sistemato lo script ho sostituito l'ambata che risulta uguale agli estratti con il diam.
questa e la nuova tabella aggiornata..

Zetrix · 14 Agosto 2023

Codice:

Sub Main
   Dim atemp,r,i,es,aN(3),aR(1),nclp,ncolpo,sEstr,rk,rx
   Dim a,b,c,x,y,z
   '
   'rk = InputBox("Quale numero vuoi controllare?",,0)
   '
   For es = EstrazioneFin - 0 To EstrazioneFin
      Scrivi DataEstrazione((es),1),0,1,2,5
      For r = 1 To 11
         If r = 11 Then r = 12
         For rx = rk To rk
            ReDim ae(0)
            Call GetArrayNumeriRuota(es,r,ae)
            atemp = Array(0,0,0,0,0,0)
            For i = 1 To 5
               atemp(i) = ae(i)
            Next
            Call OrdinaMatriceTurbo(atemp,- 1)
            '
            x = Fuori90(atemp(1) - atemp(2) + atemp(3))
            y = Fuori90(atemp(2) - atemp(3) + atemp(4))
            z = Fuori90(atemp(3) - atemp(4) + atemp(5))
            '
            If x = atemp(1) Or x = atemp(2) Or x = atemp(3) Then
               x = Diametrale(x)
            Else
               x = x
            End If
            '-------------------
            If y = atemp(1) Or y = atemp(2) Or y = atemp(3) Then
               y = Diametrale(y)
            Else
               y = y
            End If
            '------------------
            If z = atemp(1) Or z = atemp(2) Or z = atemp(3) Then
               z = Diametrale(z)
            Else
               z = z
            End If
            '
            'If rx = x Or rx = y Or rx = z Then
            '
            aN(1) = x
            aN(2) = y
            aN(3) = z
            '-------------
            aR(1) = r
            '
            Call VerificaEsitoTurbo(aN,aR,es + 1,1,nclp,,,ncolpo,sEstr)
            Scrivi SiglaRuota(r) & "  |" & StringaNumeri(ae,,1)
            Scrivi SiglaRuota(r) & "  |" & StringaNumeri(atemp,,1) & Space(4) & "",,0
            Scrivi Format2(aN(1)) & " " & aN(2) & " " & aN(3) & " " & Space(4) & " | " & FormatSpace(sEstr,17) & " | " & Space(4) & FormatSpace(ncolpo,3) & "c" & Space(4) & DataEstrazione(es + ncolpo) & "",0,1,1,5
            Scrivi String(80,"_")
            'End If
         Next
      Next
   Next
End Sub

i legend · 14 Agosto 2023

Zetrix, finché non avrò il pc, non faccio più script. Mi fanno male gi occhi.
Ciao e buona giornata a tutti

Zetrix · 14 Agosto 2023

ilegend domani e ferragosto e non si gioca l'estr sarà posticipata a mercoledi
quindi avremo quattro estr consecutive mer-gio-ven-sab-

Zetrix · 14 Agosto 2023

ilegend te lo detto con il cell puoi tel inviare messaggini ma non per fare gli script..

mi sa che ho sbagliato a scrivere nello script adesso correggo lo script..

Zetrix · 14 Agosto 2023

Codice:

Sub Main
   Dim atemp,r,i,es,aN(3),aR(1),nclp,ncolpo,sEstr,rk,rx
   Dim a,b,c,x,y,z
   '
   'rk = InputBox("Quale numero vuoi controllare?",,0)
   '
   For es = EstrazioneFin - 0 To EstrazioneFin
      Scrivi DataEstrazione((es),1),0,1,2,5
      For r = 1 To 11
         If r = 11 Then r = 12
         For rx = rk To rk
            ReDim ae(0)
            Call GetArrayNumeriRuota(es,r,ae)
            atemp = Array(0,0,0,0,0,0)
            For i = 1 To 5
               atemp(i) = ae(i)
            Next
            Call OrdinaMatriceTurbo(atemp,- 1)
            '
            x = Fuori90(atemp(1) - atemp(2) + atemp(3))
            y = Fuori90(atemp(2) - atemp(3) + atemp(4))
            z = Fuori90(atemp(3) - atemp(4) + atemp(5))
            '
            If x = atemp(1) Or x = atemp(2) Or x = atemp(3) Then
               x = Diametrale(x)
            Else
               x = x
            End If
            '-------------------
            If y = atemp(2) Or y = atemp(3) Or y = atemp(4) Then
               y = Diametrale(y)
            Else
               y = y
            End If
            '------------------
            If z = atemp(3) Or z = atemp(4) Or z = atemp(5) Then
               z = Diametrale(z)
            Else
               z = z
            End If
            '------------------
            '
            'If rx = x Or rx = y Or rx = z Then
            '
            aN(1) = x
            aN(2) = y
            aN(3) = z
            '-------------
            aR(1) = r
            '
            Call VerificaEsitoTurbo(aN,aR,es + 1,1,nclp,,,ncolpo,sEstr)
            Scrivi SiglaRuota(r) & "  |" & StringaNumeri(ae,,1)
            Scrivi SiglaRuota(r) & "  |" & StringaNumeri(atemp,,1) & Space(4) & "",,0
            Scrivi Format2(aN(1)) & " " & aN(2) & " " & aN(3) & " " & Space(4) & " | " & FormatSpace(sEstr,17) & " | " & Space(4) & FormatSpace(ncolpo,3) & "c" & Space(4) & DataEstrazione(es + ncolpo) & "",0,1,1,5
            Scrivi String(80,"_")
            'End If
         Next
      Next
   Next
End Sub

corretto lo script avevo fatto il copia e incolla ma dopo non ho fatto le variazioni
su atemp(1), atemp(2), atemp(3)

Zetrix · 14 Agosto 2023

Codice:

sabato, ago 12 2023

BA  |83.89.70.59.05
BA  |89.83.70.59.05    76 72 16      |                   |     0  c    12.08.2023
________________________________________________________________________________
CA  |46.08.55.78.83
CA  |83.78.55.46.08    60 69 17      |                   |     0  c    12.08.2023
________________________________________________________________________________
FI  |90.12.19.35.76
FI  |90.76.35.19.12    49 60 28      |                   |     0  c    12.08.2023
________________________________________________________________________________
GE  |03.86.69.65.31
GE  |86.69.65.31.03    82 35 37      |                   |     0  c    12.08.2023
________________________________________________________________________________
MI  |39.32.76.68.27
MI  |76.68.39.32.27    47 61 34      |                   |     0  c    12.08.2023
________________________________________________________________________________
NA  |14.65.26.76.83
NA  |83.76.65.26.14    72 37 53      |                   |     0  c    12.08.2023
________________________________________________________________________________
PA  |69.43.90.31.67
PA  |90.69.67.43.31    88 45 55      |                   |     0  c    12.08.2023
________________________________________________________________________________
RO  |05.07.26.39.46
RO  |46.39.26.07.05    33 20 24      |                   |     0  c    12.08.2023
________________________________________________________________________________
TO  |60.36.79.12.10
TO  |79.60.36.12.10    55 81 34      |                   |     0  c    12.08.2023
________________________________________________________________________________
VE  |37.48.16.84.39
VE  |84.48.39.37.16    75 46 18      |                   |     0  c    12.08.2023
________________________________________________________________________________
NZ  |83.90.07.30.82
NZ  |90.83.82.30.07    89 31 59      |                   |     0  c    12.08.2023
________________________________________________________________________________

ecco la tabella aggiornata

Zetrix · 14 Agosto 2023

Codice:

Option Explicit
Sub Main
   Dim A,B,C,D,E
   Dim F(5)
   '----------------
   A = 87
   B = 29
   C = 36
   D = 89
   E = 45
   '----------------
   F(1) = A
   F(2) = B
   F(3) = C
   F(4) = D
   F(5) = E
   '----------------
   '
 
 Call OrdinaMatriceTurbo(F,- 1)
   Scrivi F(1) & Space(F(1)) & "",0,1,2,5,4 ' --minimo
   Scrivi F(2) & Space(F(2)) & "",0,1,3,1,4
   Scrivi F(3) & Space(F(3)) & "",0,1,4,1,4 '
   Scrivi F(4) & Space(F(4)) & "",0,1,5,1,4
   Scrivi F(5) & Space(F(5)) & "",0,1,6,1,4 ' --massimo
  '
   Scrivi
End Sub

89 ---numero massimo
87
45
36
29 ---numero minimo

ilegend ho fatto una prova con lo script con il numero minimo e numero massimo
quindi se si scrive Call OrdinaMatriceTurbo(F,- 1) scrive dal numero massimo al numero minimo
invece se si scrive Call OrdinaMatriceTurbo(F,+ 1) scrive dal numero minimo al numero massimo

29 ---numero minimo
36
45
87
89 ---numero massimo

Zetrix · 14 Agosto 2023

Codice:

  83________+03________86________+03________89
  83___________________63___________________70
  83________-12________71________-12________59
  83________-39________44________-39________05
  89___________________69___________________70
  89________-15________74________-15________59
  89________-42________47________-42________05
  70___________________39___________________59
  70___________________75___________________05
  59________-27________32________-27________05

Zetrix · 15 Agosto 2023

Codice:

  83________+03________86________+03________89
  83___________________63___________________70
  83________-12________71________-12________59
  83________-39________44________-39________05
  89___________________69___________________70
  89________-15________74________-15________59
  89________-42________47________-42________05
  70___________________39___________________59
  70___________________75___________________05
  59________-27________32________-27________05

Buon ferragosto. ilegend sai come calcola l'algoritmo su questa tabella..
se tra due numeri abbiamo una dist pari allora l'algoritmo calcola il numero mancante
in caso contrario l'algoritmo li somma i due numeri..
adesso provo a calcolare un ambo speciale

83___________________63___________________70

allora su questa combinazione i due numeri non hanno una dist pari
allora i due numeri si sommano
adesso faremo un altro calcolo
sommiamo il 63 a entrambi i due numeri
1 numero = 63+83=146=56
2 numero = 63+70=133=43

adesso vediamo se sono estratti uno di questi numeri

ecco il 43 estratto a PA..
calcoliamo l'altro numero il diam del 63 che e 18
la previsione del gioco sarà questa..

BA PA 18 56 E TT

x ilegend numero minimo e massimo

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member