RICERCA SU METODO DANILO CS1

[vinci]

Buona giornata a tutti.
Scrivo questo post perchè ho bisogno di un grande favore.
Qualche anno fa il il mitico Danilo cs1 mi fece la cortesia di ricavare
queste tre quartine sulle mie ruote preferite ( FI-RO-VE) che per un po di tempo
ho seguito ottenendo anche qualche piccola vincita.
Il favore che chiedo adesso consiste nel lasciare i 4 numeri del metodo per ogni singola
ruota trovandone un quinto per portarle a cinquine allargando la previsione nel periodo
dal 2010 ad oggi almeno per ambo e terno.
Ringrazio anticipatamente chi mi potrà aiutare.
Di seguito riporto il testo originale che a suo tempo Danilo postò i questo forum.

............................................................................................................................


Ciao, ecco cosa ho trovato di discreto sulle tue ruote preferite,

qui ci sono sia le combinazioni manuali che il listato per L8,

sono piu o meno uguali, hanno circa 22-23 casi positivi su 31 analizzati
entro i 9 colpi di gioco, si calcolano all'ultima del mese

ciao Danilo


' FIRENZE
' 1°FI + 3°NA + 78
' 3°MI + 3°PA + 34
' 1°MI + 1°PA + 14
' 2°PA + 1°RO + 26

' ROMA
' 3°NA + 5°TO + 31
' 4°FI + 2°GE + 87
' 5°BA + 1°RO + 88
' 3°PA + 5°RO + 39

' VENEZIA
' 2°MI + 3°RO + 8
' 1°BA + 3°MI + 88
' 2°FI + 4°TO + 54
' 1°GE + 1°PA + 72







Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2)=1.5
poste(3)=0.45
poste(4)=0.05
k=9
y=2
For n=7086 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
ng=0
ruote(1)=3
numeri1(1)=Fuori90(Estratto(n,3,1)+Estratto(n,6,3)+78)
numeri1(2)=Fuori90(Estratto(n,5,3)+Estratto(n,7,3)+34)
numeri1(3)=Fuori90(Estratto(n,5,1)+Estratto(n,7,1)+14)
numeri1(4)=Fuori90(Estratto(n,7,2)+Estratto(n,8,1)+26)
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
ruote(1)=8
numeri1(1)=Fuori90(Estratto(n,6,3)+Estratto(n,9,5)+31)
numeri1(2)=Fuori90(Estratto(n,3,4)+Estratto(n,4,2)+87)
numeri1(3)=Fuori90(Estratto(n,1,5)+Estratto(n,8,1)+88)
numeri1(4)=Fuori90(Estratto(n,7,3)+Estratto(n,8,5)+39)
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
ruote(1)=10
numeri1(1)=Fuori90(Estratto(n,5,2)+Estratto(n,8,3)+8)
numeri1(2)=Fuori90(Estratto(n,1,1)+Estratto(n,5,3)+88)
numeri1(3)=Fuori90(Estratto(n,3,2)+Estratto(n,9,4)+54)
numeri1(4)=Fuori90(Estratto(n,4,1)+Estratto(n,7,1)+72)
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
Gioca n
End If
Next
ScriviResoconto
End Sub




Vinci

 

[romaroma]

PROVA AD AGGIUNGERE A FI 14 A RO 25 A VE 73 SONO I PIU FREQUENTI SULLE TUE RUOTE,DA GENNAIO 2010 A OGGI 20 AMBI 2 TERNI SEMBRA ANCORA BUONO,CIAO

 

[vinci]

Grazie romaroma, la ruota migliore quale è stata?



Vinci

 

[romaroma]

fi 9 vincite

 

[romaroma]

complimenti,ambo in cinquina a fi 83.14,io non ho giocato,perche impegnato col 22,che non e uscito

 

[vinci]

Ancora ambo in cinquina Roma 18-25
(con il 25 abbinamento consigliato da romaroma)


Vinci

 

[vinci]

è possibile modificare questo script portandolo a cinquine
su FI-RO-VE per il periodo gennaio 2010 ad oggi?
anticipatamente ringrazio tutti quanti che potranno aiutarmi




Vinci

 

[romaroma]

prova cosi,ho aggiunto i numeri fissi allo script di danilo:
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2)=1.5
poste(3)=0.45
poste(4)=0.05
k=13
y=2
For n=8163 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
ng=0
ruote(1)=3
numeri1(1)=Fuori90(Estratto(n,3,1)+Estratto(n,6,3)+78)
numeri1(2)=Fuori90(Estratto(n,5,3)+Estratto(n,7,3)+34)
numeri1(3)=Fuori90(Estratto(n,5,1)+Estratto(n,7,1)+14)
numeri1(4)=Fuori90(Estratto(n,7,2)+Estratto(n,8,1)+26)
numeri1(5)=14
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
ruote(1)=8
numeri1(1)=Fuori90(Estratto(n,6,3)+Estratto(n,9,5)+31)
numeri1(2)=Fuori90(Estratto(n,3,4)+Estratto(n,4,2)+87)
numeri1(3)=Fuori90(Estratto(n,1,5)+Estratto(n,8,1)+88)
numeri1(4)=Fuori90(Estratto(n,7,3)+Estratto(n,8,5)+39)
numeri1(5)=25
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
ruote(1)=10
numeri1(1)=Fuori90(Estratto(n,5,2)+Estratto(n,8,3)+8)
numeri1(2)=Fuori90(Estratto(n,1,1)+Estratto(n,5,3)+88)
numeri1(3)=Fuori90(Estratto(n,3,2)+Estratto(n,9,4)+54)
numeri1(4)=Fuori90(Estratto(n,4,1)+Estratto(n,7,1)+72)
numeri1(5)=73
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[vinci]

Grazie 1000



Vinci

 

[Abitte]

Mi è capitato sottomano il foglietto con l'appunto dei calcoli e ho voluto controllare.....

FI ambo in quartina 63-90 al 2°colpo

VE ambo in quartina 66-72 al 5°colpo

manca RO all'appello!!

Direi che funziona ancora

Abitte
___________________

«Faber quisque fortunae suae»