Buongiorno, ho ripreso questo script che mi sembra a parere mio un ottimo lavoro.
Ho modificato leggermente qualcosa da quello originale adattandolo alle mie esigenze.
Ho seguito il metodo per circa 3 mesi e i risultati purtroppo sono stati modesti.
Le piccole modifiche che ho fatto sono qui sotto riportate:
"----------------------------METODO KRITIKO 137------------------------------------ "
"----TUTTE LE 11 RUOTE I MIGLIORI NUMERI CON CALCOLO NELLE ULTIME 137 ESTRAZIONI----"
"Prendere come previsione solo le combinazioni con un massimo di 5 numeri per ruota"
"Da giocare a colpo nell'estrazione successiva"
Se fosse possibile sarebbe ottima cosa fare ulteriori modfiche:
-individuare il numero di estrazioni del calcolo che statisticamente fornisce i risultati miglior (in questo caso 137)
-estrapolare a parte la o le previsioni che rispettano le condizioni sopra elencate (massimo 5 numeri per ruota)
- capire per quanti colpi di gioco seguire le previsioni scelte
. statistiche delle previsioni prese in esame (resoconto)
Vediamo se può interessare e se chi ne è capace se si può fare queste modifiche
GRAZIE
_____________________________________________________________________________________________________________________________________
SCRIPT
Option Explicit
Sub Main
Dim sMsg,c,d,e,f,kc,r,cl,g,pr,pr1,pr2,ts,co,co2,Tot,a,clp,m,dme,es,mm,fleg,Ini,fin,x,ex,ez
ColoreTesto 0:Scrivi " Legenda Colori "
ColoreTesto 1:Scrivi " PROSSIMA USCITA "
ColoreTesto 3:Scrivi " In USCITA "
ColoreTesto 7:Scrivi " USCITA SUPERATA "
Scrivi
ColoreTesto 0
Scrivi "----------------------------METODO KRITIKO 137------------------------------------ "
Scrivi "----TUTTE LE 11 RUOTE I MIGLIORI NUMERI CON CALCOLO NELLE ULTIME 137 ESTRAZIONI----"
Scrivi "Prendere come previsione solo le combinazioni con un massimo di 5 numeri per ruota"
Scrivi "Da giocare a colpo nell'estrazione successiva"
Scrivi "----------------------------------------------------------------------------------- "
c = 0
clp = 0
x = CInt(InputBox("Quante Estrazioni a Ritroso ? ",,"137"))
es = x + clp
Ini = EstrazioneFin - es + clp
fin = EstrazioneFin - clp
ex = EstrazioneFin - es + clp
ez = EstrazioneFin - clp
For r = 1 To 11
If r = 11 Then r = 12
Scrivi NomeRuota(r) & " Data Inizio: " & DataEstrazione(ex,,,"/") & " - " & "[" & Ini & "]" & " Data Estrazione fine : " & DataEstrazione(ez,,,"/") & " - " & "[" & EstrazioneFin - clp & "]"
Scrivi:Scrivi "NUMERO Fre- Rit Med KCrit > < Rit-Att Colpi"
For a = 1 To 90
c = EstrattoFrequenza(r,a,Ini,fin) ' frequenza
d = EstrattoRitardo(r,a,Ini,fin) ' ritardo
If c = 0 Then fleg = 1
If c = 0 Then c = 1
e = Int(es / c) 'MEDIA
kc = d / e 'probabilita
cl = Int(d / e) 'probabilita
pr = Int(e * 25 /100) '%
pr1 = Int(e * 51 /100) '%
g = Int(d -(cl * e)) 'RIT-ATT
co = 1
If fleg = 1 Then cl = 0
If fleg = 1 Then c = 0
fleg = 0
If g > pr And g < pr1 Then co = 3 'ColoreTesto 3
If g < pr Then co = 1 'ColoreTesto 1
If g > pr1 Then co = 7 'ColoreTesto 7
ts = Format2(a) & " " & Format2(c) & " - " & Format2(d) & " " & Format2(Int(e)) & " " & Format2(cl) & " " & Format2(pr) & " % " & Format2(pr1)_
& " " & Format2(g) & " " & pr1 - g '& " ."
If co = 3 Then co2 = co + 4
If co = 1 Then co2 = co + 3
If co = 7 Then co2 = co - co
If co = 2 Then co2 = co + 2
If cl > 1 Then Call Scrivi(ts & co,True,,co,co2)
ColoreTesto 0
Next
Scrivi
Next
End Sub
3035220214
