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

Cinzia27

Posted on 9/9/2018, 13:18

Ciao, Luana.
Ecco lo script senza condizione 90.
Non ho dovuto modificare nulla, ma solo aggiungere
apici per disattivare la condizione 90.
Attendo un tuo commento sui risultati di entrambe le versioni.

SPOILER (clicca per visualizzare)

Sub main()
'Metodo Byron proposto da Luana
'Script di Cinzia
Dim n(1),ru(1),estr(7),estr1(7),estr2(7),estr3(7),estr4(7),ps(1)
ps(1)=1
For r=1 To 11
If r=11 Then r=12
ru(1)=r
For es=1 To EstrazioneFin-1
If Estratto(es,r,1)>0 Then
e1=Estratto(es,r,1):e2=Estratto(es,r,2):e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2)
e2=Estratto(es,r,2):e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3)
e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4)
e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4):ee5=Estratto(es+1,r,5)
e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4):ee5=Estratto(es+1,r,5)

estr(1)=e1:estr(2)=e2:estr(3)=e3:estr(4)=e4:estr(5)=e5:estr(6)=ee1:estr(7)=ee2

estr1(1)=e2:estr1(2)=e3:estr1(3)=e4:estr1(4)=e5:estr1(5)=ee1:estr1(6)=ee2:estr1(7)=ee3

estr2(1)=e3:estr2(2)=e4:estr2(3)=e5:estr2(4)=ee1:estr2(5)=ee2:estr2(6)=ee3:estr2(7)=ee4

estr3(1)=e4:estr3(2)=e5:estr3(3)=ee1:estr3(4)=ee2:estr3(5)=ee3:estr3(6)=ee4:estr3(7)=ee5

estr4(1)=e5:estr4(2)=ee1:estr4(3)=ee2:estr4(4)=ee3:estr4(5)=ee4:estr4(6)=ee5

sv1=Fuori90(e1+e2+e3+e4+e5)
If sv1<10 Then sv1=sv1+90

sv2=Fuori90(e2+e3+e4+e5+ee1)
If sv2<10 Then sv2=sv2+90

sv3=Fuori90(e3+e4+e5+ee1+ee2)
If sv3<10 Then sv3=sv3+90

sv4=Fuori90(e4+e5+ee1+ee2+ee3)
If sv4<10 Then sv4=sv4+90

sv5=Fuori90(e5+ee1+ee2+ee3+ee4)
If sv5<10 Then sv5=sv5+90

sv6=Fuori90(ee1+ee2+ee3+ee4+ee5)
If sv6<10 Then sv6=sv6+90

d1=Abs(e1-e2):d2=Abs(e2-e3):d3=Abs(e3-e4):d4=Abs(e4-e5):d5=Abs(e5-ee1):d6=Abs(ee1-ee2)

dd1=Abs(sv1-sv2):dd2=Abs(sv2-sv3):dd3=Abs(sv3-sv4):dd4=Abs(sv4-sv5):dd5=Abs(sv5-sv6)

sd=Fuori90(d1+d2+d3+d4+d5+d6)
sd1=Fuori90(dd1+dd2+dd3+dd4+dd5)

ssdd=Fuori90(sd+sd1)
ssvv=Fuori90(sv1+sv2+sv3+sv4+sv5+sv6)

x=Fuori90(ssdd+ssvv)
'If x=90 Then
casi=casi+1
Scrivi
Scrivi "Caso "&casi&" "& String(40,"="),1
Scrivi " Riga h=differenze numeri 1° riga"
Scrivi " Riga o=differenze somme colonne "
Scrivi
Scrivi " "&siglaruota(r)
Scrivi " "&FormatSpace(es,4,1)&" "&StringaEstratti(es,r)
Scrivi " "&FormatSpace(es+1,4,1)&" "&StringaEstratti(es+1,r)
Scrivi

Scrivi " a b c d e f g h"
Scrivi " "&StringaNumeri(estr)&" "&d1&" "&d2&" "&d3&" "&d4&" "&d5&" "&d6
Scrivi " "&StringaNumeri(estr1)
Scrivi " "&StringaNumeri(estr2)
Scrivi " "&StringaNumeri(estr3)
Scrivi " "&StringaNumeri(estr4)&" o"
Scrivi " "&sv1&" "&sv2&" "&sv3&" "&sv4&" "&sv5&" "&sv6&" "&dd1&" "&dd2&" "&dd3&" "&dd4&" "&dd5
Scrivi
Scrivi "somma differenze riga superiore "&sd
Scrivi "somma differenze riga inferiore "&sd1
Scrivi "somma differenze righe superiore + inferiore "&ssdd
Scrivi "somma delle somme delle colonne "&ssvv

'ColoreTesto 2
'Scrivi "Si è realizzata l' equazione perfetta - il 1° futuro estratto è "&ee1&" ( 1° Estratto 2 estrazione ) + "&ssdd&" (somma differenze ) = ",0,0

n(1)=Fuori90(ee1 + ssdd)

Scrivi Format2(n(1)),1
ImpostaGiocata 1,n,ru,ps,150,1
Gioca es
'ColoreTesto 0
End If
'End If
Next
Next
ScriviResoconto
End Sub

Luana62

Posted on 10/9/2018, 09:49

Supporter

Group:: Member

Posts:: 35

Status:

Ciao Cinzia27, appena inizio l'avvio dello script mi appare la finestrina che dice :lo script che stai eseguendo richiede più tempo del......interrompi o prosegui.

Non sò se cliccare continua sempre oppure attendere fino alla completa esecuzione non sapendo neanche il tempo che occorrà

Io uso l8+ 6.1

Buon inizio settimana

Cinzia27

Posted on 10/9/2018, 19:41

Ciao, Luana.
Il tempo di esecuzione dello script è un' incognita anche per me.
Sentiamo se vi sono pareri o suggerimenti.

Luana62

Posted on 15/9/2018, 13:52

Supporter

Group:: Member

Posts:: 35

Status:

Ciao Cinzia27, io ho risolto cosi x velocizzare i calcoli....a me sembra a posto, puoi controllarmi anche tu visto che sei l'esperta in script?

For r=1 To 11
fin=EstrazioneFin
ini=fin-100
For es=ini To fin

Ci sarebbe un secondo numero da calcolare come seconda ambata e da accoppiare al prim ox tentare l'ambo secco, ti aggiorno spero entro sera.

Buon wekeend

Cinzia27

Posted on 15/9/2018, 16:42

Ciao, Luana.
Se restringi la ricerca alle ultime 100 estrazioni si velocizza certamente
e va bene se ti interessa conoscere solo l' ultimo periodo e se vi sono dei casi attuali.
Ovviamente se vuoi conoscere come si sono comportati in passato occorre andare indietro:
ini=fin-200 ini=fin-300 ecc.
se metti
ini=1 vuol dire che parti dalla 1° in archivio

ini è una variabile

fin=EstrazioneFin
ini=fin-100
For es=ini To fin

equivale a
For es=EstrazioneFin-100 To EstrazioneFin

Vediamo ora a tua modifica

For r=1 To 11 qui deve aggiungere alla riga sottostante
if r=11 then r=12
che significa quando arrivi alla ruota 11 che è tutte e non mi interessa vai alla ruota 12 che la nazionale

fin=EstrazioneFin qui va bene
ini=fin-100
For es=ini To fin

Abbiamo tolto la condizione 90 e ciò allunga di molto i tempi di elaborazione . A me la condizione 90 piace, ma accolgo
l' alternativa.

Attendo nuove con tutta tranquillità sul 2° numero.

Ciao
Cinzia

Luana62

Posted on 20/9/2018, 22:04

Supporter

Group:: Member

Posts:: 35

Status:

Buonasera Cinzia27, mi ha riferito una mia amica studiosa del Byron che al fine di trovare più condizioni andrebbero bene anche tutte le altre 3 equazioni uguali da 18 a 90 .
Sarebbe interessante una modfica al listato che và a cercare quelle 3 equazioni uguali x avere un buon pronostico tipo 3 equazioni trovate a 79 ...o a 78 ... o a 77 .

Per calcolare invece la seconda ambata :

Esempio inviatomi dalla mia amica:

===========================================================================
sab 03.06.2017 < Ca 53.06.50.84.51.
sab 03.06.2017 < Ro 56.16.62.83.33.
-----------------------------------------------------------------
a b c d e f g
53.06.50.84.00.56.16. H
06.50.84.00.56.16.62. I
50.84.00.56.16.62.83. L
84.00.56.16.62.83.33. M
00.56.16.62.83.33.(36). N
-------------------- somme delle colonne a b c d e f
13.16.26.38.37.70 (5O)

<b>Seconda ambata=6°+7°somma = 70+50 = 30 a 90 = 60 seconda ambata

previsione 36.30.60 Ca -Ro tutte 13/13

36-30 anche come 1°/5° estratto determinato

ILMatematico

Posted on 22/9/2018, 12:39

Esperto in metodi di matematica sommativa e cabalistici

Group:: Member

Posts:: 403

Status:

Un saluto a tutti, per luana62 e Cinzia27....se può interessante io ho questo script realizzato da drago2940 .
Il listato che chiede Luana62 con equazioni diverse uguali purtroppo io non ne capisco niente di programmazione e passo la palla alla bravissima Cinzia27

Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10: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 r2=r1+1 To 11:If r2=11 Then r2=12
b1=Estratto(es,r2,1):b2=Estratto(es,r2,2):b3=Estratto(es,r2,3):b4=Estratto(es,r2,4):b5=Estratto(es,r2,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)
If y2=90 Then
y3=Fuori90(k7+b1)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&"."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&"."
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 "
Scrivi " "&Format2(k1)&"."&Format2(k2)&"."&Format2(k3)&"."&Format2(k4)&"."&Format2(k5)&"."&Format2(k6)&" O"
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)&"."
Scrivi String(20,"-")&" Somma delle Differenze "&Format2(k7)&" ."
Scrivi String(20,"-")&" 1° Equazione a 90 >"&Format2(k7)&" Somma Differenze + Colonna < O > "&Format2(y1)&_
" = "&Format2(y2)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruota(1)=11:k=13:co=0:ruote(2)=r2::ruote(3)=12
nu2(1)=y3
nu2(2)=k7
nu2(3)=y1
nu2(4)=90
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub

Edited by daniel112 - 22/9/2018, 16:16

Contacts

Cinzia27

Posted on 22/9/2018, 20:58

Ciao, Daniel, grazie per lo script.
attendiamo l' intervento di Luana.

Cinzia

Luana62

Posted on 23/9/2018, 10:55

Supporter

Group:: Member

Posts:: 35

Status:

Una buona domenica a tutti , in particolare a Cinzia27 e daniel112 che ringrazio x lo script davvero interessante anche se a mio avviso il calcolo x il 2° estratto non è quello dell'originale, sembra una variante ...

Chiedo gentilmente a Cinzia27 se potrebbe appotare una modifica ...cioè
1)il listato dovrebbe calcolare le previsioni su unica ruota secca ...estrazione precedente ed estrazione successiva
2)invece di ricercare solo l e 3 equazioni a 90 ....la ricerca si potrebbe allargare anche a tutte le altre 3 equazioni uguali possibili ...tipo equazione trovata a 78 ....o a 77 ...o a 76 .
Tutto questo attraverso un imput box dove si può inserire l'equazione desiderata :-)
Spero d iessere staat chiara

Un salutone a tutti/e

Cinzia27

Posted on 23/9/2018, 13:17

Ciao, Luana.
Ho preferito evitare input box, essendo listato finito, si rischiava di sbagliare.
Seguendo le note ottieni esattamente lo stesso risultato come se usassi gli input box.
Buona domenica
Cinzia

SPOILER (clicca per visualizzare)

Sub main()
'Metodo Byron proposto da Luana
'Script di Cinzia
Dim n(1),ru(1),estr(7),estr1(7),estr2(7),estr3(7),estr4(7),ps(1)
ps(1)=1
For r=1 To 11
If r=11 Then r=12
If r=4 Or r=6 Then ' 4 Genova 6 Napoli se le ruote sono Genova o Napoli
ru(1)=r
For es=EstrazioneFin-100 To EstrazioneFin-1 ' esamino le ultime 100 estrazioni
If Estratto(es,r,1)>0 Then
e1=Estratto(es,r,1):e2=Estratto(es,r,2):e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2)
e2=Estratto(es,r,2):e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3)
e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4)
e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4):ee5=Estratto(es+1,r,5)
e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4):ee5=Estratto(es+1,r,5)

estr(1)=e1:estr(2)=e2:estr(3)=e3:estr(4)=e4:estr(5)=e5:estr(6)=ee1:estr(7)=ee2

estr1(1)=e2:estr1(2)=e3:estr1(3)=e4:estr1(4)=e5:estr1(5)=ee1:estr1(6)=ee2:estr1(7)=ee3

estr2(1)=e3:estr2(2)=e4:estr2(3)=e5:estr2(4)=ee1:estr2(5)=ee2:estr2(6)=ee3:estr2(7)=ee4

estr3(1)=e4:estr3(2)=e5:estr3(3)=ee1:estr3(4)=ee2:estr3(5)=ee3:estr3(6)=ee4:estr3(7)=ee5

estr4(1)=e5:estr4(2)=ee1:estr4(3)=ee2:estr4(4)=ee3:estr4(5)=ee4:estr4(6)=ee5

sv1=Fuori90(e1+e2+e3+e4+e5)
If sv1<10 Then sv1=sv1+90

sv2=Fuori90(e2+e3+e4+e5+ee1)
If sv2<10 Then sv2=sv2+90

sv3=Fuori90(e3+e4+e5+ee1+ee2)
If sv3<10 Then sv3=sv3+90

sv4=Fuori90(e4+e5+ee1+ee2+ee3)
If sv4<10 Then sv4=sv4+90

sv5=Fuori90(e5+ee1+ee2+ee3+ee4)
If sv5<10 Then sv5=sv5+90

sv6=Fuori90(ee1+ee2+ee3+ee4+ee5)
If sv6<10 Then sv6=sv6+90

d1=Abs(e1-e2):d2=Abs(e2-e3):d3=Abs(e3-e4):d4=Abs(e4-e5):d5=Abs(e5-ee1):d6=Abs(ee1-ee2)

dd1=Abs(sv1-sv2):dd2=Abs(sv2-sv3):dd3=Abs(sv3-sv4):dd4=Abs(sv4-sv5):dd5=Abs(sv5-sv6)

sd=Fuori90(d1+d2+d3+d4+d5+d6)
sd1=Fuori90(dd1+dd2+dd3+dd4+dd5)

ssdd=Fuori90(sd+sd1)
ssvv=Fuori90(sv1+sv2+sv3+sv4+sv5+sv6)

x=Fuori90(ssdd+ssvv)
If x=90 Or x=77 Or x=76 Then ' Se la condizione è 90 oppure è 77 oppure è 76
casi=casi+1
Scrivi
Scrivi "Caso "&casi&" "& String(40,"="),1
Scrivi " Riga h=differenze numeri 1° riga"
Scrivi " Riga o=differenze somme colonne "
Scrivi
Scrivi " "&siglaruota(r)
Scrivi " "&FormatSpace(es,4,1)&" "&StringaEstratti(es,r)
Scrivi " "&FormatSpace(es+1,4,1)&" "&StringaEstratti(es+1,r)
Scrivi

Scrivi " a b c d e f g h"
Scrivi " "&StringaNumeri(estr)&" "&d1&" "&d2&" "&d3&" "&d4&" "&d5&" "&d6
Scrivi " "&StringaNumeri(estr1)
Scrivi " "&StringaNumeri(estr2)
Scrivi " "&StringaNumeri(estr3)
Scrivi " "&StringaNumeri(estr4)&" o"
Scrivi " "&sv1&" "&sv2&" "&sv3&" "&sv4&" "&sv5&" "&sv6&" "&dd1&" "&dd2&" "&dd3&" "&dd4&" "&dd5
Scrivi
Scrivi "somma differenze riga superiore "&sd
Scrivi "somma differenze riga inferiore "&sd1
Scrivi "somma differenze righe superiore + inferiore "&ssdd
Scrivi "somma delle somme delle colonne "&ssvv

ColoreTesto 2
Scrivi "Si è realizzata l' equazione perfetta "&ssdd+ssvv &" - il 1° futuro estratto è "&ee1&" ( 1° Estratto 2 estrazione ) + "&ssdd&" (somma differenze ) = ",0,0

n(1)=Fuori90(ee1 + ssdd)

Scrivi Format2(n(1)),1
ImpostaGiocata 1,n,ru,ps,150,1
Gioca es
'ColoreTesto 0
End If
End If
Next
End If
Next
ScriviResoconto
End Sub

Luana62

Posted on 26/9/2018, 17:11

Supporter

Group:: Member

Posts:: 35

Status:

Ciao Cinzia27 , grazie 1000 dal cuore ...ringrazio anche daniel112 x il listato interessante

Buona serata a voi e tutto il forum

Luana62

Posted on 26/9/2018, 17:38

Supporter

Group:: Member

Posts:: 35

Status:

Rieccomi cara Cinzia27,
Questo è l'articolo trovato in rete sul Byron :
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.
----------------------------------------------------------------------------------------
Osservando bene le due estrazioni consecutive di riferimento ho notato alcuni importanti particolare che serviranno di sicuro x avre un pronostico più affidabile:

Napoli 14 Gennaio 1802: 76.28.65.77.33
Napoli 30 Gennaio 1802: 41.60.61.59.63.

41.60.61.59.63 = somma dei 5 =284 fuori 90 = 14
Se osservi il 14 è il complemento a 90 del primo estratto della prima estarzione e cioè il 76 ...76+14=90
Quindi suppongo che questa sia una delle più importanti condizioni da ricercare nel quadro estrazionale.

Altra cosa a mio avviso importante visto che qui si tratta di equazion ia 90 , noto che se sommiamo il 2/3/4 estartto della seconda estrazione vi è la somm 90...infatti :60+61+59 =180 (90)

Altro particolare : 1° estratto prima estrazione =76
2°estratto seconda estrazione=41

76+41 = 27 a 90 = 63 che sarebbe il 5 ° estratto della seconda estrazione : 27+63 =90

ulteriore indizio :41+63 (1°e 5°estratto seconda estrazione) = ancora 14 che col 76 (primo estratto della prima estrazione) fà sempre 90
------------------------------------------------------------

Sarebbe molto utile un listato che vada a ricercare almeno 1 o 2 di queste condizioni sempre a ruota unica in 2 estrazioni successive ...mi sà che ne vedremo delle belle

Enplein

Posted on 16/6/2020, 21:05

Top Member

Group:: Member

Posts:: 5,380

Location:: Montesilvano (PE)

Status:

Buonasera.

Vedere le condizioni segnalate su estrazioni consecutive sono rare, però trovarle
in un arco di estrazioni è possibile....

Controlla questo caso:

CODICE

25.06.2016 Ba 07.09.10.54.27 [ S.E.1 17 ]
29.02.2020 Ba 32.76.86.18.51 [ S.E.2 83 ]
----------------------------------------------------------Caso n°6
Dif. Rig. h 88.89.46.27.85.46 S.Dif.Sup.21
a b c d e f g
07.09.10.54.27.32.76 h
09.10.54.27.32.76.86 i
10.54.27.32.76.86.18 l
54.27.32.76.86.18.51 m
27.32.76.86.18.51(77) n somma col. g 51
-----------------------------------
Som. Col. V. 17.42.19.95.59.83(38) o S.Somme = 45
Dif. Rig. o 65.23.14.36.66(45) S.Dif.Inf. = 24+21=45

1a Eq. 24+21+45 =90
2a Eq. 07+32+51=90
3a Eq. 07+83=90

Enplein.

Enplein

Posted on 17/6/2020, 09:34

Top Member

Group:: Member

Posts:: 5,380

Location:: Montesilvano (PE)

Status:

CITAZIONE

Osservando bene le due estrazioni consecutive di riferimento ho notato alcuni importanti particolare che serviranno di sicuro x avre un pronostico più affidabile:

Napoli 14 Gennaio 1802: 76.28.65.77.33
Napoli 30 Gennaio 1802: 41.60.61.59.63.

41.60.61.59.63 = somma dei 5 =284 fuori 90 = 14
Se osservi il 14 è il complemento a 90 del primo estratto della prima estarzione e cioè il 76 ...76+14=90
Quindi suppongo che questa sia una delle più importanti condizioni da ricercare nel quadro estrazionale.

Altra cosa a mio avviso importante visto che qui si tratta di equazion ia 90 , noto che se sommiamo il 2/3/4 estartto della seconda estrazione vi è la somm 90...infatti :60+61+59 =180 (90)

Altro particolare : 1° estratto prima estrazione =76
2°estratto seconda estrazione=41

76+41 = 27 a 90 = 63 che sarebbe il 5 ° estratto della seconda estrazione : 27+63 =90

ulteriore indizio :41+63 (1°e 5°estratto seconda estrazione) = ancora 14 che col 76 (primo estratto della prima estrazione) fà sempre 90
------------------------------------------------------------

Sarebbe molto utile un listato che vada a ricercare almeno 1 o 2 di queste condizioni sempre a ruota unica in 2 estrazioni successive

Buongiorno.

Oltre alle condizioni elencate da Luana, ho impostato la ricerca su 2 ruote in un range di estrazioni retroattive
da inserire con un inputbox.

Nella speranza di non aver commesso errori, inserisco lo script Byron 5x7 su 2 ruote.

Ciao, Enplein.

SPOILER (clicca per visualizzare)

Sub main()
Dim poste(5),posta(1)
Dim ruote(3),ruota(2)
Dim nr1(7),nr2(7),nr3(7),nr4(7),nr5(6)
Dim num(11),amb(2),lg(3)
Dim so(6)
Dim di(11)
Dim df1(6),df2(5)
Dim nume(90)
ColoreTesto 1
Scrivi : Scrivi
Scrivi " Lord Byron 5x7 cinquine a somma 90 su due ruote X Luana Forum LottoGam",1
Scrivi
Scrivi " Sviluppato e Programmato da Enplein.",1
Scrivi : Scrivi
ColoreTesto 0
qt=CInt (InputBox ("Quante estrazioni retroattive vuoi controllare?",,90))
t=0
fine=EstrazioneFin
ini=fine-500
For es=ini To fine
For r1=1 To 11
If r1=11 Then r1=12
Erase num
For i=1 To 5
num(i+5)=Estratto (es,r1,i)
Next
se2=Fuori90 (SommaEstratti (es,r1))
'1a condizione
If Fuori90 (num(7)+num(8)+num(9))=90 And Fuori90 (num(6)+num(10))=se2 Then

For r2=1 To 11
If r2=11 Then r2=12
'Ciclo per estrazioni retroattive
ok=0
For w=0 To qt
For i=1 To 5
num(i)=Estratto (es-w,r2,i)
Next
se1=Fuori90 (SommaEstratti (es-w,r2))
'2a condizione
If num(1)=(90-se2) Then
'3a condizione
If se2+num(1)=90 Then
'Matrice 5x7 Byron
For i=1 To 7:nr1(i)=num(i):Next
h=0
For i=2 To 8:h=h+1:nr2(h)=num(i):Next
h=0
For i=3 To 9:h=h+1:nr3(h)=num(i):Next
h=0
For i=4 To 10:h=h+1:nr4(h)=num(i):Next
h=0
For i=5 To 10:h=h+1:nr5(h)=num(i):Next
'Somma colonne con relativa somma
'Somma delle somme col.oriz.o
sm3=0
For i= 1 To 6
so(i)=Fuori90(num(i)+num(i+1)+num(i+2)+num(i+3)+num(i+4))
sm3=Fuori90 (sm3+so(i))
Next
For i=1 To 6
If so(i)<10 Then so(i)=90+so(i)
Next
'Somma delle differenzi col. oriz, h&o = codice
g=0 : sm1=0
For j= 1 To 6
g=g+1
di(j)=Fuori90 ((num(j)+90)-num(j+1))
df1(g)=di(j)
sm1=Fuori90 (sm1+di(j))
Next
g=0 : sm2=0
For y= 7 To 11
g=g+1
di(y)=Fuori90 ((so(y-6)+90)-so(y-5))
df2(g)=di(y)
sm2=Fuori90 (sm2+di(y))
Next

sm=Fuori90 (sm1+sm2)
'1a Equazione sm1+sm2+sm3=90
If Fuori90 (sm1+sm2+sm3)=90 Then
so7=Fuori90 ((so(6)+90)-sm3)
di12=sm3
numeri=0
snr=Fuori90 (nr1(7)+nr2(7)+nr3(7)+nr4(7))
numeri=Fuori90 ((90+so7)-snr)
num(11)=numeri
ok=1
'Previsione
sy=Fuori90 (so(6)+so7)
amb(1)=numeri : amb(2)=Fuori90 (180-sy)
lg(1)=amb(1):lg(2)=amb(2):lg(3)=sy

posta(1)=1
poste(2)=1
poste(3)=1
ruota(1)=r1 : ruota(2)=r2
ruote(1)=r1 : ruote(2)=r2 : ruote(3)=11
t=t+1
Scrivi "-----------------------------------"
Scrivi DataEstrazione (es-w)&" "& SiglaRuota(r2)&" "& Format2 (num(1))&"."& Format2 (num(2))&"."& Format2 (num(3))&"."& Format2 (num(4))&"."&_
Format2 (num(5)) &" [ S.E.1 "& Format2 (se1)&" ]"& Chr (10)&_
DataEstrazione (es)&" "& SiglaRuota(r1)&" "& Format2 (num(6))&"."& Format2 (num(7))&"."& Format2 (num(8))&"."& Format2 (num(9))&"."&_
Format2 (num(10))&" [ S.E.2 "& Format2 (se2)&" ] Range "&w&" Estraz.",1
Scrivi "----------------------------------------------------------Caso n°"&t& Chr (10)&_
"Dif. Rig. h "& StringaNumeri (df1)&" S.Dif.Sup."& Format2 (sm1)& Chr(10)&_
Space (13)&" a"&" b"&" c"&" d"&" e"&" f"&" g"& Chr (10) &_
Space (13)& StringaNumeri (nr1)&" h"& Chr (10)&_
Space (13)& StringaNumeri (nr2)&" i"& Chr (10)&_
Space (13)& StringaNumeri (nr3)&" l"& Chr (10)&_
Space (13)& StringaNumeri (nr4)&" m"& Chr (10)&_
Space (13)& StringaNumeri (nr5)&"("& Format2 (numeri)&")"&" n somma col. g "& Format2 (snr)& Chr (10)&_
"-----------------------------------"& Chr (10)&_
"Som. Col. V. "& StringaNumeri (so)&"("& Format2 (so7)&")"&" o"&" S.Somme = "& Format2 (sm3)& Chr (10)&_
"Dif. Rig. o "& StringaNumeri (df2)&"("& Format2 (di12)&")"&" S.Dif.Inf. = "& Format2 (sm2)&"+"& Format2 (sm1)&"="& Format2 (sm)& Chr (10)& Chr (10)&_
"1a Equaz. =90 "& " S.Dif.1+S.Dif.2+S. Somme "& Format2 (sm1)& " + "& Format2 (sm2)& " + "& Format2 (sm3)& Chr (10)&_
"1a Cond. =90 "& " 7° Estr.= "& Format2 (num(7))& " + 8° Estr. = "& Format2 (num(8))& " + 9° Estr. = "& Format2 (num(9))& Chr (10)&_
"2a Equaz. =90 "& " 1° Estr. = "& Format2 (num(1))&" + Somma cinquina Se2 = "& Format2 (se2),1
Scrivi "------------------------------------------------------"
ImpostaGiocata 1,amb,ruota,posta,12
ImpostaGiocata 2,lg,ruote,poste,12
Gioca (es)

End If
End If
End If
If ok=0 Then Exit For
Next
Next
End If
Next
Next

ScriviResoconto
End Sub

N.B. Corretto...rifare il copia ed incolla

Edited by Enplein - 17/6/2020, 15:31

micro_

Posted on 17/6/2020, 15:11

Top Member

Group:: Member

Posts:: 1,292

Status:

Grazie Enplein

saluti

micro

39 replies since 3/9/2018, 20:06 2254 views