X Baffo

[antelao]

Mi serve un aiutino,
ho fatto un gran casino e non riesco a mettere l'incremento sull'ambata determinata.
Mi serve che la 1°,2°,3° sono le posizioni principali
mentre la 4°,55° solo per recupero spese
il lista ha 5000 estrazioni di controllo solo x farti vedere il resoconto
dopo puoi mettere quello che vuoi,la cosa importante è che si arrivi a un
utile decoroso.i casi negativi sono anche per le strane condizioni dell'estrazione di calcolo

Sono 2 ore che temto di scrivere sto post,è proprio no schifo sto....
mettilo a posto tu il list,sia con il cod e chi più ne ha più ne metta,
me vien fuori sta strunzata

Sub
Main
Dim
ruote(2)
Dim
posta(1)
Dim
n(4)
posta
(1) = 1
ruote
(1) = 1
ruote
(2) = 10
Ini 
= 5000
fin 
=EstrazioneFin
co 
= 0
For
 es = Ini To fin
AvanzamentoElab
 Ini,fin,es
a1 
=Estratto(es,1,1)
a2 
=Estratto(es,1,2)
a3 
=Estratto(es,1,3)
a4 
=Estratto(es,1,4)
a5 
=Estratto(es,1,5)
b1 
=Estratto(es,10,1)
b2 
=Estratto(es,10,2)
b3 
=Estratto(es,10,3)
b4 
=Estratto(es,10,4)
b5 
=Estratto(es,10,5)
a 
=Fuori90(a2 + b3 + a4)
b 
=Fuori90(b2 + a3 + b4)
c 
=Fuori90(a + b)
d 
=Distanza(a,b)
e 
=Vert(c)
f 
=Vert(d)
co 
= co + 1
n
(1) = c
n
(2) = d
n
(3) = e
n
(4) = f
ImpostaGiocata
 1,n,ruote,posta,12,1
Gioca
 es
Next
Scrivi
Scrivi
String(65,"*")
ColoreTesto
 2
Scrivi
" casi trovati : " & co,1
ColoreTesto
 0
Scrivi
String(65," * ")
TestoInBandaPassante
 "*°*°* Cacchiatina by Antelao *°*°* ",1,3,0
ScriviResoconto
End
Sub

[Baffoblu]

Ci ho provato a formattarlo un pò

ma in spaziometria quando lo lancio si blocca tutto.

ho dovuto fare delle piccole modifiche.....

Non ho capito bene che ti serve,
adesso mi cala la palbebra,
domani vediamo meglio.....

ok ?

Sub Main
    Dim ruote(10)
    Dim posta(1)
    Dim n(4)
    posta(1) = 1
    ruote(1) = 1
    ruote(2) = 10
    ini = EstrazioneFin - 20
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        Messaggio es
        a1 = Estratto(es,1,1)
        a2 = Estratto(es,1,2)
        a3 = Estratto(es,1,3)
        a4 = Estratto(es,1,4)
        a5 = Estratto(es,1,5)
        b1 = Estratto(es,10,1)
        b2 = Estratto(es,10,2)
        b3 = Estratto(es,10,3)
        b4 = Estratto(es,10,4)
        b5 = Estratto(es,10,5)
        a = Fuori90(a2 + b3 + a4)
        b = Fuori90(b2 + a3 + b4)
        c = Fuori90(a + b)
        d = Distanza(a,b)
        e = Vert(c)
        f = Vert(d)
        n(1) = c
        n(2) = d
        n(3) = e
        n(4) = f
        co = co + 1
        ruote(1) = 1
        ruote(2) = 10
        ImpostaGiocata 1,n,ruote,posta,12,1
        Gioca es
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°* Cacchiatina by Antelao *°*°* ",1,3,0
    ScriviResoconto
End Sub

[antelao]

Ciao Baffo,
ora il listato è apposto ma non capisco cosa stia succedendo,
Anche questa mattina solo per fare il copia incolla faccio fatica,
mi compaiono delle righe nell'area da copiare boh!!!
Allora, come vedi,anche qui i casi negativi sono esigui,lanciando
il programma a 5000 estrazioni trova solo 32 casi negativi su 3500
che probabilmente sono quei casi che nella previsione calcola solo
una ambata (tipo 28-82-82-28)
Se noti,anche qui la maggioranza dei casi si sfalda nei primissimi colpi
nelle posizioni 1-2-3 e molte volte capita la doppia vincita.
Volevo capire se,giocando in queste posizioni
tenendo presente la 2-4 solo per un misero ritorno spese,
si riesce a ricavare qualcosa

[Baffoblu]

Ti ho modificato lo script
ti ho messo la 1°, 2°, 3° posizione principali
e poi la 4° e la 5°posizione secondarie.

Fammi sapere se vuoi modoficare qualcosa.

Sub Main
    Dim ruote(10)
    Dim poste(10)
    Dim n(4)
    poste(6) = 1
    poste(7) = 1
    poste(8) = 1
    poste(9) = 0.5
    poste(10) = 0.5
    ruote(1) = 1
    ruote(2) = 10
    ini = EstrazioneFin - 20' aumenta il numero per analizzare piu estrazioni
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        Messaggio es
        a1 = Estratto(es,1,1)'questo non serve - non lo utilizza lo script
        a2 = Estratto(es,1,2)
        a3 = Estratto(es,1,3)
        a4 = Estratto(es,1,4)
        a5 = Estratto(es,1,5)'questo non serve - non lo utilizza lo script
        b1 = Estratto(es,10,1)'questo non serve - non lo utilizza lo script
        b2 = Estratto(es,10,2)
        b3 = Estratto(es,10,3)
        b4 = Estratto(es,10,4)
        b5 = Estratto(es,10,5)'questo non serve - non lo utilizza lo script
        a = Fuori90(a2 + b3 + a4)
        b = Fuori90(b2 + a3 + b4)
        c = Fuori90(a + b)
        d = Distanza(a,b)
        e = Vert(c)
        f = Vert(d)
        n(1) = c
        n(2) = d
        n(3) = e
        n(4) = f
        co = co + 1
        ruote(1) = 1
        ruote(2) = 10
        Scrivi String(80,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10),1
        Scrivi String(80,"°"),1
        ImpostaGiocata 1,n,ruote,poste,12
        Gioca es
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°* Idea by Antelao *** Modifica by Baffoblu *°*°* ",1,3,0
    ScriviResoconto
End Sub

[antelao]

Dove hai applicato gli apici di inutilità funzione è dovuto al fatto che ho provato
un po tutte le vie di calcolo.Cmq fin qui ci sono arrivato anch'io,mi serve un incremento
di giocata estrazione dopo estrazione.Direi di tenere solo la1-2-3-posizione.
Anche se i casi utili diminuiscono....pazienza

[Baffoblu]

Dove hai applicato gli apici di inutilità funzione è dovuto al fatto che ho provato
un po tutte le vie di calcolo.Cmq fin qui ci sono arrivato anch'io,mi serve un incremento
di giocata estrazione dopo estrazione.Direi di tenere solo la1-2-3-posizione.
Anche se i casi utili diminuiscono....pazienza

Se per incremento di giocata, intendi progressione,

quelle ancora non le so fare, mi incasino.....


così ti gioca solo in 1°, 2° e 3°.

Sub Main
    Dim ruote(10)
    Dim poste(10)
    Dim n(4)
    poste(6) = 1
    poste(7) = 1
    poste(8) = 1
    'poste(9) = 0.5
    'poste(10) = 0.5
    ruote(1) = 1
    ruote(2) = 10
    ini = EstrazioneFin - 20' aumenta il numero per analizzare piu estrazioni
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        Messaggio es
        a1 = Estratto(es,1,1)'questo non serve - non lo utilizza lo script
        a2 = Estratto(es,1,2)
        a3 = Estratto(es,1,3)
        a4 = Estratto(es,1,4)
        a5 = Estratto(es,1,5)'questo non serve - non lo utilizza lo script
        b1 = Estratto(es,10,1)'questo non serve - non lo utilizza lo script
        b2 = Estratto(es,10,2)
        b3 = Estratto(es,10,3)
        b4 = Estratto(es,10,4)
        b5 = Estratto(es,10,5)'questo non serve - non lo utilizza lo script
        a = Fuori90(a2 + b3 + a4)
        b = Fuori90(b2 + a3 + b4)
        c = Fuori90(a + b)
        d = Distanza(a,b)
        e = Vert(c)
        f = Vert(d)
        n(1) = c
        n(2) = d
        n(3) = e
        n(4) = f
        co = co + 1
        ruote(1) = 1
        ruote(2) = 10
        Scrivi String(80,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10),1
        Scrivi String(80,"°"),1
        ImpostaGiocata 1,n,ruote,poste,12
        Gioca es
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°* Idea by Antelao *** Modifica by Baffoblu *°*°* ",1,3,0
    ScriviResoconto
End Sub

[antelao]

Così il listato gira ma non riesco a capire se realmente
incrementa a ogni colpo

Sub MainDim ruote(10)
Dim poste2(2)
Dim poste6(6)
Dim poste8(8)
Dim poste10(10)
Dim n(4)
Dim Importi(10,5)
poste6(6) = 2
poste8(8) = 2
poste10(10) = 2




ruote(1) = 1
ruote(2) = 10
Importi(10,1) = 2 'se metto (6,1)dovrebbe riconoscere la prima posizione
Importi(10,2) = 3.5
Importi(10,3) = 6
Importi(10,4) = 10
Importi(10,5) = 18








ini = EstrazioneFin - 50' aumenta il numero per analizzare piu estrazioni
fin = EstrazioneFin
co = 0
For es = Ini To fin
Messaggio es
a1 = Estratto(es,1,1)'questo non serve - non lo utilizza lo script
a2 = Estratto(es,1,2)
a3 = Estratto(es,1,3)
a4 = Estratto(es,1,4)
a5 = Estratto(es,1,5)'questo non serve - non lo utilizza lo script
b1 = Estratto(es,10,1)'questo non serve - non lo utilizza lo script
b2 = Estratto(es,10,2)
b3 = Estratto(es,10,3)
b4 = Estratto(es,10,4)
b5 = Estratto(es,10,5)'questo non serve - non lo utilizza lo script
a = Fuori90(a2 + b3 + a4)
b = Fuori90(b2 + a3 + b4)
c = Fuori90(a + b)
d = Distanza(a,b)
e = Vert(c)
f = Vert(d)
n(1) = c
n(2) = d
n(3) = e
n(4) = f
co = co + 1
ruote(1) = 1
ruote(2) = 10
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10),1
Scrivi String(80,"°"),1
ImpostaGiocata 1,n,ruote,poste6,12,1
ImpostaGiocata 2,n,ruote,poste8,12,1
ImpostaGiocata 3,n,ruote,poste10,12,1
ImpostaProgressione 6,Importi
ImpostaProgressione 8, Importi
ImpostaProgressione 10, Importi






Gioca es
Next
Scrivi
Scrivi String(65,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65," * ")
TestoInBandaPassante "*°*°* Idea by Antelao *** Modifica by Baffoblu *°*°* ",1,3,0
ScriviResoconto 
End Sub

[antelao]

Infatti non fa il suo dovere,però se vado per esclusione
facendo girare una singola posizione,il conteggio lo
esegue,Probabilmente basta un piccolo aggiustaggio
Help me! Oramai sono in aceto,meglio fermarsi e
riprendere un altro momento

[Baffoblu]

Infatti non fa il suo dovere,però se vado per esclusione
facendo girare una singola posizione,il conteggio lo
esegue,Probabilmente basta un piccolo aggiustaggio
Help me! Oramai sono in aceto,meglio fermarsi e
riprendere un altro momento

Ci do un'occhiata.......

[Baffoblu]

Adesso dovrebbe andare....

Ma tieni presente che sono
4 estratti da giocare in 3 posizioni
4 x 3 = 12 !!!!
Quindi fatti i conti.......

Sub Main
    Dim ruote(10)
    Dim poste6(6)
    Dim poste8(8)
    Dim poste10(10)
    Dim n(4)
    Dim Importi6(6,5)
    Dim Importi8(8,5)
    Dim Importi10(10,5)
    poste6(6) = 2'posta iniziale
    poste8(8) = 2
    poste10(10) = 2
    ruote(1) = 1
    ruote(2) = 10
    Importi6(6,1) = 2 ' metto (6,1)dovrebbe riconoscere la prima posizione
    Importi6(6,2) = 3.5
    Importi6(6,3) = 6
    Importi6(6,4) = 10
    Importi6(6,5) = 18
    '----------------------------------------------------------------------
    Importi8(8,1) = 2 ' metto (8,1)dovrebbe riconoscere la terza posizione
    Importi8(8,2) = 3.5
    Importi8(8,3) = 6
    Importi8(8,4) = 10
    Importi8(8,5) = 18
    '----------------------------------------------------------------------
    Importi10(10,1) = 2 'metto (10,1)dovrebbe riconoscere la quinta posizione
    Importi10(10,2) = 3.5
    Importi10(10,3) = 6
    Importi10(10,4) = 10
    Importi10(10,5) = 18
    '----------------------------------------------------------------------
    ini = EstrazioneFin - 50' aumenta il numero per analizzare piu estrazioni
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        Messaggio es
        a1 = Estratto(es,1,1)'questo non serve - non lo utilizza lo script
        a2 = Estratto(es,1,2)
        a3 = Estratto(es,1,3)
        a4 = Estratto(es,1,4)
        a5 = Estratto(es,1,5)'questo non serve - non lo utilizza lo script
        b1 = Estratto(es,10,1)'questo non serve - non lo utilizza lo script
        b2 = Estratto(es,10,2)
        b3 = Estratto(es,10,3)
        b4 = Estratto(es,10,4)
        b5 = Estratto(es,10,5)'questo non serve - non lo utilizza lo script
        a = Fuori90(a2 + b3 + a4)
        b = Fuori90(b2 + a3 + b4)
        c = Fuori90(a + b)
        d = Distanza(a,b)
        e = Vert(c)
        f = Vert(d)
        n(1) = c
        n(2) = d
        n(3) = e
        n(4) = f
        co = co + 1
        ruote(1) = 1
        ruote(2) = 10
        Scrivi String(80,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10),1
        Scrivi String(80,"°"),1
        ImpostaGiocata 1,n,ruote,poste6,5,6' ho messo solo 5 colpi
        ImpostaGiocata 2,n,ruote,poste8,5,8
        ImpostaGiocata 3,n,ruote,poste10,5,10
        ImpostaProgressione 1,Importi6
        ImpostaProgressione 2,Importi8
        ImpostaProgressione 3,Importi10
        Scrivi "puntate eseguite " & colpi
        Scrivi " - 1.cl - " & Importi6(6,1) & " euro  x estratto determinato in 1°"' ho messo solo per 5 colpi, anche sotto
        Scrivi " - 2 cl - " & Importi6(6,2) & " euro  x estratto determinato in 1°"
        Scrivi " - 3 cl - " & Importi6(6,3) & " euro  x estratto determinato in 1°"
        Scrivi " - 4 cl - " & Importi6(6,4) & " euro  x estratto determinato in 1°"
        Scrivi " - 5 cl - " & Importi6(6,5) & " euro  x estratto determinato in 1°"
        '--------------------------------------------------------------------------
        Scrivi " - 1.cl - " & Importi8(8,1) & " euro  x estratto determinato in 3°"
        Scrivi " - 2 cl - " & Importi8(8,2) & " euro  x estratto determinato in 3°"
        Scrivi " - 3 cl - " & Importi8(8,3) & " euro  x estratto determinato in 3°"
        Scrivi " - 4 cl - " & Importi8(8,4) & " euro  x estratto determinato in 3°"
        Scrivi " - 5 cl - " & Importi8(8,5) & " euro  x estratto determinato in 3°"
        '--------------------------------------------------------------------------
        Scrivi " - 1.cl - " & Importi10(10,1) & " euro  x estratto determinato in 5°"
        Scrivi " - 2 cl - " & Importi10(10,2) & " euro  x estratto determinato in 5°"
        Scrivi " - 3 cl - " & Importi10(10,3) & " euro  x estratto determinato in 5°"
        Scrivi " - 4 cl - " & Importi10(10,4) & " euro  x estratto determinato in 5°"
        Scrivi " - 5 cl - " & Importi10(10,5) & " euro  x estratto determinato in 5°"
        '--------------------------------------------------------------------------
        Gioca es
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°* Idea by Antelao *** Modifica by Baffoblu *°*°* ",1,3,0
    ScriviResoconto
End Sub