Vecchi metodi e vecchi script by BaffoBlù

[Oberdan]

ok

Stai diventando il Re della Nazionale!
La stai rivoltando come un calzino...

Oberdan

 

[Marco-elle]

Stai diventando il Re della Nazionale!
La stai rivoltando come un calzino...

Oberdan

Perchè è l'ultima ruota nata e comincia a fare statistica

 

[Marco-elle]

Previsione mensile 2
Nessun incremento di posta,è il giocatore a effettuarla
in base alle proprie tasche...

Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " PREVISIONE MENSILE VINCOLATA ALLA CADENZA DEL 1° ESTRATTO DELLA NZ "
   Scrivi " USCITO ALLA 1° ESTRAZIONE DEL MESE "
   Scrivi " METODO STATISTICO  BY Marco"
   ColoreTesto 0
   Dim Ini,fin,ok,co,r,a,clp,es,posta(3),ruota(10),n(5)
   posta(2) = 1
   posta(3) = 1
   clp = 15
   Ini = EstrazioneIni + 7430
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      For r = 12 To 12
         a = Estratto(es,r,1)
         Messaggio es
         Call AvanzamentoElab(Ini,fin,es)
         ok = 0
         If IndiceMensile(es) = 1 And Cadenza(a) = 1 Then
            n(1) = 22
            n(2) = 23
            n(3) = 28
            n(4) = 56
            n(5) = 66
            ruota(1) = 2
            ruota(2) = 6
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 2 Then
            n(1) = 2
            n(2) = 8
            n(3) = 75
            n(4) = 81
            n(5) = 82
            ruota(1) = 2
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 3 Then
            n(1) = 5
            n(2) = 11
            n(3) = 50
            n(4) = 56
            n(5) = 59
            ruota(1) = 4
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 4 Then
            n(1) = 16
            n(2) = 32
            n(3) = 36
            n(4) = 81
            n(5) = 85
            ruota(1) = 3
            ruota(2) = 5
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 5 Then
            n(1) = 5
            n(2) = 10
            n(3) = 13
            n(4) = 19
            n(5) = 21
            ruota(1) = 2
            ruota(2) = 9
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 6 Then
            n(1) = 21
            n(2) = 42
            n(3) = 62
            n(4) = 68
            n(5) = 70
            ruota(1) = 1
            ruota(2) = 10
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 7 Then
            n(1) = 3
            n(2) = 8
            n(3) = 20
            n(4) = 35
            n(5) = 64
            ruota(1) = 1
            ruota(2) = 2
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 8 Then
            n(1) = 4
            n(2) = 19
            n(3) = 31
            n(4) = 34
            n(5) = 49
            ruota(1) = 1
            ruota(2) = 5
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 9 Then
            n(1) = 9
            n(2) = 17
            n(3) = 23
            n(4) = 78
        
          
            ruota(1) = 7
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 0 Then
            n(1) = 1
            n(2) = 5
            n(3) = 13
            n(4) = 27
            n(5) = 89
          
            ruota(1) = 2
            ruota(2) = 7
            ok = 1
         End If

         ImpostaGiocata 1,n,ruota,posta,clp
         If ok = 1 Then
            co = co + 1
            ColoreTesto 1
            Scrivi String(110,"*") & " Caso n°" & co,1
            Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
            Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
            " ] * [ " & Format2(a) & " ]" & "  *   cadenza : " & " [ " & Cadenza(a) & " ] ",1
            ColoreTesto 0
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub

 

[Marco-elle]

Qui ho inserito un incremento sulla posta (che è strettamente personale)
con stop al primo esito utile

Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " PREVISIONE MENSILE VINCOLATA ALLA CADENZA DEL 1° ESTRATTO DELLA NZ "
   Scrivi " USCITO ALLA 1° ESTRAZIONE DEL MESE "
   Scrivi " METODO STATISTICO  BY Marco"
   ColoreTesto 0
   Dim Ini,fin,ok,co,r,a,clp,es,posta(3),ruota(10),n(5),Importo(2,15)
   posta(2) = 1
   posta(3) = 1
   clp = 15
   Ini = EstrazioneIni + 7430
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      For r = 12 To 12
         a = Estratto(es,r,1)
         Messaggio es
         Call AvanzamentoElab(Ini,fin,es)
         Importo(2,1) = 1
         Importo(2,2) = 1.3
         Importo(2,3) = 1.6
         Importo(2,4) = 1.9
         Importo(2,5) = 2.3
         Importo(2,6) = 2.7
         Importo(2,7) = 3.1
         Importo(2,8) = 3.5
         Importo(2,9) = 4
         Importo(2,10) = 4.5
         Importo(2,11) = 5
         Importo(2,12) = 6
         Importo(2,13) = 7
         Importo(2,14) = 8
         Importo(2,15) = 10
         ok = 0
         If IndiceMensile(es) = 1 And Cadenza(a) = 1 Then
            n(1) = 22
            n(2) = 23
            n(3) = 28
            n(4) = 56
            n(5) = 66
            ruota(1) = 2
            ruota(2) = 6
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 2 Then
            n(1) = 2
            n(2) = 8
            n(3) = 75
            n(4) = 81
            n(5) = 82
            ruota(1) = 2
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 3 Then
            n(1) = 5
            n(2) = 11
            n(3) = 50
            n(4) = 56
            n(5) = 59
            ruota(1) = 4
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 4 Then
            n(1) = 16
            n(2) = 32
            n(3) = 36
            n(4) = 81
            n(5) = 85
            ruota(1) = 3
            ruota(2) = 5
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 5 Then
            n(1) = 5
            n(2) = 10
            n(3) = 13
            n(4) = 19
            n(5) = 21
            ruota(1) = 2
            ruota(2) = 9
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 6 Then
            n(1) = 21
            n(2) = 42
            n(3) = 62
            n(4) = 68
            n(5) = 70
            ruota(1) = 1
            ruota(2) = 10
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 7 Then
            n(1) = 3
            n(2) = 8
            n(3) = 20
            n(4) = 35
            n(5) = 64
            ruota(1) = 1
            ruota(2) = 2
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 8 Then
            n(1) = 4
            n(2) = 19
            n(3) = 31
            n(4) = 34
            n(5) = 49
            ruota(1) = 1
            ruota(2) = 5
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 9 Then
            n(1) = 9
            n(2) = 17
            n(3) = 23
            n(4) = 78
            ruota(1) = 7
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 0 Then
            n(1) = 1
            n(2) = 5
            n(3) = 13
            n(4) = 27
            n(5) = 89
            ruota(1) = 2
            ruota(2) = 7
            ok = 1
         End If
    
         If ok = 1 Then
            co = co + 1
            ImpostaGiocata 1,n,ruota,posta,clp,2
         ImpostaProgressione 1,Importo

            ColoreTesto 1
            Scrivi String(110,"*") & " Caso n°" & co,1
            Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
            Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
            " ] * [ " & Format2(a) & " ]" & "  *   cadenza : " & " [ " & Cadenza(a) & " ] ",1
            ColoreTesto 0
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub

 

[Marco-elle]

Previsione Mensile 3....

Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " PREVISIONE MENSILE VINCOLATA ALLA DECINA E/O NUMERETTO DEL 1° ESTRATTO DELLA NZ "
   Scrivi " USCITO ALLA 1° ESTRAZIONE DEL MESE "
   Scrivi " METODO STATISTICO  BY Marco"
   ColoreTesto 0
   Dim Ini,fin,ok,co,r,a,clp,es,posta(4),ruota(10),n(5),Importo(2,15)
   posta(2) = 1
   posta(3) = 1
   posta(4) = 1
   clp = 15
   Ini = EstrazioneIni + 7430
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      For r = 12 To 12
         a = Estratto(es,r,1)
         Messaggio es
         Call AvanzamentoElab(Ini,fin,es)
         Importo(2,1) = 1
         Importo(2,2) = 1.3
         Importo(2,3) = 1.6
         Importo(2,4) = 1.9
         Importo(2,5) = 2.3
         Importo(2,6) = 2.7
         Importo(2,7) = 3.1
         Importo(2,8) = 3.5
         Importo(2,9) = 4
         Importo(2,10) = 4.5
         Importo(2,11) = 5
         Importo(2,12) = 6
         Importo(2,13) = 7
         Importo(2,14) = 8
         Importo(2,15) = 10
         ok = 0
         If IndiceMensile(es) = 1 And Decina(a) = 1 Then
            n(1) = 4
            n(2) = 11
            n(3) = 23
            n(4) = 42
            n(5) = 63
            ruota(1) = 4
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 2 Then
            n(1) = 6
            n(2) = 30
            n(3) = 38
            n(4) = 44
            n(5) = 87
            ruota(1) = 3
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 3 Then
            n(1) = 9
            n(2) = 50
            n(3) = 63
            n(4) = 65
            n(5) = 73
            ruota(1) = 2
            ruota(2) = 3
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 4 Then
            n(1) = 33
            n(2) = 43
            n(3) = 46
            n(4) = 50
            n(5) = 83
            ruota(1) = 1
            ruota(2) = 6
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 5 Then
            n(1) = 43
            n(2) = 47
            n(3) = 54
            n(4) = 62
            n(5) = 72
            ruota(1) = 4
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 6 Then
            n(1) = 7
            n(2) = 37
            n(3) = 53
            n(4) = 54
            n(5) = 57
            ruota(1) = 2
            ruota(2) = 10
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 7 Then
            n(1) = 9
            n(2) = 24
            n(3) = 49
            n(4) = 54
            n(5) = 63
            ruota(1) = 2
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 8 Then
            n(1) = 10
            n(2) = 13
            n(3) = 33
            n(4) = 63
            n(5) = 90
            ruota(1) = 3
            ruota(2) = 6
            ok = 1
         End If
         If IndiceMensile(es) = 1 And a < 10 Then
            n(1) = 10
            n(2) = 26
            n(3) = 28
            n(4) = 42
            n(5) = 48
            ruota(1) = 1
            ruota(2) = 2
            ok = 1
         End If

           
         If ok = 1 Then
            co = co + 1
            ImpostaGiocata 1,n,ruota,posta,clp
         ImpostaProgressione 1,Importo

            ColoreTesto 1
            Scrivi String(110,"*") & " Caso n°" & co,1
            Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
            Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
            " ] * [ " & Format2(a) & " ]" & "  *   decina : " & " [ " & Decina(a) & " ] ",1
            ColoreTesto 0
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub

 

[claudio8]

@BaffoBlù ci sei ?

 

[Suriciumalignu]

vi vedo tutti dormienti (forse è solo impressione...)

su, su, eccovi il caffè

ma che dico?


eccovi l'AmmazzaCaffè !


Le 2 immagini vi chiariranno tutto

(bisogna avere ì premi aggiornati...per gustarselo...)


Giocando con queste poste:

posta(2) = 3
posta(3) = 2
poste(3) = 2
poste(4) = 1




Vedi l'allegato 2285254

Vedi l'allegato 2285255




Se si gioca imperterriti continuando per tutti i 9 colpi
per ambo o terno / per terno o quaterna
senza alcuna progressione...(questo è il bello...)

Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata


| Ambo su ruota : 442
| Terno su ruota : 53
| Quaterna su ruota : 4
---------------------------------------------------
Spesa : 81.252,00 €
Vincita : 151.774,09 €
Guadagno : 70.522,09 €

-------------------------------------------------
*********************************


Se invece ci si ferma al primo esito raggiunto
per ambo o terno / per terno o quaterna
senza alcuna progressione...

Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata

| Ambo su ruota : 407
| Terno su ruota : 51
| Quaterna su ruota : 4
--------------------------------------------------
| Spesa : 73.866,00 €
| Vincita : 149.029,10 €
| Guadagno : 75.163,10 €
--------------------------------------------------



lo script contiene un mix di superalcoolici
gli astemi stiano alla larga...

Option Explicit
Sub Main()
   Dim ruote(1),n1(5),n2(5),n3(5),n4(5)
   Dim c1(5),c2(5),c3(5),s1(6),s2(6)
   Dim posta(10),poste(10)
   Dim a,b,x,x1,P1,P2
   Dim ww,fin,Ini,es,r,casi,co
   Dim z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11,z12
   posta(2) = 3
   posta(3) = 2
   poste(3) = 2
   poste(4) = 1
   ww = 9
   ruote(1) = r
   Ini = 1
   fin = EstrazioneFin
   co = 0
   ResetTimer
   For es = Ini To fin
      Messaggio "Hai solo il tempo di un caffè, Preparo l'AmmazzaCaffé [" &(es) & "]  " & DataEstrazione(es)
      Call AvanzamentoElab(Ini,fin,es)
      For r = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               a = Estratto(es,r,P1)
               b = Estratto(es,r,P2)
               If(a = 15 And b = 76) Or(a = 76 And b = 15) Then
                  x = a + b
                  x1 = Fuori90(a + b)
                  z1 = DiametraleD(x1)
                  z2 = Fuori90(z1 + x1)
                  z3 = ComplAdX(x1)
                  z4 = DiametraleD(z3)
                  z5 = Fuori90(z1 + z2)
                  z6 = Fuori90(z5 * 2)
                  z7 = Differenza(z4,z1)
                  z8 = Fuori90(z7 + x1)
                  z9 = Fuori90(z2 * z2)
                  z10 = Fuori90(z9 + z1)
                  z11 = ComplAdX(z10)
                  z12 = Differenza(z7,z11)
                  n1(1) = x1
                  n1(2) = z1
                  n1(3) = z10
                  n1(4) = z8
                  n1(5) = z4
                  n2(1) = x1
                  n2(2) = z1
                  n2(3) = z2
                  n2(4) = z6
                  n2(5) = z12
                  n3(1) = x1
                  n3(2) = z2
                  n3(3) = z6
                  n3(4) = z7
                  n3(5) = z4
                  n4(1) = x1
                  n4(2) = z10
                  n4(3) = z12
                  n4(4) = z7
                  n4(5) = z3
                  c1(1) = x1
                  c1(2) = z6
                  c1(3) = z10
                  c1(4) = z7
                  c1(5) = z4
                  c2(1) = z6
                  c2(2) = z10
                  c2(3) = z7
                  c2(4) = z8
                  c2(5) = z3
                  c3(1) = z2
                  c3(2) = z10
                  c3(3) = z8
                  c3(4) = z4
                  c3(5) = z3
                  s1(1) = x1
                  s1(2) = z2
                  s1(3) = z12
                  s1(4) = z10
                  s1(5) = z8
                  s1(6) = z3
                  s2(1) = z2
                  s2(2) = z12
                  s2(3) = z7
                  s2(4) = z8
                  s2(5) = z4
                  s2(6) = z3
                  ruote(1) = r
                  co = co + 1
                  casi = casi + 1
                  Scrivi String(120,"°") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " ] ",1,,,1,2
                  Scrivi "Ambo Spia Blù :  " & Format2(a) & "." & Format2(b) & "  in " & P1 & "° e in " & P2 & "° Posizione ",1,,,,2
                  Scrivi "Somma  : " & Format2(a) & "+" & Format2(b) & " = " & Format2(x) & " - " & " 90 " & " = " & Format2(x1),,,,7,2
                  Scrivi "CHIAVE MAGICA di BaffoBlù :  [" & Format2(x1) & "] ",1,,1,4,2
                  Scrivi "-----------------------------------------------------------------"
                  ImpostaGiocata 1,c1,ruote,posta,ww',2 ' Togli remmature se vuoi fermarti al primo esito raggiunto...
                  ImpostaGiocata 2,c2,ruote,posta,ww',2
                  ImpostaGiocata 3,c3,ruote,posta,ww',2
                  ImpostaGiocata 4,s1,ruote,posta,ww',2
                  ImpostaGiocata 5,s2,ruote,posta,ww',2
                  ImpostaGiocata 6,n1,ruote,poste,ww',3
                  ImpostaGiocata 7,n2,ruote,poste,ww',3
                  ImpostaGiocata 8,n3,ruote,poste,ww',3
                  ImpostaGiocata 9,n4,ruote,poste,ww',3
                  Gioca es,1,,1
               End If
               If ScriptInterrotto Then Exit For
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante("  * * * L'AmmazzaCaffé *** Idea e Script by BaffoBlù ***  "),1,3,0
   ScriviResoconto,True
   Scrivi " Tempo elaborazione " & TempoTrascorso
End Sub

Mi vorrei 'mbriacare

 

[Marco-elle]

Previsione mensile......

Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " PREVISIONE MENSILE VINCOLATA ALLA FIGURA DEL 1° ESTRATTO DELLA NZ "
   Scrivi " USCITO ALLA 1° ESTRAZIONE DEL MESE "
   Scrivi " METODO STATISTICO  BY Marco"
   ColoreTesto 0
   Dim Ini,fin,ok,co,r,a,clp,es,posta(3),ruota(10),n(5)
   posta(2) = 1
   posta(3) = 1
   clp = 15
   Ini = EstrazioneIni + 7430
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      For r = 12 To 12
         a = Estratto(es,r,1)
         Messaggio es
         Call AvanzamentoElab(Ini,fin,es)
         ok = 0
         If IndiceMensile(es) = 1 And Figura(a) = 1 Then
            n(1) = 9
            n(2) = 11
            n(3) = 25
            n(4) = 41
            n(5) = 56
            ruota(1) = 2
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 2 Then
            n(1) = 3
            n(2) = 31
            n(3) = 36
            n(4) = 65
            n(5) = 80
            ruota(1) = 4
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 3 Then
            n(1) = 8
            n(2) = 15
            n(3) = 54
            n(4) = 75
            n(5) = 82
            ruota(1) = 1
            ruota(2) = 2
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 4 Then
            n(1) = 2
            n(2) = 20
            n(3) = 59
            n(4) = 67
            n(5) = 81
            ruota(1) = 3
            ruota(2) = 6
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 5 Then
            n(1) = 11
            n(2) = 27
            n(3) = 68
            n(4) = 70
            n(5) = 82
            ruota(1) = 1
            ruota(2) = 5
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 6 Then
            n(1) = 3
            n(2) = 6
            n(3) = 23
            n(4) = 60
            n(5) = 89
            ruota(1) = 2
            ruota(2) = 4
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 7 Then
            n(1) = 8
            n(2) = 20
            n(3) = 45
            n(4) = 46
            n(5) = 52
            ruota(1) = 1
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 8 Then
            n(1) = 10
            n(2) = 14
            n(3) = 17
            n(4) = 19
            n(5) = 51
            ruota(1) = 1
            ruota(2) = 2
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 9 Then
            n(1) = 2
            n(2) = 13
            n(3) = 16
            n(4) = 40
            n(5) = 71
            ruota(1) = 2
            ruota(2) = 8
            ok = 1
         End If
         ImpostaGiocata 1,n,ruota,posta,clp
         If ok = 1 Then
            co = co + 1
            ColoreTesto 1
            Scrivi String(110,"*") & " Caso n°" & co,1
            Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
            Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
            " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
            ColoreTesto 0
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub

 

[BaffoBlù]

*****************************************************+









*********************************************

Option Explicit
Sub Main()
   Dim b1(2),b2(2),b3(2),b4(2),b5(2),b6(2),b7(2),b8(2),b9(2),b10(2),b11(2)
   Dim b12(2),b13(2),b14(2),b15(2),b16(2),b17(2),b18(2),b19(2),b20(2),b21(2),b22(2)
   Dim b23(2),b24(2),b25(2)
   Dim es,ini,fin,a,b,c,d,e,f,r,k,co,ok
   Dim poste(10)
   Dim ruota(12)
   poste(2) = 2
   k = 22
   ini = 4121' Inizio 1950
   fin = EstrazioneFin
   co = 0
   ResetTimer
   For es = ini To fin
      For r = 1 To 1
         Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
         Call AvanzamentoElab(ini,fin,es)
         ruota(1) = r
         ok = 0
         a = Estratto(es - 1,r,5)
         b = Estratto(es,r,5)
         c = Decina(a)
         d = Decina(b)
         e =(c * 10)
         f =(e + d)
         If Cadenza(a) = Cadenza(b) Then
            If Cadenza(a) = 8 Or Cadenza(b) = 8 Then
               If a <> b Then
                  ok = 1
                  If ok = 1 Then
                     b1(1) = 49
                     b1(2) = 09
                     b2(1) = 35
                     b2(2) = 47
                     b3(1) = 13
                     b3(2) = 89
                     b4(1) = 34
                     b4(2) = 65
                     b5(1) = 21
                     b5(2) = 47
                     b6(1) = 30
                     b6(2) = 51
                     b7(1) = 28
                     b7(2) = 75
                     b8(1) = 38
                     b8(2) = 57
                     b9(1) = 54
                     b9(2) = 82
                     b10(1) = 10
                     b10(2) = 29
                     b11(1) = 04
                     b11(2) = 34
                     b12(1) = 35
                     b12(2) = 49
                     b13(1) = 20
                     b13(2) = 34
                     b14(1) = 28
                     b14(2) = 61
                     b15(1) = 26
                     b15(2) = 75
                     b16(1) = 45
                     b16(2) = 79
                     b17(1) = 28
                     b17(2) = 46
                     b18(1) = 47
                     b18(2) = 59
                     b19(1) = 01
                     b19(2) = 68
                     b20(1) = 28
                     b20(2) = 87
                     b21(1) = 37
                     b21(2) = 81
                     b22(1) = 79
                     b22(2) = 87
                     b23(1) = 34
                     b23(2) = 72
                     b24(1) = 37
                     b24(2) = 45
                     b25(1) = 39
                     b25(2) = 48
                     ruota(1) = r
                     co = co + 1
                     Scrivi String(100,"°") & " Caso n°" & co,1
                     Scrivi DataEstrazione(es - 1) & " * " & SiglaRuota(r) & " 5° Estratto : " & Format2(a),1
                     Scrivi DataEstrazione(es) & " * " & SiglaRuota(r) & " 5° Estratto : " & Format2(b),1
                     Scrivi String(70,"°"),1
                     ImpostaGiocata 1,b1,ruota,poste,k',2,,1 ' se togliete tutte le remmature,
                     ImpostaGiocata 2,b2,ruota,poste,k',2,,2 ' ci si ferma al Primo Esito raggiunto...
                     ImpostaGiocata 3,b3,ruota,poste,k',2,,3
                     ImpostaGiocata 4,b4,ruota,poste,k',2,,4
                     ImpostaGiocata 5,b5,ruota,poste,k',2,,5
                     ImpostaGiocata 6,b6,ruota,poste,k',2,,6
                     ImpostaGiocata 7,b7,ruota,poste,k',2,,7
                     ImpostaGiocata 8,b8,ruota,poste,k',2,,8
                     ImpostaGiocata 9,b9,ruota,poste,k',2,,9
                     ImpostaGiocata 10,b10,ruota,poste',k,2,,10
                     ImpostaGiocata 11,b11,ruota,poste',k,2,,11
                     ImpostaGiocata 12,b12,ruota,poste',k,2,,12
                     ImpostaGiocata 13,b13,ruota,poste',k,2,,13
                     ImpostaGiocata 14,b14,ruota,poste',k,2,,14
                     ImpostaGiocata 15,b15,ruota,poste',k,2,,15
                     ImpostaGiocata 16,b16,ruota,poste',k,2,,16
                     ImpostaGiocata 17,b17,ruota,poste',k,2,,17
                     ImpostaGiocata 18,b18,ruota,poste',k,2,,18
                     ImpostaGiocata 19,b19,ruota,poste',k,2,,19
                     ImpostaGiocata 20,b20,ruota,poste',k,2,,20
                     ImpostaGiocata 21,b21,ruota,poste',k,2,,21
                     ImpostaGiocata 22,b22,ruota,poste',k,2,,22
                     ImpostaGiocata 23,b23,ruota,poste',k,2,,23
                     ImpostaGiocata 24,b24,ruota,poste',k,2,,24
                     ImpostaGiocata 25,b25,ruota,poste',k,2,,25
                     Gioca es,1,,1
                  End If
               End If
            End If
         End If
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ScriviResoconto
End Sub

 

[Oberdan]

Listato che analizza gli ambi somma 90 sulla NZ
in base al mese di uscita,estrapola una previsione
statistica su ruote congeniali.
Buona lettura.....

Sub Main()
   ColoreTesto 2
   Scrivi "AMBI SOMMA 90 SULLA NZ USCITI IN BASE AL MESE"
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "RICERCA EPOCALE E LIST BY Marco"
   ColoreTesto 0
   Dim poste(3)
   Dim ruota(10)
   Dim a5(5)
   poste(2) = 1
   poste(3) = 1
   clp = 12
   ini = EstrazioneFin - 3000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 12 To 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               ok = 0
               If Mese(es) = 1 Then
                  If a + b = 90 Then
                     a5(1) = 41
                     a5(2) = 43
                     a5(3) = 51
                     a5(4) = 61
                     a5(5) = 77
                     ruota(1) = 2
                     ruota(2) = 9
                     ok = 1
                  End If
               End If
               If Mese(es) = 2 Then
                  If a + b = 90 Then
                     a5(1) = 1
                     a5(2) = 4
                     a5(3) = 7
                     a5(4) = 46
                     a5(5) = 76
                     ruota(1) = 1
                     ruota(2) = 9
                     ok = 1
                  End If
               End If
               If Mese(es) = 3 Then
                  If a + b = 90 Then
                     a5(1) = 8
                     a5(2) = 9
                     a5(3) = 16
                     a5(4) = 38
                     a5(5) = 57
                     ruota(1) = 3
                     ruota(2) = 4
                     ok = 1
                  End If
               End If
               If Mese(es) = 4 Then
                  If a + b = 90 Then
                     a5(1) = 8
                     a5(2) = 23
                     a5(3) = 44
                     a5(4) = 52
                     a5(5) = 77
                     ruota(1) = 1
                     ruota(2) = 6
                     ok = 1
                  End If
               End If
               If Mese(es) = 5 Then
                  If a + b = 90 Then
                     a5(1) = 8
                     a5(2) = 15
                     a5(3) = 38
                     a5(4) = 50
                     a5(5) = 72
                     ruota(1) = 1
                     ruota(2) = 10
                     ok = 1
                  End If
               End If
               If Mese(es) = 6 Then
                  If a + b = 90 Then
                     a5(1) = 16
                     a5(2) = 49
                     a5(3) = 52
                     a5(4) = 59
                     a5(5) = 61
                     ruota(1) = 1
                     ruota(2) = 7
                     ok = 1
                  End If
               End If
               If Mese(es) = 7 Then
                  If a + b = 90 Then
                     a5(1) = 4
                     a5(2) = 6
                     a5(3) = 16
                     a5(4) = 19
                     a5(5) = 79
                     ruota(1) = 2
                     ruota(2) = 8
                     ok = 1
                  End If
               End If
               If Mese(es) = 8 Then
                  If a + b = 90 Then
                     a5(1) = 13
                     a5(2) = 18
                     a5(3) = 27
                     a5(4) = 76
                     a5(5) = 90
                     ruota(1) = 3
                     ruota(2) = 7
                     ok = 1
                  End If
               End If
               If Mese(es) = 9 Then
                  If a + b = 90 Then
                     a5(1) = 9
                     a5(2) = 27
                     a5(3) = 32
                     a5(4) = 46
                     a5(5) = 56
                     ruota(1) = 7
                     ruota(2) = 10
                     ok = 1
                  End If
               End If
               If Mese(es) = 10 Then
                  If a + b = 90 Then
                     a5(1) = 25
                     a5(2) = 65
                     a5(3) = 76
                     a5(4) = 76
                     a5(5) = 83
                     ruota(1) = 1
                     ruota(2) = 6
                     ok = 1
                  End If
               End If
               If Mese(es) = 11 Then
                  If a + b = 90 Then
                     a5(1) = 13
                     a5(2) = 16
                     a5(3) = 17
                     a5(4) = 47
                     a5(5) = 69
                     ruota(1) = 1
                     ruota(2) = 3
                     ok = 1
                  End If
               End If
               If Mese(es) = 12 Then
                  If a + b = 90 Then
                     a5(1) = 10
                     a5(2) = 18
                     a5(3) = 34
                     a5(4) = 40
                     a5(5) = 84
                     ruota(1) = 1
                     ruota(2) = 9
                     ok = 1
                  End If
               End If
               If ok = 1 Then
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(110,"°") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
                  Scrivi DataEstrazione(es) & "   ambo somma 90 sortito sula NZ    " & a & " - " & b,1
                  Scrivi String(110,"°"),1
                  ColoreTesto 0
                  ImpostaGiocata 1,a5,ruota,poste,clp
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

Ciao Marco e tutti,

come puoi vedere, le tue ricerche sulla Nazionale, anche quelle più "datate", continuano ad essere oggetto della mia attenzione e non credo soltanto della mia.
So bene che le previsioni che il tuo script mette in gioco (numeri e scelta delle "ruote congeniali" sono frutto di una tua ricerca statistica.
Ciò nonostante ho voluto fare qualche ricerca anch'io, pur lasciando inalterati i numeri da mettere in gioco e le ruote da te selezionate.
Ebbene, questi sono i risultati e le considerazioni:

sembra funzionare anche ricercando l'ambo di somma 90 in altre ruote (non tutte con gli stessi risultati)
e vista la presenza di qualche sporadica quaterna potrebbe avere un senso giocare .90 sul terno e .10 sulla quaterna.
Le ruote da preferire per la condizione sono dalla più conveniente a scendere:

MI = Perc. Rendimento: 58,358 %
NZ = Perc. Rendimento: 52,847 %
NA = Perc. Rendimento: 38,359 %
VE = Perc. Rendimento: 37,403 %

Si tratta quindi di ulteriori possibilità di gioco, anche se, lo ribadisco, tu avresti probabilmente posto in gioco numeri diversi, magari anche su ruote differenti. Ma, alla fine della fiera, il metodo sembra funzionare ugualmente e con risultati tutt'altro che trascurabili.

Buona domenica e grazie.

Oberdan