vi sottopongo un mio metodo

[vincenzo1957]

DOUBLE PROGRESSION 1 – V.PURPURA
Bisogna rintracciare su una ruota un ambo, e su un’altra ruota, la sua differenza matematica,isotopa a uno dei 2 elementi del 1° ambo,presente una sola volta nel sorteggio totale.
ES. del 31/05/2000 N° 44
NAPOLI 19 85 (1° - 2°) DIFF 66
VENEZIA 66 (1° )
Adesso al N° minore (19) si sottrae la distanza matematica:
19 – 66 = -47 (+90) = 43 1° NUMERO UTILE
Ed al N° maggiore (85) si somma
85 + 66 = 61 2° NUMERO UTILE
Quindi si fa ancora una progressione ottenendo i 2 CG
43 – 66 = -23 (+90) = 67 1° CG
61 + 66 = 37 2° CG
Previsione: NAPOLI/VENEZIA/TUTTE
Ambi: 67-43 67-61 37-43 37-61
Esito: 3°colpo 37-43 su TORINO (TUTTE)
NOTE:
I due CG devono essere della stessa cadenza.Il gioco si effettua x Max 8 estrazioni.Controllare esiti di sfaldamento anticipato nelle 8 estrazioni precedenti.

vorrei testare questo metodo, chi si vuole cimentare a fare questo script?
P.S.
sono metodi adattati da me di altri autori (questo per esempio è ricavato sui fattori correttivi di G.PELLEGRINO con accenni sulle idee di P. ROBBE & M.PALUMBO tutti eccellentisimi lottologi) per vedere che risultati ottengo.
grazie dell'attenzione.

 

[salvo50]

Ciao Vincenzo!

Vedi se può andare

 'PROGETTO - DOUBLE PROGRESSION 1 – V.PURPURA
'SCRIPT BY SALVO50
Option Explicit
Sub Main
    Dim fin,esq,clp,col,esqcol,es,idestr
    Dim posta(2),ruote(3)
    Dim r1,r2,p1,p2,caso,casi,d1,s1,cg1,cg2
    Dim estra,estrb,estrc,estrd,diff
    Dim amb1(2),amb2(2),amb3(2),amb4(2)
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,6924)'6920 estrazione dell'esempio
    clp = InputBox("Per quanti colpi vuoi giocare l'ambo a Ruota?",,8)
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,8))
    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
                p2 = p1 + 1
                estra = Estratto(es,r1,p1)
                estrb = Estratto(es,r1,p2)
                diff = Differenza(estra,estrb)
                For r2 = r1 + 1 To 11
                    If r2 = 11 Then r2 = 12
                    estrc = Estratto(es,r2,p1)
                    estrd = Estratto(es,r2,p2)
                    If estrc = diff Or estrd = diff Then
                        If estra < estrb Then
                            d1 = Fuori90(90 +(estra - diff))
                            s1 = Fuori90(estrb + diff)
                        Else
                            d1 = Fuori90(90 +(estrb - diff))
                            s1 = Fuori90(estra + diff)
                        End If
                        cg1 = Fuori90(90 +(d1 - diff))
                        cg2 = Fuori90(s1 + diff)
                        If Cadenza(cg1) = Cadenza(cg2) Then
                            casi = casi + 1
                            caso = caso + 1
                            ColoreTesto 1
                            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(casi,"0000")
                            Scrivi String(80,"*") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
                            ColoreTesto 0
                            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 " Consecutivi  " & Space(3) & " Differenza "
                            Scrivi "   " & Format2(estra) & Space(1) & Format2(estrb) & "" & Space(14) & Format2(diff)
                            Scrivi
                            ruote(1) = r1
                            ruote(2) = r2
                            ruote(3) = TU_
                            amb1(1) = cg1
                            amb1(2) = d1
                            ImpostaGiocata 1,amb1,ruote,posta,clp
                            amb2(1) = cg1
                            amb2(2) = s1
                            ImpostaGiocata 2,amb2,ruote,posta,clp
                            amb3(1) = cg2
                            amb3(2) = d1
                            ImpostaGiocata 3,amb3,ruote,posta,clp
                            amb4(1) = cg2
                            amb4(2) = s1
                            ImpostaGiocata 4,amb4,ruote,posta,clp
                            Gioca es
                        End If
                    End If
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub