camaleonte

[aldini]

Un cordiale saluto a tutti sono nuovo utente anche se e da un mesetto che leggo i vostri post ,e vi confesso che ho notato una bella complicita nel realizzare metodi e script sono rimasto stupito come in un attimo dei metodi vengono elaborati in script. HO DECISO DI DARE IL MIO CONTRIBBUTO REGALANDO AGLI AMICI DEL FORUM UN BEL METODO A RUOTA SINGOLA RICAVA DUE AMBI SECCHI DA GIOCARE ANCHE A TUTTE A DIMENTICAVO LAMBATA .
Si deve rintracciare un numero che si presenta x due estrazioni consegutive nella stessa posizione .
prendiamo sulla ruota di bari il 26/ 4 e il 28 /4 esce in 4° posizione il 44
dobbiamo solo vedere i numeri che escono in 3° ho in 5° devono esere ho tutti e due pari ho dispari
il 26/4 27 44
il 28/4 51 44
abbiamo un ambo di somma 71 e distanza 17
e un ambo di somma 95 e distanza 7
come si opera ,bisogna cambiare le distanze alla somma 71 introdurre la distanza 7
e la somma 95 introdurre la distanza 17
somma 71 71 +7=78
78:2=39
71-39=32
39-32 il primo ambo (come potete notare abbiamo un ambo di somma 71 e distanza 7)
somma 95 95+17=112
112:2=56
95-56=39
39-56 il secondo ambo (come noterete abbiamo lambo di somma 95 e distanza 17)
PREVISIONE
BARI AMBATA 39
ABI SECCHI 39-56 39 -32 (ANCHE A TUTTE)


SPERO CHE SIA STATA COSA GRADITA

 

[DEAEBE]

non ho capito come ricavi il 71 ed il 95 e perche' le distanze 7 e 17. se potessi essere piu' chiaro te ne sarei grata

 

[aldini]

Ambo 27 44 -------------------somma 71 ---------------------distanza 17
Ambo 51 44--------------------somma95-----------------------distanza 7

 

[Baffoblu]

"Si deve rintracciare un numero che si presenta x due estrazioni consecutive nella stessa posizione .

dobbiamo solo vedere i numeri che escono in 3° o in 5° devono essere o tutti e due pari o dispari"


In caso di numero ripetuto in 1° posizione ?

come ci si comporta ?

lo stesso in quello in 5° posizione.

Quali sarebbero i "laterali" in questi casi ?

nel caso che i laterali abbiano entrambi i requisiti ?
tipo 2 pari da una parte e 2 dispari dall'altra?
O anche 2 pari e 2 pari oppure 2 dispari e 2 dispari ?

 

[aldini]

Ciao baffo ti rispondo alla tua domanda pero' devo premettere prima che questo metodo non e stato mai testato pero' mi ha dato molto
sia a ruota singola che a tutte .
Non ha importanza la posizione del numero ripetuto io scelgo maggiormente i numeri che escono prima del numero ripetuto ma se il numero ripetuto e in prima posizione predo quelli in seconda solo in quel caso ,ma ci sono altri casi che mi portano a questa scelta ti faccio un esempio se a bari fosse uscito il 2 ripetuto nella stessa posizione diciamo seconda posizione ed in prima posizione trovassimo il10 e il 29
avremmo
10 2
29 2
in questo caso non si potrebbe scambiare le distanze perche abbiamo
ambo di sommma 12------------distanza 8
ambo di somma 31------------distanza 27
in questo caso sceglierei i numeri in terza posizione che devono essere ho tutti e due dispari ho pari
spero che sono stato chiaro

 

[Lorenzo Il Magnifico]

ciao aldini per qunti colpi si giocano i tuoi numeri?? grazie di tutto!!

 

[aldini]

lambo a ruota ho a tutte si dovrebbe verificare ento i 5 colpi ma io personalmente ti diro' come gioco questa previsione
ambata 39 la porto fino a nove colpi e i due ambi secchi x 6 colpi
pero'ti vorrei dare una dritta hai due ambi secchi ci metti il 66 lo vedo ottimo e credo che potrebbe inciampare con il 39
poi vedi tu

 

[Baffoblu]

Ho capito,

Ma allora bisogna definire delle regole ben precise per ogni evenienza....

 

[aldini]

certo il metodo a un forte valore estrazionale bisognerebbe dargli una base solida e studiarne i casi io credo che puo' dare tanto

 

[Y10]

Ambata 39 , complimenti ,si continua ?

 

[nancy48]

complimenti ambata 39 a bari al 1^ colpo
buona serata

 

[Lorenzo Il Magnifico]

Bravissimo!!!

 

[Baffoblu]

Divertitevi con questo intanto.....

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruota(11)
    Dim ruote(11)
    Dim posta(10)
    Dim poste(10)
    Dim r
    Dim p
    Dim p1
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n(1)
    Dim am(4)
    posta(1) = 1
    poste(2) = 1
    r = CInt(InputBox(" Scegli la ruota ",,"1"))
    p = CInt(InputBox(" Scegli la posizione ",,"1"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        ruota(1) = r
        a1 = Estratto(idEstr - 1,r,p)
        b1 = Estratto(idEstr,r,p)
        If a1 = b1 Then
            ok = 0
            If p = 1 Then
                a2 = Estratto(idEstr - 1,r,2)
                b2 = Estratto(idEstr,r,2)
                p1 = 2
                If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
                    a3 = a1 + a2
                    b3 = b1 + b2
                    a4 = Distanza(a1,a2)
                    b4 = Distanza(b1,b2)
                    a5 = a3 + b4
                    b5 = b3 + a4
                    If a5 <> b5 Then
                        ok = 1
                    End If
                End If
            End If
            If p = 2 Then
                a2 = Estratto(idEstr - 1,r,1)
                b2 = Estratto(idEstr,r,1)
                p1 = 1
                If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
                    a3 = a1 + a2
                    b3 = b1 + b2
                    a4 = Distanza(a1,a2)
                    b4 = Distanza(b1,b2)
                    a5 = a3 + b4
                    b5 = b3 + a4
                    If a5 <> b5 Then
                        ok = 1
                    End If
                End If
            End If
            If p = 3 Then
                a2 = Estratto(idEstr - 1,r,2)
                b2 = Estratto(idEstr,r,2)
                p1 = 2
                If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
                    a3 = a1 + a2
                    b3 = b1 + b2
                    a4 = Distanza(a1,a2)
                    b4 = Distanza(b1,b2)
                    a5 = a3 + b4
                    b5 = b3 + a4
                    If a5 <> b5 Then
                    End If
                End If
            End If
            If p = 4 Then
                a2 = Estratto(idEstr - 1,r,3)
                b2 = Estratto(idEstr,r,3)
                p1 = 3
                If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
                    a3 = a1 + a2
                    b3 = b1 + b2
                    a4 = Distanza(a1,a2)
                    b4 = Distanza(b1,b2)
                    a5 = a3 + b4
                    b5 = b3 + a4
                    If a5 <> b5 Then
                        ok = 1
                    End If
                End If
            End If
            If p = 5 Then
                a2 = Estratto(idEstr - 1,r,4)
                b2 = Estratto(idEstr,r,4)
                p1 = 4
                If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
                    a3 = a1 + a2
                    b3 = b1 + b2
                    a4 = Distanza(a1,a2)
                    b4 = Distanza(b1,b2)
                    a5 = a3 + b4
                    b5 = b3 + a4
                    If a5 <> b5 Then
                        ok = 1
                    End If
                End If
            End If
            If ok = 1 Then
                k1 = a5 / 2
                k2 = a3 - k1
                k3 = b5 / 2
                k4 = b3 - k3
                n(1) = k1
                am(1) = k1
                am(2) = k2
                am(3) = k3
                am(4) = k4
                EliminaRipetuti am
                ruota(1) = r
                ruote(1) = r
                ruote(2) = 11
                co = co + 1
                Scrivi String(100,"°") & " Caso n°" & co,1
                Scrivi DataEstrazione(idEstr - 1) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr - 1,r),1
                Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
                ColoreTesto 1
                Scrivi "Numeri ripetuti Isotopi in 2 estrazioni consecutive :   " & Format2(a1) & " e " & Format2(b1) & " in " & p & "° pos.",1
                Scrivi "Laterali : " & Format2(a2) & " e " & Format2(b2) & " in " & p1 & "° pos.",1
                Scrivi "1° Ambo di somma : " & a3 & " e di Distanza : " & a4,1
                Scrivi "2° Ambo di somma : " & b3 & " e di Distanza : " & b4,1
                Scrivi "1° Ambo : " & k1 & " - " & k2,1
                Scrivi "2° Ambo : " & k3 & " - " & k4,1
                ColoreTesto 2
                Scrivi "Ho preferito la messa in gioco della quartina ricavata, per ovvi motivi.",1
                Scrivi "Quando nella quartina vi è un Num. ripetuto, diventa una terzina.",1
                ColoreTesto 0
                Scrivi String(80,"="),1
                ImpostaGiocata 1,n,ruota,posta,nColpiDiGioco,1
                ImpostaGiocata 2,am,ruote,poste,nColpiDiGioco,2
                Gioca idEstr,1
            End If
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub

 

[rosce14]

divertitevi con questo intanto.....

sub main()
    dim idestr
    dim inizio
    dim fine
    dim ruota(11)
    dim ruote(11)
    dim posta(10)
    dim poste(10)
    dim r
    dim p
    dim p1
    dim nanalisi
    dim ncolpidigioco
    dim n(1)
    dim am(4)
    posta(1) = 1
    poste(2) = 1
    r = cint(inputbox(" scegli la ruota ",,"1"))
    p = cint(inputbox(" scegli la posizione ",,"1"))
    nanalisi = cint(inputbox(" quante estrazioni vuoi controllare ? ",,"500"))
    ncolpidigioco = cint(inputbox(" per quanti colpi vuoi giocare ? ",,"9"))
    inizio = estrazionefin - nanalisi
    fine = estrazionefin
    co = 0
    for idestr = inizio to fine
        messaggio "elab. Estr. [" &(idestr) & "] di " & dataestrazione(idestr,1)
        call avanzamentoelab(inizio,fine,idestr)
        ruota(1) = r
        a1 = estratto(idestr - 1,r,p)
        b1 = estratto(idestr,r,p)
        if a1 = b1 then
            ok = 0
            if p = 1 then
                a2 = estratto(idestr - 1,r,2)
                b2 = estratto(idestr,r,2)
                p1 = 2
                if pari(a2) and pari(b2) or dispari(a2) and dispari(b2) then
                    a3 = a1 + a2
                    b3 = b1 + b2
                    a4 = distanza(a1,a2)
                    b4 = distanza(b1,b2)
                    a5 = a3 + b4
                    b5 = b3 + a4
                    if a5 <> b5 then
                        ok = 1
                    end if
                end if
            end if
            if p = 2 then
                a2 = estratto(idestr - 1,r,1)
                b2 = estratto(idestr,r,1)
                p1 = 1
                if pari(a2) and pari(b2) or dispari(a2) and dispari(b2) then
                    a3 = a1 + a2
                    b3 = b1 + b2
                    a4 = distanza(a1,a2)
                    b4 = distanza(b1,b2)
                    a5 = a3 + b4
                    b5 = b3 + a4
                    if a5 <> b5 then
                        ok = 1
                    end if
                end if
            end if
            if p = 3 then
                a2 = estratto(idestr - 1,r,2)
                b2 = estratto(idestr,r,2)
                p1 = 2
                if pari(a2) and pari(b2) or dispari(a2) and dispari(b2) then
                    a3 = a1 + a2
                    b3 = b1 + b2
                    a4 = distanza(a1,a2)
                    b4 = distanza(b1,b2)
                    a5 = a3 + b4
                    b5 = b3 + a4
                    if a5 <> b5 then
                    end if
                end if
            end if
            if p = 4 then
                a2 = estratto(idestr - 1,r,3)
                b2 = estratto(idestr,r,3)
                p1 = 3
                if pari(a2) and pari(b2) or dispari(a2) and dispari(b2) then
                    a3 = a1 + a2
                    b3 = b1 + b2
                    a4 = distanza(a1,a2)
                    b4 = distanza(b1,b2)
                    a5 = a3 + b4
                    b5 = b3 + a4
                    if a5 <> b5 then
                        ok = 1
                    end if
                end if
            end if
            if p = 5 then
                a2 = estratto(idestr - 1,r,4)
                b2 = estratto(idestr,r,4)
                p1 = 4
                if pari(a2) and pari(b2) or dispari(a2) and dispari(b2) then
                    a3 = a1 + a2
                    b3 = b1 + b2
                    a4 = distanza(a1,a2)
                    b4 = distanza(b1,b2)
                    a5 = a3 + b4
                    b5 = b3 + a4
                    if a5 <> b5 then
                        ok = 1
                    end if
                end if
            end if
            if ok = 1 then
                k1 = a5 / 2
                k2 = a3 - k1
                k3 = b5 / 2
                k4 = b3 - k3
                n(1) = k1
                am(1) = k1
                am(2) = k2
                am(3) = k3
                am(4) = k4
                eliminaripetuti am
                ruota(1) = r
                ruote(1) = r
                ruote(2) = 11
                co = co + 1
                scrivi string(100,"°") & " caso n°" & co,1
                scrivi dataestrazione(idestr - 1) & " -- " & siglaruota(r) & " - " & stringaestratti(idestr - 1,r),1
                scrivi dataestrazione(idestr) & " -- " & siglaruota(r) & " - " & stringaestratti(idestr,r),1
                coloretesto 1
                scrivi "numeri ripetuti isotopi in 2 estrazioni consecutive :   " & format2(a1) & " e " & format2(b1) & " in " & p & "° pos.",1
                scrivi "laterali : " & format2(a2) & " e " & format2(b2) & " in " & p1 & "° pos.",1
                scrivi "1° ambo di somma : " & a3 & " e di distanza : " & a4,1
                scrivi "2° ambo di somma : " & b3 & " e di distanza : " & b4,1
                scrivi "1° ambo : " & k1 & " - " & k2,1
                scrivi "2° ambo : " & k3 & " - " & k4,1
                coloretesto 2
                scrivi "ho preferito la messa in gioco della quartina ricavata, per ovvi motivi.",1
                scrivi "quando nella quartina vi è un num. Ripetuto, diventa una terzina.",1
                coloretesto 0
                scrivi string(80,"="),1
                impostagiocata 1,n,ruota,posta,ncolpidigioco,1
                impostagiocata 2,am,ruote,poste,ncolpidigioco,2
                gioca idestr,1
            end if
        end if
        if scriptinterrotto then exit for
    next
    scrivi
    scrivi string(100,"*")
    coloretesto 2
    scrivi" casi trovati : " & co,1
    coloretesto 0
    scrivi string(100," * ")
    testoinbandapassante(" listato by  b a f f o b l u "),1,3,0
    scriviresoconto
end sub

buona domenica baffoblu, complimenti per la tua solerzia, felice di aver trovato lo script, aperto si ferma al 2010, come mai?

In atesa di una tua risposta.

 

[Baffoblu]

buona domenica baffoblu, complimenti per la tua solerzia, felice di aver trovato lo script, aperto si ferma al 2010, come mai?

In atesa di una tua risposta.

Ciao

sei tu che scegli la ruota.

Sei tu che scegli la posizione del numero ripetuto.

sei tu che scegli quante estrazioni analizzare.

sei tu che scegli per quanti colpi giocare.


Detto questo

se con le scelte che hai fatto, non trovi
più condizioni di gioco, significa che per quelle scelte
fatte in precedenza non ci sono condizioni.

Quindi devi cambiare parametri.

su una ruota devi vedere tutte le posizioni prima di cambiare ruota,
e cosi via per le altre ruote.

Se c'è la condizione, verrà mostrata......

altrimenti si aspetta.....


Buona Domenica

 

[desideria]

BUON GIORNO E BUONA DOMENICA A TUTTI!!!
GRAZIE di aver condiviso le tue ricerche con noi ...
io grazie a questa convergenza ierisera ho vinto 39 come ambata ,la seguivo da prima con la segnalazione di COCO e ora se non mi sbaglio ci sarebbe una nuova condizione sempre BA ambata 54 ambi:54-39 54-81....
asspettiamo la conferma del padrone di casa e nel frattempo vi auguro una felice domenica

 

[rosce14]

ciao

sei tu che scegli la ruota.

Sei tu che scegli la posizione del numero ripetuto.

Sei tu che scegli quante estrazioni analizzare.

Sei tu che scegli per quanti colpi giocare.


Detto questo

se con le scelte che hai fatto, non trovi
più condizioni di gioco, significa che per quelle scelte
fatte in precedenza non ci sono condizioni.

Quindi devi cambiare parametri.

Su una ruota devi vedere tutte le posizioni prima di cambiare ruota,
e cosi via per le altre ruote.

Se c'è la condizione, verrà mostrata......

Altrimenti si aspetta.....


Buona domenica

scusa baffoblu, ho provato lo script con la ruota di mi - 4° estratto 19 del 17/03/12
e del 20/03/12 laterali in 5° pos. 2 numeri pari, mi sembra rispettata la condizione.
Lo script non lo prende in considerazione.

Dove sbaglio?

 

[Baffoblu]

scusa baffoblu, ho provato lo script con la ruota di mi - 4° estratto 19 del 17/03/12
e del 20/03/12 laterali in 5° pos. 2 numeri pari, mi sembra rispettata la condizione.
Lo script non lo prende in considerazione.

Dove sbaglio?

Avevo messo lo script dicendo :

Intanto divertitevi con questo.....


Quello che dici è vero, ma lo script non prende in considerazione quell'evenienza, perchè mi sono attenuto
a quello che ha detto l'autore, cioè che preferisce i numeri che sono nella posizione precedente......

Quindi se il numero è 4° estratto, va a vedere se c'è la
condizione sulla 3° posizione, come specificato dall'autore.

Per controllare anche quell'altra occorrenza, dovrei fare un'altro script solo per quello.

Ciao

 

[rosce14]

Ok!

Grazie.

 

[aldini]

Vorrei inazitutto ringraziare il sig. baffo x la sua disponibilita' ,poi si il 39 si riaffaccia dinuovo con una nuova previsione sul 60 ripetuto in terza posizione ,ma abbiamo anche firenze con un ottima ambata ,verso il tardi postro le due previsioni