Novità

Provare a vincere con 3 figure uguali

Paki144

Super member
Ciao Forum, Ciao a tutti,
Agli Esperti Programmatori Scripter
prego una richiesta per fare diventare questo metodo uno script per Spaziometria. Grazie

Condizione di ricerca:
Sulla stessa ruota in due estrazioni consecutive:
dobbiamo trovare
nella prima estrazione i 5 numeri estratti devono essere tutti di figura diversa.
nella seconda estrazione
dobbiamo trovare almeno tre numeri della stessa figura
(un terno in figura)
L'importante che l'estrazione con i numeri di figure tutte diverse tra loro deve essere sempre la prima.
- - - - - - - - - - - - - - - - - - - - - - - - - -

L'estrazione con il terno in figura deve essere sempre quella dopo
- - - - - - - - - - - - - - - - - - - - - - - - - -
Due esempi :
Figure diverse = 1__2__4__9__3
Figure tre uguali = 5__6__4__5__5
- - - - - - - - - - - - - - - - - - - - -
Due estrazioni consecutive

24/11/15 NA 01-38-49-54-03
Figure = 1__2__4__9__3

26/11/15 NA 68-15-85-59-05
Figure = 5__6__4__5__5

5__5__5__tre numeri della stessa
figura _ in figura 5
abbiamo la condizione per poter applicare la tecnica rintracciata,
in due estrazioni consecutive
sulla stessa ruota.
nella Prima estrazione i numeri sono tutti di figura diversa.
nella Seconda estrazione abbiamo
tre numeri in figura 5 possiamo procedere per il calcolo della previsione.

sommiamo il 5° estratto delle due estrazioni :
24/11/2015 ( 5°= 03 ) +
26/11/2015 ( 5°= 05 ) = 8 (v.s.)
questo risultato lo chiameremo
(v.s. = Valore Sommativo)

3 + 5 = 8 (v.s. Valore Sommativo).
ora prendiamo le figure
tutte diverse tra loro,
Figure = 1__2__4__9__3
Coppie =12_24_49_93
partendo da sinistra verso destra formeremo delle
coppie di due numeri,
4 coppie in totale, questi saranno i nostri indici in figura
(Estrazione figure tutte diverse)
in questo modo 12 24 49 93
sommiamo il v.s. ( Valore Sommativo)
ad ogni singolo indice in figura:
12 + 8 = 20
24 + 8 = 32
49 + 8 = 57
93 + 8 = 11
per ottenere la nostra quartina da giocare per ambo e terno
dobbiamo trasformare i 4 numeri appena trovati in vertibili :
20=2 / 32=23 / 57=75 / 11=19
Previsione :
per ambo e terno 2 - 23 - 75 - 19
Esito 4° Colpo
5/12/15 NA▪︎ 02-75-22-84-54
Ambo in quartina.
 
Ultima modifica:
Ciao
dovrebbe essere cosi
Codice:
Sub Main()
   ' https://forum.lottoced.com/threads/provare-a-vincere-con-3-figure-uguali.2197908/#post-2294208
   Dim INI,FIN,ES,R1,R2,P1,P2,A,B,I,VS,CE,K
   Dim CP1,CP2,CP3,CP4
   Dim nu(5),nn(5),fig1(9),fig2(9),Gio(4),casi
   Dim ru(2),posta(2)
   posta(2) = 1
   CE = CInt(InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",780))
   K = CInt(InputBox("per quanti colpi?","colpi di gioco",9))
   INI = EstrazioneFin - CE
   FIN = EstrazioneFin
   Scrivi "Provare a vincere con 3 figure uguali per Pak1 144",1
   For ES = INI To EstrazioneFin
      Messaggio "elab. estr. [" &(ES) & "] di " & DataEstrazione(ES,1)
      For R1 = 1 To 12
      If R1 = 11 Then R1 = 12
         For I = 1 To 9
            fig1(I) = 0
         Next
         For P1 = 1 To 5
            A = Estratto(ES - 1,R1,P1): fig1(Figura(A)) = fig1(Figura(A)) + 1 : nu(P1) = Figura(A)
         Next
         OrdinaMatrice fig1,- 1
         If fig1(1) < 2 Then
            R2 = R1
            For I = 1 To 9
               fig2(I) = 0
            Next
            For P2 = 1 To 5
               B = Estratto(ES,R2,P2): fig2(Figura(B)) = fig2(Figura(B)) + 1 : nn(P2) = Figura(B)
            Next
            OrdinaMatrice fig2,- 1
            If fig2(1) = 3 Then
               VS = Fuori90(Estratto(ES - 1,R1,5) + Estratto(ES,R2,5))
               CP1 =(nu(1) & nu(2)) : CP2 =(nu(2) & nu(3)) : CP3 =(nu(3) & nu(4)) : CP4 =(nu(4) & nu(5))
               Gio(1) = Vert(Fuori90(VS + CP1)) : Gio(2) = Vert(Fuori90(VS + CP2))
               Gio(3) = Vert(Fuori90(VS + CP3)) : Gio(4) = Vert(Fuori90(VS + CP4))
               casi = casi + 1: Scrivi String(70,"=") & " caso n° " &(casi),1
               Scrivi DataEstrazione(ES - 1) & " [ " & SiglaRuota(R1) & " - " & _
               StringaEstratti(ES - 1,R1) & " ] fig. [ " & StringaNumeri(nu) & " ]",1
               Scrivi DataEstrazione(ES) & " [ " & SiglaRuota(R2) & " - " & _
               StringaEstratti(ES,R2) & " ] fig. [ " & StringaNumeri(nn) & " ]",1
               ColoreTesto 1
               Scrivi "Valore  somma " & VS,1
               Scrivi "Coppie Figure " & CP1 & " " & CP2 & " " & CP3 & " " & CP4,1
               ColoreTesto 0
               Scrivi String(70,"-")
               ru(1) = R1:ru(2) = R2
               ImpostaGiocata 1,Gio,ru,posta,K
               Gioca ES
            End If
         End If
      Next
   Next
   Scrivi:Scrivi "List by master ",1,,,10
   ScriviResoconto
End Sub


Aggiunto Nazionale
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40

Ultimi Messaggi

Indietro
Alto