Novità

Script

scarfacetony

scarfacetony

Senior Member
Buona serata a tutti,ho ritrovato questo articolo di AnnaRita Sardarelli,chi vuole fare uno script...

GLI INNUMEREVOLI SPUNTI DEL 90
di Annarita Sardarelli
Eh, sì, amici lettori sono qui ancora una volta a parlarvi del 90. Mi sembra, infatti, di averlo utilizzato almeno altre due volte per ricavarne previsioni attendibili e debbo dire che, nelle precedenti occasioni non mi ha (e - spero! - non vi abbia) deluso. Forte di questo, mi accingo a riproporvene un utilizzo simile (sempre come numero spia) ma pur sempre diverso. L'uscita dell'ultimo e più magico di tutti i numeri del Lotto su una qualsiasi ruota, infatti, permette un gioco di ambata, ambo e qualcosina di più che, a mio modesto avviso, potrebbe essere adeguatamente sfruttata. Il metodo è di quelli facili, di tipo visivo e che non richiede calcoli e conoscenze tecniche, per cui è alla portata di tutti, anche di chi si accosta solo adesso al mondo dei 90 numeri.

Procedimento teorico
Si tratta, come avrete intuito, di rintracciare su una ruota qualsiasi e su una qualsiasi estrazione, il famigerato '90'. Trovatolo si mette in gioco per ambata principale il numero 29 e come ambata secondaria il numero 20. E questo è un primo tipo di gioco, dedicato soprattutto agli estimatori dell'ambata. Per chi preferisce o gradisce di più il gioco d'ambo, si possono abbinare all'ambata principale: 29 tutti i numeri della cadenza 9 o della cadenza 0, ottenendo 17 ambi fra cui, in ristretto si possono considerare principali i seguenti: 20-29, 20-90, 29-90. L'ultima possibilità, infine, è data dalla messa in gioco di tutti i 18 numeri della cadenza 9 e 0 assemblati in un sistema, oppure giocati su due bollette da dieci numeri ciascuna: una per la cadenza 9: 9-19-29-39-49-59-69-79-89 e l'altra per la cadenza 0: 10-20-30-40-50-60-70-80-90. Da notare che il presente metodo non ha bisogno di controlli retroattivi e non è invalidato neppure dalla presenza dell'ambata (o delle ambate), tutt'al più si consiglia prudenza per il protrarsi dei tempi di gioco che sono valutabili in 10/15 estrazioni per le ambate e i tre ambi in ristretto e in 8/9 per il gioco a sistema. Seguitemi e vediamo insieme con qualche esempio cosa succede alla sortita del 90.

Esempi
Estrazione del 7/1/98 ROMA:

20 29 1 11 90

Come si può notare, l'ultimo estratto di Roma è il 90 che, guarda caso, è uscito con il 20 ed 29, i numeri che costituiscono le nostre ambate. Poiché come vi dicevo, il metodo non viene invalidato da questa circostanza, procediamo ad applicarlo e a ricavare la previsione. Possiamo scegliere il gioco d'ambata e, quindi, rimettere in gioco il 29 ed il 20; oppure preferire quello d'ambo e in questo caso, giocare tutti i 17 ambi, ovvero: 29-9, 29-19, 29-39, 29-49, 29-59, 29-69, 29-79, 29-89, 29-10, 29-20, 29-30, 29-40, 29-50, 29-60, 29-70, 29-80, 29-90. Abbiamo sempre la possibilità di restringere il gioco scegliendo i tre ambi suggeriti: 20-29, 20-90 e 29-90 (che ci permettono di protrarre il gioco anche fino a 15 colpi) o in alternativa di riunire tutti i numeri delle due cadenze in un sistema o su due bollette. Vediamo che cosa sarebbe successo nelle diverse ipotesi.

Gioco d'ambata: esito al 3° colpo con la principale, 29.

Gioco d'ambo esteso: negativo.

Gioco d'ambo ristretto: al 13° colpo esce l'ambo 29-90.

Gioco a sistema: esito al 1° colpo con l'ambo 40-70, al 2° colpo con il 49-59 e al 5° con il 69-59.

Gli esiti non sono eclatanti, ma non dimentichiamo che il 90 era uscito con le due ambate!

Estrazione del 25-2-98 TORINO:

2 90 63 14 60

La presenza del 90 ci permette di ricavare la previsione che fornisce i seguenti esiti: al 2° colpo: l'ambata secondaria 20, l'ambo 20-40 (preso sulla bolletta con gli zerati) ed il terno 89-20-40 (preso nel caso di gioco a sistema). all'8° colpo: usciva ancora l'ambata secondaria 20 , l'ambo in ristretto, 20-90 ed il terno 20-90-59.

Estrazione del 25/3/98 FIRENZE:

55 90 56 78 82

Il nostro numero magico è uscito e quindi possiamo passare a giocare la previsione e ad attenderci qualche buon risultato, infatti...

al 1° colpo otteniamo l'ambo sul sistema 50-69 (poca cosa!)

al 2° colpo esce l'ambata secondaria 20, l'ambo in cadenza 9: 49-39 (su bolletta unica) ed il terno 20-49-59 (decisamente meglio, anche se su sistema!).

al 3° colpo, di nuovo l'ambata 20 (non male!)

all'11° colpo (finalmente si ragiona!) si presenta l'ambata principale 29, l'ambo in ristretto 29-20 e...

Cito solo per cronaca gli ambi 29-19 e 29-79 (nonché il terno 29-19-79), che se avessimo avuto l'imprudenza di giocare avremmo preso secchi
 
Ciao, provalo..

Codice: 
Sub Main()
   'https://forum.lottoced.com/threads/script.2223681/#post-2745918
   Scrivi " GLI INNUMEREVOLI SPUNTI DEL 90 di Annarita Sardelli richiesta di SCARFACETONY..... script di GioRyuKen72",1,,2,6,5,,1
   Dim rt(2),Nn(1),Num(1),E1,P5
   Dim Ambata1(2),PostaA(2),Ambo1(2),Ambo2(2),Ambo3(2),PostaABT(1)
   Dim Ambata,Ambatasecondaria,Novina1(9),Novina2(9),PostaN(5)
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      For R1 = 1 To 10
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            Nn(1) = Estratto(es,R1,P1)
            If Nn(1) = 90 Then
               Ambata = 29
               Ambatasecondaria = 20
               Num(1) = Nn(1)
               rt(1) = r1
               'rt(2) =TT_
               PostaABT(1) = 2
               PostaA(2) = 1
               PostaN(2)=2.2
               PostaN(3)=1.1
               PostaN(4)=0.5
               PostaN(5)=0.2
               k = 15
               Ambata1(1) = Ambata
               Ambata1(2) = Ambatasecondaria
               ImpostaGiocata 1,Ambata1,rt,PostaABT,k,1
               Ambo1(1) = Ambata
               Ambo1(2) = Ambatasecondaria
               ImpostaGiocata 2,Ambo1,rt,PostaA,k,2
               Ambo2(1) = Ambata
               Ambo2(2) = Num(1)
               ImpostaGiocata 3,Ambo2,rt,PostaA,k,2
               Ambo3(1) = Ambatasecondaria
               Ambo3(2) = Num(1)
               ImpostaGiocata 4,Ambo3,rt,PostaA,k,2
               Novina1(1) = Ambata
               Novina1(2) = 9
               Novina1(3) = 19
               Novina1(4) = 39
               Novina1(5) = 49
               Novina1(6) = 59
               Novina1(7) = 69
               Novina1(8) = 79
               Novina1(9) = 89
               OrdinaMatrice Novina1,1
               ImpostaGiocata 5,Novina1,rt,PostaN,k,2
               Novina2(1) = Ambatasecondaria
               Novina2(2) = 10
               Novina2(3) = 30
               Novina2(4) = 40
               Novina2(5) = 50
               Novina2(6) = 60
               Novina2(7) = 70
               Novina2(8) = 80
               Novina2(9) = 90
               OrdinaMatrice Novina2,1
               ImpostaGiocata 6,Novina2,rt,PostaN,k,2
               casi = casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               ColoreTesto 0
               Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P5 = 1 To 5
                  E1 = Estratto(Es,R1,P5)
                  If E1 = Nn(1) Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi String(78,"-"),1
               ColoreTesto 1
               ' OrdinaMatrice Nn,1
               Scrivi "Numeri Ricercati:  " & Format2(Nn(1)),1,0
               Scrivi
               ColoreTesto 0
               Scrivi String(78,"-"),1
               Scrivi
               Gioca es,True,,1
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

Saluti, Gio..
 
Ultima modifica:
GioRyuKen72 ha scritto:
Ciao, provalo..

Codice: 
Sub Main()
   'https://forum.lottoced.com/threads/script.2223681/#post-2745918
   Scrivi " GLI INNUMEREVOLI SPUNTI DEL 90 di Annarita Sardelli richiesta di SCARFACETONY..... script di GioRyuKen72",1,,2,6,5,,1
   Dim rt(2),Nn(1),Num(1),E1,P5
   Dim Ambata1(2),PostaA(2),Ambo1(2),Ambo2(2),Ambo3(2),PostaABT(1)
   Dim Ambata,Ambatasecondaria
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      For R1 = 1 To 10
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            Nn(1) = Estratto(es,R1,P1)
            If Nn(1) = 90 Then
               Ambata = 29
               Ambatasecondaria = 20
               Num(1) = Nn(1)
               rt(1) = r1
               'rt(2) =TT_
               PostaABT(1) = 2
               PostaA(2) = 1
               k = 15
               Ambata1(1) = Ambata
               Ambata1(2) = Ambatasecondaria
               ImpostaGiocata 1,Ambata1,rt,PostaABT,k,1
               Ambo1(1) = Ambata
               Ambo1(2) = Ambatasecondaria
               ImpostaGiocata 2,Ambo1,rt,PostaA,k,2
               Ambo2(1) = Ambata
               Ambo2(2) = Num(1)
               ImpostaGiocata 3,Ambo2,rt,PostaA,k,2
               Ambo3(1) = Ambatasecondaria
               Ambo3(2) = Num(1)
               ImpostaGiocata 4,Ambo3,rt,PostaA,k,2
               casi = casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
               ColoreTesto 0
               Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P5 = 1 To 5
                  E1 = Estratto(Es,R1,P5)
                  If E1 = Nn(1) Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi String(78,"-"),1
               ColoreTesto 1
               ' OrdinaMatrice Nn,1
               Scrivi "Numeri Ricercati:  " & Format2(Nn(1)),1,0
               Scrivi
               ColoreTesto 0
               Scrivi String(78,"-"),1
               Scrivi
               Gioca es,True,,1
            End If
         Next
        Next
         If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
ScriviResoconto
End Sub

Saluti, Gio..
Clicca per espandere...
Grazie mille
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 21 giugno 2025
    Bari
    07
    03
    45
    25
    05
    Cagliari
    20
    73
    88
    50
    15
    Firenze
    04
    19
    09
    52
    55
    Genova
    21
    47
    65
    53
    24
    Milano
    11
    64
    70
    67
    51
    Napoli
    59
    66
    83
    33
    03
    Palermo
    61
    74
    28
    62
    04
    Roma
    25
    29
    15
    54
    44
    Torino
    34
    22
    30
    59
    28
    Venezia
    42
    75
    06
    83
    84
    Nazionale
    36
    67
    41
    54
    56
    Estrazione Simbolotto
    Napoli
    02
    40
    06
    26
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto