Novità

Script su un Nr ISOCRONO

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Miki,Nikor, senza rispondere alle vostre analisi (per non aggiungere confusione alla mia confusione), ma quello storico 77 io proprio non saprei come estrapolarlo.

Ho fatto una verifica con lo script ma questo dato proprio non viene fuori.

Invece seguendo il mio filo logico di costrutto script avrei raccolto questi dati che se si vuole sono anche vicini ma è chiaro che qui ci vuole anche che dite la vostra sul costrutto e iter algoritmo da seguire.

Strada facendo vediamo se arriviamo.

Intanto verificate.

Codice:
Sub Main
   Dim nu(1),ru(2),T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin
   ru(1) = 3
   ru(2) = 4
   Scrivi StringaRuote(ru)
   Scrivi
   T = Array(T,"Info Data","Ruote","Numero","Estratti R1","Estratti R2","Posiz","Elenco Rit","Rit CronoL","Posizione","Rit Posiz","RitPos R1","RitPos R2","verifica","Id Data")
   Call InitTabella(T,6)
   For es = Ini To fin
      For n = 66 To 66
         For p1 = 1 To 5
            For p2 = 1 To 5
               a = Estratto(es,ru(1),p1)
               b = Estratto(es,ru(2),p2)
               If a = b And a = n And b = n Then
                  nu(1) = n
                  k = k + 1
                  ReDim Preserve ess(k)
                  ess(k) = es
                  ReDim Preserve exx(k)
                  exx(k) = ess(k) -(ess(k - 1))
                  ReDim apos(5)
                  apos(p2) = True
                  'apos(p2) = True
                  'aa = SeriePrima(es,fin,nu,ru,1)
                  bb = RitardoCombinazione(ru,nu,1,,apos)
                  Call StatisticaFormazione(nu,ru,1,rit,max,Incr,fre,es + 1,fin,,apos)
                  Call VerificaEsito(nu,ru,fin - bb,1,1,,,clp,es1,id)
                  cc = EstrattoRitardo(ru(1),nu(1),Ini,fin,,,apos)
                  dd = EstrattoRitardo(ru(2),nu(1),Ini,fin,,,apos)
                  V = Array(V,GetInfoEstrazione(es),StringaRuote(ru),nu(1),StringaEstratti(es,ru(1)),StringaEstratti(es,ru(2)),p1 & "-" & p2,exx(k),fin-es,p2,_
                  bb,cc,dd,es1,id)
                  Call AddRigaTabella(V)
                  'Scrivi GetInfoEstrazione(es) & vbTab,0,0
                  'Scrivi Format2(a) & " <> " & Format2(b) & vbTab,0,0
                  'Scrivi StringaEstratti(es,ru(1)) & vbTab & StringaEstratti(es,ru(2)) & vbTab & p1 & "-" & p2 & vbTab & exx(k) & vbTab & fin - es & vbTab & p2 & _
                 ' vbTab & bb & vbTab & cc & "-" & dd & vbTab & es1
               End If
            Next
         Next
      Next
   Next
   CreaTabella
End Sub
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Miki, non disperare sono in fase di script in Work in Progress

Provo a spiegarmi .

Lo storico che vorresti vedere si riferisce agli estratti sincroni del solo numero analizzato ( ecco perché il mio script non lo trova), mentre si trova se analizziamo tutti i numeri in presenza sincrona.

Come puoi vedere da una seconda controverifica se analizziamo tutti i numeri trova esattamente lo storico delle ruote.

Prova poi vedremo di minimizzarlo e fammi sapere.

Codice:
Sub Main
   Dim Nu(2),Ru(2),T,V,aN(2),posta(1)
   posta(1) = 1
   Ini = EstrazioneFin - 400
   fin = EstrazioneFin
   rr1 = InputBox("Ruota 1",,3)
   rr2 = InputBox("Ruota 2",,4)
   T = Array(T,"Data","Ruote","Sincroni","Posizione","Numero In Gioco","esito","Colpo","Id")
   Call InitTabella(T)
   For es = ini To fin
      For r1 = rr1 To rr1
         For r2 = rr2 To rr2
            For p1 = 1 To 5
               For p2 = 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  If a = b Then
                     Nu(1) = a
                     Nu(2) = b
                     Ru(1) = r1
                     Ru(2) = r2
                     aN(1) = a
                     aN(2) = b
                     Call VerificaEsito(aN,Ru,es + 1,1,100,,esito,clp,est,id)
                     If esito <> "" Then
                        k = k + 1
                        ReDim Preserve Colpo(k)
                        Colpo(k) = clp
                        MaxColpo = MassimoV(Colpo)
                     End If
                     V = Array(V,GetInfoEstrazione(es),StringaRuote(Ru),StringaNumeri(Nu),p1 & "-" & p2,StringaNumeri(aN),est,clp,GetInfoEstrazione(id))
                     If esito = "" Then Call AddRigaTabella(V,3)
                     If esito <> "" Then Call AddRigaTabella(V)
                     If clp = MaxColpo Then Call SetColoreCella(7,4,2)
                     Call ImpostaGiocata(1,aN,Ru,posta,100,1)
                     Call Gioca(es,,,,,False)
                  End If
               Next
            Next
         Next
      Next
   Next
   vv = Array(vv," Max Colpo Storico "," "," "," "," "," ",MaxColpo," ")
   Call AddRigaTabella(vv,4,,3,1,"arial black")
   CreaTabella
   ScriviDistribuzioneEsiti(False)
   'ScriviDistribuzioneCasiInCorso(False)
   'ScriviResoconto
End Sub
 
Ultima modifica:

Nikor

Premium Member
Mike58;n2134027 ha scritto:
Ciao Miki,Nikor, senza rispondere alle vostre analisi (per non aggiungere confusione alla mia confusione), ma quello storico 77 io proprio non saprei come estrapolarlo.

Ho fatto una verifica con lo script ma questo dato proprio non viene fuori.

Invece seguendo il mio filo logico di costrutto script avrei raccolto questi dati che se si vuole sono anche vicini ma è chiaro che qui ci vuole anche che dite la vostra sul costrutto e iter algoritmo da seguire.

Ciao Mike58 permettimi di scrivere che leggendo le tue ultime mi sono scompisciato addosso dalle risate.:):):)

Ci credo bene che non hai trovato il ritardo di 77 ! non lo hai trovato perché non è pertinente al numero 66 !!! haha.ahaha.ha passami il termine della satira.

Ed invece lo hai trovato alla perfezione!!! Perché si trattava del numero 40 !!!!

Prima una premessa , quando si contano i ritardi non sempre sono in linea con il reale, mi spiego meglio:
Ci sono 2 interpretazioni , iniziamo a contare da Zero oppure da 1 ? dopo lo sfaldamento , andremo a conteggiare l’ultima che ha sfaldato oppure la penultima che aveva segnato in ritardo?

Sembrerebbero solo delle banalità ma che hanno la loro importanza e che vanno a determinare il più 1 , ma tralasciamo questo argomento.

Devo farti nuovamente i complimenti per lo script , perchè è perfetto!!!

Lo potrai verificare da questi dati: ( e lasciamo perdere il più 1 )
Max.- precedenti dal 1950:

Firenze/Genova N°. – 40 – 77 estrazioni.
Firenze/Genova N°. - 12 – 76 estrazioni.
Firenze/Genova N°. – 42 – 58 estrazioni.
Firenze/Genova N°. – 55 – 56 estrazioni.


Il listato che hai postato spostando il range di ricerca , collimano alla perfezione…… sei un grande Complimenti !
Ma di questo ci eravamo già accorti!!!

Di esempi e dati ne avevo postati tanti , speriamo siano serviti a raggiungere lo scopo.
Sempre a disposizione per una qualsiasi verifica, tempo ed impedimenti fisici permettendo.

Nikor.
 

miki55

Advanced Member >PLATINUM PLUS<
Ciao Mike. Ha ragione Nikor, lo script è perfetto per le esigenze richieste.
Ora visto che hai trovato la strada giusta per le DUE ruote, possiamo fare
un tentativo per un estratto su TRE RUOTE e non ti disturbi più...
Cmq sei stato veramente bravo con il lavoro esposto: Complimenti!


miki55
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Mike. Ha ragione Nikor, lo script è perfetto per le esigenze richieste.
Ora visto che hai trovato la strada giusta per le DUE ruote, possiamo fare
un tentativo per un estratto su TRE RUOTE e non ti disturbi più...
Cmq sei stato veramente bravo con il lavoro esposto: Complimenti!

Ciao Miki, ci provo

intanto rispondo a Nikor x verifiche

si !!! trovo anch'io quel numero 40 a 78 estrazioni su un range dì 1950 estraz.

ecco lo script di verifica.

Codice:
Sub Main
   Dim Nu(2),Ru(2),colpo(1951,3)
   Ini = EstrazioneFin - 1950
   fin = EstrazioneFin
   For es = Ini To fin
      For r1 = 3 To 3
         For r2 = 4 To 4
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               For p2 = 1 To 5
                  b = Estratto(es,r2,p2)
                  If a = b Then
                     kk = kk + 1
                     Nu(1) = a
                     'Nu(2) = b
                     Ru(1) = r1
                     Ru(2) = r2
                     Call VerificaEsito(Nu,Ru,es + 1,1,100,,esito,clp,es1)
                     If esito <> "" Then k = k + 1
                     Scrivi GetInfoEstrazione(es) & vbTab,0,0
                     Scrivi StringaNumeri(Nu,,1) & vbTab,0,0
                     Scrivi clp & vbTab,0,0
                     If esito <> "" Then Scrivi es1
                     If esito = "" Then Scrivi "<> .. .. .. .. .. In corso",1,1,,2
                     colpo(k,1) = StringaNumeri(Nu,,1)
                     colpo(k,2) = clp
                     If esito <> "" Then colpo(k,3) = " - Storico"
                     If esito = "" Then colpo(k,3) = " - In corso"
                     Call OrdinaMatrice(colpo,- 1,2)
                     'End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi kk,1
   '......................................
   Scrivi
   For x = 1 To k
      'Scrivi
      Scrivi colpo(x,1) & vbTab,1,0
      Scrivi colpo(x,2) & vbTab,1,0,,1
      Scrivi colpo(x,3)
   Next
   '--------------------------------------
   Scrivi k,1
End Sub

visto il range alto ci vuole un pochetto come tempo di elaborazione.

P,s, x Nikor ma tu come sei messo a fare gli script ?

Ciao a dopo

Work in Progress
 

Mike58

Advanced Member >PLATINUM PLUS<
3 Sincroni su Ruote

Codice:
Sub Main
   Dim Nu(3),Ru(3),T,V
   Ini = EstrazioneFin - 100
   fin = EstrazioneFin
   T = Array(T,"Caso N.","Info Data","Ruote","Numero","Verifica","Colpo")
   Call InitTabella(T)
   ResetTimer
   For es = Ini To fin
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For r3 = r2 + 1 To 12
               If r3 = 11 Then r3 = 12
               For p1 = 1 To 5
                  For p2 = 1 To 5
                     For p3 = 1 To 5
                        a = Estratto(es,r1,p1)
                        b = Estratto(es,r2,p2)
                        c = Estratto(es,r3,p3)
                        If a = b And a = c Then
                           kk = kk + 1
                           Call Messaggio("Tempo di Elaborazione . . . . . " & TempoTrascorso & "  Casi Trovati : " & kk)
                           Call AvanzamentoElab(Ini,fin,es)
                           Nu(1) = a
                           Nu(2) = b
                           Nu(3) = c
                           Ru(1) = r1
                           Ru(2) = r2
                           Ru(3) = r3
                           Call VerificaEsitoTurbo(Nu,Ru,es + 1,1,100,,esito,clp,es1,id)
                           If esito <> "" Then
                              k = k + 1
                              ReDim Preserve Colpo(k)
                              Colpo(k) = clp
                              MaxColpo = MassimoV(Colpo)
                           End If
                           V = Array(V,kk,GetInfoEstrazione(es),StringaRuote(Ru),StringaNumeri(Nu),es1,clp)
                           If esito = "" Then Call AddRigaTabella(V,3)
                           If esito <> "" Then Call AddRigaTabella(V)
                           If clp = MaxColpo Then Call SetColoreCella(6,4,2)
                           'Call AddRigaTabella(V)
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   vv = Array(vv," Max Colpo Storico ","..","..","..","..",MaxColpo)
   Call AddRigaTabella(vv,4,,3,1,"arial black")
   Call SetTableWidth("60%")
   Call CreaTabella()
End Sub
 

Mike58

Advanced Member >PLATINUM PLUS<
X Miki, visto che tu usi anche VL7, per gli script prova questo script in ambiente vbNet.

Visto che conoscendo le ruote rintracciate su Tabellone Analico, puoi facilmente avere il resoconto dei dati correnti + storico su Ruote.

Solo per questo caso, faccio uno strappo alla regola visto che su questo forum non vengono fatti elaborati con il sw in esame.

Codice:
 [FONT=Courier New]Sub Main()          Dim Nu(1),Ru(),Rt(11) As Integer     Dim ini,fin,n,r,rit,fre,k,kr As Integer          ini = Estrazione.InizioNaz     fin = Estrazione.Ultima     Input.Ruote(Ru)     kr = UBound(ru)          Table.Open("60%",,,,,1,3,3,True)          Table.SetHeader(Gradient.Gray, "Black", "Gray")     Table.SetRow(Gradient.White, "Black", "Gray")     Table.TH_Style("Ruote" & " ( " & kr & " )")     Table.TH_Style("Num. Sincrono")     Table.TH_Style("Rit.Corrente")     Table.TH_Style("Rit.storico")     Table.TH_Style("Frequenze")     Table.TH_Style("Storico Ruote")     'Table.TH_Style("--")          For n = 1 To 90         Nu(1) = n                  Stat.AnalisiSerie(ini,fin,ru,nu,1)                  Dim a = stat.ritardo         Dim b = stat.storico         If a > 0   Then             Stat.AnalisiSerie(fin-a,fin,ru,nu,1)             If stat.frequenze = kr Then                 k +=1                 Table.Row(_INS)                 Table.TD_Style(ElencoRuote(ru))                 Table.TD_Style(ElencoNumeri(nu),,"#C00000", "#FFFFFF" )                 Table.TD_Style(a)                 Table.TD_Style(b)                 Table.TD_Style(stat.frequenze)                 Table.TD_Style(Stat.StoricoFrmEstratto(ini,fin,ru,1),,"#C00000", "#FFFFFF" )                                  Table.Row(_END)             End If         End If     Next          Table.Close()      End Sub[/FONT]


[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/funkyimg.com\/i\/2LX6d.png"}[/IMG2]
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Sub Main()

Dim Nu(1),Ru(),Rt(11) As Integer
Dim ini,fin,n,r,rit,fre,k,kr As Integer

ini = Estrazione.InizioNaz
fin = Estrazione.Ultima
Input.Ruote(Ru)
kr = UBound(ru)

Table.Open("60%",,,,,1,3,3,True)

Table.SetHeader(Gradient.Gray, "Black", "Gray")
Table.SetRow(Gradient.White, "Black", "Gray")
Table.TH_Style("Ruote" & " ( " & kr & " )")
Table.TH_Style("Num. Sincrono")
Table.TH_Style("Rit.Corrente")
Table.TH_Style("Rit.storico")
Table.TH_Style("Frequenze")
Table.TH_Style("Storico Ruote")
'Table.TH_Style("--")

For n = 1 To 90
Nu(1) = n

Stat.AnalisiSerie(ini,fin,ru,nu,1)

Dim a = stat.ritardo
Dim b = stat.storico
If a > 0 Then
Stat.AnalisiSerie(fin-a,fin,ru,nu,1)
If stat.frequenze = kr Then
k +=1
Table.Row(_INS)
Table.TD_Style(ElencoRuote(ru))
Table.TD_Style(ElencoNumeri(nu),,"#C00000", "#FFFFFF" )
Table.TD_Style(a)
Table.TD_Style(b)
Table.TD_Style(stat.frequenze)
Table.TD_Style(Stat.StoricoFrmEstratto(ini,fin,ru, 1),,"#C00000", "#FFFFFF" )

Table.Row(_END)
End If
End If
Next

Table.Close()

End Sub
 
Ultima modifica:

Nikor

Premium Member
Mike58;n2134287 ha scritto:
X Miki, visto che tu usi anche VL7, per gli script prova questo script in ambiente vbNet.

Visto che conoscendo le ruote rintracciate su Tabellone Analico, puoi facilmente avere il resoconto dei dati correnti + storico su Ruote.

Solo per questo caso, faccio uno strappo alla regola visto che su questo forum non vengono fatti elaborati con il sw in esame.

Codice:
[FONT=Courier New]Sub Main() Dim Nu(1),Ru(),Rt(11) As Integer Dim ini,fin,n,r,rit,fre,k,kr As Integer ini = Estrazione.InizioNaz fin = Estrazione.Ultima Input.Ruote(Ru) kr = UBound(ru) Table.Open("60%",,,,,1,3,3,True) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("Ruote" & " ( " & kr & " )") Table.TH_Style("Num. Sincrono") Table.TH_Style("Rit.Corrente") Table.TH_Style("Rit.storico") Table.TH_Style("Frequenze") Table.TH_Style("Storico Ruote") 'Table.TH_Style("--") For n = 1 To 90 Nu(1) = n Stat.AnalisiSerie(ini,fin,ru,nu,1) Dim a = stat.ritardo Dim b = stat.storico If a > 0 Then Stat.AnalisiSerie(fin-a,fin,ru,nu,1) If stat.frequenze = kr Then k +=1 Table.Row(_INS) Table.TD_Style(ElencoRuote(ru)) Table.TD_Style(ElencoNumeri(nu),,"#C00000", "#FFFFFF" ) Table.TD_Style(a) Table.TD_Style(b) Table.TD_Style(stat.frequenze) Table.TD_Style(Stat.StoricoFrmEstratto(ini,fin,ru,1),,"#C00000", "#FFFFFF" ) Table.Row(_END) End If End If Next Table.Close() End Sub[/FONT]


[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/funkyimg.com\/i\/2LX6d.png"}[/IMG2]

Ciao Mike58, rinnovo i complimenti per il tuo lavoro..... ma permettimi 2 domande:
Colonna N°.-2 = descrizione - Num. Sincrono.
Colonna N°.-4 = descrizione - Frequenze.

Questi 2 valori non li concepisco, mi sono arruginito........perdonami, il numero 57 ha avuto ben più di 2 presenze isocrone, ma anche se dovessimo consirderare il sincronismo, questo dovrebbe essere accaduto a ritroso su entrambe le ruote...... dove sbaglio ?
Io leggendo la tabella capisco solo che il numero 57 ha avuto lo storico segnalato in colonna N°. - 4 ! ed anche che un altro numero ha avuto sul range che hai imposto al listato un max. di 77 e fino quì ci siamo , ma la seconda e la quarta colonna non riesco proprio a focalizzarle.

Comprendo solo che il numero 57 sincronismi a parte ha avuto un precedente di 47 ! e questo è esatto!

Scusa per l'attenzione e ti ringrazio in anticipo.

Nikor.
 
Ultima modifica:

miki55

Advanced Member >PLATINUM PLUS<
Nikor;n2134358 ha scritto:
Ciao Mike58, rinnovo i complimenti per il tuo lavoro..... ma permettimi 2 domande:
Colonna N°.-2 = descrizione - Num. Sincrono.
Colonna N°.-4 = descrizione - Frequenze.

Questi 2 valori non li concepisco, mi sono arruginito........perdonami, il numero 57 ha avuto ben più di 2 presenze isocrone, ma anche se dovessimo consirderare il sincronismo, questo dovrebbe essere accaduto a ritroso su entrambe le ruote...... dove sbaglio ?
Io leggendo la tabella capisco solo che il numero 57 ha avuto lo storico segnalato in colonna N°. - 4 ! ed anche che un altro numero ha avuto sul range che hai imposto al listato un max. di 77 e fino quì ci siamo , ma la seconda e la quarta colonna non riesco proprio a focalizzarle.

Comprendo solo che il numero 57 sincronismi a parte ha avuto un precedente di 47 ! e questo è esatto!

Scusa per l'attenzione e ti ringrazio in anticipo.

Nikor.

Grazie Mike, lo script va benissimo.
Ora controllerò i dati storici e ti farò sapere.
Grazie ancora x il lavoro svolto

miki55
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Nikor, lo script elenca solo i ritardi correnti sincroni ed infatti sono esattamente 3 numeri che sono a ritardo in corso.

Codice:
[FONT=courier new][09491] [ 76] 26.06.2018 [/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]66 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]45 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#ff0000][B]<> .. .. .. .. .. In corso[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09493] [ 78] 30.06.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]81 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]4 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]GE .. .. .. 81 ..[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09496] [ 81] 07.07.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]31 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]16 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]FI .. .. .. .. 31[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09498] [ 83] 12.07.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]14 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]4 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]GE .. .. .. .. 14[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09503] [ 88] 24.07.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]63 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]10 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]FI .. .. 63 .. ..[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09507] [ 92] 02.08.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]23 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]12 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]FI .. .. .. .. 23[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09508] [ 93] 04.08.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]49 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]3 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]GE .. .. .. .. 49[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09510] [ 95] 09.08.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]04 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]19 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]GE .. .. 04 .. ..[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09515] [100] 21.08.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]42 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]4 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]GE .. .. .. .. 42[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09516] [101] 23.08.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]05 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]2 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]FI 05 .. .. .. ..[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09518] [103] 28.08.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]76 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]1 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]GE .. .. 76 .. ..[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09519] [104] 30.08.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]64 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]5 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]FI .. .. .. 64 .. - GE .. 64 .. .. ..[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09523] [108] 08.09.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]57 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]13 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#ff0000][B]<> .. .. .. .. .. In corso[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09524] [109] 11.09.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]64 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]12 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#ff0000][B]<> .. .. .. .. .. In corso[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][09534] [119] 04.10.2018 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]34 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]1 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]GE .. .. .. .. 34[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]542[/B][/COLOR][/SIZE][/FONT]

mentre le frequenze che vedi è solo un controllo per lo script in modo che possa girare su 2,3,4 ruote, infatti se 2 ruote controlla se ci sono 2 presenze, se 3 ruote controlla se ci sono 3 presenze. alla estrazione Fine - Ritardo.

Purtroppo vi ha ingannato la dicitura Frequenza (si poteva anche omettere in scrittura, ma era un mio controllo)

Quel codice si Storico Ruote è un codice solo di Vl7 èd ho pensato che Miki volesse vedere solo quello per le sue presentazioni.

Ciao,io mi diverto anche con gli script in VbNet, leggermente più veloci del Vbscript specialmente in fase di lunghette Numeri.

Poi Sincrono o Isocrono qui va definita la descrizione, per ora diciamo stesso ritardo senza posizione uguale.
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Ok Miki, poi proverò a minimizzare lo script di vl7 per Spaziometria
Oggi non ho + tempo da stasera tardi forse…..

 

joe

Advanced Member >PLATINUM PLUS<
Ciao Miki, Mike & Co.

Buon Giorno a tutte/i il mio script trova:

73 Isocrono CA PA RO Estratto il 26.01.2010 Rit/Sto 64 (1x3)

Sperando vi possa essere utile come riferimento.

:)
 
Ultima modifica:

Nikor

Premium Member
Ciao Mike58, grazie per le tue gentili delucidazioni che mi hanno fatto interpretare la tabella nel giusto senso dei dati!:
Per quanto mi avevi chiesto in tema di script, preferisco tralasciare per motivi personali che andrebbero a toccare un delicato tasto……. ti posso solo dire che sulla piattaforma in cui opero la sintassi è molto ma molto diversa , ed a volte con qualche formula matematica e l’uso di query si semplifica e si ridimensiona no le righe di codice…….

A questo punto non vorrei sembrarti pignolo, ma sono certo che comprenderai quanto vado ad esporre:
Nella tua tabella in 4^ colonna sono esposti i massimi ritardi, relativi alla riga dove è segnalato il numero , per questo caso ad esempio la riga del numero 57! vediamo che il valore corrispondente è = a 47 !

tab-mike.jpg

Tutto esatto , perché 47 è stato il maggior ritardo relativo al numero 57 sulle 2 ruote , però attenzione teniamo presente che non era pertinente alla conta dei numeri isocroni o sincroni come si voglia definirli.
In parole povere il mio codice aggiunge un’altra colonna relativa ai Max. precedenti dal 1950 per il valore di isocronismo, questi:
nikor.jpg
I valori di questa nuova aggiunta fanno riferimento ai precedenti max. storici isocroni relativi ai 3 numeri in oggetto che sono:
(n°.-57 con 33 ! n°. -64 con 26 ! e n°. - 66 con 12!)

Credo che non sia da poco avere a disposizione anche questo riferimento , poi ogni uno è libero di interpretare i dati a modo suo……

Per quanto concerne gli storici a 3 ruote ( forse sarà sfuggita la lettura ) a pagina 1 , topic # 2 avevo menzionato il precedente di 63! Che collima alla perfezione con Spaziometria….. poi per i più uno ne avevamo già parlato.
Se può servire come verifiva per gli eventi storici isocroni , io dal 1950 ho questi dati:

N°. - 63 uscito in data 14/07/1999 dove ha segnato sulle ruote di Torino/Venezia - 141 colpi.
N°. - 73 uscito in data 24/06/2010 dove ha segnato sulle ruote di Cagliari/Palermo/Roma - 63 colpi.

Aggiungo il secondo Max. nel caso dovesse servire per eventuali riscontri:

N°. – 33 Genova/Milano/Palermo con 55 estrazioni!

Buona Serata, Nikor.
 

Nikor

Premium Member
Buona sera Cinzia, ….vede cara Signora a me gli avvocati del diavolo mi sono sempre stati stretti!

Al topic # 2 avevo già menzionato il ritardo riportato dal tuo amico che stai difendendo a spada tratta! e credo non sarebbe servito rammentarlo visto che era già stato menzionato!

Sembra che il cavillo sia [ ritardo 63! Oppure 64 ? ] beh ..credo che queste siano solo frivolezze…..

Sarà 64 , ebbene ho sbagliato io oppure sarà 63 ! vabbè avrò ragione io , ma cosa importa se i l dato era già stato identificato ? e cosa importa ricalcare che il tuo amico ha ragione perché Tu riconfermi che il suo dato è estto?

Allora andiamo per gradi:
[io sono stato un programmatore con risoluzioni di problemi complessi in Real-Time, ma per questo non è che sia infallibile nella stesura dei procedimenti! ]

Vediamo una possibile interpretazione di dati:
Estrazione del 26/01/2010 esce in contemporanea il numero 73 sulle ruote di Cagliari/Palermo/Roma
Siamo all’estrazione numero [8174 ! ] il ritardo io lo considero Zero!!!

Dall’estrazione successiva numero [8175 ] lo considero ritardo = 1 !
Il 24/06/210 su una delle 3 ruote si ripresenta il numero 73! E siamo all’estrazione n°. [ 8238 ]
Il mio algoritmo fa questo conteggio, ( 8238 – 8175 = a 63 ! )

Bene , credo che fino a qui ci siamo arrivati, aggiungo :
Considerando le implementazioni che offre il software del Grande Luigi.B , avevo provato qualche routine nel suo archivio, bene vediamo cosa ne esce:

luigi-.jpg

Si evince che l’intervallo di ritardo è di 63 !

A questo punto mi viene di pensare , io oppure il Mitico Luigi. Siamo degli imbecilli , oppure qualche cosa non quadra!

[ per capire cosa non quadra è molto semplice , si inizia il conteggio dal ritardo = 1 perché lo zero sarebbe ininfluente! ] ma anche di questo si era già parlato…….

( A questo punto chiedo gentilmente l’intervento del Grande Maestro! Luigi se ci sei batti un colpo ed esponi il tuo illustre parere! )

Aggiungo che essendomi iscritto con il solo scopo di farvi partecipi alla conoscenza di situazioni estreme e complesse sui ritardi che voi forse non sapreste mai estrapolare nemmeno alle calende greche!
Mi sono invece dovuto scontrarmi con bastian contrari che il nic Nikor non lo digeriscono , pazienza in vostro aiuto come alternativa c’è sempre il Maalox!

Mamma mia ….non condividerei più una situazione complessa manco a pagamento!

Nikor.
 
L

LuigiB

Guest
ciao Nikor , questo thread non l'ho seguito ho letto solo qui e la quindi o mi leggo le 3 pagine o mi fate un riassunto su quale sia la questione :) .. adesso come adesso non so nemmeno di cosa state parlando ...
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto