Novità

#SoloperScripter

stupl

Super member
Salve a tutti, girovagando per internet ho trovato questo metodo che vi posto sotto, quindi volevo chiedere a qualche scripter se sarebbe possibile fare uno script per spaziometria in modo da verificare se da qualche punticino a lotto per vincere qualche spicciolo. Ecco la spiegazione del metodo :

METODO DI ELISABETTA MASI ..LA SIGNORA IN ROSSO

TRE TERNI IN TRE COLPI: METODO DA COLLEZIONE di Elisabetta Masi


Basandomi sui principi fondamentali della ciclometria anni fa, ideai un metodo molto facile che nel corso del tempo vi ha permesso di conseguire risultati straordinari in pochi colpi. La base di ricerca è costituita dai numeri ripetuti

Per ricavare Il nostro pronostico ci serviremo di tre numeri uguali, di cui due sortiti in due ruote consecutive e almeno due nella stessa posizione. In alternativa possiamo utilizzare due numeri uguali, sortiti in due ruote consecutive nelle stessa posizione ed estrazione, e uno dei tre numeri fissi come terzo elemento. Le condizioni espresse sono fondamentali per ottenere la vincita.

Il principio matematico

Se eseguiamo la sottrazione tra due numeri uguali il risultato è “0” ( es.: 45 - 45 = 0). Quindi, se inscriviamo in una circonferenza immaginaria i 90 numeri in gioco, possiamo stabilire che la distanza tra due numeri uguali è 90. Sfruttando l’efficacia della distanza “10”, sperimentata con successo nella conosciutissima tecnica “Ambo e terno atomico”, procederemo sottraendo il n.10 alla distanza 90 ( 90 –10 =80).
Il numero ripetuto trovato sarà utilizzato come capogioco, per la formazione dei tre ambi secchi useremo i numeri fissi 80-10-90 (determinati dalla spiegazione precedente).
Con i numeri ottenuti formeremo i terni secchi da giocare nelle ruote fisse e su Tutte le ruote.
Il gioco va effettuato nelle ruote in cui è sortito il numero ripetuto, in qualsiasi posizione, nell'estrazione di rilevamento, fondamentale la presenza del rispettivo complementare. Se nelle estrazioni successive, il capogioco si manifesta in un'altra ruota nella stessa posizione d'origine, tale ruota diventa probabile per lo sfaldamento.
L'esito incluso (nella stessa estrazione) o anticipato nei sette concorsi precedenti, in una delle ruote fisse annulla il gioco. Il 90% delle previsioni si manifesta nei primi tre colpi, chi lo desidera può seguire la previsione per massimo 9 concorsi.

SVILUPPO CON ESEMPI REALI

Estrazione del 15/09/1999, nelle ruote consecutive Firenze e Genova, notiamo che il secondo estratto è 61. Nella stessa estrazione non troviamo il terzo 61, ma possiamo elaborare egualmente la previsione poiché su Torino troviamo uno dei numeri fissi
(10-80-90) il n. 90 come secondo estratto, quindi, le ruote fisse in gioco sono Firenze, Genova e Torino. Gli ambi secchi da giocare sono: 61-10, 61-80, 61-90.
I terni secchi sono: 61-10-80, 61-80-90, 61-90-10;
ESITO:AL PRIMO COLPO SU GENOVA TERNO SECCO 61-80-90

Estrazione del 08/04/2000, nelle ruote consecutive Roma e Torino, notiamo che il primo e il secondo estratto corrispondono al n.47. Nella stessa estrazione troviamo il terzo 47 come primo estratto su Genova e il n. 90 in prima posizione su Venezia, quindi, le ruote fisse in gioco sono Genova, Roma , Torino e Venezia.

Estr. del 08/04/2000
GENOVA 47
ROMA 47
TORINO 47
VENEZIA 90

Gli ambi secchi da giocare sono: 47-10, 47-80, 47-90.
I terni secchi sono: 47-10-80, 47-80-90, 47-90-10;

ESITO: AL SECONDO COLPO SU GENOVA, TERNO SECCO 47-80-90

Estrazione del 09/01/2007, nelle ruote consecutive di Napoli e Palermo, notiamo che il secondo e quinto estratto corrispondono al n. 61. Nella stessa estrazione troviamo il terzo 61 come quarto estratto su Torino e il n. 10 in prima posizione sulla ruota Nazionale. Il gioco è fatto, le ruote fisse sono Napoli, Palermo, Torino e Nazionale.
Gli ambi secchi da giocare sono: 61-10, 61-80, 61-90
I terni secchi sono: 61-10-80, 61-80-90, 61-90-10
La combinazione che nel ’99 fornì il terno secco a Genova, ha regalato un’altra vincita milionaria, questa su Napoli.

Grazie per l'aiuto.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Mi sono cimentato a fare questo script e mi sono arenato nell'inserimento della quarta ruota, il difficile per me non è quello di inserire un'altra ruota, ma il fatto che non c'è sempre, cioè in certe condizioni c'è ed in altre condizioni non c'è, ma vedo che Blackmore (che saluto, per me anche Blackmore è un mostro sacro in fatto di script) dice che è laborioso, quindi abbandono la quarta ruota e lascio solo tre ruote.



Codice:
'Metodo - Tre Terni in Tre Colpi - Elisabetta Masi
'con Tre ruote
'Script by Salvo50
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,Clp
   Dim E1,E2,E3,A,B,C,Caso,Casi,Fr1,fr2,fr3
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Terno1(3)
   Dim Terno2(3),terno3(3),Ruo(3),Posta(2),Poste(3)
   Clp = 9
   Posta(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   Ini = 9510
   Fin = EstrazioneFin
   Scrivi "Progetto - Tre Terni in Tre Colpi di Elisabetta Masi - 3 ruote - Script by Salvo50",1,1,3,,3,,1
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         R2 = R1 + 1
         If R2 = 11 Then R2 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For P2 = 1 To 5
               B = Estratto(Es,R2,P2)
               If A = B Then
                  For R3 = 1 To 12
                     If R3 = 11 Then R3 = 12
                     If R3 <> R2 And R3 <> R1 Then
                        For P3 = 1 To 5
                           C = Estratto(Es,R3,P3)
                           If C = A Or C = 10 Or C = 80 Or C = 90 Then
                              Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                              Ambo1(1) = A : Ambo1(2) = 10
                              Fr1 = SerieFreqTurbo(Es - 7,Es,Ambo1,Ruo,2)
                              Ambo2(1) = A : Ambo2(2) = 80
                              fr2 = SerieFreqTurbo(Es - 7,Es,Ambo2,Ruo,2)
                              Ambo3(1) = A : Ambo2(2) = 90
                              fr3 = SerieFreqTurbo(Es - 7,Es,Ambo3,Ruo,2)
                              If Fr1 = 0 And fr2 = 0 And fr3 = 0 Then
                                 '-----------------------------------------------------
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 1
                                 Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 2
                                 Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi
                                 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 = A Then
                                       Call ColoreTesto(2)
                                    Else
                                       Call ColoreTesto(0)
                                    End If
                                    Call Scrivi(Format2(E1) & " ",1,0)
                                    Call ColoreTesto(0)
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es,R2,P6)
                                    If E2 = B Then
                                       Call ColoreTesto(2)
                                    Else
                                       Call ColoreTesto(0)
                                    End If
                                    Call Scrivi(Format2(E2) & " ",1,0)
                                    Call ColoreTesto(0)
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                 For P7 = 1 To 5
                                    E3 = Estratto(Es,R3,P7)
                                    If E3 = C Then
                                       Call ColoreTesto(2)
                                    Else
                                       Call ColoreTesto(0)
                                    End If
                                    Call Scrivi(Format2(E3) & " ",1,0)
                                    Call ColoreTesto(0)
                                 Next
                                 Scrivi
                                 ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
                                 ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
                                 ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
                                 Terno1(1) = A : Terno1(2) = 10 : Terno1(3) = 80
                                 ImpostaGiocata 4,Terno1,Ruo,Poste,Clp
                                 Terno2(1) = A : Terno2(2) = 10 : Terno2(3) = 90
                                 ImpostaGiocata 5,Terno2,Ruo,Poste,Clp
                                 terno3(1) = A : terno3(2) = 80 : terno3(3) = 90
                                 ImpostaGiocata 6,terno3,Ruo,Poste,Clp
                                 Gioca Es
                              End If
                           End If
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviDistribuzioneEsiti(True) ' false per non scrivere le giocate, altrimenti True
   ScriviDistribuzioneCasiInCorso(True) ' come sopra
   ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
In questo ci sono 4 ruote, non sono riuscito a fare un solo script, con 3 ruote e 4 ruote assieme, con le caratteristiche del metodo

Codice:
'Progetto - Tre Terni In Tre Colpi di Elisabetta Masi - 4 ruote
'script by Salvo50
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,R3,R4,P1,P2,P3,P4,P5,P6,P7,P8,Clp
   Dim E1,E2,E3,E4,A,B,C,D,Caso,Casi,Fr1,fr2,fr3
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Terno1(3)
   Dim Terno2(3),terno3(3),Ruo(4),Posta(2),Poste(3)
   Ruo(1) = TU_
   Clp = 8
   Posta(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   Scrivi "Progetto - Tre Terni in Tre Colpi di Elisabetta Masi - 4 ruote - Script by Salvo50",1,1,3,,3,,1
   Ini = 9520
   Fin = EstrazioneFin
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         R2 = R1 + 1
         If R2 = 11 Then R2 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For P2 = 1 To 5
               B = Estratto(Es,R2,P2)
               If A = B And A <> 10 And A <> 80 And A <> 90 Then
                  For R3 = 1 To 11
                     If R3 = 11 Then R3 = 12
                     If R3 <> R2 And R3 <> R1 Then
                        For P3 = 1 To 5
                           C = Estratto(Es,R3,P3)
                           If C = A Then
                              '-----------------------------------------------------
                              For R4 = 1 To 11
                                 If R4 = 11 Then R4 = 12
                                 For P4 = 1 To 5
                                    D = Estratto(Es,R4,P4)
                                    If R4 <> R3 And R4 <> R2 And R4 <> R1 And D = 10 Or D = 80 Or D = 90 Then
                                       Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = R4
                                       Ambo1(1) = A : Ambo1(2) = 10
                                       Fr1 = SerieFreqTurbo(Es - 7,Es,Ambo1,Ruo,2)
                                       Ambo2(1) = A : Ambo2(2) = 80
                                       fr2 = SerieFreqTurbo(Es - 7,Es,Ambo2,Ruo,2)
                                       Ambo3(1) = A : Ambo2(2) = 90
                                       fr3 = SerieFreqTurbo(Es - 7,Es,Ambo3,Ruo,2)
                                       If Fr1 = 0 And fr2 = 0 And fr3 = 0 Then
                                          Caso = Caso + 1
                                          Casi = Casi + 1
                                          ColoreTesto 1
                                          Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                          ColoreTesto 2
                                          Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                          ColoreTesto 0
                                          Scrivi
                                          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 = A Then
                                                Call ColoreTesto(2)
                                             Else
                                                Call ColoreTesto(0)
                                             End If
                                             Call Scrivi(Format2(E1) & " ",1,0)
                                             Call ColoreTesto(0)
                                          Next
                                          Scrivi
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                          For P6 = 1 To 5
                                             E2 = Estratto(Es,R2,P6)
                                             If E2 = B Then
                                                Call ColoreTesto(2)
                                             Else
                                                Call ColoreTesto(0)
                                             End If
                                             Call Scrivi(Format2(E2) & " ",1,0)
                                             Call ColoreTesto(0)
                                          Next
                                          Scrivi
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                          For P7 = 1 To 5
                                             E3 = Estratto(Es,R3,P7)
                                             If E3 = C Then
                                                Call ColoreTesto(2)
                                             Else
                                                Call ColoreTesto(0)
                                             End If
                                             Call Scrivi(Format2(E3) & " ",1,0)
                                             Call ColoreTesto(0)
                                          Next
                                          Scrivi
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R4) & " ",1,0
                                          For P8 = 1 To 5
                                             E4 = Estratto(Es,R4,P8)
                                             If E4 = D Then
                                                Call ColoreTesto(2)
                                             Else
                                                Call ColoreTesto(0)
                                             End If
                                             Call Scrivi(Format2(E4) & " ",1,0)
                                             Call ColoreTesto(0)
                                          Next
                                          Scrivi
                                          ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
                                          ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
                                          ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
                                          Terno1(1) = A : Terno1(2) = 10 : Terno1(3) = 80
                                          ImpostaGiocata 4,Terno1,Ruo,Poste,Clp
                                          Terno2(1) = A : Terno2(2) = 10 : Terno2(3) = 90
                                          ImpostaGiocata 5,Terno2,Ruo,Poste,Clp
                                          terno3(1) = A : terno3(2) = 80 : terno3(3) = 90
                                          ImpostaGiocata 6,terno3,Ruo,Poste,Clp
                                          Gioca Es
                                       End If
                                    End If
                                 Next
                              Next
                              '----------------------------------------------------
                           End If
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviDistribuzioneEsiti(True) ' false per non scrivere le giocate, altrimenti True
   ScriviDistribuzioneCasiInCorso(True) ' come sopra
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto