Ciao , potete farlo -->

[Bubblegum]

Interessante metodo su indici mensili , ultimo compreso

Quindi scegliamo i due indici e le due ruote su cui verranno effettuati i calcoli con numero colpi e casi da ricercare

Esempio :

Ruote calcolo : BA VE

Indici : Ultima-Prima

Somma 5 estratti di BA dell'ultima del mese

Somma 5 estratti di VE prima del mese

Il più grande sottrae il più piccolo , il risultato +45 , il risultato col suo vertibile saranno i numeri in gioco

Se la sottrazione è uguale a zero è come fosse 90 poi col + 45 il risultato col suo vertibile sarà 45-54

Poi

Somma 5 estratti di BA prima del mese

Somma 5 estratti di VE dell'ultima del mese

Il più grande sottrae il più piccolo , il risultato +45 , risultato col suo vertibile saranno i numeri in gioco

Quartina da giocare per le due ruote di calcolo BA VE , ma verificare anche le altre per individuare quelle più

vincenti magari quelle col minore numero di colpi

Esempio reale

30-11-2017 , ultima del mese

BA = 230

2-12-2017 , prima del mese

VE = 105

230 - 105 ( grande meno piccolo) = 125 = 35 + 45 = 80 e 8
----------------------------------------------------------------------------------
30-11-2017 , ultima del mese

VE = 269

2-12-2017 , prima del mese

BA = 262

269 - 262 = 7 + 45 = 52-25

Quartina in gioco per BAVE : 8-80-25-52

Esiti

1° - GE 25-8
3° - VE 25-7 ambetto vabbè ...
8° - CA 8-52
9° - BA 25-8
9° - NZ 52-80
10° MI 52-8

Interessante che siano usciti ambi costituiti da un numero di una coppia ed uno dell'altra

E' possibile che calcolando su due ruote vi siano ruote più vincenti rispetto a quelle in cui abbiamo ricavato la previsione

GARZIE

 

[GioRyuKen72]

Anticipazione (Spoiler): Script

Sub Main()
Scrivi "     metodo degli INDICI MENSILI di Bubblegum.. script GioRyuKen72   ",1,,RGB(143,0,255),5,4
   'https://forum.lottoced.com/threads/ciao-potete-farlo.2212978/
   Dim ruo,ruo2,rtt(4),Ambo1(2),Ambo2(2),Quartina1(4),Ambo3(2),Ambo4(2)
   Dim SomRuo(2),SommaRuo(2),DiffRuo(2),Fisso,Ambata,a,b,c,d,es
   Dim PostaQ(4),Ruota(2),PostaA(2)
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",36))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   ruo = ScegliRuota
   ruo2 = ScegliRuota
   For es = ini To fin
      Messaggio es
      If IndiceMensile(es) = 1 Then
         SomRuo(1) = SommaEstratti(es,ruo)
         SomRuo(2) = SommaEstratti(es - 1,ruo2)
         OrdinaMatrice SomRuo,- 1
         DiffRuo(1) = SomRuo(1) - SomRuo(2)
         Fisso = 45
         a = Fuori90(DiffRuo(1) + Fisso)
         b = Vert(a)
         SommaRuo(1) = SommaEstratti(es - 1,ruo)
         SommaRuo(2) = SommaEstratti(es,ruo2)
         OrdinaMatrice SommaRuo,- 1
         DiffRuo(2) = SommaRuo(1) - SommaRuo(2)
         Fisso = 45
         c = Fuori90(DiffRuo(2) + Fisso)
         d = Vert(c)
         '______________________________________
         Ruota(1) = ruo
         Ruota(2) = ruo2
         rtt(1) = ruo
         rtt(2) = ruo2
         rtt(3) = TT_
         PostaA(2) = 1
         PostaQ(2) = 1.35
         PostaQ(3) = 0.50
         PostaQ(4) = 0.15
         k = 18
         ng = 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 - 1) & " del " & DataEstrazione(es - 1)),1,0
         Scrivi "  " & SiglaRuota(ruo) & " " & StringaEstratti(es - 1,ruo),1,0
         Scrivi
         Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
         Scrivi "  " & SiglaRuota(ruo2) & " " & StringaEstratti(es,ruo2),1,0
         Scrivi
         ColoreTesto 1
         Scrivi "Somma ultima  " & Format2(SommaRuo(1)) & " - Somma  prima  " & Format2(SommaRuo(2)) & " = " & Format2(Fuori90(DiffRuo(2))) & " + " & Format2(Fisso) & " = " & Format2(c) & "  >> vertibile " & Format2(d),1,0
         ColoreTesto 0
         Scrivi
         Scrivi String(70,"-"),1
         'ColoreTesto 1
         'ColoreTesto 0
         Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
         Scrivi "  " & SiglaRuota(ruo) & " " & StringaEstratti(es,ruo),1,0
         Scrivi
         Scrivi("Estrazione n." & Format2(es - 1) & " del " & DataEstrazione(es - 1)),1,0
         Scrivi "  " & SiglaRuota(ruo2) & " " & StringaEstratti(es - 1,ruo2),1,0
         Scrivi
         ColoreTesto 1
         Scrivi "Somma  prima  " & Format2(SomRuo(1)) & " - Somma ultima  " & Format2(SomRuo(2)) & " = " & Format2(Fuori90(DiffRuo(1))) & " + " & Format2(Fisso) & " = " & Format2(a) & "  >> vertibile " & Format2(b),1,0
         ColoreTesto 0
         Scrivi
         Scrivi String(70,"-"),1
         'Scrivi String(70,"-"),1
         Scrivi
         Ambo1(1) = a
         Ambo1(2) = c
         ImpostaGiocata 1,Ambo1,rtt,PostaA,k
         Ambo2(1) = a
         Ambo2(2) = d
         ImpostaGiocata 2,Ambo2,rtt,PostaA,k
         Ambo3(1) = b
         Ambo3(2) = c
         ImpostaGiocata 3,Ambo3,rtt,PostaA,k
         Ambo4(1) = b
         Ambo4(2) = d
         ImpostaGiocata 4,Ambo4,rtt,PostaA,k
         Quartina1(1) = a
         Quartina1(2) = b
         Quartina1(3) = c
         Quartina1(4) = d
         ImpostaGiocata 5,Quartina1,Ruota,PostaQ,k
         Gioca es,True,,1
      End If
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

Ciao, ecco lo script per chi fosse interessato.. ho messo la scelta ruote, 4 ambi ed una quartina.. controllate eventuali errori.
Grazie a Bubblegum per aver condiviso questo metodo.

Saluti, Gio.

 

[Bubblegum]

Grazie mille GioRyuKen72 , molto gentile e buona serata

​

 

[Bubblegum]

Ciao GioRyuKen72 , è possibile fare il +1 in quei casi dove le somme risultano uguali ?
Nel primo avremmo 3.30.4.40 nel secondo 80.8.81.18
Sempre grazie

 

[GioRyuKen72]

Ciao GioRyuKen72 , è possibile fare il +1 in quei casi dove le somme risultano uguali ?
Nel primo avremmo 3.30.4.40 nel secondo 80.8.81.18
Sempre grazie

eccomi..



tra
c = Fuori90(DiffRuo(2) + Fisso)
d = Vert(c)
inserisci
If c = a Then c = c + 1
If c = b Then c = c + 1


saluti, Gio.

 

[Bubblegum]

Perfetto ! Grazie per la tua disponibilità
Buona serata

 

[claudio8]

eccomi..


Vedi l'allegato 2270607
tra
c = Fuori90(DiffRuo(2) + Fisso)
d = Vert(c)
inserisci
If c = a Then c = c + 1
If c = b Then c = c + 1
Vedi l'allegato 2270608

saluti, Gio.

Vi suggerisco di Inserire sempre il fuori90 quando si fanno le somme

 

[GioRyuKen72]

Vi suggerisco di Inserire sempre il fuori90 quando si fanno le somme

ciao @claudio8, grazie per i suggerimenti.. sempre ben accetti da tutti, figuriamoci dai "mostri sacri" degli script.

Quindi @Bubblegum le due righe si diventano così:
If c = a Then c = fuori90(c + 1)
If c = b Then c = fuori90(c + 1)

grazie Claudio, saluti, Gio.

 

[salvo50]

Ciao a Tutti




Se A è maggiore di B di 1
e C è uguale a B
aggiungendo 1 a C
C diventa uguale ad A

 

[GioRyuKen72]

Ciao a Tutti

Non ho seguito tutto dall'inizio,

Però se A è maggiore di B di 1
e C è uguale a B
quando si aggiunge 1 B
B diventa uguale ad A

ciao @salvo50, hai ragione. Cosa consigli per i seguenti casi?

come è capitato nell'ultimo esempio di Bubblegum:
a= 03
b= 30
c= 03
d= 30

con If c = a Then c = fuori90(c + 1) diventa:
a= 03
b= 30
c= 04
d= 40

ma nel caso che:
a= 03
b= 30
c= 30
d= 03

non lo risolvo così?
If c = b Then c = fuori90(c + 1) diventa:
a= 03
b= 30
c= 31
d= 13

o forse era subordinato al primo IF ?? non mi ricordo

 

[salvo50]

se 1 o più numeri sono ripetuti si fa il + 1 oppure +2, +3, ecc...

 

[salvo50]

Qui l'ho impostato con i tuoi numeri

Option Explicit
Sub Main
   Dim A,B,C,D,x,y
   Dim Num(4)
   A = 03
   B = 30
   C = 03
   D = 30
   Num(1) = A
   Num(2) = B
   Num(3) = C
   Num(4) = D
   Scrivi StringaNumeri(Num," ",True),1
   If NumeriRipetuti(Num) Then
      While NumeriRipetuti(Num)
         For x = 01 To 3
            For y = x + 01 To 4
               If Num(x) = Num(y) Then Num(y) = Fuori90(Num(y) + 1)
            Next
         Next
      Wend
   End If
   Scrivi StringaNumeri (Num," ",True),1
End Sub