ritardo dei ritardi script mio

[ghio]

Sub Main()
Dim num(5)
Dim rit(5)
Dim rrit(5)
Dim tem(5)
Dim numeri(5)
Dim ruote(2)
Dim poste(2)
poste(2)=1

r=InputBox("RUOTA ???",,2)
ruote(1)=r
If r<6 Then r1=r+5 End If
If r>5 Then r1=r-5 End If
ruote(2)=r1

fin=EstrazioneFin
For es=6503 To fin
Messaggio DataEstrazione (es)

For p=1 To 5
num(p)=Estratto(es,r,p)

For x=1 To 150
ex=es-x
If Posizione(ex,r,num(p))>0 Then
rit(p)=Fuori90(x)
x=150

For y=1 To 150
ey=es-y
If Posizione(ey,r,rit(p))>0 Then
rrit(p)=Fuori90
y=150

tem(p)=Abs(rit(p)-rrit(p))
numeri(p)=90-tem(p)

End If
Next
End If
Next
Next

'Scrivi "Estratti "& StringaNumeri(num)
'Scrivi "Ritardi "& StringaNumeri(rit)
'Scrivi "Rit dei rit "& StringaNumeri(rrit)
'Scrivi "Differenze "& StringaNumeri(tem)
'Scrivi "In gioco "& StringaNumeri(numeri)
EliminaRipetuti(numeri)

ImpostaGiocata 1,numeri,ruote,poste,21,5

Gioca es

Erase num
Erase rit
Erase rrit
Erase tem
Erase numeri

Next
ScriviResoconto
End Sub


un buon utilizzo

 

[fillotto]

Sub Main()
Dim num(5)
Dim rit(5)
Dim rrit(5)
Dim tem(5)
Dim numeri(5)
Dim ruote(2)
Dim poste(2)
poste(2)=1

r=InputBox("RUOTA ???",,2)
ruote(1)=r
If r<6 Then r1=r+5 End If
If r>5 Then r1=r-5 End If
ruote(2)=r1

fin=EstrazioneFin
For es=6503 To fin
Messaggio DataEstrazione (es)

For p=1 To 5
num(p)=Estratto(es,r,p)

For x=1 To 150
ex=es-x
If Posizione(ex,r,num(p))>0 Then
rit(p)=Fuori90(x)
x=150

For y=1 To 150
ey=es-y
If Posizione(ey,r,rit(p))>0 Then
rrit(p)=Fuori90
y=150

tem(p)=Abs(rit(p)-rrit(p))
numeri(p)=90-tem(p)

End If
Next
End If
Next
Next

'Scrivi "Estratti "& StringaNumeri(num)
'Scrivi "Ritardi "& StringaNumeri(rit)
'Scrivi "Rit dei rit "& StringaNumeri(rrit)
'Scrivi "Differenze "& StringaNumeri(tem)
'Scrivi "In gioco "& StringaNumeri(numeri)
EliminaRipetuti(numeri)

ImpostaGiocata 1,numeri,ruote,poste,21,5

Gioca es

Erase num
Erase rit
Erase rrit
Erase tem
Erase numeri

Next
ScriviResoconto
End Sub


un buon utilizzo

Ciao Ghio non è che potresti commentare questo bello e singolare script? Mi intrigano le soluzioni ciao!!!

 

[Joe91]

Si, vero ed è, a dir poco originale,

il Fuori90 dei ritardi.

rit(p)=Fuori90(x) 

&

rrit(p)=Fuori90(y)

Leggerò con attenzione i Vostri commenti allo script

Buona Giornata a Tutti.

 

[fillotto]

Si, vero ed è, a dir poco originale,

il Fuori90 dei ritardi.

rit(p)=Fuori90(x) 

&

rrit(p)=Fuori90(y)

Leggerò con attenzione i Vostri commenti allo script

Buona Giornata a Tutti.

Dato che ghio non si fa vivo ,Joe potresti dire cosa hai capito dato che è proprio il codice citato da te che mi ha colpito ???
Non riesco proprio a capire inoltre il ritardo dei ritardi a cosa si riferisce ........
Togliendo l'apice alla parte remmata ci si rende conto della giustezza dei dati .... però ancora non ci sono

 

[Joe91]

Ciao,

Per ritardo del ritardo ... normalmente ... si intende una "cosa" ben determinata.

Al riguardo, ti potrà essere utile, leggere cosa scrisse l'amico Matteo, che saluto,

ed al quale vanno i miei complimenti, sia per questa ennesima dimostrazione di capacità lottologica,

sia, per per la sua cabilità nel rendere "leggibili", anche, le situazioni più complicate.

http://forum.lottoced.com/f13/ritardo-del-ritardo-con-le-formazioni-dinamiche-45/

Per le scelte adottate nello script ... non è un problema disassemblarlo

ma al di là del leggere ... come è effettuato il calcolo ... il gioco sulla ruota diametrale ...

sono, anch'io, curioso di conoscere quali siano le ragioni che hanno dettato

la scelta di soluzioni "tutto tondo", di tecnica, non convenzionale.

Attendo fiiducioso.

 

[ghio]

scusate il ritardo........aaaaaa
il ritardo del un numero all estrzione precedente, poi si calcola il ritardo dello stesso
esempio ipoteticamente il 55 a ca tarda 20 il 20 che e il ritardo diventa un numero che lui stesso a un ritardo all stessa estraz ipoteticament 50
si fa la diff tra i rit questa poi serve per fare la previsione cioe 90-ogni diff da la previsione

 

[ghio]

questa tecnica risale ancora avari sperimenti cartaceii
la ruota diametrale perche e piu che accertato che tra loro convergono in modo piu omogeneo
questa idea fu poi tradotta in script dal leggendario robika ,che dopo svariate prove riusci ad accontentare le mie idee
l idea fu poi svilluppata iizialmente con entrambe le ruote per un gioco a lungo termine per terno e sorti superiori
poi ridotto per un gioco piu veloce e remunerativo
aspetto vostre considerazioni e se migliorie in merito,

 

[ghio]

in quanto a idee strane ne o molte
Sub main()
Dim nu(2),nr(2),ruo(2),n1(1),n2(1)
Dim nomefile
nomefile="C:\documenti\nuovaformula.txt"
ScriviFile"C:\documenti\nuovaformula.txt","",True 'con true si cancella in contenuto del file
'ScriviFile"C:\documenti\nuovaformula.txt","",False 'con false si incolonnano i dati successivi
For x=1 To 90
nr(1)=x
For z=x+1 To 90
nr(2)=z
a=Abs (nr(1)-nr(2))
n1(1)=nr(1)
n2(1)=nr(2)
ruo(1)=11
ruo(2)=12
c=SerieFreq (EstrazioneFin ,EstrazioneFin ,n1,ruo,1)
d=SerieFreq (EstrazioneFin ,EstrazioneFin ,n2,ruo,1)
b=SerieRitardo (EstrazioneFin -200,EstrazioneFin ,nr,ruo,2)
If a>0 And c>0 And d>0 And b>99 And b<201 Then
Scrivi StringaNumeri (nr)&" ritardo "&b
ScriviFile nomefile, StringaNumeri (nr)
End If
Next
Next
End Sub

queesta e un altra
ad ogni estrazione si sa escono dieci ambi a ruota gli stessi anno un rit su tutte le ruote con questo script
sono ad indicare proprio quei ambi da mettere in gioco su una ruota qualsiasi
questi con una progressione giusta ed adeguata portano alla vincita in poche estrazioni e con metodo matematico e non
inventato
gioco che a oggi prediligo
tutti metodi senza inganno ma matematici

 

[fillotto]

Grazie a ghio e Joe il ritardo del ritardo poi lo avevo capito , adesso devo uscire poi mi dedicherò a studiare la cosa

 

[ghio]

altre interessanti teorie ,da mettere a confronto con voi per poter sempre migliorare

ad esempio
fare un tabellone analitico di ambi
ad ogni estr ci sono 10 ambi a ruota per ogni estr
questi a un ritard compreso da 10 e 20 vanno giocati gli stessi a
ogni ruota i suoi ambi la vincita e assicurata in poche estrazioni

 

[fillotto]

Ciao Ghio lo script da errore perchè punta a trovare un file di txt posto in documenti :
Dim nomefile
nomefile="C:\documenti\nuovaformula.txt"
ScriviFile"C:\documenti\nuovaformula.txt","",True 'con true si cancella in contenuto del file
'ScriviFile"C:\documenti\nuovaformula.txt","",Fals e 'con false si incolonnano i dati successivi

Se ci spieghi come far girare questo script

 

[miguelma87]

Ciao Fillotto
Se non ti interessa l'esportazione in un file di testo degli ambi generati, basta che commenti le righe che fanno riferimento al percorso sul disco C aggiungendo come primo carattere della riga un apice. Il listato corretto è il seguente.


Sub Main()
Dim nu(2),nr(2),ruo(2),n1(1),n2(1)
' Dim nomefile
' nomefile = "C:\documenti\nuovaformula.txt"
' ScriviFile"C:\documenti\nuovaformula.txt","",True 'con true si cancella in contenuto del file
'ScriviFile"C:\documenti\nuovaformula.txt","",Fals e 'con false si incolonnano i dati successivi
For x = 1 To 90
nr(1) = x
For z = x + 1 To 90
nr(2) = z
a = Abs(nr(1) - nr(2))
n1(1) = nr(1)
n2(1) = nr(2)
ruo(1) = 11
ruo(2) = 12
c = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ruo,1)
d = SerieFreq(EstrazioneFin,EstrazioneFin,n2,ruo,1)
b = SerieRitardo(EstrazioneFin - 200,EstrazioneFin,nr,ruo,2)
If a > 0 And c > 0 And d > 0 And b > 99 And b < 201 Then
Scrivi StringaNumeri(nr) & " ritardo " & b
' ScriviFile nomefile,StringaNumeri(nr)
End If
Next
Next
End Sub

In alternativa devi modificare il percorso rendendolo compatibile con uno sul tuo disco.

Ciao, Miguelma

 

[gennaro]

... io invece nn capisco il xkè della scelta
ruo(1) = 11 'Tutte
ruo(2) = 12 'Naz

 

[ghio]

il 12lo puoi cambiare a tuo piacimento egiochi gli ambi sulla ruota a te piu coveniente se ad esempio a ba l uscita di un ambo con rit tra 100 e 200 su tutte è 7 estr che non
esce giocherei su quella ruota

 

[ghio]

scusate sono rientrat ora
grazieee miguelma87
poi occorre uno script per determinare una statistica dello stesso rit
mi spiego questi ambi a ruota, con quale freq escono quant, ritardo possono avere eccc