Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Matematico ha scritto:
Anche a me sembra più logico , ma l'autore ha messo l'esempio in quel modo e credo che solo cosi si può avere il risultato positivo . Grazie confermo la modifica :)
Clicca per espandere...
L'ho cambiato, è solo nella visualizzazione che cambia, nello script li avevo già invertito perché in fase di sviluppo mi ero accorto che le righe le aveva iniziato con gli estratti della seconda ruota e quindi avevo seguito questo criterio, invece nell'originale le righe iniziano con gli estratti della prima ruota.
 
Per Salvo lo script che hai fatto a Matematico manca di un particolare per essere perfetto.

Primo estratto prima cinquina + somma seconda cinquina = 90
 
Ciao Everita C

Ho inserito la modifica da te richiesta, ma non l'ho resa operativa, cioè l'estrazione appare lo stesso anche se la somma totale della 4a equazione (richiesta da te) non è 90, se la vuoi operativa dimmelo che la rendo operativa.

In questo Topic a pagina 14 post 269 c'è un altro Byron che ho fatto a Pasqualino C. dove ci sono ben 5 equazioni perfette, nel quale li ho messe che si possono escludere ed includere, praticamente da inputbox (cioè le prime domande che chiede lo script) puoi decidere quale equazioni delle cinque devono essere perfette, cioè a 90. Lo script è il secondo quello definitivo.

Codice: 
Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim R1,R2,Es1,Es2,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
   Dim FIn,Ini,S12,S13,S11a,S14,S15
   Dim Ok,xB3,XX,Diam_B3,Som_S2_S6
   Dim Ambata,Salvo50,FInx,Comb
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
   Scrivi " Modifica al Metodo Byron di Matematico con modifica chiesta da Everita C. - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FInx To Ini Step - 1
      AvanzamentoElab FInx,Ini,Es1
      For Es2 = FInx To Ini Step - 1
         Messaggio " Prima Estrazione " & Es1 & "  Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
         If(Es1 <> Es2) And(Es2 < Es1) Then
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               B1 = Estratto(Es1,R1,1)
               If B1 > 0 Then
                  B2 = Estratto(Es1,R1,2)
                  B3 = Estratto(Es1,R1,3)
                  B4 = Estratto(Es1,R1,4)
                  B5 = Estratto(Es1,R1,5)
                  Diam_B3 = Diametrale(B3)
                  SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     A1 = Estratto(Es2,R2,1)
                     If A1 > 0 Then
                        A2 = Estratto(Es2,R2,2)
                        A3 = Estratto(Es2,R2,3)
                        A4 = Estratto(Es2,R2,4)
                        A5 = Estratto(Es2,R2,5)
                        XX = Fuori90((A3 * 6) + A1)
                        SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
                        If Distanza(B3,A4) = 45 Then
                           '-----------------------------------------
                           S1 = Fuori90(A1 + A2 + XX + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
                           S2 = Fuori90(A2 + XX + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
                           S3 = Fuori90(XX + 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
                           Som_S2_S6 = Fuori90(S2 + S6)
                           Ok = 0
                           If Som_S2_S6 = 45 Then
                              D1 = Fuori90(90 +(A1 - A2))
                              D2 = Fuori90(90 +(A2 - XX))
                              D3 = Fuori90(90 +(XX - 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) 'somma differenze
                              Ambata = Fuori90(S10 + B1)
                              S7 = Fuori90(Ambata + B2 + B3 + B4 + B5)
                              If S7 < 10 Then S7 = S7 + 90 'somma settima colonna
                              S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
                              S11a = Fuori90(S11 + S7) 'somma delle Sette somme
                              S12 = Fuori90(S11a + S10)' 1a Equazione
                              S13 = Fuori90(SoC2 + B1) '2a Equazione
                              S14 = Fuori90(S10 + S11) '3a Equazione
                               
                              If S12 = 90 And S13 = 90 And S14 = 90 Then Ok = 1
                              If Ok = 1 Then
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & "  Somma = " & Format2(SoC2),1,0
                                 Scrivi "  Seconda Ruota",1
                                 Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1,0
                                 Scrivi "  Prima ruota",1
                                 Scrivi
                                 Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
                                 Scrivi " " & Format2(D5) & " " & Format2(D6) & "    -  Somma Delle 11 Distanze = ",1,0
                                 Scrivi Format2(S10),1,,,1
                                 Scrivi Space(20) & String(20,"-"),1
                                 Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(XX) & " " & Format2(A4),1,0
                                 Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
                                 Scrivi Space(20) & Format2(A2) & " " & Format2(XX) & " " & Format2(A4) & " " & Format2(A5),1,0
                                 Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                                 Scrivi Space(20) & Format2(XX) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                                 Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),1
                                 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
                                 Scrivi " " & Format2(Ambata),1,,,2
                                 Scrivi Space(20) & String(20,"-")
                                 Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                                 Scrivi " " & Format2(S5) & " " & Format2(S6) & " ",1,0
                                 Scrivi Format2(S7),1,0,,1
                                 Scrivi " -  Somma delle 6 Colonne ",1,0
                                 Scrivi Format2(S11),1,,,1
                                 Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                                 Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
                                 Scrivi
                                 Scrivi Space(20) & Format2(S11a) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
                                 Scrivi " Somma Delle somme più Somma Delle Differenze ",1,,,1
                                 Scrivi Space(20) & Format2(SoC2) & " + " & Format2(B1) & " = " & Format2(S13) & " 2ª Equazione ",1,0
                                 Scrivi " Somma della 2ª cinquina più 1° Estratto 1ª cinquina",1,,,2
                                 Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S14) & " 3ª Equazione ",1,0
                                 Scrivi " Somma delle differenz più somma delle sei colonne",1,,,1
                                  

                                 Scrivi
                                 Scrivi
                                 If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
                                 '---------------------------------------------------------------------------------------------------
                                 If Casi = Comb Then Exit Sub
                              End If
                           End If
                        End If
                     End If
                  Next
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 
Ultima modifica:
Ciao Salvo appena tornata da lavoro e leggo adesso la risposta.

Ok puoi rendere operativa la richiesta.

Ti ricordo le tre equazioni fondamentali:

Prima equazione:

Somma delle somme + somma delle differenze = 90

Seconda equazione:

Somma seconda cinquina + primo estratto prima cinquina = 90

Terza equazione :

Somma di tutte le differenze + somma delle sei colonne = 90

Un ' immenso grazie per la mia richiesta e una buona giornata.
 
Ciao Salvo buon pomeriggio scusa se sono invadente ma io leggo 4 equazioni mentre ne servono 3.

Le tre che ti ho elencato sopra.

Grazie infinite.
 
Ciao Everita

Avevo capito che dovevo aggiungerla a quelle già esistenti, siccome già 3 c'erano quella che hai chiesto è diventata la quarta, comunque adesso ho tolto quelle che già c'erano ed ho messo solo le ultime 3 equazioni da te suggerite e le ho messe tutte e tre operative

Quindi lo script è da riprendere
 
X Salvo50 Buon pomeriggio se fosse possibile aggiungere allo script interruzione ricerca alla prima previsione trovata senza far finire la ricerca completa.
Grazie di nuovo.
 
EVERITA C ha scritto:
X Salvo50 Buon pomeriggio se fosse possibile aggiungere allo script interruzione ricerca alla prima previsione trovata senza far finire la ricerca completa.
Grazie di nuovo.
Clicca per espandere...
Ciao Everita,

Non penso che si possa fare una cosa del genere con gli script, cioè fare visualizzare una prima schermata e lo script continuare a cercare le altre eventuali uscite.

Lo script che ho fatto a Pasqualino C. è L'originale cambia solo che ci sono 4 equazioni in più
.
Invece lo script chiesto da Matematico è diverso dall'originale in due parti, la prima è che nell'impostazione della tavola nell'originale inizia con la prima cinquina invece in questo inizia con la seconda cinquina, l'altra modifica e che distanze a partire della settima fino alla undicesima vengono prese dalle somme delle 6 colonne, probabilmente è questo che rallenta tutto l'apparato, invece nell'originale le distanze vengono prese prima delle somme, cioè vengono prese sull'ultima riga.

Quando ho fatto lo script a Pasqualino C. avevo un altro computer con w7 per la ricerca fino alla prima estrazione impiegava 6 secondi, con questo computer dove ho windows10 ci impiega 50 secondi ed in quello chiesto da Matematico ci impiego 2 minuti e 30 secondi.

Quindi se vuoi che sia veloce come quello di Pasqualino C. te lo faccio con le tue equazioni però sappi che è quello originale senza le due modifiche del Byron chiesto da Matematico.
 
salvo50 ha scritto:
Quando ho fatto lo script a Pasqualino C. avevo un altro computer con w7 per la ricerca fino alla prima estrazione impiegava 6 secondi, con questo computer dove ho windows10 ci impiega 50 secondi
Clicca per espandere...
Salvo ma il nuovo pc ha un processore meno potente? In teoria le versioni più recenti sono più veloci .
Un i5 recente e più veloce di un i7 di una generazione più vecchia.
Così mi hanno spiegato. È 9 volte più lento? Possibile?
 
Buonasera Salvo lo script e' perfetto cosi ed e' strano che non ha cercato neanche una previsione.

A mano con l'aiuto di un'altro programma impiego circa mezza giornata a trova almeno una previsione.

Ho quattro esempi ma non so come postarli:

Provo a scriverli a mano:

21/12/1946 CA 67-22-26-65-28 8 ( il 26 diventa 30)

20/04/2023 NAZ. 57-62-20-78-76


23/02/2012 NA 67-18-48-65-71 ( il 48 diventa 81 )

20/04/2023 NAZ. 57-62-20-78-76

19/04/1958 FI 4-19-36-31-65 ( il 36 diventa 45 )

22/04/2023 BA 69-64-76-90-57

31/01/1981 NA 83-15-23-71-49 ( il 23 diventa 53 )

22/04/2023 VE 30-57-26-89-75


Spero possa esserti d'aiuto per capire perche' non trova previsioni.

Un grazie immenso per cio' che stai facendo.

Sempre disponibile e tempestivo nelle richieste.
 
i legend ha scritto:
Salvo ma il nuovo pc ha un processore meno potente? In teoria le versioni più recenti sono più veloci .
Un i5 recente e più veloce di un i7 di una generazione più vecchia.
Così mi hanno spiegato. È 9 volte più lento? Possibile?
Clicca per espandere...
Ciao ILegend penso sia colpa delll'antivirus

per Everita avevo dimenticato una terza modifica che è quella che cambia il terzo numero, e il fatto che non trova quelli da te riscontrati è perché io non so quale il criterio del cambio di numero, me ne sono immaginato uno è l'ho applicato, con l'estrazione chiesta da matematico ha funzionato, ma è evidente che non è quella da me inserita, quindi io non so con che criterio viene cambiato il terzo numero, Matematico mi aveva spiegato che bisogna aggiungere dei numeri finche non trova la combinazione giusta, ma io non so come applicarla in uno script, quindi mi dispiace ma io non so come fare
 
Ultima modifica:
Buongiorno Salvo c'e' uno script che hai fatto di recente dove tutte le condizioni della tecnica risultano tranne una.

Somma seconda cinquina + primo estratto prima cinquina = 90

Prova ad aggiungere questa e vediamo.

Option Explicit
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
Dim R1,R2,Es1,Es2,Casi,SoC1,SoC2
Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
Dim FIn,Ini,S12,S13,S11a,S14
Dim Ok,xB3,XX,Diam_B3,Som_S2_S6
Dim Ambata,Salvo50,FInx,Comb
FIn = EstrazioneFin
FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
Scrivi Space(8) & " Modifica al Metodo Byron di Matematico - SCRIPT SALVO50",1,,4,,3,,1
For Es1 = FInx To Ini Step - 1
AvanzamentoElab FInx,Ini,Es1
For Es2 = FInx To Ini Step - 1
Messaggio " Prima Estrazione " & Es1 & " Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
If(Es1 <> Es2) And(Es2 < Es1) Then
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
B1 = Estratto(Es1,R1,1)
If B1 > 0 Then
B2 = Estratto(Es1,R1,2)
B3 = Estratto(Es1,R1,3)
B4 = Estratto(Es1,R1,4)
B5 = Estratto(Es1,R1,5)
Diam_B3 = Diametrale(B3)
SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
A1 = Estratto(Es2,R2,1)
If A1 > 0 Then
A2 = Estratto(Es2,R2,2)
A3 = Estratto(Es2,R2,3)
A4 = Estratto(Es2,R2,4)
A5 = Estratto(Es2,R2,5)
XX = Fuori90((A3 * 6) + A1)
SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
If Distanza(B3,A4) = 45 Then
'-----------------------------------------
S1 = Fuori90(A1 + A2 + XX + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
S2 = Fuori90(A2 + XX + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
S3 = Fuori90(XX + 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
Som_S2_S6 = Fuori90(S2 + S6)
Ok = 0
If Som_S2_S6 = 45 Then
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - XX))
D3 = Fuori90(90 +(XX - 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)
S7 = Fuori90(Ambata + B2 + B3 + B4 + B5)
If S7 < 10 Then S7 = S7 + 90 'somma settima colonna
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
S11a = Fuori90(S11 + S7) 'somma delle Sette somme
S12 = Fuori90(S11 + S10)' 1a Equazione
S13 = Fuori90(A1 + S11a) '2a Equazione
S14 = Fuori90(B1 + Ambata) '3a Equazione
If S12 = 90 Then Ok = 1 'And S13 = 90 And S14 = 90 Then Ok = 1
If Ok = 1 Then
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & " Somma = " & Format2(SoC2),1,0
Scrivi " Seconda Ruota",1
Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1,0
Scrivi " Prima ruota",1
Scrivi
Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
Scrivi " " & Format2(D5) & " " & Format2(D6) & " - Somma Delle 11 Distanze = ",1,0
Scrivi Format2(S10),1,,,1
Scrivi Space(20) & String(20,"-"),1
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(XX) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
Scrivi Space(20) & Format2(A2) & " " & Format2(XX) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(XX) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),1
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
Scrivi " " & Format2(Ambata),1,,,2
Scrivi Space(20) & String(20,"-")
Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
Scrivi " " & Format2(S5) & " " & Format2(S6) & " ",1,0
Scrivi Format2(S7),1,0,,1
Scrivi " - Somma delle 6 Colonne ",1,0
Scrivi Format2(S11),1,,,1
Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
Scrivi
Scrivi Space(20) & Format2(S11) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
Scrivi " Somma Tra Somma Delle 6 colonne e Somma Delle Distanze ",1,,,1
Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(S13) & " 2ª Equazione ",1,0
Scrivi " Somma Del 1° Estratto 2ª Ruota, Somma Delle 7 colonne",1,,,2
Scrivi Space(20) & Format2(B1) & " + " & Format2(Ambata) & " = " & Format2(S14) & " 3ª Equazione ",1,0
Scrivi " Somma tra 1° Estratto 1ª Ruota più Ambata",1,,,1
Scrivi
Scrivi
If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
'---------------------------------------------------------------------------------------------------
If Casi = Comb Then Exit Sub
End If
End If
End If
End If
Next
End If
If ScriptInterrotto Then Exit Sub
Next
End If
If ScriptInterrotto Then Exit Sub
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub
 
Ciao Everita

Più condizioni si mettono, meno riscontri ci saranno, ho messo l'equazione che hai suggerito ed ho tolto la terza che c'era prima ho tolto anche 2 condizioni che non figuravano nelle equazioni, queste condizioni c'erano perché io l'avevo capita così.

Io non penso che così la questione sia risolta, l'unica soluzione è quella di cambiare il terzo numero della seconda cinquina per avere le 3 equazioni proposte da te, sono 3 equazioni spiegate benissimo senza ombra di dubbio, che senza il terzo numero modificato nel modo giusto non serve a niente aggiungere altre modifiche, l'equazione proposta l'ho resa operativa, quindi con questo script operativi cioè con somma 90 ci sono la prima e la terza.


Codice: 
Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim R1,R2,Es1,Es2,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
   Dim FIn,Ini,S12,S13,S11a,S14
   Dim Ok,xB3,XX,Diam_B3,Som_S2_S6
   Dim Ambata,Salvo50,FInx,Comb
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
   Scrivi Space(8) & " Modifica al Metodo Byron di Matematico - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FInx To Ini Step - 1
      AvanzamentoElab FInx,Ini,Es1
      For Es2 = FInx To Ini Step - 1
         Messaggio " Prima Estrazione " & Es1 & " Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
         If(Es1 <> Es2) And(Es2 < Es1) Then
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               B1 = Estratto(Es1,R1,1)
               If B1 > 0 Then
                  B2 = Estratto(Es1,R1,2)
                  B3 = Estratto(Es1,R1,3)
                  B4 = Estratto(Es1,R1,4)
                  B5 = Estratto(Es1,R1,5)
                  Diam_B3 = Diametrale(B3)
                  SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     A1 = Estratto(Es2,R2,1)
                     If A1 > 0 Then
                        A2 = Estratto(Es2,R2,2)
                        A3 = Estratto(Es2,R2,3)
                        A4 = Estratto(Es2,R2,4)
                        A5 = Estratto(Es2,R2,5)
                        XX = Fuori90((A3 * 6) + A1)
                        SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
                        '-----------------------------------------
                        S1 = Fuori90(A1 + A2 + XX + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
                        S2 = Fuori90(A2 + XX + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
                        S3 = Fuori90(XX + 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
                        Som_S2_S6 = Fuori90(S2 + S6)
                        Ok = 0
                        D1 = Fuori90(90 +(A1 - A2))
                        D2 = Fuori90(90 +(A2 - XX))
                        D3 = Fuori90(90 +(XX - 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)
                        S7 = Fuori90(Ambata + B2 + B3 + B4 + B5)
                        If S7 < 10 Then S7 = S7 + 90 'somma settima colonna
                        S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
                        S11a = Fuori90(S11 + S7) 'somma delle Sette somme
                        S12 = Fuori90(S11 + S10)' 1a Equazione
                        S13 = Fuori90(A1 + S11a) '2a Equazione
                        S14 = Fuori90(SoC2 + B1) '3a Equazione
                        If S12 = 90 And S14 = 90 Then Ok = 1 'And S13 = 90 And S14 = 90 Then Ok = 1
                        If Ok = 1 Then
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                           Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & " Somma = " & Format2(SoC2),1,0
                           Scrivi " Seconda Ruota",1
                           Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                           Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1,0
                           Scrivi " Prima ruota",1
                           Scrivi
                           Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
                           Scrivi " " & Format2(D5) & " " & Format2(D6) & " - Somma Delle 11 Distanze = ",1,0
                           Scrivi Format2(S10),1,,,1
                           Scrivi Space(20) & String(20,"-"),1
                           Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(XX) & " " & Format2(A4),1,0
                           Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
                           Scrivi Space(20) & Format2(A2) & " " & Format2(XX) & " " & Format2(A4) & " " & Format2(A5),1,0
                           Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                           Scrivi Space(20) & Format2(XX) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                           Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),1
                           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
                           Scrivi " " & Format2(Ambata),1,,,2
                           Scrivi Space(20) & String(20,"-")
                           Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                           Scrivi " " & Format2(S5) & " " & Format2(S6) & " ",1,0
                           Scrivi Format2(S7),1,0,,1
                           Scrivi " - Somma delle 6 Colonne ",1,0
                           Scrivi Format2(S11),1,,,1
                           Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                           Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
                           Scrivi
                           Scrivi Space(20) & Format2(S11) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
                           Scrivi " Somma Tra Somma Delle 6 colonne e Somma Delle Distanze ",1,,,1
                           Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(S13) & " 2ª Equazione ",1,0
                           Scrivi " Somma Del 1° Estratto 2ª Ruota, Somma Delle 7 colonne",1,,,2
                           Scrivi Space(20) & Format2(SoC2) & " + " & Format2(B1) & " = " & Format2(S14) & " 3ª Equazione ",1,0
                           Scrivi " Somma 2ª Cinquina più 1° Estratto 1ª Cinquina",1,,,1
                           Scrivi
                           Scrivi
                           If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
                           '---------------------------------------------------------------------------------------------------
                           If Casi = Comb Then Exit Sub
                        End If
                     End If
                  Next
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 
Pensandoci bene non dovrebbe essere difficile trovare il modo di cambiare del terzo numero incrementandolo di 1 finche non trova il numero giusto per avere a 90 le somme delle equazioni, ma per il mio computer è proibitivo, mi spiego, ho già detto che per partendo da una estrazione andando a ritroso fino alla prima estrazione, il mio computer impiega 2 minuti e 30 secondi più o meno, ora ogni volta che lo incremento di un numero passano 2 minuti e mezzo, quindi per una sola estrazione andando a ritroso fino alla prima estrazione il mio computer impiegherebbe in ordine di tempo 2,30 per 90 numeri saranno più di 4 ore per ogni estrazione, le estrazioni sono più di 10000
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 22 novembre 2024
    Bari
    27
    45
    81
    17
    55
    Cagliari
    78
    66
    45
    03
    14
    Firenze
    14
    90
    72
    88
    55
    Genova
    33
    23
    82
    81
    24
    Milano
    25
    79
    13
    42
    15
    Napoli
    39
    35
    65
    01
    14
    Palermo
    25
    83
    69
    50
    36
    Roma
    25
    71
    22
    10
    55
    Torino
    59
    30
    43
    74
    49
    Venezia
    39
    90
    77
    05
    35
    Nazionale
    82
    60
    62
    65
    59
    Estrazione Simbolotto
    Torino
    44
    12
    32
    06
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto