altro metodo alla vostra attenzione

[vincenzo1957]

continuando il tema del post precedente si sottopongo un altro metodo

DOUBLE PROGRESSION 2 – V.PURPURA
Bisogna rintracciare 2 ambi isotopi su 2 ruote di stessa somma,adesso bisogna ricavare le 2 somme verticali e le 2 differenze orizzontali.
ES. del 28/06/2000 N° 52
BARI 78 51
SOMMA 39
VENEZIA 58 71
Adesso ricaviamo le somme verticali:
78 + 58 = 46
SOMME VERTICALI
51 + 71 = 32
( Differenza tra 46 & 32 = 14 )
E le differenze orizzontali:
78 – 51 = 27
DIFFERENZE ORIZZONTALI
58 – 71 = 13
( Differenza tra 27 & 13 = 14 )
Ora facciamo una doppia progressione:
prima sulle somme verticali.
74 <-- (+14) 60 <-- (+14) 46 <-- (14) --> 32 (-14) --> 18 (-14) --> 04
Abbiamo ottenuto i primi 2 numeri utili 74 – 04
Poi sulle differenze orizzontali.
55 <-- (+14) 27 <-- (+14) 27 <-- (14) --> 13 (-14) --> 89 (-14) --> 75
Abbiamo ottenuto i secondi numeri utili 55 – 75
Previsione: BARI / VENEZIA
AMBI 74 – 55 74 – 75 04 – 55 04 – 75
+ ambo a TUTTE 46 – 32 (le 2 somme verticali)
ESITO:
2° colpo ambo 46 - 32 su CAGLIARI
3° colpo ambo 04 – 55 su BARI
NOTE:
il gioco si effetua x Max 8 estrazioni,l’ambo a tutte va giocato x Max 12 estrazioni.
Le somma uguali dei 2 ambi devono essere o AMBEDUE MAGGIORI DI 90 O MINORI DI 90.
Non sono validi ambi tipo 14 - 25 = 39 & 47 - 82 = 129 = 39
Ulteriori 2 ambi si possono ottenere abbinando alla somma comune, le somme ottenute dalla somma comune con le differenze orizzontali,quindi:
39 + 27 = 66 1° numero
39 + 13 = 52 2° numero
Ambi ottenuti 39 - 66 39 – 52 Da giocare anche a tutte.
ESITO:
1° colpo ambo 39-52 su BARI
NOTE 2:
controllare sempre sfaldamenti anticipati nelle 8 estrazioni precedenti soprattutto il numero somma comune sulle 2 ruote di rilevamento,in tal caso evitare di giocare i 2 ambi ottenuti.

Come vedete dalle date degli esempi non sono metodi recenti,quindi vorrei vedere attualmente che resa possano avere.
sempre per gli scripters a voi l'ardua sentenza
grazie sempre per l'attenzione.
P.S.
per i moderarori, spero che la sezione sia giusta

 

[salvo50]

Ciao a Tutti!

Avevo un po' da fare, adesso ci provo.

 

[salvo50]

Penso d'aver fatto tutto, meno il controllo degli sfaldamenti nelle 8 estrazioni precedenti, perchè non sò come si fa.

 'PROGETTO - DOUBLE PROGRESSION 2 – V.PURPURA
'SCRIPT BY SALVO50
Option Explicit
Sub Main
    Dim fin,esq,clp1,clp2,col,esqcol,es,idestr
    Dim posta(2),ruota(1),ruote(2),ruot(3)
    Dim r1,r2,p1,p2,caso,casi,s1,s2,s3,s4,s5,s6
    Dim estra,estrb,estrc,estrd,diff1,diff2,diff3,diff4,ddiff
    Dim prev1,prev2,prev3,prev4,s11,s12,s13,s14,s15,s16,s17
    Dim amb1(2),amb2(2),amb3(2),amb4(2),amb5(2),amb6(2),amb7(2)
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,6928) '6928 estrazione dell'esempio
    clp1 = InputBox("Per quanti colpi vuoi giocare l'ambo a Ruota?",,8)
    clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo a Tutte ?",,12)
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,2))
    posta(2) = 1
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        Messaggio es
        AvanzamentoElab esq,esqcol,es
        caso = 0
        For r1 = 1 To 10
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    estra = Estratto(es,r1,p1)
                    estrb = Estratto(es,r1,p2)
                    For r2 = r1 + 1 To 11
                        If r2 = 11 Then r2 = 12
                        estrc = Estratto(es,r2,p1)
                        estrd = Estratto(es,r2,p2)
                        s1 = estra + estrb
                        s2 = estrc + estrd
                        If s1 = s2 And s1 <> 90 Then
                            s1 = Fuori90(s1)
                            s2 = Fuori90(s2)
                            s3 = Fuori90(estra + estrc)
                            s4 = Fuori90(estrb + estrd)
                            diff1 = Differenza(s3,s4)
                            diff2 = Differenza(estra,estrb)
                            diff3 = Differenza(estrc,estrd)
                            diff4 = Differenza(diff2,diff3)
                            s5 = Fuori90(s1 + diff2)
                            s6 = Fuori90(s2 + diff3)
                            ddiff = Fuori90(diff4 * 2)
                            prev1 = Fuori90(s3 + ddiff)
                            prev2 = Fuori90(90 +(s4 - ddiff))
                            prev3 = Fuori90(diff2 + ddiff)
                            prev4 = Fuori90(90 +(diff3 - ddiff))
                            s11 = Fuori90(prev1 + prev3) : s12 = Fuori90(prev1 + prev4) : s13 = Fuori90(prev2 + prev3)
                            s14 = Fuori90(prev2 + prev4) : s15 = Fuori90(s3 + s4) : s16 = Fuori90(s1 + s5) : s17 = Fuori90(s2 + s6)
                            Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                            Scrivi" " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                            Scrivi Space(19) & " Seconda Ruota " & SiglaRuota(r2) & " " & StringaEstratti(es,r2)
                            Scrivi
                            Scrivi " Ambi isot." & Space(3) & " Somme or. " & Space(3) & " Somme ver." & Space(3) & " Diff or."
                            Scrivi "  " & Format2(estra) & Space(1) & Format2(estrb) & Space(11) & Format2(s1) & Space(13),0,0
                            Scrivi Format2(s3) & Space(11) & Format2(diff2)
                            Scrivi "  " & Format2(estrc) & Space(1) & Format2(estrd) & Space(11) & Format2(s2) & Space(13),0,0
                            Scrivi Format2(s4) & Space(11) & Format2(diff3)
                            Scrivi
                            ruot(1) = r1
                            ruot(2) = r2
                            ruot(3) = TU_
                            ruota(1) = TU_
                            ruote(1) = r1
                            ruote(2) = r2
                            amb1(1) = prev1
                            amb1(2) = prev3
                            If s11 <> s1 Then ImpostaGiocata 1,amb1,ruote,posta,clp1
                            amb2(1) = prev1
                            amb2(2) = prev4
                            If s12 <> s1 Then ImpostaGiocata 2,amb2,ruote,posta,clp1
                            amb3(1) = prev2
                            amb3(2) = prev3
                            If s13 <> s1 Then ImpostaGiocata 3,amb3,ruote,posta,clp1
                            amb4(1) = prev2
                            amb4(2) = prev4
                            If s14 <> s1 Then ImpostaGiocata 4,amb4,ruote,posta,clp1
                            amb5(1) = s3
                            amb5(2) = s4
                            If s15 <> s1 Then ImpostaGiocata 5,amb5,ruota,posta,clp2
                            amb6(1) = s1
                            amb6(2) = s5
                            If s16 <> s1 Then ImpostaGiocata 6,amb6,ruot,posta,clp2
                            amb7(1) = s2
                            amb7(2) = s6
                            If s17 <> s1 Then ImpostaGiocata 7,amb7,ruot,posta,clp2
                            Gioca es
                        End If
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub

 

[vincenzo1957]

per salvo50
scusa se rispondo adesso ma sono con la testa nel pallone (motivi personali)

ottimo! ed anche la resa non è male,
peccato per la mancanza di controlli retroattivi sarebbe stato il max!!!!!