x Mike58 o chi ha le capacità

[solare]

Ciao, questo è un listato fatto da Mike58, anticipa la sortita del nostro numero.
Chiedo non si potrebbe modificarlo per gli ambi ?
Oppure, anzichè fare la ricerca dal al, effettuare la ricerca nelle ultime x volte che è sortito il nr che interessa a noi.
Grazie
Sub Main()
Dim ru(10),nn(2),mt1(90,5),mt2(4005,5),nn2(2),mt3(90,5)
ESRT = CInt(InputBox("ESTRAZIONI DA ESAMINARE?","ESTRAZIONI",300))
r = CInt(InputBox("RUOTA DEL NUMERO PRINCIPALE","RUOTA",6))
a = CInt(InputBox(" NUMERO PRINCIPALE","NUMERO",57))
ru(1) = CInt(InputBox("RUOTA APPARTENENTE AL NUMERO ","RUOTA",r))
cl = CInt(InputBox("ESTRAZIONI A RITROSO DEI RILEVATORI"," ES ",10))
nStart = Timer
ini = EstrazioneFin - ESRT
fin = EstrazioneFin
Tot = fin - Ini
cc = 0
'block = 0 ' contatore blocca spia
For es = ini To fin
Messaggio(es)
Call(AvanzamentoElab(Ini,fin,es))
'If block = 1 Then es = es + cl : block = 0 ' se spia = 1nei colpi allora azzera
If Posizione(es,r,a) > 0 Then
cc = cc + 1
co = 0
'block = 1 ' spia trovata
'--------------------- calcolo Numero rilevatore ---------------------
co = 0
For ii = 1 To 90
nn(1) = ii
co = co + 1
mt1(co,1) = co
mt1(co,2) = nn(1)
fr1 = SerieFreq(es - cl + 1,es - 1,nn,ru,1)
'If fr1 > 1 Then fr1 = 0 ' se trovato 1 allora prossimo diventa 0
mt1(co,3) = mt1(co,3) + fr1
rit1 = RitardoCombinazione(ru,nn,1)
mt1(co,5) = rit1
Next
'----------------------------------------------------------------------
ColoreTesto 1
Scrivi FormatSpace(cc,2,1) & "°) Caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r) & " [" & DataEstrazione(es) & "]"
ColoreTesto 0
End If
Next
OrdinaMatrice mt1,- 1,3
Scrivi
Scrivi "NUMERO " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0
Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin),0,0
ColoreTesto 1
Scrivi " Estrazioni Totali: " & Tot,1
ColoreTesto 0
Scrivi: ColoreTesto 2
Scrivi"PROBABILI RILEVATORI CHE NELLE ULTIME " & Format2(cc) & " VOLTE HANNO ANTICIPATO IL NUMERO " & Format2(a),1,,,,3
Scrivi"NELLE " & cl & " ESTRAZIONI PRECEDENTI",1,,,,3 :ColoreTesto 0:Scrivi
Scrivi "| Rilevatori del Numero " & Format2(a) & " con frequenze & ritardo |",1,- 1,3,,2
ColoreTesto 0:Scrivi
For xx = 1 To 10
Scrivi " N° " & Format2(mt1(xx,2)) & " [FREQUENZA " & Format2(mt1(xx,3)) & " | RITARDO " & FormatSpace(mt1(xx,5),2) & "]"
If mt1(xx,5) >= 0 And mt1(xx,5) < cl Then
c = c + 1
End If


Next
Scrivi"----------------------------------------------------------------"
Scrivi "ci sono " & c & " Numeri Rivelatori Attivi OK da 5 in poi, quindi prossima l'uscita",True,True,2,4,4

Scrivi:Scrivi
Scrivi " scripted by Mike58 ",1,- 1,6
nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

 

[aldinobis]

buongiorno

volevo chiedere a Mike 58

con riferimento al listato sopra riportato

se fosse possibile processare, anziche' un "NUMERO PRINCIPALE" alla volta

tutti i 90 NUMERI in un solo run.

ringrazio anticipatamente..

Saluti

 

[Mike58]

No Aldino mi spiace, ma purtroppo ho perso un po di conoscenze scriptiche.
Anche mettendo il ciclo for dei numeri 1 to 90 poi non si riesce ad azzerare la frequenza in quanto per ogni numero riporta come somma frequenza il conteggio precedente.
Ho provato seppur con pochi stimoli e non sono riuscito ad azzerare il conteggio frequenza.
Mi spiace ma passo.

Ciao

 

[aldinobis]

o.k. grazie lo stesso

e buon proseguimento

se eventualmente c'e' qualcuno che si vuole cimentare benvenga

Saluti

 

[claudio8]

Premesso che a mio parere, sia le spie che i rilevatori, che non sono altro che l'uno la base elaborativa dell'altro e viceversa, si riferiscono a eventi successi e non ad eventi futuri, senza voler scavalcare l'amico Mike, vi ho inserito la possibilità di verificare l'esito del numero in modo che possiate verificare con anche pochi test la validità di questa tecnica/ricerca.

Sub Main()
   Dim ru(10),nn(2),mt1(90,5),mt2(4005,5),nn2(2),mt3(90,5),anum(1)
   Dim retColpi,retEstratti,retIdEstr,retEsito,clp
   ESRT = CInt(InputBox("ESTRAZIONI DA ESAMINARE?","ESTRAZIONI",300))
   r = CInt(InputBox("RUOTA DEL NUMERO PRINCIPALE","RUOTA",6))
   a = CInt(InputBox(" NUMERO PRINCIPALE","NUMERO",10))
   anum(1) = a
   ru(1) = CInt(InputBox("RUOTA APPARTENENTE AL NUMERO ","RUOTA",r))
   cl = CInt(InputBox("ESTRAZIONI A RITROSO DEI RILEVATORI"," ES ",10))
   nStart = Timer
   ini = EstrazioneFin - ESRT
   fin = EstrazioneFin
   Tot = fin - Ini
   cc = 0
   'block = 0 ' contatore blocca spia
   For es = ini To fin
      Messaggio(es)
      Call(AvanzamentoElab(Ini,fin,es))
      'If block = 1 Then es = es + cl : block = 0 ' se spia = 1nei colpi allora azzera
      If Posizione(es,r,a) > 0 Then
         cc = cc + 1
         co = 0
         'block = 1 ' spia trovata
         '--------------------- calcolo Numero rilevatore ---------------------
         co = 0
         For ii = 1 To 90
            nn(1) = ii
            co = co + 1
            mt1(co,1) = co
            mt1(co,2) = nn(1)
            fr1 = SerieFreq(es - cl + 1,es - 1,nn,ru,1)
            'If fr1 > 1 Then fr1 = 0 ' se trovato 1 allora prossimo diventa 0
            mt1(co,3) = mt1(co,3) + fr1
            rit1 = RitardoCombinazione(ru,nn,1)
            mt1(co,5) = rit1
         Next
         '----------------------------------------------------------------------
         ColoreTesto 1
         Scrivi FormatSpace(cc,2,1) & "°) Caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r) & " [" & DataEstrazione(es) & "]"
         ColoreTesto 0
      End If
   Next
   OrdinaMatrice mt1,- 1,3
   Scrivi
   Scrivi "NUMERO " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0
   Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin),0,0
   ColoreTesto 1
   Scrivi " Estrazioni Totali: " & Tot,1
   ColoreTesto 0
   Scrivi: ColoreTesto 2
   Scrivi"PROBABILI RILEVATORI CHE NELLE ULTIME " & Format2(cc) & " VOLTE HANNO ANTICIPATO IL NUMERO " & Format2(a),1,False,,,3
   Scrivi" NELLE " & cl & " ESTRAZIONI PRECEDENTI",1,,,,3 :ColoreTesto 0:Scrivi
   Scrivi "| Rilevatori del Numero " & Format2(a) & " con frequenze & ritardo |",1,- 1,3,,2
   ColoreTesto 0:Scrivi
   For xx = 1 To 10
      Scrivi " N° " & Format2(mt1(xx,2)) & " [FREQUENZA " & Format2(mt1(xx,3)) & " | RITARDO " & FormatSpace(mt1(xx,5),2) & "]"
      If mt1(xx,5) >= 0 And mt1(xx,5) < cl Then
         c = c + 1
      End If
   Next
   Scrivi"----------------------------------------------------------------"
   Scrivi "Ci sono " & c & " Numeri Rivelatori Attivi  - OK da 5 in poi.", True,False,2,4,4
  If VerificaEsito(anum,ru,EstrazioneFin + 1,1,,,retEsito,retColpi,retEstratti,retIdEstr)Then
      clp = retColpi
      Scrivi "   Il numero " & a & " è uscito al " & clp & "°colpo"
   Else
      Scrivi "   Il numero " & a & " non è uscito."
   End If
 
   Scrivi:Scrivi
   Scrivi " scripted by Mike58 ",1,- 1,6
End Sub

Saluti

 

[aldinobis]

Ciao Claudio8
grazie per l'intervento,
quello che volevo era ,una modifica che anziche' un solo numero principale alla volta
elaborasse tutti i 90 numeri da 1 a 90 in un solo run.
questo per poter controllare piu' velocemente gli eventuali futuri estratti con piu' Rilevatori attivi.
saluti

 

[solare]

Ciao Claudio8, Un grazie anche da parte mia
un ciao anche a aldinobis

 

[claudio8]

Ciao Claudio8
grazie per l'intervento,
quello che volevo era ,una modifica che anziche' un solo numero principale alla volta
elaborasse tutti i 90 numeri da 1 a 90 in un solo run.
questo per poter controllare piu' velocemente gli eventuali futuri estratti con piu' Rilevatori attivi.
saluti

Capisco l'esigenza sia tua che di Solare, ma vi prego di testare prima gli obbiettivi con i mezzi che vi mettiamo a disposizione, altrimenti noi scripter dobbiamo fare troppe versioni dello stesso progetto, che a volte non sono compatibili con quanto già è di vs. utilizzo.
Buona ricerca

 

[claudio8]

Buona sera



Quella che vedete in questa foto e una tabella creata dal programma di Arn ( vedi plugin ) che elenca relativamente alla sola 1a decina (da 1 a 10) le % di probabilità di uscita degli stessi .
In colonna PR i numeri da 1 a 10, per ognuno di essi, viene elaborata dal programma la cosiddeta % storica di uscita dei numeri da 1 a 10 nelle successive estrazioni.
Faccio un esempio:
Analizziamo il n° 3, in colonna PR, sulla riga corrispondente all'altezza della colonna del 4 troviamo il n° 70 cioè secondo l'autore anzi secondo la Prev. Razionale, nello storico specifico eleborato, nel 70% dei casi è uscito il 4 dopo l'uscita del 3 in sostanza il 3 è la spia del 4 con 70 %.

Se visioniamo la tabella partendo dai numeri da 1 a 10 presenti nella 1a riga a dx di PR, e li riferiamo ai 10 nella 1a colonna, ci possiamo rendere conto del ragionamento inverso e cioè che i numeri in orizzontale della 1a riga sono i precursori di quelli nella 1a colonna ( gli uni non sono altro che la base elaborativa degli altri e viceversa).
Spero di essere stato chiaro.

Saluti

 

[solare]

Ciao Claudio8, grazie di questa tua indicazione.
Io ho seguito per tanti anni la previsionistica razionale
da quando è stato inserito il metodo automatizzato delle estrazioni purtroppo devo asserire che non è più come prima
almeno per quanto di mia conoscenza.
Magari se qualcuno può dare qualche indicazione utile, l'accetto volentieri.

 

[claudio8]

Ciao Claudio8, grazie di questa tua indicazione.
Io ho seguito per tanti anni la previsionistica razionale
da quando è stato inserito il metodo automatizzato delle estrazioni purtroppo devo asserire che non è più come prima
almeno per quanto di mia conoscenza.
Magari se qualcuno può dare qualche indicazione utile, l'accetto volentieri.

Tutte le tecniche o gli studi hanno perso molta valenza dall'inizio delle Venus, non solo la Prev Raz.
Le estrazioni hanno maggiore casualità rispetto a prima, se prima alcune decine venivano statisticamente più estratte, oggi tutte le decine hanno pari casualità per cui le statistiche hanno meno validità, se non nessuna.
Rivedere l'archivio usando solo estrazioni dall'inizio venus, è il minimo che bisogna fare.
A mio parere, l'unico modo per combattere le venus è la ricerca di un algoritmo che possa imitarle (cosa molto complicata che implica conoscenze extra lotto) .
Saluti