Novità

Spaziometria Empirica

Grazie per lo script ma non mostra i casi in gioco mostra solo quelli che hanno raggiunto i 18 colpi. SI puo modificare?
 
sorujoe ha scritto:
Grazie per lo script ma non mostra i casi in gioco mostra solo quelli che hanno raggiunto i 18 colpi. SI puo modificare?
Clicca per espandere...

ciao, non dipende dal fatto che lo script di Cinzia non mostra i casi in gioco, ma dal fatto che la ruota che hai analizzato non li ha in corso... Prova genova per verificare quanto ho detto.

x gli altri: sto provando ad implementare la verifica del relativo gu(11) che per sua dimensione di classe non è gestibile con impostagiocata che supporta solo fino a 10 elementi per array ma con verificaesito e verificaesitoturbo si. Coming soon :) . Per adesso, grazie al super script di Cinzia, sembrerebbe che il relativo gu11 derivante dalla fenomenale tecnica spaziometrica del grandissimo Baffo sia micidiale per ambo in relativamente pochi colpi da tempo immemore... 😮 (anche si trattasse di aumentare la % + per A su + colpi rispetto i 18 attualmente impostati questo potrebbe non essere un problema in quanto potrebbe bastare implementare la giusta funzione per colpi rimanenti in modo da poterli gestire qualunque sia la loro effettiva ampiezza di teorica caduta). Inoltre va da sè che un gu di classe 11 sarebbe il top di riduzione per ipotetico A costante su unica ruota in pochi colpi per quanto riguarda il gruppo base di partenza per qualunque altro tipo di sviluppo vi si possa voler applicare... 👋
 
Ultima modifica:
mirapep ha scritto:
3663 CA 32 87 09 42 51
3664 CA 24 32 37 19 43
3665 CA 90 05 38 11 21
3666 CA 66 77 23 75 73
3667 CA 80 79 18 04 71
3668 CA 01 28 41 75 12
3669 CA 36 28 12 07 41
3670 CA 29 46 85 75 80
3671 CA 65 25 02 16 18

L'estrazione generatrice non è la 3663 ma la 3671. Il gioco parte dalla 3672
Clicca per espandere...
A me risulta la 3664..🤔
in fondo allo script io ho in "Gioca es" --> Gioca es ,1
 
Ultima modifica:
Facciamo un po di chiarezza e correzioni ( suggerito da DjNomade e da Mira ) sullo script.
PS: Non capisco perchè non vengano usati tutti i parametri che Luigi ha inserito nelle varie funzioni
Codice: 
'BaffoBlù - Spaziometria empirica - analisi statistica
'Script Cinzia
Sub Main()
     Dim Ini
     Dim n1(2),n2(2),n3(2),n4(2),n5(2),n6(2),n7(2),n8(2),n9(2),n10(2)
     Dim n11(2),n12(2),n13(2),n14(2),n15(2),n16(2),n17(2),n18(2),n19(2),n20(2)
     Dim n21(2),n22(2),n23(2),n24(2),n25(2),ru(1),ps(2)
     ps(2) = 1
     r = 10 ' cambiare valore x ruota Ba=1 ecc.
     Ini = 1
     If r = 12 Then Ini = 7440
     ru(1) = r
     co = 0
     For es = Ini To EstrazioneFin - 8
          If Estratto(es,r,1) > 0 Then
               aa = Estratto(es,r,3)
               aa1 = Estratto(es + 4,r,3)
               a = Estratto(es + 8,r,1)
               b = Estratto(es + 8,r,5)
               If b = aa1 Then
                    co = co + 1
                    Scrivi String(60,"=") & " caso " & co
                    Scrivi FormatSpace(es,5,1) & " " & SiglaRuota(r) & " ",0,0
                    For p = 1 To 5
                         x = Estratto(es,r,p)
                         If p = 3 Then
                              Scrivi Format2(x) & " ",1,0,,2
                         Else
                              Scrivi Format2(x) & " ",0,0
                         End If
                    Next
                    Scrivi
                    For ex = es + 1 To es + 3
                         Scrivi FormatSpace(ex,5,1) & " " & SiglaRuota(r) & " ",0,0
                         For pp = 1 To 5
                              'xa = Estratto(ex,r,pp)
                              Scrivi Format2(Estratto(ex,r,pp)) & " ",0,0
                         Next
                         Scrivi
                    Next
                    Scrivi FormatSpace(es + 4,5,1) & " " & SiglaRuota(r) & " ",0,0
                    For p1 = 1 To 5
                         x1 = Estratto(es + 4,r,p1)
                         If p1 = 3 Then ColoreTesto 2:Scrivi Format2(x1) & " ",1,0 Else ColoreTesto 0:Scrivi Format2(x1) & " ",0,0
                         ColoreTesto 0
                    Next
                    Scrivi
                    For exx = es + 5 To es + 7
                         Scrivi FormatSpace(exx,5,1) & " " & SiglaRuota(r) & " ",0,0
                         For pp1 = 1 To 5
                              xaa = Estratto(exx,r,pp1)
                              Scrivi Format2(xaa) & " ",0,0
                         Next
                         Scrivi
                    Next
                    Scrivi FormatSpace(es + 8,5,1) & " " & SiglaRuota(r) & " ",0,0
                    ColoreTesto 2:Scrivi Format2(Estratto(es + 8,r,1)) & " ",1,0
                    For p2 = 2 To 4
                         x2 = Estratto(es + 8,r,p2)
                         ColoreTesto 0
                         Scrivi Format2(x2) & " ",0,0
                    Next
                    ColoreTesto 2:Scrivi Format2(Estratto(es + 8,r,5))
                    '******************
                    bx = b
                    dbx = Fuori90(bx + 30)
                    dbx1 = Fuori90(bx + 60)
                    ax = a
                    dax = Fuori90(ax + 30)
                    dax1 = Fuori90(ax + 60)
                    aax = aa
                    daax = Fuori90(aax + 30)
                    daax1 = Fuori90(aax + 60)
                    vaa = Vert(aa)
                    vb = Vert(b)
                    '******************
                    '=========================================================================================
                    ColoreTesto 0
                    Scrivi
                    Scrivi bx & "   " & dbx & "   " & dbx1 & "   " & ax & "   " & dax & "   " & dax1 & "   " & aax & "   " & daax & "   " & daax1 & "   " & vaa & "   " & vb
                    'Scrivi
                    Scrivi bx & "." & dax & "   " & bx & "." & dax1 & "   " & bx & "." & aax & "   " & bx & "." & daax & "   " & bx & "." & daax1 & "   " & bx & "." & vaa & "   " & bx & "." & dbx & "   " & bx & "." & dbx1
                    ' Scrivi
                    Scrivi ax & "." & dax & "   " & ax & "." & dax1 & "   " & ax & "." & aax & "   " & ax & "." & daax & "   " & ax & "." & daax1 & "   " & ax & "." & vaa & "   " & ax & "." & dbx & "   " & ax & "." & dbx1 & "   " & ax & "." & vb & "   " & ax & "." & bx
                    'Scrivi
                    Scrivi aax & "." & dax & "   " & aax & "." & dax1 & "   " & aax & "." & daax & "   " & aax & "." & daax1 & "   " & aax & "." & vaa & "   " & aax & "." & dbx & "   " & aax & "." & dbx1
                    '---------
                    n1(1) = bx : n1(2) = dax
                    n2(1) = bx : n2(2) = dax1
                    n3(1) = bx : n3(2) = aax
                    n4(1) = bx : n4(2) = daax
                    n5(1) = bx : n5(2) = daax1
                    n6(1) = bx : n6(2) = vaa
                    n7(1) = bx : n7(2) = dbx
                    n8(1) = bx : n8(2) = dbx1
                    n9(1) = ax : n9(2) = dax
                    n10(1) = ax : n10(2) = dax1
                    n11(1) = ax : n11(2) = aax
                    n12(1) = ax : n12(2) = daax
                    n13(1) = ax : n13(2) = daax1
                    n14(1) = ax : n14(2) = vaa
                    n15(1) = ax : n15(2) = dbx
                    n16(1) = ax : n16(2) = dbx1
                    n17(1) = ax : n17(2) = vb
                    n18(1) = ax : n18(2) = bx
                    n19(1) = aax : n19(2) = dax
                    n20(1) = aax : n20(2) = dax1
                    n21(1) = aax : n21(2) = daax
                    n22(1) = aax : n22(2) = daax1
                    n23(1) = aax : n23(2) = vaa
                    n24(1) = aax : n24(2) = dbx
                    n25(1) = aax : n25(2) = dbx1
                    ImpostaGiocata 1,n1,ru,ps,18,2,,1
                    ImpostaGiocata 2,n2,ru,ps,18,2,,1
                    ImpostaGiocata 3,n3,ru,ps,18,2,,1
                    ImpostaGiocata 4,n4,ru,ps,18,2,,1
                    ImpostaGiocata 5,n5,ru,ps,18,2,,1
                    ImpostaGiocata 6,n6,ru,ps,18,2,,1
                    ImpostaGiocata 7,n7,ru,ps,18,2,,1
                    ImpostaGiocata 8,n8,ru,ps,18,2,,1
                    ImpostaGiocata 9,n9,ru,ps,18,2,,1
                    ImpostaGiocata 10,n10,ru,ps,18,2,,1
                    ImpostaGiocata 11,n11,ru,ps,18,2,,1
                    ImpostaGiocata 12,n12,ru,ps,18,2,,1
                    ImpostaGiocata 13,n13,ru,ps,18,2,,1
                    ImpostaGiocata 14,n14,ru,ps,18,2,,1
                    ImpostaGiocata 15,n15,ru,ps,18,2,,1
                    ImpostaGiocata 16,n16,ru,ps,18,2,,1
                    ImpostaGiocata 17,n17,ru,ps,18,2,,1
                    ImpostaGiocata 18,n18,ru,ps,18,2,,1
                    ImpostaGiocata 19,n19,ru,ps,18,2,,1
                    ImpostaGiocata 20,n20,ru,ps,18,2,,1
                    ImpostaGiocata 21,n21,ru,ps,18,2,,1
                    ImpostaGiocata 22,n22,ru,ps,18,2,,1
                    ImpostaGiocata 23,n23,ru,ps,18,2,,1
                    ImpostaGiocata 24,n24,ru,ps,18,2,,1
                    ImpostaGiocata 25,n25,ru,ps,18,2,,1
                    Gioca es + 8,False,False,2,,True
               End If
          End If
     Next
     ScriviResoconto False,False
End Sub
Controllare se ci sono altre correzioni da fare
 
non ho parole...

testando il gu11 xA in 18 colpi su GE dall'inizio...

cgu+ xA 78
cgu- xA 0
%+ gu xA 100
colpo massimo raggiunto da gu 8


se non ci sono errori...

:eek:
 
Ultima modifica:
BaffoBlù ha scritto:
Come ho già scritto, la spaziometria si può fare in tanti modi.

Quello che vi mostro oggi la chiamo Empirica perché ci si può sbizzarrire
con tutte le regole conosciute a tutti
(parlo di meno 90, vertibili, sommativi, terzine simmetriche, e tutto quello che può venirvi in mente)
per tutti i gusti e per tutte le menti.

Insomma questo tipo di metodi possono essere stravolti in qualunque maniera ci piaccia.
(vi serve solo fantasia e voglia).

è nato tutto per colpa dell'amico barbiere che è venuto a casa a sistemarmi i capelli il 15 dicembre scorso.
mentre iniziava a tagliare, (non resistendo più) sbotta :

"bhè! e qualche numerello?, qualche metodo di quelli veloci da non fare calcoli?, sai, uno dei tuoi...."

Io gli rispondo (rassegnato) di passarmi quel giornale la sopra al mobile, dicendogli : adesso taglia però e fammi fare...)

Comincio a guardare le estrazioni sul giornale e dopo un quarto d'ora esce fuori quello che dopo vi dico.
glielo spiego, finisce, ringrazia e se ne va.
Mentre va via gli raccomando che non si deve aspettare esiti fulminei come gli ho fatto vedere io,
e di giocarli almeno 5-6 volte quando viene l'occasione e comunque di non lasciarsi prendere la mano...

Va via.

Dopo la befana, citofona a casa e urla : "ho vinto, sono usciti !!!"

io che mi ero già scordato tutto, cado dalle nuvole...

viene su e mi spiega, così mi ricordo tutto e scoppio a ridere guardando cosa aveva combinato.
il barbiere, aveva capito male sbagliando, ma ha vinto lo stesso, incredibile!

alla fine vi mostrerò che ha combinato il barbiere.


Adesso spiego a voi lo stesso metodo

uso la triangolatura come mi avete già visto fare.

qualche immagine e capirete


Vedi l'allegato 2276948
Vedi l'allegato 2276949

Vedi l'allegato 2276950

---------------------------------------------
Venezia

03/11/2023 - 3° estratto (85)
4 estrazioni dopo
10/11/2023 - 5° estratto (85)
10/11/2023 - 5° estratto (08) da triangolatura
4 estrazioni precedenti
27/10/2023 - 3° estratto (54) (mi prendo questo per avere la sequenza 5 caselle in verticale
Fra un numero e l'altro ci sono sempre di 5 caselle
sia in orizzontale e in verticale. questa è l'unica regola

questo è l'impianto base uguale per tutte le strutture individuate
con le stesse caratteristiche.


(85-08-54) la base dei numeri

Traffichiamo un po' con le terzine simmetriche e vertibili

Questa è la base di partenza per costituire gli ambi secchi da porre in gioco.

Penso sia palese come faccio gli abbinamenti


si parte con questo e si sviluppano gli ambi secchi
85*25-55
08*38-68
54*24-84
"45" Vertibile del (54)
"58" Vertibile del (85)
----------------------------------------
25 Ambi Secchi

85-38
85-68
85-24
85-54
85-84
85-45
85-25
85-55

08-38
08-68
08-24
08-54
08-84
08-45
08-25
08-55
08-58
08-85

54-38
54-68
54-24
54-84
54-45
54-25
54-55
------------------------------------------------------------

Esito :

Vedi l'allegato 2276951




Esito : 08-54 al 1°colpo

08-25-84 al 4°colpo

08-58 al 8°colpo
------------------------------------------------------------

****************************************
------------------------------------------------------------

vediamo un altro caso


Vedi l'allegato 2276952

Vedi l'allegato 2276953

Vedi l'allegato 2276954





Milano

23/11/2023 - 3° estratto (86)
4 estrazioni dopo
30/11/2023 - 5° estratto (86)
30/11/2023 - 1° estratto (20)
4 estrazioni precedenti
16/11/2023 - 3° estratto (34)
Fra un numero e l'altro ci sono sempre di 5 caselle occupate
sia in orizzontale e in verticale.

(86-20-34) la base
---------------------------------------
86* 26-56
20* 50-80
34* 04-64
Vertibile "43" Vertibile del (34)
Vertibile "68" Vertibile del (86)
---------------------------------------

25 Ambi secchi

86-50
86-80
86-04
86-34
86-64
86-43
86-26
86-56

20-50
20-80
20-04
20-34
20-64
20-43
20-26
20-56
20-68
20-86

34-50
34-80
34-04
34-64
34-43
34-26
34-56
----------------------------------

Esito :


Vedi l'allegato 2276955



Esito : 20-68-64 al 1°colpo

56-86 al 2°colpo

64-86 al 4°colpo

80-86 al 6°colpo

20-86 al 13°colpo
---------------------------------


Adesso qui vedete cosa ha fatto il barbiere
gli occhi attenti capiranno dove non ha seguito per 2 volte quello che gli ho detto,
ma nonostante ciò ha vinto lo stesso.


Vedi l'allegato 2276956


************************************

io non ho tempo per fare ste cosette (sto facendo altro per tutti voi)

Adesso chiedo se c'è qualcuno altruista che faccia lo script per controllare
questa idea.
Seguite però le mie precise indicazioni nella dimostazione e non quelle del barbiere.

la base è questa, poi si potrebbero scoprire altre vie, magari più efficaci e ristrette.

Passo la palla
Clicca per espandere...
Semplice
 
Lo script di Cinzie e quello di claudio8 danno risultati non coincidenti al 100% qual'è quello corretto? Grazie
 
esatto
giochi ambi che ti sono serviti per validare la previsione, in particolare quelli a base del triangolo.
Infatti, iniziando il gioco, così come deve essere, dall'estrazione successiva a quella della base del triangolo è una caporetto
 
Ultima modifica:
così si capisce meglio, guardando le date di uscita con quelle di ricerca :
Codice: 
'BaffoBlù - Spaziometria empirica - analisi statistica
'Script Cinzia
Sub Main()
Dim n1(2),n2(10)
Dim ru(1),ps(2),pos(5)
ps(1) = 1
pos(2) = 1
pos(3) = 0.5
pos(4) = 0.5
x = CInt(InputBox(" Inserisci il numero ruota",,1))
r = x
ru(1) = r
For es = 6000 To EstrazioneFin - 04
If Estratto(es,r,1) > 0 Then
'---
aa = Estratto(es,r,3)
aa1 = Estratto(es + 4,r,3)
a = Estratto(es + 8,r,1)
b = Estratto(es + 8,r,5)
'---
If b = aa1 Then
ColoreTesto 1
Scrivi String(60,"-")
'---
Scrivi FormatSpace(es,5,1) & " " & SiglaRuota(r) & " ",0,0
For p = 1 To 5
x = Estratto(es,r,p)
If p = 3 Then ColoreTesto 2:Scrivi Format2(x) & " ",1,0 Else ColoreTesto 0:Scrivi Format2(x) & " ",0,0
ColoreTesto 0
Next
Scrivi
'---
For ex = es + 1 To es + 3
Scrivi FormatSpace(ex,5,1) & " " & SiglaRuota(r) & " ",0,0
For pp = 1 To 5
xa = Estratto(ex,r,pp)
Scrivi Format2(xa) & " ",0,0
Next
Scrivi
Next
 '---
Scrivi FormatSpace(es + 4,5,1) & " " & SiglaRuota(r) & " ",0,0
For p1 = 1 To 5
x1 = Estratto(es + 4,r,p1)
If p1 = 3 Then ColoreTesto 2:Scrivi Format2(x1) & " ",1,0 Else ColoreTesto 0:Scrivi Format2(x1) & " ",0,0
ColoreTesto 0
Next
Scrivi
'---
For exx = es + 5 To es + 7
Scrivi FormatSpace(exx,5,1) & " " & SiglaRuota(r) & " ",0,0
For pp1 = 1 To 5
xaa = Estratto(exx,r,pp1)
Scrivi Format2(xaa) & " ",0,0
Next
Scrivi
Next
'---
Scrivi FormatSpace(es + 8,5,1) & " " & SiglaRuota(r) & " ",0,0
ColoreTesto 2:Scrivi Format2(Estratto(es + 8,r,1)) & " ",1,0
For p2 = 2 To 4
x2 = Estratto(es + 8,r,p2)
ColoreTesto 0
Scrivi Format2(x2) & " ",0,0
Next
ColoreTesto 2:Scrivi Format2(Estratto(es + 8,r,5))
'---
bx = b
dbx = Fuori90(bx + 30)
'---
ax = a
'---
aax = aa
'---
n2(1) = bx
n2(2) = dbx
n2(3) = ax
n2(4) = aax
EliminaRipetuti n2
ImpostaGiocata 2,n2,ru,pos,10,2
Gioca es,1
End If
End If
Next
ScriviResoconto
End Sub
 
lotto_tom75 ha scritto:
non ho parole...

testando il gu11 xA in 18 colpi su GE dall'inizio...

cgu+ xA 78
cgu- xA 0
%+ gu xA 100
colpo massimo raggiunto da gu 8


se non ci sono errori...

:eek:
Clicca per espandere...

Quindi gli errori c'erano...
Poco male... ho ripreso lo script "corretto" da claudio e l'ho implementato per la verifica del gu c11 derivante dal metodo spaziometrico di baffo:

Codice: 
'BaffoBlù - Spaziometria empirica - analisi statistica
'Script Cinzia

Sub Main()
   Dim Ini
   Dim n1(2),n2(2),n3(2),n4(2),n5(2),n6(2),n7(2),n8(2),n9(2),n10(2)
   Dim n11(2),n12(2),n13(2),n14(2),n15(2),n16(2),n17(2),n18(2),n19(2),n20(2)
   Dim n21(2),n22(2),n23(2),n24(2),n25(2),ru(1),ps(2),n26(11)
   Dim casipositivigu,casinegativigu,casiattualigu
   casipositivigu = 0
   casinegativigu = 0
   casiattualigu = 0
   Dim colpomassimoraggiuntodalgu
   colpomassimoraggiuntodalgu = 0
   Dim colpirimamentiminimirispettocolpomassimo
   colpirimamentiminimirispettocolpomassimo = EstrazioneFin
   ps(2) = 1
   Dim colpidigioco
   colpidigioco = 45
   r = 4 ' cambiare valore x ruota Ba=1 ecc.
   Ini = 1
   If r = 12 Then Ini = 7440
   ru(1) = r
   co = 0
   For es = Ini To EstrazioneFin - 8
      If Estratto(es,r,1) > 0 Then
         aa = Estratto(es,r,3)
         aa1 = Estratto(es + 4,r,3)
         a = Estratto(es + 8,r,1)
         b = Estratto(es + 8,r,5)
         If b = aa1 Then
            co = co + 1
            Scrivi String(60,"=") & " caso " & co
            Scrivi FormatSpace(es,5,1) & " " & SiglaRuota(r) & " ",0,0
            For p = 1 To 5
               x = Estratto(es,r,p)
               If p = 3 Then
                  Scrivi Format2(x) & " ",1,0,,2
               Else
                  Scrivi Format2(x) & " ",0,0
               End If
            Next
            Scrivi
            For ex = es + 1 To es + 3
               Scrivi FormatSpace(ex,5,1) & " " & SiglaRuota(r) & " ",0,0
               For pp = 1 To 5
                  'xa = Estratto(ex,r,pp)
                  Scrivi Format2(Estratto(ex,r,pp)) & " ",0,0
               Next
               Scrivi
            Next
            Scrivi FormatSpace(es + 4,5,1) & " " & SiglaRuota(r) & " ",0,0
            For p1 = 1 To 5
               x1 = Estratto(es + 4,r,p1)
               If p1 = 3 Then ColoreTesto 2:Scrivi Format2(x1) & " ",1,0 Else ColoreTesto 0:Scrivi Format2(x1) & " ",0,0
               ColoreTesto 0
            Next
            Scrivi
            For exx = es + 5 To es + 7
               Scrivi FormatSpace(exx,5,1) & " " & SiglaRuota(r) & " ",0,0
               For pp1 = 1 To 5
                  xaa = Estratto(exx,r,pp1)
                  Scrivi Format2(xaa) & " ",0,0
               Next
               Scrivi
            Next
            Scrivi FormatSpace(es + 8,5,1) & " " & SiglaRuota(r) & " ",0,0
            ColoreTesto 2:Scrivi Format2(Estratto(es + 8,r,1)) & " ",1,0
            For p2 = 2 To 4
               x2 = Estratto(es + 8,r,p2)
               ColoreTesto 0
               Scrivi Format2(x2) & " ",0,0
            Next
            ColoreTesto 2:Scrivi Format2(Estratto(es + 8,r,5))
            '******************
            bx = b
            dbx = Fuori90(bx + 30)
            dbx1 = Fuori90(bx + 60)
            ax = a
            dax = Fuori90(ax + 30)
            dax1 = Fuori90(ax + 60)
            aax = aa
            daax = Fuori90(aax + 30)
            daax1 = Fuori90(aax + 60)
            vaa = Vert(aa)
            vb = Vert(b)
            '******************
            '=========================================================================================
            ColoreTesto 0
            Scrivi
            Scrivi bx & "   " & dbx & "   " & dbx1 & "   " & ax & "   " & dax & "   " & dax1 & "   " & aax & "   " & daax & "   " & daax1 & "   " & vaa & "   " & vb
            'Scrivi
            Scrivi bx & "." & dax & "   " & bx & "." & dax1 & "   " & bx & "." & aax & "   " & bx & "." & daax & "   " & bx & "." & daax1 & "   " & bx & "." & vaa & "   " & bx & "." & dbx & "   " & bx & "." & dbx1
            ' Scrivi
            Scrivi ax & "." & dax & "   " & ax & "." & dax1 & "   " & ax & "." & aax & "   " & ax & "." & daax & "   " & ax & "." & daax1 & "   " & ax & "." & vaa & "   " & ax & "." & dbx & "   " & ax & "." & dbx1 & "   " & ax & "." & vb & "   " & ax & "." & bx
            'Scrivi
            Scrivi aax & "." & dax & "   " & aax & "." & dax1 & "   " & aax & "." & daax & "   " & aax & "." & daax1 & "   " & aax & "." & vaa & "   " & aax & "." & dbx & "   " & aax & "." & dbx1
            '---- gu boom
            Scrivi
            Scrivi "gu boom " & bx & "." & dbx & "." & dbx1 & "." & ax & "." & dax & "." & dax1 & "." & aax & "." & daax & "." & daax1 & "." & vaa & "." & vb
            Scrivi
            Dim strguboom
            ReDim aguboom(11)
            strguboom = bx & "." & dbx & "." & dbx1 & "." & ax & "." & dax & "." & dax1 & "." & aax & "." & daax & "." & daax1 & "." & vaa & "." & vb
            Call SplitByChar(strguboom,".",aguboom)
            Scrivi "verifica aguboom " & "|" & StringaNumeri(aguboom) & "|"
            Scrivi
            '---------
            n1(1) = bx : n1(2) = dax
            n2(1) = bx : n2(2) = dax1
            n3(1) = bx : n3(2) = aax
            n4(1) = bx : n4(2) = daax
            n5(1) = bx : n5(2) = daax1
            n6(1) = bx : n6(2) = vaa
            n7(1) = bx : n7(2) = dbx
            n8(1) = bx : n8(2) = dbx1
            n9(1) = ax : n9(2) = dax
            n10(1) = ax : n10(2) = dax1
            n11(1) = ax : n11(2) = aax
            n12(1) = ax : n12(2) = daax
            n13(1) = ax : n13(2) = daax1
            n14(1) = ax : n14(2) = vaa
            n15(1) = ax : n15(2) = dbx
            n16(1) = ax : n16(2) = dbx1
            n17(1) = ax : n17(2) = vb
            n18(1) = ax : n18(2) = bx
            n19(1) = aax : n19(2) = dax
            n20(1) = aax : n20(2) = dax1
            n21(1) = aax : n21(2) = daax
            n22(1) = aax : n22(2) = daax1
            n23(1) = aax : n23(2) = vaa
            n24(1) = aax : n24(2) = dbx
            n25(1) = aax : n25(2) = dbx1
            n26(1) = bx
            n26(2) = dbx
            n26(3) = dbx1
            n26(4) = ax
            n26(5) = dax
            n26(6) = dax1
            n26(7) = aax
            n26(8) = daax
            n26(9) = daax1
            n26(10) = vaa
            n26(11) = vb
            ImpostaGiocata 1,n1,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 2,n2,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 3,n3,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 4,n4,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 5,n5,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 6,n6,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 7,n7,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 8,n8,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 9,n9,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 10,n10,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 11,n11,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 12,n12,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 13,n13,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 14,n14,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 15,n15,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 16,n16,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 17,n17,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 18,n18,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 19,n19,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 20,n20,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 21,n21,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 22,n22,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 23,n23,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 24,n24,ru,ps,colpidigioco,2,,1
            ImpostaGiocata 25,n25,ru,ps,colpidigioco,2,,1
            ' Gioca es + 8,False,False,2,,True
            Gioca es + 8,False,False,2,,True
            '  ImpostaGiocata 26,n26,ru,ps,18,2     << QUESTO DA ERRORE OUT OF RANGE PERCHE' IMPOSTA GIOCATA NON SUPPORTA VETTORI MAGGIORI DI 10 elementi!
            '  bisogna ovviare con la funzione verificaesito
            Dim esito,alcolponumero,sonousciti,esdiuscita,colpidiverificagu
            colpidiverificagu = 54
            Call VerificaEsitoTurbo(n26,ru,es + 9,2,colpidiverificagu,,esito,alcolponumero,sonousciti,esdiuscita)
            If esito <> "" Then
               Scrivi "ok estratti " & sonousciti & " al colpo numero " & alcolponumero & " nell'estrazione n. " & esdiuscita,,,,vbBlue
               casipositivigu = casipositivigu + 1
               If alcolponumero > colpomassimoraggiuntodalgu Then
                  colpomassimoraggiuntodalgu = alcolponumero
               End If
            Else
               Dim colpirimanentiteoricirispettocolpomassimo
               colpirimanentiteoricirispettocolpomassimo = colpomassimoraggiuntodalgu -(EstrazioneFin - es)
               If colpirimanentiteoricirispettocolpomassimo < 0 Then
                  Scrivi "no",,,,vbRed
                  casinegativigu = casinegativigu + 1
               Else
                  If colpirimanentiteoricirispettocolpomassimo < colpirimamentiminimirispettocolpomassimo Then
                     '
                     colpirimamentiminimirispettocolpomassimo = colpirimanentiteoricirispettocolpomassimo
                     '
                  End If
                  'End If
                  casiattualigu = casiattualigu + 1
                  Scrivi "cagu " & casiattualigu
               End If

            End If

            Messaggio "es " & es & "cgu+" & casipositivigu & " " & "cgu-" & casinegativigu
            Call AvanzamentoElab(1,EstrazioneFin - 8,es)
         End If
      End If
   Next
   ScriviResoconto False,False
   Scrivi
   Scrivi "cgu+ xA " & casipositivigu
   Scrivi "cgu- xA " & casinegativigu
   Scrivi "cgua x A " & casiattualigu
   Dim casitotali,percentualepositiva
   casitotali = casipositivigu + casinegativigu + casiattualigu
   percentualepositiva =(casipositivigu/casitotali)*100
   Scrivi "%+ gu xA " & percentualepositiva
   Scrivi "colpo massimo raggiunto da gu " & colpomassimoraggiuntodalgu
   Scrivi "colpi rimanenti minimi rispetto colpo massimo x A nel gu11 " & colpirimamentiminimirispettocolpomassimo
   Scrivi
 
End Sub

Questo evidenzia, salvo errori, che allungando i colpi per lo stesso gu 11 si ottengono % di esiti + abbastanza elevate per A in classe base molto ristretta e pari a 11 con un colpo massimo teorico di 43. Ovviamente non si tratta di giocare una c11 per 43 colpi ma di trovare e o aspettare i colpi rimanenti <= 9 per iniziare ad attaccarla con eventuali nuovi sviluppi riduzionali. Nel complesso mi sembra molto interessante... e ringrazio ancora Baffo e Cinzia per aver condiviso la cosa. Inoltre anche da un punto di vista incmaxp la situazione risulterebbe "compressa" al punto giusto... il che lascerebbe supporre che nonostante magari l'output mostri come colpi teorici rimanenti per il caso studio digenova ben 26 estrazioni restanti queste possano in realtà essere molto meno...

questo l'output di sfaldamento con casi positivi (cgu+) casi negativi (cgu-) e casi attuali (cgua) relativi al gu c11 di studio per la ruota di GE.

Genova
cgu+ xA 76
cgu- xA 1
cgua x A 1
%+ gu xA 97.4358974358974
colpo massimo raggiunto da gu 43
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 26


questo l'output incmaxp relativo al gu c11 di studio per la ruota di GE.

01.31.75 r: GE p: 2.3.4.5 rap=rsp 963 num. inc 5 incmax att=sto 260 fqp 28 s 2.
01.10.45.73.75 r: GE p: 1.2.4 rap=rsp 469 num. inc 4 incmax att=sto 117 fqp 64 s 2.
01.15.31.37.73 r: GE p: 1.4.5 rap=rsp 596 num. inc 5 incmax att=sto 114 fqp 45 s 2.
10.13.37.43.61.73.75 r: GE p: 3.4 rap=rsp 530 num. inc 5 incmax att=sto 48 fqp 46 s 2.

Analizzando le altre ruote senza casi in corso... dal 1871 o da quando esistono...

Bari
cgu+ xA 101
cgu- xA 1
cgua x A 0
%+ gu xA 99.0196078431373
colpo massimo raggiunto da gu 36
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 10378 << ovviamente quando i cgua sono 0 i colpi rimanenti minimi sono uguali al numero massimo delle estrazioni presenti in archivio...


Cagliari
cgu+ xA 84
cgu- xA 1
cgua x A 0
%+ gu xA 98.8235294117647
colpo massimo raggiunto da gu 38
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 10378


Firenze
cgu+ xA 104
cgu- xA 0
cgua x A 0
%+ gu xA 100
colpo massimo raggiunto da gu 53
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 10378


Milano
cgu+ xA 112
cgu- xA 1
cgua x A 0
%+ gu xA 99.1150442477876
colpo massimo raggiunto da gu 52
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 10378


Napoli
cgu+ xA 112
cgu- xA 0
cgua x A 0
%+ gu xA 100
colpo massimo raggiunto da gu 43
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 10378


Palermo
cgu+ xA 115
cgu- xA 1
cgua x A 0
%+ gu xA 99.1379310344828
colpo massimo raggiunto da gu 38
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 10378


Roma
cgu+ xA 114
cgu- xA 1
cgua x A 0
%+ gu xA 99.1304347826087
colpo massimo raggiunto da gu 38
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 10378


Torino
cgu+ xA 117
cgu- xA 0
cgua x A 0
%+ gu xA 100
colpo massimo raggiunto da gu 43
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 10378


Venezia
cgu+ xA 108
cgu- xA 2
cgua x A 0
%+ gu xA 98.1818181818182
colpo massimo raggiunto da gu 52
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 10378


Nazionale
cgu+ xA 33
cgu- xA 0
cgua x A 0
%+ gu xA 100
colpo massimo raggiunto da gu 38
colpi rimanenti minimi rispetto colpo massimo x A nel gu11 10378


Nessuna Certezza Solo Poca Probabilità

👋
 
Ultima modifica:
Buonasera, mi domandavo, si riesce ad inserire un box per scegliere la ruota da verificare?

r = InputBox("Ruota",,5)

oppure

ScegliRuote(ruota)

Sto imparando ad usare gli script e penso che uno dei due si possa inserire, ma scelta la ruota poi nella ricerca non la cambia sicuramente mi sfugge qualcosa...
 
ge.png

01.75
01.15
01.73
01.13
01.43
01.37
01.31
01.61

(01.54)

45.75
45.15
45.73
45.13
45.43
45.37
45.31
45.61
45.10
45.01

(45.54)

73.75
73.15
73.13
73.43
73.37
73.31
73.61

(73.54)

(10.37)
(10.54)
(37.54)


la platea si allarga a 31 ambi se includiamo l'unico vertibile non preso in considerazione.

ma questo era solo l'input iniziale (cavolo, l'ho fatto mentre il barbiere mi tagliava i capelli...)

questi ambi non significano poi tanto per me. (è solo un abbozzo di metodo empirico)

(sono tanti, ma giocare 30 ambi ed avere la quasi certezza è un altra storia però...).

Come vedrete non ho grossi segreti se non lo studio con dedizione e serietà.
potevo fare tutto da me, (con molto più tempo, ma alla fine..), poi presentare una bomba di metodo che funzia dal 1871.
(come già capitato in passato con degli script miei...)

Potremmo costruirlo insieme (perché di questo si tratta, "costruzione", "confezionamento".) di un metodo efficace.

uno di quelli che un qualsiasi lottologo ti farebbe pagare....(mannaggia mo' stanno già a copià...e cercà....)

A me interessa trovare nel quadro estrazionale una condizione particolare, e poterle visionare tutte a piacere dal 1871 PERO' !!!

Poi come si faccia ad estrapolare un previsione efficace ci si può studiare sopra. (fino a trovarne una speciale sul serio!)

Abbiamo bisogno di un ampio spettro
(per esempio le statistiche di un paio d'anni di qualsiasi tipo non è che ti dicano molto in effetti...)
capito dove voglio arrivare?

La cosa se funziona, deve funzionare sempre, non a singhiozzo
(posso ammettere un paio di esiti negativi, ma se cominciano ad essere di più, io scarto e cerco altra via).

ma vi ricordate di quanto inserivo le previsioni ero l'unico che scriveva spavaldo "Si garantisce la vincita!"

..e uscivano...

ma lo facevo perché ero scemo o perché ero sicuro? voi che dite?

Quello che me lo permetteva è lo studio di cui sopra.
Sangue, occhi e lacrime buttati per avere una forte sicurezza di successo.

Guardate che io giocavo fortissimo d'azzardo e non mi potevo permettere cazzate nel modo più assoluto!

vi farò vedere altri modi empirici di trafficare con questa stessa condizione
(i metodi empirici ti permettono di sbizzarrirti con la fantasia, ma calcolata sennò non serve...)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 19 novembre 2024
    Bari
    51
    20
    49
    27
    67
    Cagliari
    14
    22
    74
    60
    35
    Firenze
    79
    54
    17
    48
    58
    Genova
    86
    87
    74
    22
    25
    Milano
    12
    51
    47
    88
    49
    Napoli
    41
    30
    70
    43
    47
    Palermo
    85
    15
    75
    63
    81
    Roma
    49
    11
    50
    66
    24
    Torino
    44
    15
    03
    41
    84
    Venezia
    50
    89
    75
    47
    33
    Nazionale
    78
    03
    36
    16
    06
    Estrazione Simbolotto
    Torino
    06
    30
    14
    25
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto