Script su Metodi Cabalistici, Ciclometrici & C.
- Creatore Discussione salvo50
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
Fatto
Codice:
'Progetto - BYRON - by LORD BYRON
'Con modifica proposta da Matematico, eliminare l'EQUAZIONE PERFETTA
'Script - by Salvo50
Option Explicit
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,Num1,Num2
Dim S1,S2,S3,S4,S5,S6,S7,S8,S10,S11,S12,Ambata,S
Num1 = InputBox("Inserisci i primi 5 numeri separati da un punto"," 76.28.65.77.33")
Num2 = InputBox("Inserisci i secondi 5 numeri separati da un punto"," 41.60.61.59.63")
Num1 = "0." & Num1
S7 = Split(Num1,".")
A1 = CInt(S7(1))
A2 = CInt(S7(2))
A3 = CInt(S7(3))
A4 = CInt(S7(4))
A5 = CInt(S7(5))
Num2 = "0." & Num2
S8 = Split(Num2,".")
B1 = CInt(S8(1))
B2 = CInt(S8(2))
B3 = CInt(S8(3))
B4 = CInt(S8(4))
B5 = CInt(S8(5))
'-----------------------------------------
S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - A3))
D3 = Fuori90(90 +(A3 - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
Ambata = Fuori90(S10 + B1)
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
S12 = Fuori90(S11 + S10)
Scrivi Space(20) &(" Primi 5 Numeri inseriti ") & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
Scrivi Space(20) &(" Secondi 5 Numeri inseriti ") & Format2(B1) & " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi
Scrivi
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " - Distanze " & Format2(D1),1,0
Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1
Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
ColoreTesto 1
Scrivi Format2(S10),1
ColoreTesto 0
Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
ColoreTesto 2
Scrivi " " & Format2(Ambata),1,0
ColoreTesto 0
Scrivi " - Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
Scrivi Space(20) & String(20,"-")
Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
Scrivi " " & Format2(S5) & " " & Format2(S6) & " - Somma delle somme ",1,0
ColoreTesto 1
Scrivi Format2(S11),1
ColoreTesto 0
Scrivi
Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " Risultato Equazione ",1
Scrivi
End Sub
Matematico
Advanced Member >PLATINUM<
Grazie di cuore salvo50...stò cercando nuove strade ...punti ignoti, ti farò sapere ..
salvo50
Advanced Member >PLATINUM PLUS<
Juri;n2128566 ha scritto:
Si gioca il solo numero evidenziato in rosso, lo script si trova al post 19 di questo topic, nel quale c'è anche l'immagine del metodo BYRON con le spiegazioni, quello chiesto da Matematico è diverso perchè inserisce numeri a piacere suo, per le sue ricerche
Matematico
Advanced Member >PLATINUM<
Ciao salvo50, sarebbe molto utile poter fare il listato x questa grande tecnica matematica realizzata dal grande Manna...alllego le imma 
gini.
Grazie sempe
gini.Grazie sempe
salvo50
Advanced Member >PLATINUM PLUS<
Matematico;n2128833 ha scritto:Ciao salvo50, sarebbe molto utile poter fare il listato x questa grande tecnica matematica realizzata dal grande Manna...alllego le immagini
Grazie sempe
Ciao a Tutti
Ho dato un'occhiata alla veloce e penso che si può fare, solo che in qualche formula non riesco a distingure le lettere, ma spero di riuscere a capirlo lo stesso dagli esempi numerici.
Appena possibile lo faccio
Matematico
Advanced Member >PLATINUM<
Grazie di cuore salvo50
Matematico
Advanced Member >PLATINUM<
Buongiorno salvo50, port osu x promemoria e aggiungo una spiegazione forse più chiara :
------------------------------
Il Tesoro Nascosto
BYRON
di
Domenico MANNA
Prima di iniziare ad esporre il procedimento, devo ringraziare Silvj per avermi gentilmente trasmesso il metodo.
Ho cercato di fare uno script, ma ho trovato delle difficoltà nell’applicare dei passaggi che sottoporrò alla vostra attenzione.
Iter operativo
A)Si prendono le estrazioni che abbiano il 1° ed il 5°, la cui somma sia pari.
B)All’estrazione si applica la Formula : 3*f+6*g+4*h+4*i+5*l
Dove f, g, h, i, l, sono I, II, III, IV, V estratti.
Il risultato sempre pari, è diviso per 2.
Esempio: 05/FEB/1995
CA 11.86.30.87.81 Somma con il F.90 = 25 =S2, I e V= PARI, 11+81=92
f g h i l
Applichiamo la formula di ricerca:
3*11+6*86+4*30+4*87+5*81=33+516+120+348+405=1422 : 2 =711 = 81
C)Bisogna cercare alla stessa data una estrazione la cui somma sia 81 o il diametrale 36
Alla stessa data, troviamo che l’estrazione di Roma ha la somma cercata:
RO 66.22.27.65.81 Somma con il F.90 = 81 =S1
a b c d e
Avuti gli elementi necessari per poter proseguire, bisogna che si verifichi la seguente equazione:
3S1+S2+c+2d+3e+3f+g+h-l=90
Dividiamo l’equazione in tre tronconi:
1) 3S1+S2 +
2) 3f+g+h-l
3) c+2d+3e =
-----------------------
90
1)3*S1=3*81=243=F.90=63+S2 =63+25=88
2)3*11+86+30-81=33+86+30-81=149-81=68
3) la terza parte di equazione dovrebbe fare 24, 90-(88+68)=90-66=24, quindi:c+2d+3e=24
(In questo punto trovo le difficoltà a continuare lo script…)
Si forma il seguente specchietto:
c = 66.22.27.65.81 * Numeri estratti
2d = 42.44.54.65.72 * il loro doppio
3e = 18.66.81.15.63 * il loro triplo
La somma della 1° riga, uno della 2° ed uno della 3° riga deve fare 24
I tre numeri devono appartenere a 3 colonne verticali diverse.
Abbiamo la condizione con i numeri seguenti:
Il prof. Manna prende : c=81, 2d=42, 3e=81 =24
c=81, d=66, e=27
Ho notato che ci sono altre combinazioni con la somma 24, e sono:
c=66, 2d=72, 3e=66, c=66,d=81, e=22
c=27, 2d=72, 3e=15, c=27, d=81, e=65
Perché sceglie la 1° combinazione???
In questo punto chiedo la vostra collaborazione.
Continuando con la 1° combinazione, possiamo avere due diverse disposizioni di numeri dell’estrazione.
a b c d e
22.65.81.66.27
Oppure
65.22.81.66.27
Applichiamo la formula:
S1-S2+a+f-g
Abbiamo due possibilità con a=22 o con a=65
81-25+22+11-86 = 3
81-25+65+11-86 =46
QUADRO BYRON
1° combinazione: 22.65.81.66.27.11.86.30.87.81
47 74 15 39 16 15 Somma diff. Super. = 26
22 65 81 66 27 11 86
65 81 66 27 11 86 30
81 66 27 11 86 30 87
66 27 11 86 30 87 81
27 11 86 30 87 81 (03)
-------------------------------
81 70 01 40 61 25 (17) Somma col. Vert.
11 69 51 69 36 (08) Diff. Infer.
11+69+51+69+36=56
81+70+1+40+61+25=8
26+56+8=90
2° combinazione: 65.22.81.66.27.11.86.30.87.81
43 31 15 39 16 15 Somma diff. Super. = 69
65 22 81 66 27 11 86
22 81 66 27 11 86 30
81 66 27 11 86 30 87
66 27 11 86 30 87 81
27 11 86 30 87 81 (46)
-------------------------------
81 27 01 40 61 25 (60) Somma col. Vert.
54 26 51 69 36 (55) Diff. Infer.
54+26+51+69+36=56
81+27+1+40+61+25=55
69+56+55=90
Applichiamo la 3° equazione: S2+a=90
25+22=47 oppure 25+65=90
E’ evidente che l’equazione si ha con a=65, che produce il n° 46.
Tuttavia anche l’altro numero 3, non è da disprezzare
La cabala fornisce pure l’operazione per il secondo numero.
Formula: 90-(S1+S2+a-g)
L’autore Nicola Russo, afferma che si applica quando si verifica la 3a equazione, nel nostro caso con a=65 che produce 46.
Svolgendo la 3° equazione abbiamo il 2° numero che è uguale a 5
90-(81+25+65-86)= 90-85=5
A RO al 13° esce l’ambo secco 5.46
N.B.L’opera è originale, ma l’esposizione è stato sintetizzato.
------------------------------
Il Tesoro Nascosto
BYRON
di
Domenico MANNA
Prima di iniziare ad esporre il procedimento, devo ringraziare Silvj per avermi gentilmente trasmesso il metodo.
Ho cercato di fare uno script, ma ho trovato delle difficoltà nell’applicare dei passaggi che sottoporrò alla vostra attenzione.
Iter operativo
A)Si prendono le estrazioni che abbiano il 1° ed il 5°, la cui somma sia pari.
B)All’estrazione si applica la Formula : 3*f+6*g+4*h+4*i+5*l
Dove f, g, h, i, l, sono I, II, III, IV, V estratti.
Il risultato sempre pari, è diviso per 2.
Esempio: 05/FEB/1995
CA 11.86.30.87.81 Somma con il F.90 = 25 =S2, I e V= PARI, 11+81=92
f g h i l
Applichiamo la formula di ricerca:
3*11+6*86+4*30+4*87+5*81=33+516+120+348+405=1422 : 2 =711 = 81
C)Bisogna cercare alla stessa data una estrazione la cui somma sia 81 o il diametrale 36
Alla stessa data, troviamo che l’estrazione di Roma ha la somma cercata:
RO 66.22.27.65.81 Somma con il F.90 = 81 =S1
a b c d e
Avuti gli elementi necessari per poter proseguire, bisogna che si verifichi la seguente equazione:
3S1+S2+c+2d+3e+3f+g+h-l=90
Dividiamo l’equazione in tre tronconi:
1) 3S1+S2 +
2) 3f+g+h-l
3) c+2d+3e =
-----------------------
90
1)3*S1=3*81=243=F.90=63+S2 =63+25=88
2)3*11+86+30-81=33+86+30-81=149-81=68
3) la terza parte di equazione dovrebbe fare 24, 90-(88+68)=90-66=24, quindi:c+2d+3e=24
(In questo punto trovo le difficoltà a continuare lo script…)
Si forma il seguente specchietto:
c = 66.22.27.65.81 * Numeri estratti
2d = 42.44.54.65.72 * il loro doppio
3e = 18.66.81.15.63 * il loro triplo
La somma della 1° riga, uno della 2° ed uno della 3° riga deve fare 24
I tre numeri devono appartenere a 3 colonne verticali diverse.
Abbiamo la condizione con i numeri seguenti:
Il prof. Manna prende : c=81, 2d=42, 3e=81 =24
c=81, d=66, e=27
Ho notato che ci sono altre combinazioni con la somma 24, e sono:
c=66, 2d=72, 3e=66, c=66,d=81, e=22
c=27, 2d=72, 3e=15, c=27, d=81, e=65
Perché sceglie la 1° combinazione???
In questo punto chiedo la vostra collaborazione.
Continuando con la 1° combinazione, possiamo avere due diverse disposizioni di numeri dell’estrazione.
a b c d e
22.65.81.66.27
Oppure
65.22.81.66.27
Applichiamo la formula:
S1-S2+a+f-g
Abbiamo due possibilità con a=22 o con a=65
81-25+22+11-86 = 3
81-25+65+11-86 =46
QUADRO BYRON
1° combinazione: 22.65.81.66.27.11.86.30.87.81
47 74 15 39 16 15 Somma diff. Super. = 26
22 65 81 66 27 11 86
65 81 66 27 11 86 30
81 66 27 11 86 30 87
66 27 11 86 30 87 81
27 11 86 30 87 81 (03)
-------------------------------
81 70 01 40 61 25 (17) Somma col. Vert.
11 69 51 69 36 (08) Diff. Infer.
11+69+51+69+36=56
81+70+1+40+61+25=8
26+56+8=90
2° combinazione: 65.22.81.66.27.11.86.30.87.81
43 31 15 39 16 15 Somma diff. Super. = 69
65 22 81 66 27 11 86
22 81 66 27 11 86 30
81 66 27 11 86 30 87
66 27 11 86 30 87 81
27 11 86 30 87 81 (46)
-------------------------------
81 27 01 40 61 25 (60) Somma col. Vert.
54 26 51 69 36 (55) Diff. Infer.
54+26+51+69+36=56
81+27+1+40+61+25=55
69+56+55=90
Applichiamo la 3° equazione: S2+a=90
25+22=47 oppure 25+65=90
E’ evidente che l’equazione si ha con a=65, che produce il n° 46.
Tuttavia anche l’altro numero 3, non è da disprezzare
La cabala fornisce pure l’operazione per il secondo numero.
Formula: 90-(S1+S2+a-g)
L’autore Nicola Russo, afferma che si applica quando si verifica la 3a equazione, nel nostro caso con a=65 che produce 46.
Svolgendo la 3° equazione abbiamo il 2° numero che è uguale a 5
90-(81+25+65-86)= 90-85=5
A RO al 13° esce l’ambo secco 5.46
N.B.L’opera è originale, ma l’esposizione è stato sintetizzato.
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Matematico, ho capito tutto il procedimento, solo che ad un certo punto il Manna fa uscire dal cilindro quel numero 24 da aggiungere alle altre somme 66 per avere la somma 90.
Non gliene faccio una colpa al Manna perche lui non aveva gli script per poter trovare le somme 90 in qualche secondo (anche perchè ce ne sono pochissime nelle 9518 estrazioni ne ho trovate solo 51) e quindi fare l'esempio adatto, in un primo momento avevo pensato di fare come il Manna fare uscire la somma 90 dal cilindro, la formula che deve dare come risultato 90 è questa:
((3 * S1) + S2 + C +(2 * D) +(3 * E) +(3 * F) + G + H) - L
trasformandola così
((2 * S1) + C +(2 * D) +(3 * E) +(3 * F) + G + H) - L
con l'estrazione di esempio fatto da Manna viene esattamente 90
Ma ho deciso di non farlo cosi, ho già deciso come fare, se mi riesce,ok, altrimenti per fare questo script ho gli stessi problemi che ha chi ha scritto il tuo ultimo post.
Non gliene faccio una colpa al Manna perche lui non aveva gli script per poter trovare le somme 90 in qualche secondo (anche perchè ce ne sono pochissime nelle 9518 estrazioni ne ho trovate solo 51) e quindi fare l'esempio adatto, in un primo momento avevo pensato di fare come il Manna fare uscire la somma 90 dal cilindro, la formula che deve dare come risultato 90 è questa:
((3 * S1) + S2 + C +(2 * D) +(3 * E) +(3 * F) + G + H) - L
trasformandola così
((2 * S1) + C +(2 * D) +(3 * E) +(3 * F) + G + H) - L
con l'estrazione di esempio fatto da Manna viene esattamente 90
Ma ho deciso di non farlo cosi, ho già deciso come fare, se mi riesce,ok, altrimenti per fare questo script ho gli stessi problemi che ha chi ha scritto il tuo ultimo post.
Ultima modifica:
Matematico
Advanced Member >PLATINUM<
Ciao salvo50,
Bravissimo !Grazie attendo tranquillo
Un saluto a tutti
Bravissimo !Grazie attendo tranquillo
Un saluto a tutti
Matematico
Advanced Member >PLATINUM<
Ciao Enplein ,mi dispiace che pensi questo di me...la scorrettezza non fà parte del mio carattere, la mia è stata solo una semplice amnesia e poi in rete si trov adi tutto e lo sai...
Notte
Notte
salvo50
Advanced Member >PLATINUM PLUS<
salvo50;n2129103 ha scritto:
Ciao a Tutti
Credevo d'averlo risolto, invece l'ho calcolato in modo diverso, come scrive Enplein (prima non sapevo chi era l'autore delle spiegazioni del post 127) anche calcolando nel modo spiegato dal Manna, ci sono diverse somme col valore richiesto, qual'è scegliere? Poi c'è un'altra cosa che non ho capito, quando Manna mette in colonna i tre gruppi di 5 numeri, nell'esempio che fa per raggiungere la somma di 24 che è quella che serve per avere la somma 90, prende i numeri 81,42,81 che arriva a 204 col fuori90 ottiene 24, però poi dalla prima estrazione toglie il primo il terzo ed il quinto, quindi A, C, E, cioè che rapporto c'è con queste due terne
81 - 42 - 81
e
66 - 27 - 81 che corrispondono agli estratti A, C, E della prima ruota
avrebbe fatto togliere C, D, E dato che la formula dice di calcolare C + (D * 2) + (E * 3) l'avrei capita, cioè ci sarebbe stato un nesso.
D. Manna, invece fa
81 + 42 + 81 = 204 (fuori90 = 24)
per cui c = 81, d = 66, e = 27
ma per me non è così
questi sono gli estratti della prima ruota 66 - 22 - 27 - 65 - 81 - a,b,c,d,e, quindi
a = 66
b = 22
c = 27
d = 65
e = 81
quindi nelle lettere c,d,e abbiamo
c = 27
d = 65
e = 81
27, 65, 81
mentre D.Manna mette
81, 66, 27 differisce solo del numero 65, ma tanto basta, perche col numero 66, non si verifica l'ambo, perche invece di rimanere i numeri 22 e 65 per proseguire nei calcoli, rimangono i numeri 22 e 66
praticamente lo script che ho fatto differisce dalle spiegazioni dell'articolo, in tre punti
1) Per la ricerca della terna, calcolo la formula n2 senza (c + (d*2) + (e * 3)) dal risultato vedo quello che manca per arrivare a 90 e questo risultato lo cerca nelle 10 terne che si formano con i 5 estratti della prima ruota, quando c'è una terna con il valore che manca, la unisco alla formula n2 e ottengo il valore 90 e come da procedimento prendo i due numeri rimasti e proseguo con la formula n3
2) La formula n4 (S2 + a = 90) non la calcolo perchè in 3000 estrazioni che ho cercato si è verificata solo 4 volte e per la ricerca con esiti negativi, quindi non calcolo solo un ambo ma 2,
3) Visto che si verificavano pochissimi ambi, ho messo insieme i numeri dei 2 ambi , per formare una quartina e faccio anche la ricerca per ambo in quartina.
Codice:
'Metodo - IL TESORO NASCOSTO di DOMENICO MANNA
'Con qualche modifica di SALVO50
'SCRIPT BY SALVO50
Option Explicit
Sub Main()
Dim Ini,Fin,Es,R1,R2,Caso,Casi
Dim A,B,C,D,E,F,G,H,I,L,Ok,P1,P2
Dim Ind,Clp,S1do,DiamS1do,S,E1,E2
Dim S1,S2,S3,S4,S5,S6,S7,S8,XS4,CXS4,A1,A2
Dim ABC,ABD,ABE,ACD,ACE,ADE,BCD,BCE,BDE,CDE
Dim Num1(2),Num2(2),Num3(2),Posta(2),Ruote(2),post(2),Num4(4)
Ini = CInt(InputBox("DA QUALE ESTRAZIONE VUOI INIZIARE?",,9000))'6474
Clp = CInt(InputBox("QUANTI COLPI VUOI GIOCARE?",,13))
Fin = EstrazioneFin
Posta(1) = 1
post(2) = 1
For Es = Ini To Fin
Caso = 0
Messaggio Es
AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
For R2 = 1 To 10
If R1 <> R2 Then
If R2 = 11 Then R2 = 12
A = Estratto(Es,R1,1) : B = Estratto(Es,R1,2) : C = Estratto(Es,R1,3) : D = Estratto(Es,R1,4) : E = Estratto(Es,R1,5)
F = Estratto(Es,R2,1) : G = Estratto(Es,R2,2) : H = Estratto(Es,R2,3) : I = Estratto(Es,R2,4) : L = Estratto(Es,R2,5)
If A > 0 And F > 0 Then
If pari(F + L) Then
ABC = Fuori90(A + B + C) : ABD = Fuori90(A + B + D) : ABE = Fuori90(A + B + E)
ACD = Fuori90(A + C + D) : ACE = Fuori90(A + C + E) : ADE = Fuori90(A + D + E)
BCD = Fuori90(B + C + D) : BCE = Fuori90(B + C + E) : BDE = Fuori90(B + D + E)
CDE = Fuori90(C + D + E)
S1 = Fuori90(SommaEstratti(Es,R1))
S2 = Fuori90(SommaEstratti(Es,R2))
S3 =((3 * F) +(6 * G) +(4 * H) +(4 * I) +(5 * L))'formula n1
S3 = Fuori90(S3 / 2)
If S3 = S1 Or S3 = Diametrale(S1) Then
XS4 = Fuori90(((3 * S1) + S2 +(3 * F) + G + H) - L) 'parziale formula n2
CXS4 = 90 - XS4
If ABC = CXS4 Or ABD = CXS4 Or ABE = CXS4 Or ACD = CXS4 Or ACE = CXS4 _
Or ADE = CXS4 Or BCD = CXS4 Or BCE = CXS4 Or BDE = CXS4 Or CDE = CXS4 Then
'completamento formula n2
If ABC = CXS4 Then S4 = ABC + XS4 : Ok = 1
If ABD = CXS4 Then S4 = ABD + XS4 : Ok = 1
If ABE = CXS4 Then S4 = ABE + XS4 : Ok = 1
If ACD = CXS4 Then S4 = ACD + XS4 : Ok = 1
If ACE = CXS4 Then S4 = ACE + XS4 : Ok = 1
If ADE = CXS4 Then S4 = ADE + XS4 : Ok = 1
If BCD = CXS4 Then S4 = BCD + XS4 : Ok = 1
If BCE = CXS4 Then S4 = BCE + XS4 : Ok = 1
If BDE = CXS4 Then S4 = BDE + XS4 : Ok = 1
If CDE = CXS4 Then S4 = CDE + XS4 : Ok = 1
'fine completamento formula n2
If S4 = 90 Then
If Ok = 1 Then
A1 = 0 : A2 = 0
If CXS4 = ADE Then A1 = B : A2 = C : Ok = 2
If CXS4 = ABC Then A1 = D : A2 = E : Ok = 2
If CXS4 = ABD Then A1 = C : A2 = E : Ok = 2
If CXS4 = ACD Then A1 = B : A2 = E : Ok = 2
If CXS4 = ACE Then A1 = B : A2 = D : Ok = 2
If CXS4 = ADE Then A1 = B : A2 = C : Ok = 2
If CXS4 = BCD Then A1 = B : A2 = E : Ok = 2
If CXS4 = BCE Then A1 = A : A2 = D : Ok = 2
If CXS4 = BDE Then A1 = A : A2 = C : Ok = 2
If CXS4 = CDE Then A1 = A : A2 = B : Ok = 2
S5 = Fuori90(90 +(S1 - S2 + A1 + F - G)) 'formula n3
S6 = Fuori90(90 +(S1 - S2 + A2 + F - G)) 'formula n3
If Ok = 2 Then
S7 = Fuori90(90 +(90 -(S1 + S2 + A1 - G))) 'formula n5
S8 = Fuori90(90 +(90 -(S1 + S2 + A2 - G))) 'formula n5
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P1 = 1 To 5
E1 = Estratto(Es,R1,P1)
If E1 = A1 Or E1 = A2 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " Somma " & Format2(S1) & " - In rosso estratti utili per formula n3",1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " Somma " & Format2(S2),1
Scrivi
'
Scrivi Space(15) & "formula n1 ",1,0
ColoreTesto 2
Scrivi Format2(S3),1,0 : ColoreTesto 0
Scrivi " Deve essere uguale alla somma prima ruota oppure al suo diametrale",1
Scrivi Space(15) & "formula n2 ",1,0
ColoreTesto 2 : Scrivi Format2(S4),1,0 : ColoreTesto 0
Scrivi " Deve essere uguale a 90",1
Scrivi Space(4) & "Primo num. formula n3 ",1,0
ColoreTesto 2 : Scrivi Format2(S5),1,0 : ColoreTesto 0
Scrivi " Prodotto dal num. " & Format2(A1) & " Prima ruota",1
Scrivi Space(2) & "Secondo num. formula n3 ",1,0
ColoreTesto 2 : Scrivi Format2(S6),1,0 : ColoreTesto 0
Scrivi " Prodotto dal num. " & Format2(A2) & " Prima ruota",1
Scrivi Space(1) & "Abbinamento 1 formula n5 ",1,0
ColoreTesto 2 : Scrivi Format2(S7),1 : ColoreTesto 0
'Scrivi " Prodotto dal num. " & Format2(A2) & " Prima ruota",1
Scrivi Space(1) & "Abbinamento 2 formula n5 ",1,0
ColoreTesto 2 : Scrivi Format2(S8),1 : ColoreTesto 0
Scrivi
Num1(1) = S5 : Num1(2) = S6
Ruote(1) = R1 : Ruote(2) = R2
ImpostaGiocata 1,Num1,Ruote,Posta,Clp
Num2(1) = S5 : Num2(2) = S7
ImpostaGiocata 2,Num2,Ruote,post,Clp,2
Num3(1) = S6 : Num3(2) = S8
ImpostaGiocata 3,Num3,Ruote,post,Clp,2
Num4(1) = S5 : Num4(2) = S6 : Num4(3) = S7 : Num4(4) = S8
EliminaRipetuti Num4
ImpostaGiocata 4,Num4,Ruote,post,Clp
Gioca Es
End If
End If
End If
End If
End If
End If
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ho approfondito lo studio su questo metodo, ed ho capito che le varie formule servono per eliminare tre estratti della prima ruota ed i restanti due estratti usarli con la formula n3 per trovare i numeri da giocare per ambata, poi con un'altra formula la numero 4, ( dove ho constatato che è rarissima questa combinazione), dei due estratti rimasti si prende solo quello che soddisfa la formula n4, e con la formula n5 (alias terza equazione) si ricava un'altro numero che abbinato al numero che nella formula n4 ha soddisfatto la risoluzione della medesima, quindi la giocata dell'ambo nel metodo originale è un evento rarissimo, ho fatto una prova su 3000 estrazioni e la condizione è uscita solo 4 volte in cui l'ambo è uscito solo nell'esempio dell'articolo.
Quindi ho pensato, se elimino la formula n2 ed invece di prendere due soli estratti, li prendo tutti e cinque accoppiati a due a due, avrò 10 coppie di due numeri e proseguo nel metodo con le 10 coppie, invece che con una e vediamo se almeno una coppia produrrà l'ambo.
Ho approfondito lo studio su questo metodo, ed ho capito che le varie formule servono per eliminare tre estratti della prima ruota ed i restanti due estratti usarli con la formula n3 per trovare i numeri da giocare per ambata, poi con un'altra formula la numero 4, ( dove ho constatato che è rarissima questa combinazione), dei due estratti rimasti si prende solo quello che soddisfa la formula n4, e con la formula n5 (alias terza equazione) si ricava un'altro numero che abbinato al numero che nella formula n4 ha soddisfatto la risoluzione della medesima, quindi la giocata dell'ambo nel metodo originale è un evento rarissimo, ho fatto una prova su 3000 estrazioni e la condizione è uscita solo 4 volte in cui l'ambo è uscito solo nell'esempio dell'articolo.
Quindi ho pensato, se elimino la formula n2 ed invece di prendere due soli estratti, li prendo tutti e cinque accoppiati a due a due, avrò 10 coppie di due numeri e proseguo nel metodo con le 10 coppie, invece che con una e vediamo se almeno una coppia produrrà l'ambo.
Codice:
'Metodo - IL TESORO NASCOSTO di DOMENICO MANNA
'Con qualche modifica di SALVO50, eliminato formula n2 e n4
'nella formula n5 si calcolano tutti e 10 gli ambi che si
'formano con i 5 estratti della prima ruota
'SCRIPT BY SALVO50
Option Explicit
Sub Main()
Dim Ini,Fin,Es,R1,R2,Caso,Casi
Dim A,B,C,D,E,F,G,H,I,L
Dim Ind,Clp,E1,E2,P1,P2,P3
Dim S1,S2,S3,S5,S6,S7,S8,A1,A2
Dim ABC,ABD,ABE,ACD,ACE,ADE,BCD,BCE,BDE,CDE
Dim Num1(2),Num2(2),Num3(2),Posta(2),Ruote(2),post(2),Num4(4)
Ini = CInt(InputBox("DA QUALE ESTRAZIONE VUOI INIZIARE?",,9520))'6474 estrazione dell'articolo, se si parte da
'questa estrazione, l'esempio dell'articolo è il caso numero 6
Clp = CInt(InputBox("QUANTI COLPI VUOI GIOCARE?",,3))
Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)' Per chi non usa Spaziometri, mettere la spunta a questa riga
Fin = EstrazioneFin
Posta(1) = 1
post(2) = 1
For Es = Ini To Fin
Caso = 0
Messaggio Es
AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
For R2 = 1 To 10
If R1 <> R2 Then
A = Estratto(Es,R1,1) : B = Estratto(Es,R1,2) : C = Estratto(Es,R1,3) : D = Estratto(Es,R1,4) : E = Estratto(Es,R1,5)
F = Estratto(Es,R2,1) : G = Estratto(Es,R2,2) : H = Estratto(Es,R2,3) : I = Estratto(Es,R2,4) : L = Estratto(Es,R2,5)
If A > 0 And F > 0 Then
If pari(F + L) Then
ABC = Fuori90(A + B + C) : ABD = Fuori90(A + B + D) : ABE = Fuori90(A + B + E)
ACD = Fuori90(A + C + D) : ACE = Fuori90(A + C + E) : ADE = Fuori90(A + D + E)
BCD = Fuori90(B + C + D) : BCE = Fuori90(B + C + E) : BDE = Fuori90(B + D + E)
CDE = Fuori90(C + D + E)
S1 = Fuori90(SommaEstratti(Es,R1))
S2 = Fuori90(SommaEstratti(Es,R2))
S3 =((3 * F) +(6 * G) +(4 * H) +(4 * I) +(5 * L))'formula n1
S3 = Fuori90(S3 / 2)
If S3 = S1 Or S3 = Diametrale(S1) Then
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A1 = Estratto(Es,R1,P1)
A2 = Estratto(Es,R1,P2)
'
S5 = Fuori90(90 +(S1 - S2 + A1 + F - G)) 'formula n3
S6 = Fuori90(90 +(S1 - S2 + A2 + F - G)) 'formula n3
S7 = Fuori90(90 +(90 -(S1 + S2 + A1 - G))) 'formula n5
S8 = Fuori90(90 +(90 -(S1 + S2 + A2 - G))) 'formula n5
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A1 Or E1 = A2 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " Somma " & Format2(S1) & " - In rosso estratti utili per formula n3",1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " Somma " & Format2(S2),1
Scrivi
'
Scrivi Space(15) & "formula n1 ",1,0
ColoreTesto 2
Scrivi Format2(S3),1,0 : ColoreTesto 0
Scrivi " Deve essere uguale alla somma prima ruota oppure al suo diametrale",1
Scrivi Space(4) & "Primo num. formula n3 ",1,0
ColoreTesto 2 : Scrivi Format2(S5),1,0 : ColoreTesto 0
Scrivi " Prodotto dal num. " & Format2(A1) & " Prima ruota",1
Scrivi Space(2) & "Secondo num. formula n3 ",1,0
ColoreTesto 2 : Scrivi Format2(S6),1,0 : ColoreTesto 0
Scrivi " Prodotto dal num. " & Format2(A2) & " Prima ruota",1
Scrivi Space(1) & "Abbinamento 1 formula n5 ",1,0
ColoreTesto 2 : Scrivi Format2(S7),1 : ColoreTesto 0
Scrivi Space(1) & "Abbinamento 2 formula n5 ",1,0
ColoreTesto 2 : Scrivi Format2(S8),1 : ColoreTesto 0
Scrivi
Num1(1) = S5 : Num1(2) = S6
Ruote(1) = R1 : Ruote(2) = R2
ImpostaGiocata 1,Num1,Ruote,Posta,Clp
Num2(1) = S5 : Num2(2) = S7
ImpostaGiocata 2,Num2,Ruote,post,Clp,2
Num3(1) = S6 : Num3(2) = S8
ImpostaGiocata 3,Num3,Ruote,post,Clp,2
Num4(1) = S5 : Num4(2) = S6 : Num4(3) = S7 : Num4(4) = S8
EliminaRipetuti Num4
ImpostaGiocata 4,Num4,Ruote,post,Clp
Gioca Es
Next
Next
End If
End If
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 26 aprile 2024Bari6567842277Cagliari3809831820Firenze7624783040Genova5056619057Milano8721151279Napoli1366862549Palermo7260687409Roma2315430775Torino8279314164Venezia6689188041Nazionale0424106973Estrazione Simbolotto
Genova
3303163532
