Provare a vincere con 3 figure uguali

[Paki144]

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.

 

[Master]

Ciao
dovrebbe essere cosi

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

 

[Paki144]

Ciao Master Grazie!!! è perfetto,
veramente Grazie per aver realizzato il Programma e per tuo tempo.
Saluti

 

[Paki144]

Master Grazie!!!