Aiuto script sul metodo originale del Byron, Per chiunque voglia aiutarmi

Buonasera a tutti, avrei bisogno di un listato che mi aiuti a velocizzare i calcoli e le previsioni che ne derivano x il vero metodo del Byron. ...sicuramente molte saranno le condizioni senza l'equazione a 90...ma a me stà bene cosi, è solo x studiare a fondo il comportamento di questa Matrice grazie.

QUESTO E' L'RTICOLO CHE HO TROVATO IN RETE
L'operazione fu trovata in una biblioteca di Londra scritta all'interno della copertura di un codice di Commercio dove il Bibliotecario la rese pubblica facendola copiare ad alcuni suoi amici. L'esempio proposto dal Byron, sicura ed infallibile a detta dello stesso autore, fu fatto sulle due estrazioni sorteggiate in Napoli nel Gennaio del 1802, e noi lo riporteremo fedelmente spiegandolo in tutte le sue parti, giacchè sia l'operazione trovata, che quella venuta tra le nostre mani, risulta priva di ogni chiara e completa spiegazione. Le due estrazioni furono le seguenti: Napoli 14 Gennaio 1802: 76.28.65.77.33 - Napoli 30 Gennaio 1802: 41.60.61.59.63. Disponiamo quindi gli estratti nel modo che andremo a spiegare:
TABELLONE GENERALE
Col. Vert. a b c d e f g
76 28 65 77 33 41 60 h
28 65 77 33 41 60 61 i
65 77 33 41 60 61 59 l
77 33 41 60 61 59 63 m
33 41 60 61 59 63 n
99 64 96 92 74 14 o ... Col. Orizz.

in realta' la tabella stata sviluppata nel modo seguente: la colonna verticale "a" formata dalla prima estrazione in esame ossia del 14 Gennaio 1802. Eliminato il primo estratto 76, nella colonna verticale "b" scriviamo i rimanenti 4, ossia 28.65.77.33 e chiudiamo con il primo estratto della seconda estrazione in esame (Napoli 30 Gennaio 1802), quindi il numero 41. Nella successiva colonna verticale "c", eliminato il primo numero della colonna "b" il 28, cominciamo a scrivere quindi 65.77.33.41 ed infine il 60 (secondo estratto della seconda estrazione esaminata), si proceder quindi nel modo descritto fino alla conclusione della tabella su scritta.
Credo che tutti voi abbiate potuto constatare che la colonna verticale "g", anch'essa costituita come le precedenti, abbia un elemento in meno rispetto alle altre, ma in seguito capiremo come ricavarlo. Completare in tal modo le sette colonne, cominceremo le operazioni sommando gli elementi delle stesse a, b, c, d, e, f (col fuori 90: se il risultato compreso tra 1 e 9 aggiungiamo 90), naturalmente non calcoleremo la colonna verticale "g" che manca di un elemento.
Colonna "a" 76+28+65+77+33 = 279 (col fuori 90)
-> 9 (aggiungendo quindi il 90) = 99
Colonna "b" 28+65+77+33+41 = 244 (col fuori 90) -> 64
Colonna "c" 65+77+33+41+60 = 96
Colonna "d" 77+33+41+60+61 = 92
Colonna "e" 33+41+60+61+59 = 74
Colonna "f" 41+60+61+59+63 = 14
Terminate in tal modo le somme, bisognerà calcolare le differenze che
intercorrono tra i sette numeri della prima colonna (questa volta orizzontale "h"): riscriviamola: 76 28 65 77 33 41 60 (colonna orizzontale "h") - tra il 76 ed il 28 intercorre una differenza di 48 -> 76-28 = 48; - tra il 28 ed il 65 intercorre una differenza di 53 -> 28-65 - (28+90) - 65 = 53 (abbiamo aggiunto 90 al numero 28, in quanto il 28 pi piccolo del 65); - tra il 65 ed il 77 intercorre una differenza di 78; - tra il 77 ed il 33 intercorre una differenza di 44; - tra il 33 ed il 41 intercorre una differenza di 82; - tra il 41 ed il 60 intercorre una differenza di 71.
Ecco cos terminata la linea superiore delle differenze: 48.53.78.44.82.71.
Adesso con lo stesso procedimento dobbiamo trarre le differenze dalla colonna orizzontale "o": 99.64.96.92.74.14 , di conseguenza abbiamo come differenze: 35.58.94.18.60.

L'ultima colonna naturalmente non può differenziarsi perchè manca il numero che deve completarla. Ci che segue dimostrerà quale deve essere il numero che l dovrà piazzarsi.
Sommiamo indi le differenze superiori con quelle inferiori:
48 + 53 + 78 + 44 + 82 + 71 + 35 + 58 + 94 + 10 + 60 = 641
641 -> col fuori 90 = 11
Fatto ci si prenderanno i sei numeri di somma, prodotti dalle sei colonne verticali a, b, c, d, e, f quali si sommeranno a loro volta: 99 + 64 + 96 + 92 + 74 + 14 = 439 -> col fuori 90 = 79.
Le due somme ricavate saranno a loro volta sommate, e se il risultato sara' uguale a 90 l'equazione risulterà perfetta:
11 + 79 = 90 EQUAZIONE PERFETTA
Verificatasi cosi' l'equazione, non si dovrà fare altro che prendere il primo estratto della seconda estrazione esaminata (30 Gennaio 1802) e cioe' il 41 il quale sommato all'11 dar il primo futuro estratto: 11+41 = 52 (PRIMO FUTURO ESTRATTO).
Bene amici utenti sara' proprio il numero 52 che andra' a completare il nostro Tabellone generale nella sua parte mancante, e proprio all'estrazione successiva sortì come primo estratto.

Ciao Cinzia27, grazie 1000 ...non sono molto pratica , speriamo vada bene cosi:

TABELLONE GENERALE

Col. Vert. a b c d e f g

76 28 65 77 33 41 60 h
28 65 77 33 41 60 61 i
65 77 33 41 60 61 59 l
77 33 41 60 61 59 63 m
33 41 60 61 59 63 n
99 64 96 92 74 14 o … Col. Orizz.

Aspetta ti metto un esempio di previsione con tanto di schema:

====================================================================== Caso n°188
28.08.2018 Ba 57.80.47.77.45
30.08.2018 Ba 18.36.09.71.13
SCHEMA
67 33 60 32 27 72 <-- Diff.
--------------------------------------------------------------------------
57 80 47 77 45 18 36
80 47 77 45 18 36 09
47 77 45 18 36 09 24
77 45 18 36 09 24 36
45 18 36 09 24 36 (42)
--------------------------------------------------------------------------
36 87 43 05 42 33 (57) <-- Som.Col.

39 44 38 53 09 (66) <-- Diff.Somme

Ciao Cinzia27 , non gira su L8 ....io ho la vecchia versione l8+6.1, m iesce questo:

8012 Ba 120
8080 Ba 57
8124 Ba 93
8189 Ba 73
8225 Ba 56
8344 Ba 47
8555 Ba 51
8645 Ba 73
8673 Ba 71
8991 Ba 91
9301 Ba 99
9341 Ba 129


Notte e grazie sempre

Ciao Cinzia27, forse faccio prima a postarti un listato del byron secondo il Nicola Russo....esso và indietro di tot estrazioni x ricercare tutte e tre le equazion ia 90.
Come ti dicevo a me interessa lo script pulito originale che fà la ricerca solo per l'estrazione corrente senza andare indietro..non m iinteressano le condizion idi 3 equazioni a 90 , spero di essere stata chiara ...ma gari ti basat fare una modifica a questo cosa che io non sò fare

Buon pomeriggio!

Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11:If r1=11 Then r1=12
a1=Estratto(es,r1,1):a2=Estratto(es,r1,2):a3=Estratto(es,r1,3):a4=Estratto(es,r1,4):a5=Estratto(es,r1,5)
For r3=1 To 200
xs=es-r3
b1=Estratto(xs,r1,1):b2=Estratto(xs,r1,2):b3=Estratto(xs,r1,3):b4=Estratto(xs,r1,4):b5=Estratto(xs,r1,5)
k1=Fuori90(a1+a2+a3+a4+a5)
If k1<10 Then k1=k1+90
If k1=90 Then k1=99
k2=Fuori90(a2+a3+a4+a5+b1)
If k2<10 Then k2=k2+90
If k2=90 Then k2=99
k3=Fuori90(a3+a4+a5+b1+b2)
If k3<10 Then k3=k3+90
If k3=90 Then k3=99
k4=Fuori90(a4+a5+b1+b2+b3)
If k4<10 Then k4=k4+90
If k4=90 Then k4=99
k5=Fuori90(a5+b1+b2+b3+b4)
If k5<10 Then k5=k5+90
If k5=90 Then k5=99
k6=Fuori90(b1+b2+b3+b4+b5)
If k6<10 Then k6=k6+90
If k6=90 Then k6=99
j1=Fuori90((90+a1)-a2):j2=Fuori90((90+a2)-a3):j3=Fuori90((90+a3)-a4):j4=Fuori90((90+a4)-a5)
j5=Fuori90((90+a5)-b1):j6=Fuori90((90+b1)-b2)
w1=Fuori90((90+k1)-k2):w2=Fuori90((90+k2)-k3):w3=Fuori90((90+k3)-k4):w4=Fuori90((90+k4)-k5)
w5=Fuori90((90+k5)-k6)
k7=Fuori90(j1+j2+j3+j4+j5+j6+w1+w2+w3+w4+w5)
y1=Fuori90(k1+k2+k3+k4+k5+k6)
y2=Fuori90(y1+k7)' 1° Equazione a 90
If y2=90 Then
y3=Fuori90(k7+b1)
k8=Fuori90(b2+b3+b4+b5+y3)
If k8=90 Then k8=99
If k8<10 Then k8=k8+90
k9=Fuori90((90+k6)-k8)
vv=Minimo(a1,b2):cc=Massimo(a1,b1)
v1=Fuori90((90+vv)-cc)
c1=Minimo(k1,k6):c2=Massimo(k1,k6)
c3=Fuori90((90+c1)-c2)
c4=Fuori90(v1+c3)
c5=Fuori90(c4+k7)
If c5=90 Then
x1=Fuori90(a1+k8)
x2=Fuori90(x1+k7)
x3=Fuori90(x2+y1)
If x3=90 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&"."
Scrivi DataEstrazione(xs,1)&" < "&siglARuota(r1)& " "& StringaEstratti(xs,r1)&"."
Scrivi String(65,"-")
Scrivi " a b c d e f g"
Scrivi " "&Format2(a1)&"."&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&_
"."&Format2(b2)&". H"
Scrivi " "&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&_
"."&Format2(b3)&". I"
Scrivi " "&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&_
"."&Format2(b4)&". L"
Scrivi " "&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&_
"."&Format2(b5)&". M"
Scrivi " "&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&"."_
&Format2(b5)&".("&Format2(y3)&"). N"
Scrivi String(20,"-")&" somme delle colonne a b c d e f g "
Scrivi " "&Format2(k1)&"."&Format2(k2)&"."&Format2(k3)&"."&Format2(k4)&"."&Format2(k5)&"."&Format2(k6)&"."&Format2(k8)&"."
Scrivi String(20,"-")&" Differenze Colonna H"
Scrivi " "&Format2(j1)&"."&Format2(j2)&"."&Format2(j3)&"."&Format2(j4)&"."&Format2(j5)&"."&Format2(j6)
Scrivi String(20,"-")&" Differenze Colonna O"
Scrivi " "&Format2(w1)&"."&Format2(w2)&"."&Format2(w3)&"."&Format2(w4)&"."&Format2(w5)&"."&Format2(k9)&"."
Scrivi String(20,"-")&" Somma delle Differenze "&Format2(k7)&" . "
Scrivi String(20,"-")&" 1° Equazione a 90 >"&Format2(k7)&" + "&Format2(y1)&" = "&Format2(y2)&" ."
Scrivi String(20,"-")&" 2° Equazione a 90 >"&Format2(k7)&" + "&Format2(c4)&" = "&Format2(c5)&" ."
Scrivi String(20,"-")&" 3° Equazione a 90 >"&Format2(x2)&" + "&Format2(y1)&" = "&Format2(x3)&" ."
ColoreTesto 2
Scrivi" Previsione Trovata Indietro "&Format2(r3)&" Estrazioni"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruota(1)=11:k=13:co=0:ruote(2)=r2::ruote(3)=12
c1=Fuori90(k8+k6)
c2=90-c1
nu2(1)=y3
nu2(2)=c2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu1(1)=y3
nu1(2)=c2
nu1(3)=c1
nu1(4)=90
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
End If
End If
Next
Next
Next
ScriviResoconto
End Sub