Mike58 frequenti

trivellatomariotretre33 · 22 Maggio 2016

Ciao Mike58 se possibile avere uno script che faccia quanto segue per Bari e Cagliari. Con scelta di altre ruote con input.

Trovare i Numeri più frequenti dal 1939 a oggi su Bari e Cagliari Capi Gioco su entrambe le Ruote.

per ricercare i Migliori Ambi Secchi con ogni singolo Capo Gioco. Scartare tutti gli ambi dove è già uscito l'abbinamento e tutti gli ambi dove il capo gioco è già uscito.

Per ridurre il più possibile ambi in Gioco:
grazie di cuore .

Mike58 · 25 Maggio 2016

Ciao Trivellato, richiesta quasi impossibile a farsi (per le mie capacità).
Andrebbe bene uno script su + ruote per le frequenze, ma poi rielaborarlo per gli ambi frequenti diventa complesso e i tempi di elaborazione sarebbero eccessivi.

Se vuoi uno script per le frequenze ESTRATTI su + ruote ok.
poi stabilito un possibile capagioco si potrebbe vedere gli ambi frequenti con un 2° script.

Per ora ho poco tempo mi spiace.

Ciao

trivellatomariotretre33 · 25 Maggio 2016

CIAO Grazie Mike58 mi va benissimo come ai detto ...
certamente quanto potrai ti ringrazio anticipatamente con una stretta di mano chilometrica

Mike58 · 25 Maggio 2016

1° script Estratti su Ruote scelte

Codice:

Sub Main
 Dim N(1),T,V,nLiv
 Ini = EstrazioneIni' - 200
 fin = EstrazioneFin
 Tot = fin - Ini
 ReDim R(0)
 Rr = ScegliRuote(R)
 Scrivi "Statistica Numeri Su Ruote di : " & StringaRuote(R),1
 Scrivi
 T = Array(T,"Numero","Ritardo","Storico","Incr","Frequenza","Ind CV ","Peso 36","RitsincLiv","RrCrono")
 Call InitTabella(T,RGB(146,139,126),,3,5)
 For x = 1 To 90
  N(1) = x
  Call StatisticaFormazioneTurbo(N,R,1,Rit,max,Incr,fre,Ini,fin)
  IndCV = Round(fre/Tot*Rit,2)
  liv = RitSincDiLiv(x,R,fin,nLiv)
  Rl = RitPosCrono(x,R,fin)
  
  '------ elenco ritardi..............
   ReDim rp(37),fr(37)
     Inizio = EstrazioneIni
     fine = EstrazioneFin
     somrit12 = 0
     For z = 1 To 37
      rp(z) = SerieRitardoTurbo(Inizio,fine,N,R,1)
      fr(z) = SerieFreqTurbo(Inizio,fine,N,R,1)
      fine = fine -(rp(z) + 1)
      somrit12 = somrit12 + rp(z) + 1
      Med = Round(somrit12/37,2)
      freq = fr(z) + 1
      Mfr = Round(freq/37,2)
     Next
   '.........................................

  V = Array(V,StringaNumeri(N),Rit,max,Incr,fre,IndCV,somrit12,liv,Rl)
  Call AddRigaTabella(V,,,3,,"Cambria")
 Next
 CreaTabellaOrdinabile(2)
End Sub

2° script Capogioco x ambo su ruote scelte

Codice:

Sub Main
 Dim n1,n2,anum(2),spia(1),abb(1)
 'Dim ruote(1)
 'r = InputBox("Quale Ruota",,1)
 qn = CInt(InputBox("Quale Capogioco",,15))
 'qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
 ReDim ruote(0)
 'ruote(1) = r
 r = ScegliRuote(ruote)
 ReDim atitoli(11)
 atitoli(1) = " Data "
 atitoli(2) = " Ruota "
 atitoli(3) = " Numero "
 atitoli(4) = " Ritardo "
 atitoli(5) = " Rit Max "
 atitoli(6) = " incr Max "
 atitoli(7) = " frequenza "
 atitoli(8) = "  Esito ultimo "
 atitoli(9) = " Tipo esito "
 atitoli(10) = " Data esito "
 atitoli(11) = "Ritardo abbinamento"
 Call InitTabella(atitoli,1,,3,5)
 spia(1) = qn
 Ini = 3950'EstrazioneIni'Fin - qe
 fin = EstrazioneFin
 df = fin - Ini
 sp = SerieFreq(Ini,fin,spia,ruote,1)
 Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df + 1,1,- 1,3
 Scrivi "presenze del numero Capogioco.... " & sp,1
 Messaggio "elaboro... ruota di  " '& NomeRuota(r)
 Call AvanzamentoElab(1,10,100)
 n1 = qn
 For n2 = 1 To 90
  If n1 <> n2 Then
   anum(1) = n1
   anum(2) = n2
   abb(1) = n2
   Call StatisticaFormazioneTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
   Call StatisticaFormazioneTurbo(abb,ruote,1,rit1,,,,Ini,fin)
   Call VerificaEsitoTurbo(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
   ReDim avalori(11)
   avalori(1) = DataEstrazione(fin)
   avalori(2) = StringaRuote(ruote)
   avalori(3) = StringaNumeri(anum,,1)
   avalori(4) = rit
   avalori(5) = ritmax
   avalori(6) = Incrmax
   avalori(7) = freq
   avalori(8) = retestratti
   avalori(9) = retesito
   If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
   If retesito = "" Then avalori(10) = " -- "
   avalori(11) = rit1
   Call AddRigaTabella(avalori,,,3)
   Call SetColoreCella(4,vbMagenta)
   Call SetColoreCella(3,,1)
   Call SetColoreCella(8,,7)
   Call SetColoreCella(7,vbGreen)
   If rit = 0 Then Call SetColoreCella(10,vbYellow)
  End If
 Next
 Call SetTableWidth("100%")
 Call CreaTabellaOrdinabile(7,,,100) ' riga x ordinamento colonna
 Call Scrivi("  *******   Tabella by Mike58   *******    ",True,True,2,4,4)
End Sub

Gli script sono con tabellaOrdinabile pertanto puoi risalire tramite ai filtri che potrai impostare alle risultanze migliori.

P.s. gli script erano già pronti per mio uso anche se non è quello che chiedi, possono raggiungere lo stesso lo scopo di ricerca

ciao

trivellatomariotretre33 · 25 Maggio 2016

grazie mike58

Mike58 · 2 Giugno 2016

Ciao Trivellato, dalla tua richiesta poi ho cercato altre soluzioni e qualcosa di buono e nuovo è venuto fuori.
Con la Tabella ordinabile puoi poi risalire alle risultanze migliori.

prova.

Codice:

Sub Main
 Dim Ambi(8100,6)
 Dim Ru(1),Nu(1),Abb(2),Nv(2)
 Dim TotAbb,T,V
 r = InputBox("QUALE RUOTA ANALIZZO",,5)
 Call ScegliRange(Ini,fin,8072,EstrazioneFin)
 'Ini = 8072
 'fin = EstrazioneFin' - 1
 'fine = EstrazioneFin
 Scrivi "Scrpit By Mike58",1,,,1,3,,1
 Scrivi "Range Inizio  : " & GetInfoEstrazione(Ini),1
 Scrivi "Range Fine    : " & GetInfoEstrazione(fin),1
 Scrivi "Totali Estraz.: " & fin-Ini+1
 Scrivi
 T = Array(T,"Numero","Ambo Freq","Frequenza","Ritardo","Abbinamento Ritardo","EstrattoFreq")
 Call InitTabella(T)
 For n1 = 1 To 90
  Nu(1) = n1
  eF = EstrattoFrequenzaTurbo(r,n1,Ini,fin)
  k = 0
  For n2 = 1 To 90
   Abb(1) = Nu(1)
   Abb(2) = n2
   Ru(1) = r
   ambFr = SerieFreqTurbo(Ini,fin,Abb,Ru,2)
   ambRit = SerieRitardoTurbo(Ini,fin,Abb,Ru,2)
   estFr = EstrattoRitardoTurbo(Ru(1),n2,Ini,fin)
   Ambi(k,1) = Abb(1)
   Ambi(k,2) = Abb(2)
   Ambi(k,3) = AmbFr
   Ambi(k,4) = AmbRit
   Ambi(k,5) = estFr
   Ambi(k,6) = eF
   k = k + 1
  Next
  OrdinaMatrice Ambi,- 1,3
  For TotAbb = 1 To 6
   Nv(1) = Ambi(TotAbb,1)
   Nv(2) = Ambi(TotAbb,2)
   V = Array(V,StringaNumeri(Nu),StringaNumeri(Nv),Ambi(TotAbb,3),Ambi(TotAbb,4),Ambi(TotAbb,5),Ambi(TotAbb,6))
   Call AddRigaTabella(V)
   If dispari(n1) Then Call SetColoreCella(1,1,5)
   If pari(n1) Then Call SetColoreCella(1,6,1)
  Next
 Next
 Call CreaTabellaOrdinabile()
 k = 0
End Sub

Mike58 · 2 Giugno 2016

<*****quote> Mentre lo stesso script agisce sul Numero Ritardatario per Ruota.

Codice:

Sub Main
 Dim Ambi(90,5)
 Dim Ruota(1),Num(2),Nu(1),Nv(2),Nruota(1)
 Dim TotAbb,nRit
 Ini = 3950
 fin = EstrazioneFin - 1
 fine = EstrazioneFin
 For r = 1 To 12
  T = Array(T,"Ruota"," Ambo Freq ","Frequenza","Ritardo","Rit Abbin","EsitoFin")
  Call InitTabella(T,1,,3,5)
  If r = 11 Then r = 12
  Call Messaggio("Ruote : " & NomeRuota(r))
  Call AvanzamentoElab(1,10,3)
  nRit = NumeroPosRitTurbo(fin,r,1)
  Nu(1) = nRit
  Ruota(1) = r
  eF = SerieRitardoTurbo(Ini,fin,Nu,Ruota,1)
  k = 0
  For abb = 1 To 90
   Nruota(1) = r
   Num(1) = nRit
   Num(2) = abb
   ambFr = SerieFreqTurbo(Ini,fin,Num,Nruota,2)
   ambRit = SerieRitardoTurbo(Ini,fin,Num,Nruota,2)
   estFab = EstrattoRitardoTurbo(r,abb,Ini,fine)
   Ambi(k,1) = nRit
   Ambi(k,2) = abb
   Ambi(k,3) = ambFr
   Ambi(k,4) = ambRit
   Ambi(k,5) = estFab
   k = k + 1
  Next
  OrdinaMatrice Ambi,- 1,3
  Scrivi "Numero + Ritardatario : " & nRit & "   Ritarda da > " & eF,1,,,1,3
  For TotAbb = 1 To 10
   Nv(1) = Ambi(TotAbb,1)
   Nv(2) = Ambi(TotAbb,2)
   Call VerificaEsitoTurbo(Nv,Nruota,EstrazioneFin,1,,,esito,,es1)
   v = Array(v,SiglaRuota(r),StringaNumeri(Nv,,1),Ambi(TotAbb,3),Ambi(TotAbb,4),Ambi(TotAbb,5),es1)
   Call AddRigaTabella(v,,,2,,"arial black")
   Call SetColoreCella(1,6,0)
   Call SetColoreCella(3,4,2)
   Call SetColoreCella(2,2,4)
   If esito <> "" Then Call SetColoreCella(6,3,0)
  Next
  'Scrivi
  Call SetTableWidth("100%")
  Call CreaTabella(0,0,0,0,1)
  k = 0
 Next
scrivi "Script by Mike58",1
End Sub

bergie · 2 Giugno 2016

ottimo lavoro Mike58

SEMPLICEMENTE FAVOLOSI

zagort · 5 Giugno 2016

sei unico,grazie Mike.
eccezionale questa funzione,Luigi non finisce mai di stupirci
Call ScegliRange(Ini,fin,8072,EstrazioneFin) Scrivi "Scrpit By Mike58",1,,,1,3,,1 Scrivi "Range Inizio : " & GetInfoEstrazione(Ini),1 Scrivi "Range Fine : " & GetInfoEstrazione(fin),1 Scrivi "Totali Estraz.: " & fin-Ini+1

ppaaoolloo · 5 Giugno 2016

Mike58;n1980044 ha scritto:

2° script Capogioco x ambo su ruote scelte

Codice:

Sub Main
Dim n1,n2,anum(2),spia(1),abb(1)
'Dim ruote(1)
'r = InputBox("Quale Ruota",,1)
qn = CInt(InputBox("Quale Capogioco",,15))
'qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
ReDim ruote(0)
'ruote(1) = r
r = ScegliRuote(ruote)
ReDim atitoli(11)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
atitoli(11) = "Ritardo abbinamento"
Call InitTabella(atitoli,1,,3,5)
spia(1) = qn
Ini = 3950'EstrazioneIni'Fin - qe
fin = EstrazioneFin
df = fin - Ini
sp = SerieFreq(Ini,fin,spia,ruote,1)
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df + 1,1,- 1,3
Scrivi "presenze del numero Capogioco.... " & sp,1
Messaggio "elaboro... ruota di " '& NomeRuota(r)
Call AvanzamentoElab(1,10,100)
n1 = qn
For n2 = 1 To 90
If n1 <> n2 Then
anum(1) = n1
anum(2) = n2
abb(1) = n2
Call StatisticaFormazioneTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
Call StatisticaFormazioneTurbo(abb,ruote,1,rit1,,,,Ini,fin)
Call VerificaEsitoTurbo(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
ReDim avalori(11)
avalori(1) = DataEstrazione(fin)
avalori(2) = StringaRuote(ruote)
avalori(3) = StringaNumeri(anum,,1)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
avalori(8) = retestratti
avalori(9) = retesito
If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
If retesito = "" Then avalori(10) = " -- "
avalori(11) = rit1
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(8,,7)
Call SetColoreCella(7,vbGreen)
If rit = 0 Then Call SetColoreCella(10,vbYellow)
End If
Next
Call SetTableWidth("100%")
Call CreaTabellaOrdinabile(7,,,100) ' riga x ordinamento colonna
Call Scrivi(" ******* Tabella by Mike58 ******* ",True,True,2,4,4)
End Sub

Gli script sono con tabellaOrdinabile pertanto puoi risalire tramite ai filtri che potrai impostare alle risultanze migliori.

P.s. gli script erano già pronti per mio uso anche se non è quello che chiedi, possono raggiungere lo stesso lo scopo di ricerca

ciao

ciao Mike
ti chiedo se ti è possibile fare questo script
che trovi il ritardo per ambo che ha il capogioco anche con le varie decine,
è un mio vecchio pallino ma finora non ho trovato nessun script
che soddisfi a pieno questa mia richiesta.

ti ringrazio anticipatamente

fammi sapere

ciao

Mike58 · 5 Giugno 2016

Paolo, purtroppo non si capisce come le vorresti le decine, io suppongo capogioco + numero.
Io ti metto su questo script citato ad esempio anche la colonna decina abbinamento, cosi con la tabellaOrdinabile puoi filtrarla e risalire e valutarne le risultanze desiderate.

Chiaramente è possibile farlo in tanti altri modi.

Codice:

Sub Main
Dim n1,n2,anum(2),spia(1),abb(1)
'Dim ruote(1)
'r = InputBox("Quale Ruota",,1)
qn = CInt(InputBox("Quale Capogioco",,15))
'qe = InputBox("QUante estrazioni vuoi analizzare",,1000)
ReDim ruote(0)
'ruote(1) = r
r = ScegliRuote(ruote)
ReDim atitoli(12)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " Esito ultimo "
atitoli(9) = " Tipo esito "
atitoli(10) = " Data esito "
atitoli(11) = "Ritardo abbinamento"
atitoli(12) = " Dec ABB "
Call InitTabella(atitoli,1,,3,5)
spia(1) = qn
Ini = 3950'EstrazioneIni'Fin - qe
fin = EstrazioneFin
df = fin - Ini
sp = SerieFreq(Ini,fin,spia,ruote,1)
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df + 1,1,- 1,3
Scrivi "presenze del numero Capogioco.... " & sp,1
Messaggio "elaboro... ruota di " '& NomeRuota(r)
Call AvanzamentoElab(1,10,100)
n1 = qn
For n2 = 1 To 90
If n1 <> n2 Then
anum(1) = n1
anum(2) = n2
abb(1) = n2
Call StatisticaFormazioneTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,Ini,fin)
Call StatisticaFormazioneTurbo(abb,ruote,1,rit1,,,,Ini,fin)
Call VerificaEsitoTurbo(anum,ruote,fin - rit,2,,,retesito,,retestratti,retidestr)
ReDim avalori(12)
avalori(1) = DataEstrazione(fin)
avalori(2) = StringaRuote(ruote)
avalori(3) = StringaNumeri(anum,,1)
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
avalori(8) = retestratti
avalori(9) = retesito
If retesito <> "" Then avalori(10) = DataEstrazione(retidestr)
If retesito = "" Then avalori(10) = " -- "
avalori(11) = rit1
avalori(12) = Decina(n2)
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(8,,7)
Call SetColoreCella(7,vbGreen)
If rit = 0 Then Call SetColoreCella(10,vbYellow)
End If
Next
Call SetTableWidth("100%")
Call CreaTabellaOrdinabile(7,,,100) ' riga x ordinamento colonna
Call Scrivi(" ******* Tabella by Mike58 ******* ",True,True,2,4,4)
End Sub

Ciao

ppaaoolloo · 6 Giugno 2016

ciao mike
scusami ma non è lo script che vorrei.

cerco di rispiegare come vorrei lo script,
dovrebbe trovarmi il ritardo per ambo che ha il

capogioco + decina 0 (01,02,03,04,05,06,07,08,09,10)
capogioco + decina 1 (11,12,13,14,15,16,17,18,19,20)
capogioco + decina 2 (21,22,23,24,25,26,27,28,29,30)
capogioco + decina 3 (31,32,33,34,35,36,37,38,39,40)
capogioco + decina 4 (41,42,43,44,45,46,47,48,49,50)
capogioco + decina 5 (51,52,53,54,55,56,57,58,59,60)
capogioco + decina 6 (61,62,63,64,65,66,67,68,69,70)
capogioco + decina 7 (71,72,73,74,75,76,77,78,79,80)
capogioco + decina 8 (81,82,83,84,85,86,87,88,89,90)

però voglio sottolineare che l'ambo deve contenere
per forza il capogioco + un numero della decina,
se ci due numeri della stessa decina non mi deve
dare come risultato ottenuto cioè ritardo 0

esempio con numeri presi a caso:
capogioco 15
estrazione BA 02.36.24.15.88
estrazione CA 22.25.48.65.68
estrazione FI 23.15.78.25.76

ruota BARI
15 + decina 0 (01,02,03,04,05,06,07,08,09,10) RITARDO 0
15 + decina 1 (11,12,13,14,15,16,17,18,19,20) RITARDO 1
15 + decina 2 (21,22,23,24,25,26,27,28,29,30) RITARDO 0
15 + decina 3 (31,32,33,34,35,36,37,38,39,40) RITARDO 0
15 + decina 4 (41,42,43,44,45,46,47,48,49,50) RITARDO 1
15 + decina 5 (51,52,53,54,55,56,57,58,59,60) RITARDO 1
15 + decina 6 (61,62,63,64,65,66,67,68,69,70) RITARDO 1
15 + decina 7 (71,72,73,74,75,76,77,78,79,80) RITARDO 1
15 + decina 8 (81,82,83,84,85,86,87,88,89,90) RITARDO 0

ruota CAGLIARI
15 + decina 0 (01,02,03,04,05,06,07,08,09,10) RITARDO 1
15 + decina 1 (11,12,13,14,15,16,17,18,19,20) RITARDO 1
15 + decina 2 (21,22,23,24,25,26,27,28,29,30) RITARDO 1
15 + decina 3 (31,32,33,34,35,36,37,38,39,40) RITARDO 1
15 + decina 4 (41,42,43,44,45,46,47,48,49,50) RITARDO 1
15 + decina 5 (51,52,53,54,55,56,57,58,59,60) RITARDO 1
15 + decina 6 (61,62,63,64,65,66,67,68,69,70) RITARDO 1
15 + decina 7 (71,72,73,74,75,76,77,78,79,80) RITARDO 1
15 + decina 8 (81,82,83,84,85,86,87,88,89,90) RITARDO 1

ruota FIRENZE
15 + decina 0 (01,02,03,04,05,06,07,08,09,10) RITARDO 1
15 + decina 1 (11,12,13,14,15,16,17,18,19,20) RITARDO 1
15 + decina 2 (21,22,23,24,25,26,27,28,29,30) RITARDO 0
15 + decina 3 (31,32,33,34,35,36,37,38,39,40) RITARDO 1
15 + decina 4 (41,42,43,44,45,46,47,48,49,50) RITARDO 1
15 + decina 5 (51,52,53,54,55,56,57,58,59,60) RITARDO 1
15 + decina 6 (61,62,63,64,65,66,67,68,69,70) RITARDO 1
15 + decina 7 (71,72,73,74,75,76,77,78,79,80) RITARDO 0
15 + decina 8 (81,82,83,84,85,86,87,88,89,90) RITARDO 1

ecc. ecc. anche per le altre ruote

dopo questo esempio, adesso ti è un po' più chiaro lo script che vorrei?
lo so che faccio un po di confusione, ma spero sia più chiaro adesso,
altrimenti riproverò a farti altri esempi, perchè ci tengo molto ad arrivare
a conclusione per avere questo script

fammi sapere

grazie davvero

ciao

Joe91 · 7 Giugno 2016

Ciao Paolo ...

chiedo per un chiarimento che penso possa essere utile anche a Mike.

Hai scritto di un capogioco e 10 abbinamenti ...

Dunque sono PRECISAMENTE 10 AMBI ?

Il ritardo "si azzera" in ognuna delle "decine"

con la caduta di almeno un Ambo a capogico "15" ?

Grazie.

ppaaoolloo · 7 Giugno 2016

Joe91;n1983003 ha scritto:
Ciao Paolo ...

chiedo per un chiarimento che penso possa essere utile anche a Mike.

Hai scritto di un capogioco e 10 abbinamenti ...

Dunque sono PRECISAMENTE 10 AMBI ?

Il ritardo "si azzera" in ognuna delle "decine"

con la caduta di almeno un Ambo a capogico "15" ?

Grazie.

ciao Joe

innanzi tutto grazie per il tuo interessamento allo script che ho richiesto,
la risposta è sì ad entrambi le tue domande

ora vado a mangiare qualcosina, sono appena tornato da una faticosa e lunga giornata
di lavoro, spero di trovare lo script più tadi così da poterlo provare stasera, perchè domani
non so se avrò la possibilità di provarlo perchè sarà un'altra giornata lunga

grazie

ciao

Joe91 · 8 Giugno 2016

Ciao Paolo.

Per uno script ... è presto.

Sia perchè non ho ancora per mente cosa vorrò fare, sia perchè attendevo

un chiarimento su quanto t'ho richiesto.

Pur vero che nell'esempio che hai fornito c'era già la risposta.

Chiusa la premessa, seguivo gli esiti di cadenza 7 a Milano e dintorni.

Dunque ho scelto il 37 proprio perchè caduto ripetutamente nell'estrazione del 7/6/2016.

La tabella riguarda appunto il 37 ed igni numero "delle decine" che avevi proposto.

S.E.& O. però, nella tabella, essi dovrebbero essere

sostituiti dai rispettivi ritardi per "Ambo a Capogioco" (alias 37)

In ultima colonna, quello dell'intera decina.

Per chi vorrà eventualmente controllare :

Codice:

Genova
37 + (0016 0328 0010 0506 0134 0020 0449 0798 0029 0218)  10
37 + (0256 0029 0968 0588 0299 0016 0287 0020 0218 1304)  16
37 + (0212 0444 0072 0517 0261 0096 0506 0283 0588 0607)  72
37 + (0218 0010 0387 0281 0029 0669 5594 0492 0010 0824)  10
37 + (0390 0754 0375 0089 0072 0492 0000 0281 0020 0000)   0
37 + (0328 0492 0152 0609 0212 0210 0527 0321 0152 0256) 152
37 + (0256 0708 0283 0016 0616 1385 0299 0016 0517 0029)  16
37 + (0152 0096 0020 0390 0391 0806 0281 0256 0000 0261)   0
37 + (0508 1425 0089 0058 0010 0058 0822 0607 0713 0000)   0
Milano
37 + (0572 0986 0113 0565 0635 0129 1159 1235 0269 2211) 113
37 + (0470 0005 0871 0565 0039 0842 0440 0244 0871 0244)   5
37 + (0715 1044 0231 0096 0184 0474 0352 0572 0178 1711)  96
37 + (0231 0039 0096 0129 0096 0039 9168 0233 0440 0182)  39
37 + (0033 0407 0818 0096 0033 0033 0596 0897 0440 0552)  33
37 + (0831 0789 0269 0149 0927 0005 0384 0667 0384 0178)   5
37 + (0113 0715 0039 0057 0744 0744 1063 0113 0005 1211)   5
37 + (0005 0149 0000 0000 0163 0470 0163 0178 0000 0000)   0
37 + (0652 0407 0233 0163 0033 0149 0163 0057 0129 0269)  33

COrdiali saluti

Joe91 · 8 Giugno 2016

Questa invece ...

dovrebbe essere la corrispettiva tabella attorno al 30

atteso a Milano.

Codice:

Genova 30+
0834 0323 0093 1036 0157 0014 0272 0499 0113 0074 14
0217 0622 2305 0513 0754 0049 1700 0160 0235 0093 49
1662 0193 0157 0113 0131 0323 0272 0160 0236 5594 113
1050 1236 0594 3122 0093 0249 0607 1753 0291 0445 93
0074 0687 0049 1050 0236 0217 0049 0361 0516 0235 49
0445 0622 0594 0131 1036 0236 0113 0014 0049 0810 14
0607 0774 0014 1533 0774 0361 0074 0249 1270 0300 14
0014 0093 1036 0465 0361 0193 0323 0160 1275 0513 14
0249 1008 0113 0131 0513 0810 0445 0376 1154 0376 113
Milano 30+
0236 0625 0615 0220 0646 0254 0501 2601 0201 0445 201
0401 0401 0176 0298 0226 0427 0414 0463 0562 0201 176
0226 0298 0220 0579 0310 0236 0220 0250 0371 9168 220
0401 0511 0646 0427 0343 0800 1711 0525 0957 1301 343
0579 0614 0828 0343 2074 0284 0625 0674 0284 1131 284
0250 1134 0476 0674 0427 0176 0659 0525 0511 0427 176
0220 0784 1272 0236 0501 0176 0747 0201 0401 1422 176
0451 0250 0236 0826 0463 0226 0957 0343 0476 0647 226
0254 0201 0176 0414 0674 0414 0614 0530 0310 0284 176
Napoli 30+
0111 0230 0198 0145 0088 0064 0154 0265 0168 0064 64
0125 0097 0035 0812 0064 0172 0160 0092 0114 0265 35
0113 0136 0064 0154 0160 0390 0539 0160 0160 9165 64
0731 0781 0102 0265 0113 0033 0033 0024 0168 0111 24
0481 0647 0024 0097 0185 0033 0092 0198 0185 0114 24
0495 0035 0024 0114 0876 0645 0668 0088 0727 0125 24
0361 0102 0092 0172 0132 0248 0372 0102 0097 0219 92
0942 0248 0113 1467 0092 0111 0647 0311 0390 0024 24
0248 0248 1044 0113 0088 0125 0033 0362 0230 0035 33

Logica e regole impongono che senza Estratto non ci siano Ambi.

Dunque in loro vece vi siano ritardi.

Tali sono.

Quale verifica, pur generica, di coerenza alle attese.

Joe91 · 8 Giugno 2016

No Title

... dal messaggio precedente (# 16) e dalle indicazioni,

si ricava che i dati richiesti si concentrano all'ultima colonna.

Dunque svuotando la tabella dei dati intermedi e pivottandola,

si racava un rendiconto più compatto

dunque più semplice a leggersi e più significativo.

Torniamo al 37.

Come s'è detto esso voleva farsi notare.

Tuttavia non avevo colto "il perchè".

Vediamo di scriverlo qui di seguito:

Nella ruta di Milano è sicuramente ... caduto come terzo estratto.

Dopocicchè in questo nuovo rendiconto ... essendo caduto questo 37

alcuni Ambi hanno "azzerato" i conteggi relativi al loro ritardo

perchè abbinati a questo Capogioco.

Genova benisimo ... ed anche a Milano c'è uno zero.

Sottolineo ... uno zero.

Cioè, tutti gli altri 4 numeri escludento il 37 ...

appartengono ad una sola e dunque alla stessa decina (7).

Quindi sono una Quaterna ... più un Capogioco.

Sappiamo tutti quanto fa 4+1.

Dunque ... tutto apposto!

ppaaoolloo · 8 Giugno 2016

ciao Joe,
vedo con piacere che hai fatto
delle prove per lo script e
le premesse mi sembrano buone
per provare a farlo, mi permetto
solo di aggiungere di non tralasciare la
ruota "tutte"

spero quanto prima di poterlo provare

grazie

ciao

Joe91 · 9 Giugno 2016

ppaaoolloo;n1983407 ha scritto:
ciao Joe,
vedo con piacere che hai fatto
delle prove per lo script e
le premesse mi sembrano buone
per provare a farlo, mi permetto
solo di aggiungere di non tralasciare la
ruota "tutte"

spero quanto prima di poterlo provare

grazie

ciao

OK,

Ho accolto anche questa indicazione ... aggiungendo tutte e Nazionale.

Lo script è compilato così è eseguibile ed archiviabile nella cartella dei plugin.

Buona Giornata.

Ambi_Capogioco_DecinaNaturale.zip

bergie · 9 Giugno 2016

benissimo Joe91

da collezione messo subito nei plugin.

Mike58 frequenti

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Super Member >GOLD<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Allegati

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Allegati

Advanced Member >PLATINUM<