Metodo Firenze Effetto Speciale

[Imaging]

Firenze
Data inizio Ricerca: 28/2/2017
Data fine Ricerca: 27/2/2021
Ruota di Ricerca: Fi
Ruota/e di Gioco: Fi
Colpi di gioco: 9
Combinazioni in gioco: 1 ambata + 1 ambi secchi + Lunghetta
Estrazione di calcolo: 12ª estrazione mensile

Previsioni Giocabili: 47
Previsioni Vincenti: 26(55,32%)
Previsioni Negative: 20(44,68%)
Previsioni in Gioco: 1
Ambate vinte: 26 (100%)
Ambi secchi vinti: 4 (20%)
Ambi in lunghetta vinti: 4 (20%)
Terni in lunghetta vinti: 0 (0%)
Quaterne in lunghetta vinte: 0 (0%)
Cinquine in lunghetta vinte: 0 (0%)
Tempo medio di attesa: 4,4
Calcolo delle combinazioni:
Ambata: 3° di Fi x 3° di Naz
Numeri fissi da abbinare per ambo: 50
Lunghetta: ambata + abbinamenti per ambo

Attenzione:
- Si è applicata la regola del fuori 90
Previsione n°1
Inizio di gioco: Prossima estrazione
Colpi ancora in gioco: 9
Ruota\e di gioco: Fi
Ambata da giocare: 46
Ambi da giocare: 46-50
Lunghetta per sorti superiori: 46-50-5-64

 

[L8master]

Bravo Imaging ambata 46 e ambo in quartina 5-46

 

[AMERICA]

Sempre bravissimo

 

[NEM]

Sei bravissimo (avevo scelto l'altra)

 

[Sheena]

Bravo ....non l ho vista ahimè

 

[GioRyuKen72]

Ciao a tutti,
ecco lo script per chi fosse interessato:

Anticipazione (Spoiler): Metodo FIRENZE Effetto Speciale

Sub Main
   ' https://forum.lottoced.com/threads/metodo-firenze-effetto-speciale.2199081/
   ColoreTesto 0
   Scrivi "                            Metodo FIRENZE EFFETTO SPECIALE di IMAGING -- listato GioRyuKen72                              ",1,,2,5
   Scrivi "https://forum.lottoced.com/threads/metodo-firenze-effetto-speciale.2199081/",1
   Scrivi
   ColoreTesto 0
   Dim R1,ruo(3),RuoABT(1),Nn(2),E1,E2,P1,P2,P5,P6,a,b,Cap,Abb1,Abb2,Abb3
   Dim Ambata1(1),ambo1(2),ambo2(2),Terzina1(3),Quartina1(4)
   Dim PostaABT(1),PostaA(2),PostaT(3),PostaQ(4),Fi3,Nz3,Fi3Nz3
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",160))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      AvanzamentoElab Ini,fin,es
      If IndiceMensile(es) = 12 Then
         R1 = 3
         Fi3 = Estratto(es,R1,3)
         Nz3 = Estratto(es,NZ_,3)
         '______________________________________
         Cap = Fuori90(Fi3*Nz3)
         Abb1 = 50
         Abb2 = 5
         Abb3 = Vert(Cap)
         If Abb1 = Cap Then Abb1 = Abb1 + 1
         If Abb2 = Cap Then Abb2 = Abb2 + 1
         If Abb3 = Cap Then Abb3 = Abb3 + 1
         If Abb2 = Abb1 Then Abb2 = Abb2 + 1
         If Abb3 = Abb1 Then Abb3 = Abb3 + 1
         If Abb3 = Abb2 Then Abb3 = Abb3 + 1
         Fi3Nz3=Fi3*Nz3
         RuoABT(1) = R1
         ruo(1) = R1
         'ruo(2) = TT_
         'ruo(3) = NZ_
         PostaABT(1) = 2
         PostaA(2) = 1
        ' PostaT(2) = 0.8
         'PostaT(3) = 0.2
         PostaQ(2) = 1.6
         PostaQ(3) = 0.3
         PostaQ(4) = 0.1
         k = 13
         Ambata1(1) = Cap
         ImpostaGiocata 1,Ambata1,RuoABT,PostaABT,k,1
         ambo1(1) = Cap
         ambo1(2) = Abb1
         ImpostaGiocata 2,ambo1,ruo,PostaA,k
         ambo2(1) = Cap
         ambo2(2) = Abb2
         'ImpostaGiocata 3,ambo2,ruo,PostaA,k
         Quartina1(1) = Cap
         Quartina1(2) = Abb1
         Quartina1(3) = Abb2
         Quartina1(4) = Abb3
         ImpostaGiocata 4,Quartina1,ruo,PostaQ,k,3
         caso = 0
         casi = casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         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 = Fi3 Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(NZ_) & " ",1,0
         For P6 = 1 To 5
            E2 = Estratto(Es,NZ_,P6)
            If E2 = Nz3 Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi String(70,"-"),1
         'Scrivi "Capigioco  : " & Format2(Cap),1
         Scrivi "Calcolo il capogioco:  " & Format2(Fi3) & " per " & Format2(Nz3) & " = " & Format2(Fi3Nz3) &  " = " & Format2(Cap),1,,,1
         ColoreTesto 0 : Scrivi String(70,"-"),1
         Scrivi
         Gioca es,True,,1
      End If
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   TestoInBandaPassante " *****  Metodo FIRENZE EFFETTO SPECIALE di IMAGING  -- listato GioRyuKen72 ***** ",1,3,0
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

Buonanotte
Gio

 

[lotto_tom75]

Bravo Imaging ambata 46 e ambo in quartina 5-46

bellissimo nuovo centro!

 

[Imaging]

Sei bravissimo (avevo scelto l'altra)

Se Ti va puoi seguire come da descrizione....

 

[Imaging]

Se Ti va puoi seguire la/e previsioni come descritto ......sono ancora valide.....

 

[Imaging]

Bravo ....non l ho vista ahimè

Può capitare...