Script su Metodi Cabalistici, Ciclometrici & C.

[salvo50]

Ciao Matematico, appena possibile lo faccio

 

[salvo50]

Fatto

 '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]

Grazie di cuore salvo50...stò cercando nuove strade ...punti ignoti, ti farò sapere ..

 

[Juri]

Cosa si gioca nello script messo?Grazie mille.

 

[salvo50]

Cosa si gioca nello script messo?Grazie mille.

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

 

[Juri]

Grazie.

 

[salvo50]

Mi devo congratulare con tutti gli autori di questi script che sono veramente bravi , ma ogni tanto mi piacerebbe anche vedere uno script che vincesse almeno quello che SPENDE , non sempre solo la metà di quello che spende ALTRIMENTI……………...

Ciao a Tutti

Non è lo script, che ti fa vincere o perdere, è il metodo, lo script esegue solo (alla velocità della luce, forse ho esagerato) i calcoli del metodo.

 

[salvo50]

Si ma qui si parla di GRANDI E ANTICHI AUTORI , saranno pure stati grandi saranno anche antichi ma di vincite ne hanno fatte veramente poche

Ti dà fastidio nel titolo la scritta GRANDI?. Se riesco a farlo la tolgo.

 

[Matematico]

Ciao salvo50, sarebbe molto utile poter fare il listato x questa grande tecnica matematica realizzata dal grande Manna...alllego le imma gini.

Grazie sempe

 

[salvo50]

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]

Grazie di cuore salvo50

 

[Matematico]

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.

 

[salvo50]

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.

 

[salvo50]

Ciao a Tutti

Risolto il problema della somma 90, proseguo, a tempo perso.

 

[Matematico]

Ciao salvo50,

Bravissimo !Grazie attendo tranquillo

Un saluto a tutti

 

[Enplein]

In generale provo dispiacere leggere un proprio post copiato senza dire la fonte.
Dico solamente che si tratta di un comportamento scorretto.
Ciao. Enplein.

 

[Matematico]

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

 

[Enplein]

Lo so che in rete si trova di tutto, ma ci sono pure gli autori...comunque non ci sono problemi, ormai ho messo i remi in barca.

Ciao, Enplein.

 

[salvo50]

Ciao a Tutti

Risolto il problema della somma 90, proseguo, a tempo perso.

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.

'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

 

[salvo50]

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.

'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