camaleonte

Baffoblu · 16 Maggio 2012

aldini ha scritto:
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

Io per fare gli script mi baso su quello che mi dicono.......

Ripeto che se le regole vengono cambiate ogni giorno lo script rimane sempre lo stesso.....

aldini · 16 Maggio 2012

SCUSAMI BAFFO LESEMPIO CHE HAI EVIDENZIATO DICE CHE SE NOI ABBIAMO UN NUMERO RIPETUTO SU UNA RUOTA IN QUEL CASO
HO PRESO ESEMPIO IL 2--------------------E COME LATERALI IL 10 E IL 29
NON SI PUO' IN QUESTO CASO PERCHE I DUE LATERALI SONO UNO DISPARI E UNO PARI
LAMBO 2-10 SOMMA------------------12 DISTANZA----------------8
LAMBO 2-29 SOMMA------------------31 DISTANZA----------------27
NELLAMBO DI SOMMA 12 NON POSSO INCLUDERE UNA DISTANZA DISPARI PERCHE NON E DIVISIBILE
12+27=39
39:2=18,5 NON VALIDA----------------------------------------------
31+8=39
39:2=18,5
unica regola tassativa che ha questo metodo che i suoi laterali devono essere ho tutti e 2 pari o dispari
non ci sono altre regole

onnea · 16 Maggio 2012

Enplein ha scritto:

...la tua osservazione è giusta, infatti ecco la previsione:

Codice:

[B][SIZE=2]gio 10.05.2012 28.13.46.73.48 Mi 13 [46] Pos. 3^ Somma 59 Dist. 33
sab 12.05.2012 47.13.18.78.33 Mi 13 [18] Pos. 3^ Somma 31 Dist. 05
 [/SIZE][/B][SIZE=2]  32.27 / 32.89
 ------------------------------------------------------------------------ [/SIZE][SIZE=2][SIZE=2]
[/SIZE][/SIZE][B][SIZE=2]sab 12.05.2012 [8532]
[/SIZE][/B][SIZE=2][SIZE=2]G 1: M 32 Mi 1/14 
[/SIZE][/SIZE][SIZE=2]in corso (1° su 14)

[/SIZE][SIZE=2][SIZE=2]G 2: A 32.27 Mi Tu 1/14  
[/SIZE][/SIZE][SIZE=2]in corso (1° su 14)

[/SIZE][SIZE=2][SIZE=2]G 3: A 32.89 Mi Tu 1/14 
[/SIZE][/SIZE][SIZE=2]in corso (1° su 14)

[/SIZE]

Ciao, Enplein

Scusa Enplein, ma forse non ho capito proprio bene bene il metodo perchè a me risulta: Ambata 32 - ambi 32.27 // 32.1

aldini · 16 Maggio 2012

onnea lo sbbalio del tuo conteggio e questo
31+33=64
64:2 =32
31-32=89

non puoi sottrarre al 31 il 32 quando la somma e inferiore devi agiungere il 90
questo succede quando una distanza e superiore alla somma

Baffoblu · 16 Maggio 2012

aldini ha scritto:
onnea lo sbbalio del tuo conteggio e questo
31+33=64
64:2 =32
31-32=89

non puoi sottrarre al 31 il 32 quando la somma e inferiore devi agiungere il 90
questo succede quando una distanza e superiore alla somma

......Non ci sono altre regole.......

è questa non è un altra regola ?

Lo script lo deve sapere come comportarsi in certi casi.

Queste cose le deve dire chi richiede lo script.....

Mica lo scripter se le inventa da solo...

Ripeto io faccio lo script solo secondo istruzioni,
se le istruzioni sono frammentarie o da interpretare ogni volta,
io non posso saperlo.
All'inizio avevate detto che andava bene così......
poi sono uscite altre cose.
Non sto li a vedere se il metodo e buono o meno,
non sta a me deciderlo, e non sta nemmeno allo scripter decidere come eseguire
un certo calcolo....

Adesso se le regole sono finite, metto lo script con le nuove regole,

Attendo.....

aldini · 16 Maggio 2012

forse mi sono espresso male io (credo che sia dovuto che non capisco niente di script) ma la regola tassativa che i laterali dovrebbero essere o tutti e due pari ho tutti e due dispari credo di averla detta dalinizio .MI SCUSO PER ESSERE STATO POCO CHIARO .

Baffoblu · 16 Maggio 2012

La regola dei tutti e due pari o tutti e due dispari,
lo script gia la segue,
io sono stato fuorviato da altre spiegazioni,
che ho dovuto interpretare.....

ripeto, come ho detto nel messaggio precedente,

....non ci sono altre regole.....

ma allora per quello che riguarda questo calcolo ?

"non puoi sottrarre al 31 il 32 quando la somma
e inferiore devi agiungere il 90
questo succede quando una distanza
e superiore alla somma"

Questa è una regola che non sapevo,
e che non era saltata fuori fino adesso.

Potevo benissimo sottrarre il maggiore al minore....

Perchè non è scritto da nessuna parte che il calcolo
va fatto in un modo anzichè in un altro....

I metodi sono degli autori che li inventano,
gli scripter si limitano ad inserire le istruzioni
che ricevono, ma se le informazioni non sono chiare,
neppure lo script lo sarà.....

Spero che sia chiaro che se io non ho istruzioni
precise, nemmeno lo script ne avrà.

Già è un impegno fare uno script, figuriamoci se
nelle istruzioni date, c'è qualche dimenticanza,
Lo scripter non ha la bacchetta magica per interpretarle,
esegue solo istruzioni senza curarsi se siano buone,
perchè l'idea è data dall'autore del metodo, a cui
sta l'onere di spiegare le regole, sopratutto in casi
particolari se ce ne sono......

Comunque, tutto questo può servire in futuro per
chi richiede script :

1°)- Spiegare il metodo in tutti i passaggi,
senza lasciare nulla da interpretare.

2°)- Fare degli esempi reali con tutti i calcoli
senza omettere nulla.

3°)- Spiegare come procedere in casi particolari.

4°)- Offrire una birra allo scripter.....

Baffoblu · 17 Maggio 2012

Adesso dovrebbe essere tutto giusto......

Sperando che non esca fuori qualche altro intoppo.....

Codice:

Sub Main()
    Scrivi " Script per laterali a destra",1
    Scrivi
    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 ? ",,"100"))
    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
                    k1 = a5 / 2
                    k2 = a3 - k1
                    If a3 < k1 Then
                        k2 =(90 + a3) - k1
                    End If
                    k3 = b5 / 2
                    k4 = b3 - k3
                    If b3 < k3 Then
                        k4 =(90 + b3) - k3
                    End If
                    ok = 1
                End If
            End If
            If p = 2 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
                    k1 = a5 / 2
                    k2 = a3 - k1
                    If a3 < k1 Then
                        k2 =(90 + a3) - k1
                    End If
                    k3 = b5 / 2
                    k4 = b3 - k3
                    If b3 < k3 Then
                        k4 =(90 + b3) - k3
                    End If
                    ok = 1
                End If
            End If
            If p = 3 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
                    k1 = a5 / 2
                    k2 = a3 - k1
                    If a3 < k1 Then
                        k2 =(90 + a3) - k1
                    End If
                    k3 = b5 / 2
                    k4 = b3 - k3
                    If b3 < k3 Then
                        k4 =(90 + b3) - k3
                    End If
                    ok = 1
                End If
            End If
            If p = 4 Then
                a2 = Estratto(idEstr - 1,r,5)
                b2 = Estratto(idEstr,r,5)
                p1 = 5
                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
                    k1 = a5 / 2
                    k2 = a3 - k1
                    If a3 < k1 Then
                        k2 =(90 + a3) - k1
                    End If
                    k3 = b5 / 2
                    k4 = b3 - k3
                    If b3 < k3 Then
                        k4 =(90 + b3) - k3
                    End If
                    ok = 1
                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
                    k1 = a5 / 2
                    k2 = a3 - k1
                    If a3 < k1 Then
                        k2 =(90 + a3) - k1
                    End If
                    k3 = b5 / 2
                    k4 = b3 - k3
                    If b3 < k3 Then
                        k4 =(90 + b3) - k3
                    End If
                    ok = 1
                End If
            End If
            If ok = 1 Then
                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

Codice:

Sub Main()
    Scrivi " Script per laterali a sinistra",1
    Scrivi
    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 ? ",,"100"))
    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
                    k1 = a5 / 2
                    k2 = a3 - k1
                    If a3 < k1 Then
                        k2 =(90 + a3) - k1
                    End If
                    k3 = b5 / 2
                    k4 = b3 - k3
                    If b3 < k3 Then
                        k4 =(90 + b3) - k3
                    End If
                    ok = 1
                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
                    k1 = a5 / 2
                    k2 = a3 - k1
                    If a3 < k1 Then
                        k2 =(90 + a3) - k1
                    End If
                    k3 = b5 / 2
                    k4 = b3 - k3
                    If b3 < k3 Then
                        k4 =(90 + b3) - k3
                    End If
                    ok = 1
                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
                    k1 = a5 / 2
                    k2 = a3 - k1
                    If a3 < k1 Then
                        k2 =(90 + a3) - k1
                    End If
                    k3 = b5 / 2
                    k4 = b3 - k3
                    If b3 < k3 Then
                        k4 =(90 + b3) - k3
                    End If
                    ok = 1
                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
                    k1 = a5 / 2
                    k2 = a3 - k1
                    If a3 < k1 Then
                        k2 =(90 + a3) - k1
                    End If
                    k3 = b5 / 2
                    k4 = b3 - k3
                    If b3 < k3 Then
                        k4 =(90 + b3) - k3
                    End If
                    ok = 1
                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
                    k1 = a5 / 2
                    k2 = a3 - k1
                    If a3 < k1 Then
                        k2 =(90 + a3) - k1
                    End If
                    k3 = b5 / 2
                    k4 = b3 - k3
                    If b3 < k3 Then
                        k4 =(90 + b3) - k3
                    End If
                    ok = 1
                End If
            End If
            If ok = 1 Then
                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

sveglia · 17 Maggio 2012

Aldini scusa, se lo stesso numero si presenta in 1^ o 5^ posizione nelle due estrazini, la condizione è da ritenersi valida oppure no? Ciao.

aldini · 17 Maggio 2012

no stessa posizione

sveglia · 18 Maggio 2012

sveglia ha scritto:
Aldini scusa, se lo stesso numero si presenta in 1^ o 5^ posizione nelle due estrazini, la condizione è da ritenersi valida oppure no? Ciao.

Non mi sono spiegato bene.Intendevo dire, se il doppio numero nelle due estrazioni si trova come primo estratto la condizione è valida? Lo stesso dicasi se il numero doppio si trova in quinta posizione. Dico questo, in quanto si avrebbe un solo laterale. Grazie.

Baffoblu · 18 Maggio 2012

sveglia ha scritto:
Non mi sono spiegato bene.Intendevo dire, se il doppio numero nelle due estrazioni si trova come primo estratto la condizione è valida? Lo stesso dicasi se il numero doppio si trova in quinta posizione. Dico questo, in quanto si avrebbe un solo laterale. Grazie.

L'esatta risposta al tuo quesito, l'autore la già data a me,

la trovi nei messaggi precedenti......

onnea · 21 Maggio 2012

Buona settimana a tutti,
Su Torino esce l'ambo 27-89 si continua?
Esce nuova condizione con il 5 .... la mettiamo in gioco?

onnea · 21 Maggio 2012

ahi ahi ahi... secondo i miei calcoli dovevamo giocare ambata 28 - ambi 28-86 // 28-14
Uscita già l'ambata 28 ..... si continua oppure la si ritiene chiusa???????

aldini · 21 Maggio 2012

Scusami non seguivo il camaleonte ma ero alle prese con un metodo sommativo mi dici da dove escono sti calcoli

onnea · 21 Maggio 2012

oppppsssss! non mi dire che è nuovamente sbagliato!!!!! Pensavo che così fosse giusto!
ho preso in considerazione l'uscita del 5 il 12/05 e il 17/05
19 5 = 24 dist 14 = 56 / 2 = 28 24-28= 4 ( quindi 86 )
37 5 = 42 dist 32 = 56 / 2 = 28 42-28 = 14

Mi dici dove ho nuovamente interpretato male?

aldini · 21 Maggio 2012

onnea secondo il mio parere 27 89 uscito ambo preso adesso esce l'ambata al 1° colpo il 28 presa anche lambata ma dobbiamo anche dare uno sguardo ai nimeri sortiti a cagliari esce 14 27 85 secondo me mordi e fuggi chiudi tutto attendiamo un paio di colpi a bari con il 54 domani mattina vedro' meglio la situazione numerica . un saluto a tutti

onnea · 21 Maggio 2012

scusa aldini, ma faccio un pò fatica a seguirti.... in poche parole i calcoli che ho fatto sono corretti o no?
Dalla tua risposta capisco che quindi ritieni chiusa sia la previsione con il 27-32-89 che quella 86-14-28
è corretto?
In ultimo ti chiedo da dove salta fuori il 54 a bari? A che previsione si riferisce?

camaleonte

Baffoblu

Guest

Senior Member

Super member

Senior Member

Baffoblu

Guest

Senior Member

Baffoblu

Guest

Baffoblu

Guest

Member

Senior Member

Member

Baffoblu

Guest

Super member

Super member

Senior Member

Super member

Senior Member

Super member