Novità

previsionistica razionale

demonio

Super member
Buona sera forum, qualcuno mi sa' dire di pagine del forum che trattano di previsionistica razionale. Ho dato un occhiata......ma forse di occhi mi ce ne vuole un paio in più, grazie
 

demonio

Super member
gcascino;n2109962 ha scritto:
cosa ti serve sapere io tempo fa la studiai
ciao, se ci sono programmi che possono aiutarmi ad individuare le probabilità di uscita dei numeri, mi spiego, cominciando dal numero 1, dovrò, partendo dall'estrazione più recente, andare a cercare all'indietro (quindi a ritroso) le ultime 27 sortite del numero 1 (bada bene non devo andare indietro di 27 estrazioni, ma devo andare a cercare le ultime 27 sortite del n. 1, quindi le estrazioni a ritroso potrebbero essere 100 oppure 150 oppure 70). mi troverò alla fine con un elenco di questo tipo:

Dopo l'uscita dell' 1 il numero 1 è uscito = 4 volte (valore 40)
Dopo l'uscita dell'1 il numero 2 è uscito = 5 volte (valore 50)
Dopo l'uscita dell'1 il numero 3 è uscito = 3 volte (valore 30)
Dopo l'uscita dell'1 il numero 4 è uscito = 5 volte (valore 50)
Dopo l'uscita dell'1 il numero 5 è uscito = 1 volta (valore 10)
Dopo l'uscita dell'1 il numero 6 è uscito = 1 volta (valore 10)
Dopo l'uscita dell'1 il numero 7 è uscito = 5 volte (valore 50)
Dopo l'uscita dell'1 il numero 8 è uscito = 1 volta (valore 10)
Dopo l'uscita dell'1 il numero 8 è uscito = 4 volte (valore 40)
Dopo l'uscita dell'1 il numero 10 è uscito = 3 volte (valore 30)

non so se è chiaro, adesso questo lavoro lo faccio tutto a mano e ti lascio immaginare che sudate.....
grazie mille

 
R

Roby

Guest
Ciao, per quello che vuoi fare, uno script è quello che ti serve, gli occhi ringrazieranno.

ho trovato questo piccolo script che sembra fare al caso tuo.


Codice:
Sub Main()
   Dim ruote(1)
   Dim posta(1)
   Dim num(90,2)
   Dim uscito(90,2)
   r = InputBox("Su quale ruota?",,1)
   colpi = InputBox("Quanti colpi?",,10)
   ruote(1) = r
   ini = 1
   fin = EstrazioneFin
   Scrivi " Analisi dal " & DataEstrazione(ini) & " ad oggi"
   Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
   For sp = 1 To 90
      Messaggio " Spia: " & sp
      For i = 1 To 90
         num(i,1) = 0 : num(i,2) = 0
      Next
      co = 0
      For es = ini To fin
         If Posizione(es,r,sp) > 0 Then
            co = co + 1
            ess = es + colpi + 1
            If ess > fin Then ess = fin End If
            For a = es + 1 To ess
               For v = 1 To 90
                  uscito(v,2) = 0
               Next
               For e = 1 To 5
                  n = Estratto(a,r,e)
                  num(n,1) = n
                  num(n,2) = num(n,2) + 1
                  uscito(n,1) = n
                  uscito(n,2) = uscito(n,2) + 1
                  If uscito(n,2) > 1 Then
                     num(n,2) = num(n,2) - 1
                     uscito(n,2) = 1
                  End If
               Next
            Next
         End If
      Next
      OrdinaMatrice num,- 1,2
      per = Int((co/100)*65)
      Scrivi "_________________________________________________________________"
      Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & "   colpi " & colpi
      Scrivi
      riga = "Num.   "
      riga1 = "Freq. "
      For i = 1 To 10
         riga = riga & FormatSpace(num(i,1),3) & "  "
         riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
      Next
      Scrivi riga,1
      ColoreTesto 2
      Scrivi riga1
      ColoreTesto 0
   Next
End Sub
 

demonio

Super member
Cerberus;n2115808 ha scritto:
Ciao, per quello che vuoi fare, uno script è quello che ti serve, gli occhi ringrazieranno.

ho trovato questo piccolo script che sembra fare al caso tuo.


Codice:
Sub Main()
Dim ruote(1)
Dim posta(1)
Dim num(90,2)
Dim uscito(90,2)
r = InputBox("Su quale ruota?",,1)
colpi = InputBox("Quanti colpi?",,10)
ruote(1) = r
ini = 1
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
For sp = 1 To 90
Messaggio " Spia: " & sp
For i = 1 To 90
num(i,1) = 0 : num(i,2) = 0
Next
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
ess = es + colpi + 1
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
uscito(v,2) = 0
Next
For e = 1 To 5
n = Estratto(a,r,e)
num(n,1) = n
num(n,2) = num(n,2) + 1
uscito(n,1) = n
uscito(n,2) = uscito(n,2) + 1
If uscito(n,2) > 1 Then
num(n,2) = num(n,2) - 1
uscito(n,2) = 1
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi
Scrivi
riga = "Num. "
riga1 = "Freq. "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 0
Next
End Sub

grazie mille per il tuo aiuto, ora vedo come fare per mettere in pratica
 
R

Roby

Guest
demonio;n2116223 ha scritto:
grazie mille per il tuo aiuto, ora vedo come fare per mettere in pratica

Lo script comunque affronta il discorso a livello globale, non si ferma a 27 casi, li vede tutti.
 

solare

Advanced Member >PLATINUM<
Ciao, anche tramite spaziometria puoi impostare la statistica "ultimi 27 spie" Sezione numeri spia.
questa ricerca era stata inserita in quanto io ero un praticante della previsionistica razionale.
Prova che trovi quello che ti serve
 

demonio

Super member
solare;n2116476 ha scritto:
Ciao, anche tramite spaziometria puoi impostare la statistica "ultimi 27 spie" Sezione numeri spia.
questa ricerca era stata inserita in quanto io ero un praticante della previsionistica razionale.
Prova che trovi quello che ti serve

grazie solare ma su questo ho problemi, dopo che ho inserito il 27 e chiedo di eseguire il programma si chiude
 
Ultima modifica:
B

Beppignello

Guest
prova questo script, se ti può andare bene, come l'ho preparato

Codice:
Option Explicit
Sub Main
   Dim n,Ini,fine,aretritardi,aretidestr,qte,e,last,y,abr,m,ne,r,numeri
   Dim an(90),num(90),ar(1)
   fine = EstrazioneFin
   Ini = 3950
   n = InputBox("iNSERIRE nr.ricerca",,1)
   r = InputBox("Ruota",,1)
   qte = CInt(InputBox("Quante ultime uscite vuoi controllare? ",,27))
   ar(1) = r
   ColoreTesto(2)
   Scrivi "Ruota  " & NomeRuota(r),1
   ColoreTesto(1)
   Scrivi "Esamina le ultime..." & qte & " Uscite del numero Base scelto  " & Format2(n),1
   Scrivi "E Calcola con Coeff. i primi 11 numeri più abbinati al nr Base ",1
   Scrivi "Estrazione attuale n." & fine & " / " & DataEstrazione(fine),1
   ColoreTesto(0)
   Scrivi "E l e n c o  Estrazioni con uscita del nr.base ",1
   'loop nr.base di ricerca
   ReDim aretritardi(9999),aretidestr(9999)
   an(n) = n
   Call ElencoRitardiTurbo(an,ar,1,Ini,fine,aretritardi,aretidestr)
   ''''''cerca ultime qtestrazioni richieste e conta con quanti nr.si è abbinato in uscita
   ReDim ab(90,3)
   last = UBound(aretidestr)
   For e = 1 To qte
      ReDim matriceestrritorno(20)
      ne = aretidestr(last - e)
      Call GetEstrazioneCompleta(ne,matriceestrritorno)
      ''''conta numeri usciti insieme al capogioco
      numeri = ""
      For y = 1 To 5
         abr = matriceestrritorno(r,y)
         ab(abr,1) = ab(abr,1) + 1
         ab(abr,2) = Format2(abr)
         ab(abr,3) = e
         numeri = numeri & Format2(matriceestrritorno(r,y)) & "."
      Next
      ''''''
      Scrivi "Nr.Base.." & Format2(n) & "..Estraz.n..." & ne & " / " & DataEstrazione(ne) & "...." & numeri
   Next
   '''''elenca abbinamenti con indice
   Call OrdinaMatrice(ab,- 1,1)
   Scrivi "     Nr.     I.C.  ",1
   For m = 1 To 11
      If ab(m,1) > 0 Then
         ColoreTesto(1)
         Scrivi "---- " & Format2(ab(m,2)) & "......I.C." & ab(m,1) * 10
         ColoreTesto(0)
      End If
   Next
End Sub


c'è ancora il forum che mette gli spazi o blank tra le istruzioni,
quando viene lanciato lo script se dovesse segnalare la riga, controllare che la scrittura
sia tutta continua e non contenga spazi vuoti in mezzo alle istruzioni.
 
Ultima modifica di un moderatore:

joe

Advanced Member >PLATINUM PLUS<
Ciao Beppignello.

Ho letto von attenzione il tuo script ...

Nel secondo messaggio di spiegazione

si legge con ridondanza Dopo ...Dopo ...Dopo

cosicché cambia poco quanto ci hai donato,

ma attualmente sembra eseguire una ricerca

apparentemente identica e totalmente diversa.

:)
 
Ultima modifica:
B

Beppignello

Guest
Ciao Joe buona giornata
credo che dopo sia inteso come insieme e che sia solo un modo di esprimersi
in modo non chiaro

come anche il fatto di moltiplicare per 10 il nr. Dei nr. Rilevati

dimmi tu che ha a che fare con la parola " Razionale" ?
perché devo moltiplicare per 10 ?
perché non calcolare una percentuale di distribuzione del 100% sui nr.abbinati?

se non s' questa la richiesta iniziale pazienza
 

joe

Advanced Member >PLATINUM PLUS<
Infatti,

"Dopo" si concatena con ... un "entro quanto", che dev'essere dichiarato.

Inoltre le ricerche, che dipendono dalla presenza di spie,

sono pressoché infinite, come anche, diversissime.

Dipendono, dalla scelta di quali ... e di come si fissano

i moltissimi parametri possibili ed immaginabili.

Da essi derivano risultati simili ed anche diversissimi.

Tu naturalmente (senza istruzioni precise)

hai dato una ottima interpretazione ... delle tantissime possibili.

:)
 
Ultima modifica:

genios

Advanced Member >PLATINUM<
Secondo me l' ottimo script di Beppignello non rispecchia la richiesta formulata. Difatti nell out dello script di Beppignello

Ruota Bari Esamina le ultime...27 Uscite del numero Base scelto 02 E Calcola con Coeff. i primi 11 numeri più abbinati al nr Base Estrazione attuale n.9475 / 19.05.2018 E l e n c o Estrazioni con uscita del nr.base Nr.Base..02..Estraz.n...9440 / 27.02.2018....57.20.58.02.23.

quindi interpreto : ogni volta che è uscito il numero 2 i numeri che si sono abbinati con esso nella stessa estrazione sono stati ........

Mentre la richiesta se non interpreto male chiede dopo l' uscita del numero 2 nelle successive ad esempio 9 estrazioni quali sono i numeri che sono usciti molto spesso .

Ciao Eugenio
 

vengio

Super Member >GOLD<
Parlando di previsionistica razionale occorre far riferimento alle decine, qualcuno lo sta facendo con le quindicine, e la ricerca presuppone quale numero della specificata decina è uscito per primo dopo ogni singolo evento per 27 volte addietro. quindi per il numero uno varrà la prima uscita della decina 1-10 e questo per le 27 volte precedenti in cui è stato estratto quel singolo numero e non per 27 estrazioni. Su tali dati verranno calcolate le percentuali.
Ripeto il plugin di Arn fà questo.
 

demonio

Super member
vengio;n2116625 ha scritto:
Parlando di previsionistica razionale occorre far riferimento alle decine, qualcuno lo sta facendo con le quindicine, e la ricerca presuppone quale numero della specificata decina è uscito per primo dopo ogni singolo evento per 27 volte addietro. quindi per il numero uno varrà la prima uscita della decina 1-10 e questo per le 27 volte precedenti in cui è stato estratto quel singolo numero e non per 27 estrazioni. Su tali dati verranno calcolate le percentuali.
Ripeto il plugin di Arn fà questo.

si è proprio questo quello che cerco, forse non sono stato chiaro nella mia spiegazione
 

demonio

Super member
vengio;n2116625 ha scritto:
Parlando di previsionistica razionale occorre far riferimento alle decine, qualcuno lo sta facendo con le quindicine, e la ricerca presuppone quale numero della specificata decina è uscito per primo dopo ogni singolo evento per 27 volte addietro. quindi per il numero uno varrà la prima uscita della decina 1-10 e questo per le 27 volte precedenti in cui è stato estratto quel singolo numero e non per 27 estrazioni. Su tali dati verranno calcolate le percentuali.
Ripeto il plugin di Arn fà questo.

Ciao Vengio, scusa il disturbo, sul plugin di Arn avrei la necessità di alcune spiegazioni, tu sei in condizione di darmi un aiuto?, grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto