Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
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:gcascino;n2109962 ha scritto:cosa ti serve sapere io tempo fa la studiai
claudio8;n2110938 ha scritto:Devi cercare uno script che trova i freq. dopo la spia "X" e che consideri i casi e non le estrazioni.
Ciao
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
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
demonio;n2116223 ha scritto:grazie mille per il tuo aiuto, ora vedo come fare per mettere in pratica
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
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
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.
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.
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.