annuncio

Comprimi
Ancora nessun annuncio.

Script x AMBETTO

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • #31
    Ciao Miki,Nikor, anche sul mio script che generebbe tutti e 12 gli ambi qualcosa non risponde al meglio, il perché essendo rigido nella costruzione non ho messo il controllo con tutti gli if then del caso.
    per esempio 82.42.82 va da sè che non può generare 12 ambi
    Chiaro che si può fare, ma l'importante era raggiungere lo scopo nel tempo ragionevole.

    Ciao e grazie anche a voi per l'apprezzamento che ricambio.
    Ultima modifica di Mike58; 13-09-2018, 18:41.
    Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

    Commenta


    • #32
      scusate riscaricate lo script c'era un piccolo errore +/-1 nelle costruzione di un ambetto.
      Rimane lo scoglio dei numeri vicini.


      codice:
      Sub Main
         Dim Nu(3),Ru(1),Abb1(2),Abb2(2),abb3(2),abb4(2),GruppoFormazione
         Dim abb5(2),abb6(2),abb7(2),abb8(2),abb9(2),Abb10(2),Abb11(2),Abb12(2)
         Dim T,V
         Ini = 1
         fin = EstrazioneFin
         r = InputBox("Scelta Ruota",,3)
         cG1 = InputBox("Capogioco 1",,82)
         cG2 = InputBox("Capogioco 2",,42)
         ResetTimer
         Scrivi "Ricerca Statistica Per Ambetto su AmboCapogioco Conosciuto (" & cG1 & "." & cG2 & ")",1,,,1,3,,1
         Scrivi "Richiesta Statistica By Miki55 - Intervenuti Nikor - Author script Mike58",1,,,2
         Scrivi
         Ru(1) = r
         T = Array(T,"Ruota","Formazione","Abb","Ritardo","Rit.Max","Frequenza","Sortito","ID Sortito")
         Call InitTabella(T,RGB(178,178,178),"Center",3,5,"Cambria")
         For abb = 1 To 90
            Nu(1) = cG1
            Nu(2) = cG2
            If abb = cG1 Then abb = 0
            If abb = cG2 Then abb = 0
            Nu(3) = abb
            '--------------ambetti----------------------
            Abb1(1) = Nu(1)
            Abb1(2) = Nu(2) + 1
            Call AddNumeriToGruppoStatistico(Abb1,r)
            Abb2(1) = Nu(1)
            Abb2(2) = Fuori90(Nu(2) - 1)
            Call AddNumeriToGruppoStatistico(Abb2,r)
            abb3(1) = Nu(1)
            abb3(2) = Fuori90(Nu(3) + 1)
            Call AddNumeriToGruppoStatistico(abb3,r)
            abb4(1) = Nu(1)
            abb4(2) = Fuori90(Nu(3) - 1)
            Call AddNumeriToGruppoStatistico(abb4,r)
            abb5(1) = Nu(2)
            abb5(2) = Fuori90(Nu(1) + 1)
            Call AddNumeriToGruppoStatistico(abb5,r)
            abb6(1) = Nu(2)
            abb6(2) = Fuori90(Nu(1) - 1)
            Call AddNumeriToGruppoStatistico(abb6,r)
            abb7(1) = Nu(2)
            abb7(2) = Fuori90(Nu(3) + 1)
            Call AddNumeriToGruppoStatistico(abb7,r)
            abb8(1) = Nu(2)
            abb8(2) = Fuori90(Nu(3) - 1)
            Call AddNumeriToGruppoStatistico(abb8,r)
            abb9(1) = Nu(3)
            abb9(2) = Fuori90(Nu(1) + 1)
            Call AddNumeriToGruppoStatistico(abb9,r)
            Abb10(1) = Nu(3)
            Abb10(2) = Fuori90(Nu(1) - 1)
            Call AddNumeriToGruppoStatistico(Abb10,r)
            Abb11(1) = Nu(3)
            Abb11(2) = Fuori90(Nu(2) + 1)
            Call AddNumeriToGruppoStatistico(Abb11,r)
            Abb12(1) = Nu(3)
            Abb12(2) = Fuori90(Nu(2) - 1)
            Call AddNumeriToGruppoStatistico(Abb12,r)
            '............................................................................
            Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
            Call AvanzamentoElab(1,90,abb)
            Call StatisticaGruppoFormazioni(2,rit,max,fre,GruppoFormazione,Ini,fin)
            Ambetto = VerificaAmbetto(Nu,r,(fin - rit),retNumeri,retVincita)
            V = Array(V,StringaRuote(Ru),StringaNumeri(Nu),abb,rit,max,fre,retNumeri,GetInfoEstrazione(fin - rit))
            Call AddRigaTabella(V)
            'End If
         Next
         Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso)
         CreaTabellaOrdinabile(4)
      End Sub
      Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

      Commenta


      • #33
        Ciao Mike.. ora è tutto a posto

        Grazie anche a nome degli interessati, in special modo Miki.. che adesso potrà fare le sue analisi su un qualunque ambo capo gioco!

        I nuovi dati sono in perfetta sintonia con quelli che avevo postato nel precedente topic # 30.

        Come al solito , Grandioso

        Sempre a disposizione per eventuali controlli con eventuali dati in mio possesso.....Nikor.

        Commenta


        • #34
          Per Chi Volesse sapere l'ambo + in ritardo per Ambetto con i dati mostrati da Miki
          ecco lo script e come è statp preso l'ambo 82.42

          codice:
          Sub Main
             Dim Nu(2),Ru(1),Abb1(2),Abb2(2),abb3(2),abb4(2),GruppoFormazione
             Dim abb5(2),abb6(2),abb7(2),abb8(2),abb9(2),Abb10(2),Abb11(2),Abb12(2)
             Dim T,V
             Ini = 1
             fin = EstrazioneFin
             r = InputBox("Scelta Ruota",,3)
             cG1 = InputBox("Capogioco 1",,82)
             'cG2 = InputBox("Capogioco 2",,42)
             ResetTimer
             Scrivi "Ricerca Statistica Per Ambetto su Capogioco Conosciuto (" & cG1 & ")",1,,,1,3,,1
             Scrivi "Richiesta Statistica By Miki55 - Intervenuti Nikor - Author script Mike58",1,,,2
             Scrivi
             Ru(1) = r
             T = Array(T,"Ruota","Formazione","Abb","Ritardo","Rit.Max","Frequenza","Sortito","ID Sortito")
             Call InitTabella(T,RGB(178,178,178),"Center",3,5,"Cambria")
             For abb = 1 To 90
                Nu(1) = cG1
               ' Nu(2) = cG2
                If abb = cG1 Then abb = 0
                'If abb = cG2 Then abb = 0
                Nu(2) = abb
                '--------------ambetti----------------------
                Abb1(1) = Nu(1)
                Abb1(2) = Nu(2) + 1
                Call AddNumeriToGruppoStatistico(Abb1,r)
                Abb2(1) = Nu(1)
                Abb2(2) = Fuori90(Nu(2) - 1)
                Call AddNumeriToGruppoStatistico(Abb2,r)
          
                abb5(1) = Nu(2)
                abb5(2) = Fuori90(Nu(1) + 1)
                Call AddNumeriToGruppoStatistico(abb5,r)
                abb6(1) = Nu(2)
                abb6(2) = Fuori90(Nu(1) - 1)
                Call AddNumeriToGruppoStatistico(abb6,r)
          
                '............................................................................
                Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
                Call AvanzamentoElab(1,90,abb)
                Call StatisticaGruppoFormazioni(2,rit,max,fre,GruppoFormazione,Ini,fin)
                Ambetto = VerificaAmbetto(Nu,r,(fin - rit),retNumeri,retVincita)
                V = Array(V,StringaRuote(Ru),StringaNumeri(Nu),abb,rit,max,fre,retNumeri,GetInfoEstrazione(fin - rit))
                Call AddRigaTabella(V)
                'End If
             Next
             Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso)
             CreaTabellaOrdinabile(4)
          End Sub
          Ciao
          Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

          Commenta


          • #35
            Restando nel tema trattato che hai risolto egregiamente , mi era sfuggito questo tuo scritto:
            Rimane lo scoglio dei numeri vicini.
            Si sono d’accordo e per una mia curiosità ho provato con L’Ambetto più ritardato attualmente su uno dei 10 comparti formato da 2 numeri consecutivi!

            Posso affermare che risultano solo poche o meglio dire pochissime discrepanze di dati, ed in linea di massima il tuo listato risolve anche questa analisi…..

            Nel caso ci sarebbe bisogno dello scroll sulle prime 20/25 posizioni per Ambetto con capo gioco Ambo di consecutivi , io sarò sempre a disposizione con i dati in mio possesso. ( potrebbero servire per un confronto dati )

            A questo punto la palla la passo Miki55 che potrà sbizzarrirsi con il tuo portento listato in ambiente Spaziometria, un saluto anche al Grande Maestro Luigi.B che ha permesso di emulare anche un gioco che era nato dopo molto tempo da quando il software era stato creato!

            Buon proseguimento a tutti gli interessati, ed ancora un grazie a Mike58 per l’ottimo lavoro svolto con competenza e tempestività!

            Nikor.

            Commenta


            • #36
              buon giorno a tt., a me gira la testa nel vedere la vs competenza in questo gioco xciò oso farvi una domanda; stò giocando il 5 a bari come lo vedete? e se possibile la pos.( miki55 tu sei bravissimo in questo) a me piacciono le ambate...Clicca sull'immagine per ingrandirla. 

Nome:   images?q=tbn:ANd9GcSyii0uc5mf7oB-CfEvs8VfWYnjv5FlDJebSVEFcJtgSmdM3rOk.jpg 
Visite: 1 
Dimensione: 14.9 KB 
ID: 2130672
              76/84

              Commenta


              • #37
                Ciao, nell'attesa che l'esperto Miki.. ti risponda , e tanto per rimanere in tema Ambetto ti posso dire che filtrando il numero 5 con gli altri 89 numeri ne consegue che L' Ambo 05-19 tarda per la sorte solo Ambetto da 509 estrazioni ! ( attualmente il più ritardato con il numero 19 ! )

                Giocare i 2 numeri per la sorte indicata con un solo euro in caso di vincita il premio lordo satà di 65 €. perchè si sviluppano 4 ambi con l'ambo in oggetto....

                Nikor.
                Ultima modifica di Nikor; 14-09-2018, 12:21.

                Commenta


                • #38
                  grazie tante Nikor, hai ragione l'ambo o ambetto costa meno e remunera di + ma + difficile da centrare, invece l'ambata è +facile.....comunque stà certo ke quell'ambetto me lo gioco aspettando miki55Clicca sull'immagine per ingrandirla. 

Nome:   graziea009.gif 
Visite: 2 
Dimensione: 17.7 KB 
ID: 2130682
                  76/84

                  Commenta


                  • #39
                    Ho inserito l'immediatezza delle verifiche,.(Esito).. un saluto a tutti ed un bravo a Mike58 x lo script

                    codice:
                    Sub Main
                         Dim Nu(3),Ru(1),Abb1(2),Abb2(2),abb3(2),abb4(2),GruppoFormazione
                         Dim abb5(2),abb6(2),abb7(2),abb8(2),abb9(2),Abb10(2),Abb11(2),Abb12(2)
                         Dim T,V
                         Ini = 1
                         fin = EstrazioneFin
                         r = InputBox("Scelta Ruota",,3)
                         cG1 = InputBox("Capogioco 1",,82)
                         cG2 = InputBox("Capogioco 2",,42)
                         ResetTimer
                         Scrivi "Ricerca Statistica Per Ambetto su AmboCapogioco Conosciuto (" & cG1 & "." & cG2 & ")",1,,,1,3,,1
                         Scrivi "Richiesta Statistica By Miki55 - Intervenuti Nikor - Author script Mike58",1,,,2
                         Scrivi
                         Ru(1) = r
                         T = Array(T,"Ruota","Formazione","Abb","Ritardo","Rit.Max","Freq.","UL Sortita","ID Sortita","Esito")
                         Call InitTabella(T,RGB(178,178,178),"Center",3,5,"Cambria")
                         For abb = 1 To 90
                              Nu(1) = cG1
                              Nu(2) = cG2
                              If abb = cG1 Then abb = 0
                              If abb = cG2 Then abb = 0      
                              Nu(3) = abb
                              '--------------ambetti----------------------
                              Abb1(1) = Nu(1)
                              Abb1(2) = Nu(2) + 1
                              Call AddNumeriToGruppoStatistico(Abb1,r)
                              Abb2(1) = Nu(1)
                              Abb2(2) = Fuori90(Nu(2) - 1)
                              Call AddNumeriToGruppoStatistico(Abb2,r)
                              abb3(1) = Nu(1)
                              abb3(2) = Fuori90(Nu(3) + 1)
                              Call AddNumeriToGruppoStatistico(abb3,r)
                              abb4(1) = Nu(1)
                              abb4(2) = Fuori90(Nu(3) - 1)
                              Call AddNumeriToGruppoStatistico(abb4,r)
                              abb5(1) = Nu(2)
                              abb5(2) = Fuori90(Nu(1) + 1)
                              Call AddNumeriToGruppoStatistico(abb5,r)
                              abb6(1) = Nu(2)
                              abb6(2) = Fuori90(Nu(1) - 1)
                              Call AddNumeriToGruppoStatistico(abb6,r)
                              abb7(1) = Nu(2)
                              abb7(2) = Fuori90(Nu(3) + 1)
                              Call AddNumeriToGruppoStatistico(abb7,r)
                              abb8(1) = Nu(2)
                              abb8(2) = Fuori90(Nu(3) - 1)
                              Call AddNumeriToGruppoStatistico(abb8,r)
                              abb9(1) = Nu(3)
                              abb9(2) = Fuori90(Nu(1) + 1)
                              Call AddNumeriToGruppoStatistico(abb9,r)
                              Abb10(1) = Nu(3)
                              Abb10(2) = Fuori90(Nu(1) - 1)
                              Call AddNumeriToGruppoStatistico(Abb10,r)
                              Abb11(1) = Nu(3)
                              Abb11(2) = Fuori90(Nu(2) + 1)
                              Call AddNumeriToGruppoStatistico(Abb11,r)
                              Abb12(1) = Nu(3)
                              Abb12(2) = Fuori90(Nu(2) - 1)
                              Call AddNumeriToGruppoStatistico(Abb12,r)
                              '............................................................................
                              Call Messaggio("Tempo di Elaborazione : " & TempoTrascorso)
                              Call AvanzamentoElab(1,90,abb)
                              Call StatisticaGruppoFormazioni(2,rit,max,fre,GruppoFormazione,Ini,fin)
                              Ambetto = VerificaAmbetto(Nu,r,(fin - rit),retNumeri,retVincita)
                              For clp = 1 To EstrazioniArchivio - EstrazioneFin
                                   If VerificaAmbetto(Nu,r,fin + clp,retnumr1,rVincitar1) > 0 Then '
                                        colpo = clp
                                        Exit For
                                   Else
                                        colpo = "   "
                                   End If
                              Next
                              esit = colpo & "° -> " & retnumr1
                              V = Array(V,StringaRuote(Ru),StringaNumeri(Nu),abb,rit,max,fre,retNumeri,GetInfoEstrazione(fin - rit),esit)
                              Call AddRigaTabella(V)
                         Next
                         Call SetTableWidth("100%")
                         Call SetTableHeight("100%")
                         CreaTabellaOrdinabile(4)
                         Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso)
                    End Sub
                    Ultima modifica di claudio8; 14-09-2018, 15:54.
                    Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

                    Commenta


                    • #40
                      Ciao Claudio.. grazie per questa aggiunta; se mi posso permettere ed esprimere il mio parere, dovtrsti partecipare di più !

                      Beh... non mandarmi a quel paese ......

                      Cordialità , Nikor.

                      Commenta


                      • #41
                        Ciao Nikor, devi scusarmi, ma il tempo è sempre limitato....

                        Tranquillo, non vi è motivo di mandarti...

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

                        Commenta


                        • #42
                          Originariamente inviato da Nikor Visualizza il messaggio
                          Pirnamente d'accordo con Miki..... pure io ci avevo giurato che il Super Mike.. avrebbe trovato la quarda!

                          Se può servire il mio appoggio come tester per un confronto dati metto una piccola sintesi del mio personale output che parte da un ritardo minimo di 100 estrazioni:

                          82-42-21 … 343
                          82-42-36 … 313
                          82-42-66 … 228
                          82-42-83 … 272
                          82-42-61 … 192
                          82-42-88 … 192
                          82-42-10 … 184
                          82-42-19 … 154
                          82-42-13 … 151
                          82-42-44 … 121
                          82-42-12 … 115
                          82-42-43 … 113
                          82-42-71 … 112
                          82-42-86 … 111
                          82-42-64 … 109
                          82-42-34 … 108
                          82-42-02 … 105
                          82-42-41105
                          82-42-60 … 105
                          82-42-81105
                          82-42-31 … 104
                          82-42-32 … 104

                          Possiamo notare che 4 formazioni sono sotto lineate perchè non sviluppano i 12 ambi ma solo 8!

                          In grassetto sono visibili i ritardi sincroni,..........Nikor.
                          A volte la statistica aiuta molto nello stilare pronostici, vediamo questa che al 2° colpo ha dato 2 Ambetti nelle 2 formazioni a ritardo sincrono che erano segnalate in rabella:

                          Clicca sull'immagine per ingrandirla. 

Nome:   FFII.jpg 
Visite: 1 
Dimensione: 5.1 KB 
ID: 2131463

                          82-42-61 Ambetto con ( 42-62 ! )
                          82-42-88 Ambetto con ( 42-87 ! )

                          Ewwiva la stat!
                          Nikor.

                          Commenta


                          • #43
                            E se provassimo ora un script con TERZINE x Ambetto
                            con un estratto capogioco su 2 ruote?


                            Miki55

                            Commenta


                            • #44
                              Ciao Miki.. la proposta è molto interessante , ma non di mia competenza.

                              Spero tanto che il Bravo Mike58 ed altri che erano intervenuti per i listati si facciano avanti….

                              Anche se il mio parere potrebbe valere meno del 2 di picche , mi preme fare presente qualche spunto tecnico meglio dire matematico.

                              Partendo da un numero capo gioco le iterazioni che l’algoritmo dovrà tenere in considerazione saranno pari a 3.916 ( molto superiori a quelle dell’ambo capo gioco che ne comportava solo 88 ! )

                              Nelle 3.916 terzine si troverebbero 3 categorie di sviluppo, ovvero :
                              Terzine per la sorte Ambetto che sviluppano 12 Ambi
                              Terzine per la sorte Ambetto che sviluppano 08 Ambi.
                              Terzine per Ambetto che sviluppano 04 Ambi.


                              Se il presupposto di ricerca sarà mirato ai 12 ambi , nel listato dovranno essere inseriti i controlli per escludere i consecutivi che danno origine ad un numero inferiore di ambi sviluppati!
                              Per fare una prova e comprendere le ipotetiche differenze di sviluppo si potrebbe fare l’esempio con il numero in maggior ritardo su 2 ruote che se non vado errato dovrebbe essere il numero 78 sulle ruote di ( Cagliari-Roma )

                              Potrei provare a vedere cosa ne esce fuori…… fammi sapere,,, nel caso hai un numero particolare da testare devi solo indicarmelo con le 2 ruote di ricerca!

                              A presto…Nikor.


                              Commenta


                              • #45
                                Considerando che a Miki… interessa solo avere il listato ogni altro scritto è superfluo……

                                Ma prima di lasciare questo thread termino il concetto di quanto avevo scritto in precedenza ( anche se non dovesse interessare a nessuno ..) che io invece reputo di vitale importanza per costruire il progetto, ma questi sono solo cavoli miei!

                                Sviluppate le 3.916 terzine l’algoritmo dovrà per ogni terzina fare 3 cicli ben distinti, ovvero prenderà il primo numero della terzina ed andrà a confrontare gli adiacenti degli altri 2 elementi per 3 volte per ogni terzina….e qui mi fermo.

                                Vediamo un primo stralcio dell’esempio fatto nel precedente post sul numero 78 alle ruote di Cagliari/Roma:

                                Clicca sull'immagine per ingrandirla. 

Nome:   bett-ca-ro.jpg 
Visite: 1 
Dimensione: 24.0 KB 
ID: 2131574

                                2 formazioni sono sotto lineate perché sviluppano solo 8 Ambi anziché 12!
                                Buono studio…..

                                Sarà ovvio che escludendo il capo gioco 78 altre terzine ritardino su 2 ruote per Ambetto anche oltre le 300 estrazioni! Come ad esempio dove su 2 ruote vige un ritardo attuale di oltre le 600 estrazioni !!! comunque questa è sarà l'ultima volta che mi intrometto in post altrui.
                                Bye, bye, Nikor.



                                Commenta

                                Unconfigured Ad Widget

                                Comprimi

                                Ultima estrazione del lotto

                                Comprimi

                                Estrazione del lotto
                                martedì 25 settembre 2018
                                Bari
                                75
                                17
                                73
                                59
                                77
                                Cagliari
                                89
                                10
                                43
                                30
                                66
                                Firenze
                                01
                                56
                                51
                                55
                                84
                                Genova
                                72
                                33
                                70
                                58
                                79
                                Milano
                                89
                                12
                                76
                                43
                                13
                                Napoli
                                27
                                88
                                85
                                52
                                68
                                Palermo
                                80
                                05
                                17
                                81
                                90
                                Roma
                                48
                                64
                                11
                                34
                                21
                                Torino
                                67
                                42
                                46
                                52
                                20
                                Venezia
                                16
                                61
                                66
                                26
                                80
                                Nazionale
                                77
                                52
                                58
                                86
                                11
                                Sto operando...
                                X