splendida ricerca di DANILOCS1.....

codicebinario · 14 Settembre 2011

.........ma non gira su spazio......e' possibile adattarlo?

Grazie a chiunque vorra cimentarsi....si tratta della BASEF (anche SCARAVETTI ci si prodigo'...)

Sub main()
Dim nu(1)
Dim posta(1), poste(2), ruote(5), numerissimi(10), nlot(20)
Dim ruotes1(1), ruotes2(1), ruotes3(1), ruotes4(1), ruotes5(1)
Dim numeri(90), pc(25), nnnn(1), nnn(1), nnl(1), pp(1)
Dim ruota1(1), ruota2(1), ruota3(1), ruota4(1), ruota5(1)
Dim lotr1(10), lotr2(10), lotr3(10), lotr4(10), lotr5(10)
Dim nr1(1), nr2(1), nr3(1), nr4(1), nr5(1)
Dim v(3), ritardo(1), crmass(5)
Dim nnc(1), nncp(1), amborit(2), tt(1), postes(2)
Dim nmed1(10), nmed2(10), nmed3(10), nmed4(10), nmed5(10)
ini = EstrazioneFin-10
fin = EstrazioneFin
posta(1) =1
poste(1) = 1
poste(2) = 1
postes(1)=0
postes(2)=1
nec=4 'numero estrazioni di controllo
piuvolte=3
colpi=12
mmediasup=23
For est = ini To fin
AvanzamentoElab ini, fin, est
For rt1 = 1 To 1
ruote(1) = rt1
ruota1(1)=rt1
nr1(1)=PiuRitardatario (est,rt1)
cr1=SerieRitardo(est-250,est,nr1,ruota1,1)
For rt2 = rt1 + 1 To 2
ruote(2) = rt2
ruota2(1)=rt2
nr2(1)=PiuRitardatario (est,rt2)
cr2=SerieRitardo(est-250,est,nr2,ruota2,1)
For rt3 = rt2 + 1 To 3
ruote(3) = rt3
ruota3(1)=rt3
nr3(1)=PiuRitardatario (est,rt3)
cr3=SerieRitardo(est-250,est,nr3,ruota3,1)
For rt4 = rt3 + 1 To 4
ruote(4) = rt4
ruota4(1)=rt4
nr4(1)=PiuRitardatario (est,rt4)
cr4=SerieRitardo(est-250,est,nr4,ruota4,1)
For rt5 = rt4 + 1 To 5
ruote(5) = rt5
ruota5(1)=rt5
nr5(1)=PiuRitardatario (est,rt5)
cr5=SerieRitardo(est-250,est,nr5,ruota5,1)
crmass(1)=cr1
crmass(2)=cr2
crmass(3)=cr3
crmass(4)=cr4
crmass(5)=cr5
OrdinaMatrice crmass,-1
crmas=crmass(1)
For n = 1 To 90 step 1
nu(1)=n
If SerieFreq(est-(nec-1),est,nu,ruote,1) => piuvolte Then 'condizione
If SerieRitardo(est-crmas,est,nu,ruote,1) <=40 Then
If SerieFreq(est-crmas,est,nu,ruote,1) <= 40 Then
numeri

=CInt(nu(1))
End If
End If
End If
Next
OrdinaMatrice numeri,-1
EliminaRipetuti numeri
For k = 1 To 10
If numeri(k)>0 Then
numerissimi(k) = CInt(numeri(k))
End If
Next
contanumeri=0
For k = 1 To 20
If numeri(k)>0 Then
nlot(k) = CInt(numeri(k))
contanumeri=contanumeri+1
End If
Next
If contanumeri => 2 And contanumeri <= 10 Then
Scrivi DataEstrazione(est)&" Analisi Frequenza su "&NomeRuota(rt1)&" "&NomeRuota(rt2)&" "&NomeRuota(rt3)&" "&NomeRuota(rt4)&" "&NomeRuota(rt5)
Scrivi
riga=""
presr=0
For e=est-(nec-1) To est step 1
For rr=rt1 To rt5 step 1
For ppp=1 To 5
nn = Estratto(e, rr, ppp)
riga=riga+FormatSpace(nn,3,True)
If nn = numerissimi(1) Or nn = numerissimi(2) Or nn = numerissimi(3) Or nn = numerissimi(4) Or nn = numerissimi(5) Or nn = numerissimi(6) Or nn = numerissimi(7) Or nn = numerissimi(8) Or nn = numerissimi(9) Or nn = numerissimi(10) Then
presr = presr + 1
End If
Next
If rr<rt5 Then
riga=riga+" - "
End If
Next
Scrivi riga+" pres. di riga "+FormatSpace(presr,3,True)
riga=""
presr=0
Next
Scrivi
rigacol=""
presc=0
tot=0
For rr=rt1 To rt5 step 1
For ppp=1 To 5 step 1
For e=est-(nec-1) To est step 1
nn = Estratto(e, rr, ppp)
If nn = numerissimi(1) Or nn = numerissimi(2) Or nn = numerissimi(3) Or nn = numerissimi(4) Or nn = numerissimi(5) Or nn = numerissimi(6) Or nn = numerissimi(7) Or nn = numerissimi(8) Or nn = numerissimi(9) Or nn = numerissimi(10) Then
presc = presc + 1
tot=tot+1
End If
Next
rigacol=rigacol+FormatSpace(presc,3,True)
presc=0
If ppp=5 And rr<rt5 Then
rigacol=rigacol+" - "
End If
Next
Next
Scrivi rigacol++" pres. di col. "+FormatSpace(tot,3,True)+" tot"
Scrivi
rigaruota1=""
ruota1(1)=rt1
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota1,1) > 0 Then
rigaruota1=rigaruota1&"."&nnnn(1)
lotr1(k)=numerissimi(k)
End If
End If
Next
Scrivi FormatSpace(NomeRuota(rt1),9)+" "+rigaruota1
rigaruota2=""
ruota2(1)=rt2
For k = 1 To 10
If numerissimi(k)>0 Then
nnnn(1)=numerissimi(k)
If SerieFreq(est-(nec-1),est,nnnn,ruota2,1) > 0 Then
rigaruota2=rigaruota2&"."&nnnn(1)
lotr2

Zagor · 14 Settembre 2011

Ciao Artemisio , io l'ho provato su L8 , gira ok , anche se un pò lento , grazie per averlo postato.

Se vuoi ti posto l'output dell'ultima estrazione.

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)

Roby · 15 Settembre 2011

quote:Originally posted by Zagor

Ciao Artemisio , io l'ho provato su L8 , gira ok , anche se un pò lento , grazie per averlo postato.
Se vuoi ti posto l'output dell'ultima estrazione.

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)

Grazie Mauro,ma io non uso altro che spaziometria....e non gira....purtroppo !!!! posta l'output ,comincero' a guardarlo + da vicino.....Grazie.

SUERTE !!!!

Nexus · 15 Settembre 2011

Anticipo zagor con l'output (archivio aggiorn.estraz.odierna)

**************************************************
Avvio esecuzione: 15/09/11 22.08.24
**************************************************

**************************************************
Termine esecuzione: 15/09/11 22.08.50
Durata esecuzione: 00.00.26
**************************************************

Codice:

23.08.2011 Analisi Frequenza su Bari Cagliari Firenze Genova Milano

 59 21 42 86 46 -  38 36 83 65 59 -  42 59 76 84 41 -  28 65 38 17 37 -  60  6 77 79 65 pres. di riga  10
 66 24 36 25 57 -  38 85 44 29 77 -  69 38 73 87 30 -  57 63 19 20 88 -  37 77 38 47 65 pres. di riga  12
 85 41 68 46 47 -  64  4 56  2  1 -  16 13 32 37 39 -  79 56 90  5  8 -   7 55 83 45 51 pres. di riga   4
 58 51 57 27  8 -  16 31 82  3  4 -   6 90 44 58 68 -   3 39 18 47  4 -  85  7 60 45 44 pres. di riga   7

  2  0  1  0  2 -   2  2  1  1  3 -   0  2  1  1  0 -   1  1  1  1  2 -   2  1  2  1  3 pres. di col.  33 tot

Bari      .85.59.57.47
Cagliari  .85.77.65.59.44.38.4
Firenze   .59.44.38.37
Genova    .65.57.47.38.37.4
Milano    .85.77.65.47.44.38.37

 Numeri --85--77--65--59--57--47--44--38--37--04
Rel.Presenze ------------------------------------------------
Bari      ->    6   7   4   7  13   4   7   6   8   7 Ciclo Reale  98 estr.
Cagliari  ->    8   4   6   9   5   1   4  10   8   7 Ciclo Reale  95 estr.
Firenze   ->    3   2   7   5   6   7   5   5   5   5 Ciclo Reale  77 estr.
Genova    ->    4   5   5   7   2   2   1   1   4   6 Ciclo Reale  65 estr.
Milano    ->    4   5   5   3   4   5   6   5   5   4 Ciclo Reale  61 estr.

 Numeri --85--77--65--59--57--47--44--38--37--04 CTot  396 estr.
Rel.Presenze ------------------------------------------------
Bari      ->   22  27  20  19  25  23  20  22  28  25
Cagliari  ->   27  25  26  27  24  23  22  34  17  31
Firenze   ->   13  19  18  25  29  26  23  19  23  27
Genova    ->   22  19  20  25  19  18  25  25  25  24
Milano    ->   28  28  18  25  30  16  19  30  26  26
 ------------------------------------------------
Totali 5R ->  112 118 102 121 127 106 109 130 119 133

 Numeri --85--77--65--59--57--47--44--38--37--04 CR Tot  396 estr.
Rel. Medie --------------------------------------------------------------
Bari      ->  18,0 14,7 19,8 20,8 15,8 17,2 19,8 18,0 14,1 15,8
Cagliari  ->  14,7 15,8 15,2 14,7 16,5 17,2 18,0 11,6 23,3 12,8
Firenze   ->  30,5 20,8 22,0 15,8 13,7 15,2 17,2 20,8 17,2 14,7
Genova    ->  18,0 20,8 19,8 15,8 20,8 22,0 15,8 15,8 15,8 16,5
Milano    ->  14,1 14,1 22,0 15,8 13,2 24,8 20,8 13,2 15,2 15,2

 Numeri --85--77--65--59--57--47--44--38--37--04 CR Mass   98 estraz.
Rel.Presenze ------------------------------------------------
Bari      ->    5   7   4   7  13   4   7   6   8   7
Cagliari  ->    9   4   6   9   5   2   5  11   8   8
Firenze   ->    4   3   8   6   8   7   7   6   7   5
Genova    ->    5   7   6   7   3   5   4   4   6  10
Milano    ->    8   5   5   4   6   5   8   8   8   7

 Numeri --85--77--65--59--57--47--44--38--37--04
Rel. Ritardi -------------------------------------------------
Bari      ->    1   4  10   3   0   1  15  14   9  11 Ciclo Reale  98 estr.
Cagliari  ->    2   2   3   3   9  29   2   2  34   0 Ciclo Reale  95 estr.
Firenze   ->   42  46   9   3  22   6   0   2   1   7 Ciclo Reale  77 estr.
Genova    ->   19   7   3   5   2   0  30   3   3   0 Ciclo Reale  65 estr.
Milano    ->    0   2   2  23   4   2   0   2   2   5 Ciclo Reale  61 estr.

 Numeri --85--77--65--59--57--47--44--38--37--04
Rel. Ritardi ------------------------------------------------- Storici dal 1950
Bari      ->   89  74  88 108  87 106  92 153 142  82
Cagliari  ->  102 103  75 109 119 102 119 112 118 103
Firenze   ->  105 121 109  75  80  90 111  96 101 136
Genova    ->   87 107  73  83  96  91  69  95 133 144
Milano    ->  107  90  95  98 118

Roby · 15 Settembre 2011

Grazie NAVIGATOR E di spazi intersiderali quantici....dovro' decidermi a installare anche io l8...

provero' a estrapolare qualcosa di buono...

SUERTE !!!!

Zagor · 15 Settembre 2011

Ciao Artemisio , ora che hai l'output , studia bene come interpretare tutti i dati , questo listato sembra molto molto interessante.
Daltronde il nostro ferroviere di Ferrara (il buon Danilo ) ci ha abituati da lungo tempo ad elaborazioni ed intuizioni sorprendenti.

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)

aldino · 16 Settembre 2011

Una buona giornata a tutti voi

volevo chiedere se era possibile modificare le ruote ed inserire

un gruppo di VENUS attualmente raggruppate nella stessa sala.

per esempio ,se non erro:

PA-BA-NA-CA----//---FI-ROMA-NAZ---///---GE-TO-MI-VE

GRAZIE in ogni caso ,per aver postato il bel listato di DANILOCS1

e buon proseguimento

un saluto a tutti da aldino

paciola · 16 Settembre 2011

Scusate la domanda...ma cos'è LB?

Grazie
Davide

Nexus · 16 Settembre 2011

quote:Originally posted by artemisio

Grazie NAVIGATOR E di spazi intersiderali quantici....dovro' decidermi a installare anche io l8... provero' a estrapolare qualcosa di buono...

SUERTE !!!!

Ehi Artemisio non credo riuscirai ad installare L8+.
Ormai è un programma "vecchio" e non viene più venduto.
La nuova versione in commercio si chiama Lottodesk 1.2
Però se vuoi gli aggiornamenti automatici dal Web...devi poi pagare!

"I pensieri diventano cose" (Dooley Mike)
"Alla sorgente del pensiero c'e' consapevolezza illimitata" (Maharishi Mahesh Yogi)
"Una mente felice produce una realta' felice" (Fabio Marchesi)

Zagor · 17 Settembre 2011

Ciao Artemisio , hai posta.

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)

Roby · 17 Settembre 2011

Grazie Mauro !!!!

Sempre disponibile e gentilissimo..........X NAVIGATOR......invece si puo' trovare anche l'archivio aggiornato,e gratis........

SUERTE !!!!

Roby · 19 Settembre 2011

Anche questo.....fatene tesoro !!!

Sub main()

' ritardi consecutivi filtrati in base a input
'dettaglio di tutti i cicli di tutti i numeri di una ruota a scelta

'ATTENZIONE: per velocizzare l'esecuzione dello script ho utilizzato la funzione
'RitEstrazione che dipende dai parametri ricerca . Assicurarsi che l'intervallo
'impostato in PARAMETRI RICERCA del programma, sia quello desiderato.

Dim gen(),uscite(90),nu(1),ru(1)
rit=CInt(InputBox("Inserire valore di ritardo minimo da valutare",,20))
r=CInt(InputBox("Ruota?",,1)):ru(1)=r
Redim gen(90,0):For i= 1 To 90 : nu(1)=i : gen(i,0)=SerieRitardo(1,EstrazioniArchivio ,nu,ru,1): Next
'---------------------------------ricerca dei ritardi
For es= 1 To EstrazioniArchivio
If Estratto(es,r,1)>0 Then
For p= 1 To 5
a=Estratto(es,r,p)
uscite(a)=uscite(a)+1
If uscite(a)> max Then max=uscite(a): Redim preserve gen(90,max)
gen(a,uscite(a))=RitEstrazione(es,r,p)
Next
End If
Next
'----------------------------------
'ColoreTesto 0
'x=10 '<== numero degli ultimi ritardi visualizzati
'Scrivi NomeRuota(r)& " Dettaglio ultimi ritardi ",1
'Scrivi "Nu R.C Fr - Ultimi ritardi",1
'For y= 1 To 90
'riga=Format2

& " "& FormatSpace(gen(y,0),3,1)& " "& FormatSpace(uscite

,4,1)& " "
'For i= uscite

To uscite

-x+1 step-1 'colonne
' riga=riga& FormatSpace(gen(y,i),3,1)& " "
'Next
'Scrivi riga
'Next
'ColoreTesto 1
'------------------------------------- analisi e output dei ritardi come da input
For n= 1 To 90
Scrivi Chr(10)& SiglaRuota(r)&" Analisi ritardi > "& rit & " del num "& n,1
Scrivi "Ciclo Rit TotR Rit successivo",1
co=0
For i= 1 To uscite

If gen(n,i)>rit Then
co=co+1 : s=s+gen(n,i)
If co>5 Then ColoreTesto 2 '<====NOTA: per colorare di rosso i cicli superiori a..(co)
If gen(n,i+1)>rit Then post="": ss="" Else post=gen(n,i+1):ss=s

'--------NOTA: per scrivere tutti i cicli mettere apice alla 2^ riga
'------------: per scrivere solo i cicli superiori a...(co) mettere apice alla 1^ e gestire la 2^
Scrivi Space(4)& co& " "&formatspace(gen(n,i),3,1)& " "&Formatspace(ss,4,1)& " "& FormatSpace(post,3,1)
'If co>1 Then Scrivi Space(4)& co& " "&formatspace(gen(n,i),3,1)& " "& &Formatspace(ss,4,1)& " "& FormatSpace(post,3,1)
'------------------
If gen(n,i+1)<=rit Then co=0 : s=0
ColoreTesto 0
End If
Next
Scrivi "R.Attuale "& FormatSpace(gen(n,0),3,1)
Next
Scrivi :coloretesto 2
Scrivi "ATTENZIONE: elaborato su intervallo di archivio impostato in parametri ricerca"
End Sub
peccato che nessuno si cimenti per l'adattamento a spaziometria !!!

CIAO.

SUERTE !!!!

vinci · 24 Settembre 2011

Grazie artemisio, ma su SpazioMetria da errore

Vinci

claudio8 · 25 Settembre 2011

quote:Originally posted by vinci

Grazie artemisio, ma su SpazioMetria da errore

Vinci

SE ho inteso bene la funzione RitEstrazione = RitardoEstratto....

Provate a farlo girare e verificare l'output

Sub Main()
' x Spaziometria
' ritardi consecutivi filtrati in base a input
'dettaglio di tutti i cicli di tutti i numeri di una ruota a scelta
'ATTENZIONE: per velocizzare l'esecuzione dello script ho utilizzato la funzione
'RitEstrazione che dipende dai parametri ricerca . Assicurarsi che l'intervallo
'impostato in PARAMETRI RICERCA del programma, sia quello desiderato.
Dim gen(),uscite(90),nu(1),ru(1)
rit = CInt(InputBox("Inserire valore di ritardo minimo da valutare",,20))
r = CInt(InputBox("Ruota?",,1))
ru(1) = r
'ReDim p(5)
ReDim gen(90,0)
For i = 1 To 90
nu(1) = i
gen(i,0) = SerieRitardo(1,EstrazioniArchivio,nu,ru,1)
Next
'---------------------------------ricerca dei ritardi
For es = 8000 To EstrazioniArchivio
If Estratto(es,r,1) > 0 Then
For p = 1 To 5
a = Estratto(es,r,p)
uscite(a) = uscite(a) + 1
If uscite(a) > max Then
max = uscite(a)
ReDim Preserve gen(90,max)
End If
gen(a,uscite(a)) = RitardoEstratto(a,es,r)
Next
End If
Next
'----------------------------------
'ColoreTesto 0
'x=10 '<== numero degli ultimi ritardi visualizzati
'Scrivi NomeRuota(r)& " Dettaglio ultimi ritardi ",1
'Scrivi "Nu R.C Fr - Ultimi ritardi",1
'For y= 1 To 90
'riga=Format2

& " "& FormatSpace(gen(y,0),3,1)& " "& FormatSpace(uscite

,4,1)& " "
'For i= uscite

To uscite

-x+1 step-1 'colonne
' riga=riga& FormatSpace(gen(y,i),3,1)& " "
'Next
'Scrivi riga
'Next
'ColoreTesto 1
'------------------------------------- analisi e output dei ritardi come da input
For n = 1 To 90
Scrivi Chr(10) & SiglaRuota(r) & " Analisi ritardi > " & rit & " del num " & n,1
Scrivi "Ciclo Rit TotR Rit successivo",1
co = 0
For i = 1 To uscite

If gen(n,i) > rit Then
co = co + 1
s = s + gen(n,i)
If co > 5 Then
ColoreTesto 2 '<====NOTA: per colorare di rosso i cicli superiori a..(co)
End If
If gen(n,i + 1) > rit Then
post = ""
ss = ""
Else post = gen(n,i + 1)
ss = s
End If
'--------NOTA: per scrivere tutti i cicli mettere apice alla 2^ riga
'------------: per scrivere solo i cicli superiori a...(co) mettere apice alla 1^ e gestire la 2^
Scrivi Space(4) & co & " " & FormatSpace(gen(n,i),3,1) & " " & FormatSpace(ss,4,1) & " " & FormatSpace(post,3,1)
'If co>1 Then Scrivi Space(4)& co& " "&formatspace(gen(n,i),3,1)& " "& &Formatspace(ss,4,1)& " "& FormatSpace(post,3,1)
'------------------
If gen(n,i + 1) <= rit Then
co = 0
s = 0
End If
ColoreTesto 0
End If
Next
Scrivi "R.Attuale " & FormatSpace(gen(n,0),3,1)
Next
Scrivi
ColoreTesto 2
Scrivi "ATTENZIONE: elaborato su intervallo di archivio impostato in parametri ricerca"
End Sub

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

Cerca

Cerca

splendida ricerca di DANILOCS1.....

codicebinario

Guest

Zagor

Advanced Member >PLATINUM<

Roby

Guest

Nexus

Super member

Roby

Guest

Zagor

Advanced Member >PLATINUM<

aldino

Super Member >GOLD<

paciola

Senior Member

Nexus

Super member

Zagor

Advanced Member >PLATINUM<

Roby

Guest

Roby

Guest

vinci

Super Member >GOLD<

claudio8

Premium Member

Ultima estrazione Lotto

Ultimi Messaggi