Novità

Per salvo50 -Metodo Maltese interessante!

Matematico

Advanced Member >PLATINUM<



spacer.gif

Ciao salvo50 e tutti, cercando in rete mi sono imbattuto su questo metodo sul "Maltese"...e' senza nome .
Dai risultati credo valga la pena di creare un listato per testarlo su piu' estrazioni grazie
smile.gif



SOLO UNA PARENTESI NEI MIEI STUDI SUL" MALTESE":
DAL “QUADRARO DEL MALTESE”:
COME DA VOSTRA RICHIESTA, MOSTRO PER LA PRIMA VOLTA UN ACCENNO SUI MIEI STUDI CIRCA LE PRESUNTE PROCEDURE ADOTTATE DAL MISTERIOSO “MALTESE” SECONDO LE MIE PERSONALI INTERPRETAZIONI!
SICCOME SONO QUADRATI CHE IO “RAZIONALMENTE” CHIAMO “MODULI ARTMETICI” CHE HANNO UNA PARZIALE SIMILITUDINE CON GLI ANTICHI QUADRATI CINESI, MA CHE VANNO RICOSTRUITI TRA VARIE ESTRAZIONI DI UNA DETERMINATA RUOTA, LA PROCEDURA SAREBBE MOLTO LUNGA DA SPIEGARE, PERCIO’ NE MOSTRO UNO FACILMENTE VISIVO FORMATOSI NELLE ULTIME 4 ESTRAZIONI CONSECUTIVE, DELL’ANNO APPENA TRASCORSO CHE HA CONTRIBUITO A PORTARE LE VINCITE DI CAPODANNO SULLA RUOTA DI BARI!
QUESTI TIPI SONO UN PO’ PIU’ RARI MA OGNI TANTO ESCONO ANCHE COSI’:
ESTR. 18/12/04 BA XX-XX-61-XX-XX
ESTR. 22/12/04 BA 14-46-48-XX-XX
ESTR. 27/12/04 BA 59-03-89-XX-XX
ESTR. 29/12/04 BA 02-15-18-XX-XX
IN QUESTO MODULO DI 10 NUMERI POSSIAMMO NOTARE DIVERSE ARMONIE MATEMATICHE , PER PRIMA COSA POTETE OSSERVARE CHE TUTTI E 10 DIVISI IN 5 COPPIE DANNO 17 COME VALORE DI SOMMA:
61+46=17
14+03=17
48+59=17
89+18=17
02+15=17
PERCIO’ CONSIDERIAMO IL 17 COME VALORE DOMINANTE, QUINDI FUTURA AMBATA!
IL 61 ,POI, CHE E’ IL NUMERO DI APERTURA DI QUESTA ARMONIA LO RITROVIAMO ESPRESSO NEGLI STESSI VALORI DI SOMMA CONTENUTI IN QUESTO MODULO:
1) NELLA SOMMA DELLA TERZA RIGA: 59+3+89= 61 (CALCOLI SEMPRE EFFETTUATI COL -90),
2) NELLA SOMMA TRA 59 E 2 NELLA PRIMA COLONNA VERTICALE DI SINISTRA (59+2=61)
3) NELLA SOMMA TRA 46 E 15 NELLA SECONDA COLONNA VERTICALE CENTRALE (46+15=61)
PERCIO’ IL 61 OLTRE AL TENTATIVO DI ABBINAMENTO COME NUMERO DI APERTURA MA PRESUMIBILE ANCHE DI CHIUSURA, ASSUME UNA RILEVANZA NEL RUOLO DELLE SOMME!
QUINDI IN GENERE IO ABBINO ALL’AMBATA IL NUMERO DI APERTURA FORMANDO UN SOLO AMBO SECCO, IN QUESTO CASO: 17-61!
PER LE SORTI DI TERNO E QUATERNA ABBINO IL NUMERO INTEGRATORE TRA IL 17 AL 61, OVVERO LA DIFFERENZA 44 (61-17=44) E LA SOMMA TRA 17 E 61, OVVERO 78 (61+17=78)!
PREVISIONE FINALE SU BARI:
17 AMBATA
17-61 AMBO
17-61-44 AMBO E TERNO
17-61-44-78 AMBO, TERNO, QUAT.
LA VINCITA L’ABBIAMO AVUTA A COLPO CON 17 AMBATA, 17-61 AMBO, 17-61-44 TERNO SECCO E TERNO ANCHE IN QUARTINA!
PERCIO’ LA QUINTA RIGA DEL MODULO, OVVERO NELL’ESTRAZ. DEL 3/1/05 SI E’ CONCLUSA NELLO STESSO MODO ISOTOPO, CIOE’ NELLE MEDESIME POSIZIONI DI 1°/2°/3° ESTRATTO CON 61 IN CHIUSURA, 17 DOMINANTE, 44 INTEGRATORE:
ESTR. 18/12/04 BA XX-XX-61-XX-XX
ESTR. 22/12/04 BA 14-46-48-XX-XX
ESTR. 27/12/04 BA 59-03-89-XX-XX
ESTR. 29/12/04 BA 02-15-18-XX-XX
ESTR. 03/01/05 BA 61-17-44-XX-XX

E QUESTA ERA LA PREVISIONE PRIORITARIA, MA DAL MODULO INIZIALE RILEVIAMO ANCHE ALTRI INDIZI ARMONICI, E CIOE’ IL DOPPIO RUOLO DEL 18 ULTIMO DELLA COLONNA VERTICALE DI DESTRA PERCHE’ IN SENSO DIAGONALE DA DESTRA VERSO SINISTRA COMPONE SOMMA 35 (18+3+14=35) E IN SENSO ORIZZONTALE COMPONE SEMPRE 35 (18+15+2=35), NONCHE’ IL 18 ESPRESSO ANCH’EGLI IN VALORI DI SOMME CONTENUTI NEL MODULO:
1) SECONDA RIGA ORIZZONTALE : 14+46+48=18
2) SECONDA COLONNA VERTICALE : 3+15=18
3) DIFFERENZA TRA LE 2 DIAGONALI : 18+3+14=35 E 2+3+48=53 QUINDI 53-35=18
PERCIO’ SI AVEVA UNA SECONDA PREVISIONE CON AMBATA 18 E AMBO SECCO 18-35 DUPLICE SOMMA TRA LA RIGA ORIZZ. E LA DIAGONALE CON LO STESSO VERTICE 18!
LA VINCITA SI E’ AVUTA AL 4° COLPO CON AMBATA 18 SU BARI E AMBO SECCO 18-35!
NOTASI ANCHE CHE NELL’ULTIMA ESTR. DI MERC. 19/1/05 E’ RICOMPARSO SU BARI IL 18 IN TERNO CON 44-78 I 2 NUMERI DI SOMMA E DIFFERENZA TRA 17-61 DELLA PRIMA PREVISIONE!
QUESTO E’ UN ACCENNO AI MIEI STUDI SU QUESTO FENOMENO E L’IPOTESI DI ELABORAZIONI SECONDO LA MIA INTERPRETAZIONE NELLE PROCEDURE DEL MALTESE! QUESTA PARENTESI, QUINDI, QUI SI E’ APERTA E QUI SI CHIUDE!
POI SIA O NON SIA COSI’, L’IMPORTANTE E’ CHE ESCA IL SUGO IN QUELLO CHE SI FA’ CON TANTA PAZIENZA E DEDIZIONE!
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ho dato una rapida occhiata e non lo vedo semplice fare questo script, ci provo, naturalmente chiunque può cimentarsi a fare questo script, per me è complicato, ma per altri può essere semplice.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Questo script è solo una bozza, prima di proseguire devo chiederti qualche chiarimento, però adesso non ho tempo, a dopo

Codice:
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,Caso,Casi,P1
   Dim Ruota,X,Y,Somma(45),K,K1,K2,S1,S2
   Dim A(5),B(5),C(5),D(5),Num(10)

   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9600)'7395 per l'esempio nell'articolo, Ruota Bari
   Ruota = CInt(InputBox(" In quale ruota vuoi giocare? ",,1))
   'Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(1) & " PER MATEMATICO - BOZZA PER QUADRATO MALTESE - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To Fin
      'If IndiceMensile(Es) = 1 Then
      Caso = 0
      Messaggio(Es)
      AvanzamentoElab Ini,Fin,Es
      For R1 = Ruota To Ruota
         S1 = ""
         S2 = ""
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Estratto(Es + 1,R1,P1)
            C(P1) = Estratto(Es + 2,R1,P1)
            D(P1) = Estratto(Es + 3,R1,P1)
         Next
         If A(1) > 0 Then
            Num(1) = A(3)
            Num(2) = B(1) : Num(3) = B(2) : Num(4) = B(3)
            Num(5) = C(1) : Num(6) = C(2) : Num(7) = C(3)
            Num(8) = D(1) : Num(9) = D(2) : Num(10) = D(3)
            K = 0
            For X = 1 To 9
               For Y = X + 1 To 10
                  K = K + 1
                  Somma(K) = Fuori90(Num(X) + Num(Y))
               Next
            Next
            Caso = Caso + 1
            Casi = Casi + 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            '
            Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1
            '
            Scrivi(" Estrazione n." & Format2(Es + 2) & " del " & DataEstrazione(Es + 2)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 2,R1),1
            '
            Scrivi(" Estrazione n." & Format2(Es + 3) & " del " & DataEstrazione(Es + 3)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 3,R1),1
            '
            Scrivi
            Scrivi " Tutte le 45 somme che si formano con i 10 numeri ",1,0
            Scrivi StringaNumeri(Num," ",True),1
            Scrivi StringaNumeri(Somma," ",True),1
            Scrivi String(89,"*")
            ReDim VetRitornoN(45)
            ReDim VetRitornoQ(45)
            Call NumeriRipetutiRilevatiV(Somma,VetRitornoN,VetRitornoQ)
            For K1 = 1 To UBound(VetRitornoN)
               S1 = S1 &(Format2(VetRitornoN(K1)) & " ")
            Next
            Scrivi "Somme Rilevate più di una volta    " & S1,1
            For K2 = 1 To UBound(VetRitornoQ)
               S2 = S2 &(VetRitornoQ(K2) & "  ")
            Next
            Scrivi "Quante volte per ogni somma        " & S2,1
            'ImpostaGiocata 1,Amba,Ru,Posta,Clp,2,4
            'Gioca Es
         End If
      Next
      'End If
   Next
   'ScriviResoconto
End Sub
 

Matematico

Advanced Member >PLATINUM<
Ciao salvo50, ok và bene quado puoi ...comunque ti dico subito che c'è qualcosa che non và nello script, perchè' la condiizone di ricerca è quella di rilevare 5 somme che diano lo stesso numero che poi sarà l'ambata capogioco come da esempio...
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Matematico;n2176170 ha scritto:
Ciao salvo50, ok và bene quado puoi ...comunque ti dico subito che c'è qualcosa che non và nello script, perchè' la condiizone di ricerca è quella di rilevare 5 somme che diano lo stesso numero che poi sarà l'ambata capogioco come da esempio...

Ciao Matematico, lo script va bene, sono io che ho sbagliato facendo visualizzare troppe cose, che ho capito che a te non interessano, adesso ho tolto la visualizzazione delle 45 somme, ho lasciato tutti i numeri che hanno la somma uguale per più di una volta, perchè non riesco a separare quella che si verifica per 5 volte, quindi chiedo aiuto, come faccio una volta trovato tutte le somme, a estrapolare solo quella che si verifica 5 volte?

E faccio visualizzare solo le estrazioni che hanno somme uguali per 5 volte, alla fine c'è un resoconto di tutte le somme che si sono verificate per 5 volte nell'arco di estrazioni impostate, solo per curiosità ho messo un inputobox per variare questo valore di 5, se qualcuno vuole fare esperimenti cercando altre somme.

Quindi se non ho questo valore che è la somma uguale per 5 volte, non posso andare avanti per finire lo script, questo script come quello del post 4 è solo una BOZZA

Rinnovo l'aiuto per estrapolare solo le somme che si sono verificate per 5 volte.

Grazie

Codice:
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,Caso,Casi,P1,K3
   Dim Ruota,X,Y,Somma(45),K,K1,K2,S1,S2
   Dim Amba(2),Ru(1),Posta(2),OK,Q,K4,S4
   Dim A(5),B(5),C(5),D(5),Num(10)
   Posta(1) = 1
   Posta(2) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,1)'7395 per l'esempio nell'articolo, Ruota Bari
   Ruota = CInt(InputBox(" In quale ruota vuoi giocare? ",,1))
   Q = CInt(InputBox("Quale numero dei ripetuti deve trovare? Da 2 a 7",,5))
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(1) & " PER MATEMATICO - BOZZA PER QUADRATO MALTESE - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To Fin
      'If IndiceMensile(Es) = 1 Then
      Caso = 0
      Messaggio(Es)
      AvanzamentoElab Ini,Fin,Es
      For R1 = Ruota To Ruota
         S1 = ""
         S2 = ""
         S4 = ""
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Estratto(Es + 1,R1,P1)
            C(P1) = Estratto(Es + 2,R1,P1)
            D(P1) = Estratto(Es + 3,R1,P1)
         Next
         If A(1) > 0 Then
            Num(1) = A(3)
            Num(2) = B(1) : Num(3) = B(2) : Num(4) = B(3)
            Num(5) = C(1) : Num(6) = C(2) : Num(7) = C(3)
            Num(8) = D(1) : Num(9) = D(2) : Num(10) = D(3)
            K = 0
            For X = 1 To 9
               For Y = X + 1 To 10
                  K = K + 1
                  Somma(K) = Fuori90(Num(X) + Num(Y))
               Next
            Next
            ReDim VetRitornoN(45)
            ReDim VetRitornoQ(45)
            Call NumeriRipetutiRilevatiV(Somma,VetRitornoN,VetRitornoQ)
            For K1 = 1 To UBound(VetRitornoN)
               S1 = S1 &(Format2(VetRitornoN(K1)) & " ")
            Next
            For K4 = 1 To UBound(VetRitornoQ)
               S4 = S4 &(VetRitornoQ(K4) & "  ")
            Next
            OK = 0
            For K2 = 1 To UBound(VetRitornoQ)
               If VetRitornoQ(K2) = Q Then
                  K3 = K3 + 1
                  S2 = S2 &(VetRitornoQ(K2) & "  ")
                  OK = 1
               End If
            Next
            If OK = 1 Then
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
               '
               Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1
               '
               Scrivi(" Estrazione n." & Format2(Es + 2) & " del " & DataEstrazione(Es + 2)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 2,R1),1
               '
               Scrivi(" Estrazione n." & Format2(Es + 3) & " del " & DataEstrazione(Es + 3)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 3,R1),1
               '
               Scrivi
               Scrivi String(89,"*")
               Scrivi "Somme Rilevate più di una volta    " & S1,1,,,1
               Scrivi "Quante volte per ogni somma        " & S4,1,,,1
               Scrivi "Quantità somme utili               " & S2,1,,,2
               Ru(1) = R1
            End If
         End If
      Next
   Next
   Scrivi
   Scrivi"  Dall'estrazione n" & Ini & " All'estrazione n" & Fin &  " Totale delle somme che si ripetano per ",1,0
   Scrivi Format2(Q) & "  Volte  = " & K3,1
   Scrivi
   If Q = 1 Then Scrivi " Hai inserito 1, numero non ammesso, devi inserire minimo 2 ",1,,,2,3
   If Q > 7 Then Scrivi " Hai inserito un numero superioe a 7, è molto improbabile che si verifica qualche caso ",1,,,2,3
End Sub
 
Ultima modifica:
R

Rubino

Guest
Ciao salvo
metti una array con indice la somma
E conta + 1


alla fine. Leggi questa array
e scrivi solo la somma che ha 5 presenze



Sempre che io abbia capito ma ho letto velocemente
 
Ultima modifica di un moderatore:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Rubino, grazie per aver risposto, per questo calcolo uso la funzione NumeriRipetutiRilevatiV

Codice:
ReDim VetRitornoN(45)
            ReDim VetRitornoQ(45)
            Call NumeriRipetutiRilevatiV(Somma,VetRitornoN,VetRitornoQ)


' con questo For-Next calcolo i numeri che sono doppi, tripli,ecc...          

For K1 = 1 To UBound(VetRitornoN)
               S1 = S1 &(Format2(VetRitornoN(K1)) & " ")
            Next

'Con questo le quantità
For K4 = 1 To UBound(VetRitornoQ)
               S4 = S4 &(VetRitornoQ(K4) & "  ")
            Next
            OK = 0

'con questo estrapolo solo le quantita (per le quantità ci sono riuscito)
For K2 = 1 To UBound(VetRitornoQ)
               If VetRitornoQ(K2) = Q Then
                  K3 = K3 + 1
                  S2 = S2 &(VetRitornoQ(K2) & "  ")
                  OK = 1
               End If
            Next

quindi per le quantità sono riuscito a estrapolarle, quello che non riesco ad estrapolare è il numero che è uguale per tutte le somme 5, esempio


[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/KjM2CDTy\/rubino.png"}[/IMG2]

mi serve estrapolare il numero 36 nel primo esempio ed il numero 06 nel secondo esempio,
cioè quelli dove sotto sono visualizzate la quantità, nei casi da me segnati il 5 (5 volte)
 
Ultima modifica:
R

Rubino

Guest
io farei così o qualcosa di questo genere, nella tua routine aggiungerei

t = 0
ReDim sn(3)
For K2 = 1 To UBound(VetRitornoQ)
If VetRitornoQ(K2) = Q Then
K3 = K3 + 1
S2 = S2 &(VetRitornoQ(K2) & " ")
If VetRitornoQ(K2) = 5 Then
t = t + 1
sn(t) = VetRitornoN(K2)
End If

OK = 1
End If
Next

per vederla in output ho buttato li questa soluzione

Scrivi "Quantità somme utili " & S2 & " " & sn(1) & " / " & sn(2) & " / " & sn(3),1,,,2


come vedi dove ci sono più somme (5) ne può elencare piu' di una, lo fa anche dove c'è ne una sola

nella arrays sn hai le somme che ti interessano




Cattura.GIF
 
Ultima modifica di un moderatore:

Matematico

Advanced Member >PLATINUM<
Un grazie infinito di cuore a salvo50 e a Rubino x l'ottima assistenza....davvero un bel lavoro !

Buon a serata a voi due in particolare e a tutti :)
 

salvo50

Advanced Member >PLATINUM PLUS<
Alla prima domanda chiede il numero dell'estrazione che vuoi iniziare - è impostata su 1
Alla seconda domanda chiede il numero della ruota - è impostata su Bari
Alla terza domanda chiede il numero di somme uguali - è impostata su 5
Alla quarta domanda se rispondi 1 fa vedere un po di calcoli in più - è impostata a 0

Se si verificano 2 combinazioni o più, fa solo l'ultima, che con 5 somme in tutte le estrazioni dal 1871 si è verificata solo una volta.

Nelle spiegazioni fa 2 previsioni con calcoli differenti, questo script appartiene alla previsione prioritaria per l'altra previsione farò un altro script, perchè più o meno al 50% i calcoli sono differenti


Codice:
 Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,Caso,Casi,P1,K3,Vi
   Dim Ruota,X,Y,K,K1,K2,S1,S2,OK,Q,K4,S4
   Dim Amba(2),Ru(1),Post1(1),Somma(45),K5
   Dim A(5),B(5),C(5),D(5),Abb(2),Num(10)
   Dim Post2(2),Post3(3),Post4(4),Num2(4)
   Post1(1) = 1
   Post2(2) = 1
   Post3(2) = 1
   Post3(3) = 1
   Post4(2) = 1
   Post4(3) = 1
   Post4(4) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,1)'7401 per l'esempio nelle spiegazioni, Ruota Bari
   Ruota = CInt(InputBox(" In quale ruota vuoi giocare? ",,1))
   Q = CInt(InputBox("Quale numero dei ripetuti deve trovare? Da 2 a 7",,5))
   Vi =(InputBox(" Se vuoi visualizzare tutte le somme SI = 1 - per NO metti altro",,0))
   Clp = InputBox(" Per quanti colpi vuoi giocare? ",,5)

   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(1) & " PER MATEMATICO - QUADRATO MALTESE di ??? - PREVISIONE PRIORITARIA - SCRIPT SALVO50 con l'aiuto di Rubino",1,,4,,3,,1
   For Es = Ini To Fin
      Caso = 0
      Messaggio(Es)
      AvanzamentoElab Ini,Fin,Es
      For R1 = Ruota To Ruota
         S1 = ""
         S2 = ""
         S4 = ""
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Estratto(Es + 1,R1,P1)
            C(P1) = Estratto(Es + 2,R1,P1)
            D(P1) = Estratto(Es + 3,R1,P1)
         Next
         If A(1) > 0 Then
            Num(1) = A(3)
            Num(2) = B(1) : Num(3) = B(2) : Num(4) = B(3)
            Num(5) = C(1) : Num(6) = C(2) : Num(7) = C(3)
            Num(8) = D(1) : Num(9) = D(2) : Num(10) = D(3)
            K = 0
            For X = 1 To 9
               For Y = X + 1 To 10
                  K = K + 1
                  Somma(K) = Fuori90(Num(X) + Num(Y))
               Next
            Next
            ReDim VetRitornoN(1)
            ReDim VetRitornoQ(1)
            Call NumeriRipetutiRilevatiV(Somma,VetRitornoN,VetRitornoQ)
            For K1 = 1 To UBound(VetRitornoN)
               S1 = S1 &(Format2(VetRitornoN(K1)) & " ")
            Next
            For K4 = 1 To UBound(VetRitornoQ)
               S4 = S4 &(VetRitornoQ(K4) & "  ")
            Next
            OK = 0
            ReDim Sn(1)
            For K2 = 1 To UBound(VetRitornoQ)
               If VetRitornoQ(K2) = Q Then
                  K3 = K3 + 1
                  S2 = S2 &(VetRitornoQ(K2) & " ")
                  Sn(1) = VetRitornoN(K2)
                  OK = 1
               End If
            Next
            If OK = 1 Then
               Abb(1) = Differenza(A(3),Sn(1))
               Abb(2) = Fuori90(A(3) + Sn(1))
               For K5 = 1 To 4
                  Num2(K5) = 0
               Next
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
               '
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
               '
               Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1
               '
               Scrivi(" Estrazione n." & Format2(Es + 2) & " del " & DataEstrazione(Es + 2)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 2,R1),1
               '
               Scrivi(" Estrazione n." & Format2(Es + 3) & " del " & DataEstrazione(Es + 3)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 3,R1),1
               '
               Scrivi
               If Vi = 1 Then
                  Scrivi String(89,"*")
                  Scrivi " Somme Rilevate più di una volta    " & S1,1,,,1
                  Scrivi " Quantità Convergenti               " & S4,1,,,1
               End If
               Scrivi " Ambata Principale                  " & Format2(Sn(1)),1,,,2
               Scrivi " Ambata Secondaria                  " & Format2(A(3)),1,,,1
               Scrivi " Abbinamento Principale             " & Format2(Abb(1)),1,,,2
               Scrivi " Abbinamento Secondario             " & Format2(Abb(2)),1,,,1
               Ru(1) = R1
               Num2(1) = Sn(1)
               ImpostaGiocata 1,Num2,Ru,Post1,Clp,,3
               Num2(2) = A(3)
               ImpostaGiocata 2,Num2,Ru,Post2,Clp,,3
               Num2(3) = Abb(1)
               ImpostaGiocata 3,Num2,Ru,Post3,Clp,,3
               Num2(4) = Abb(2)
               ImpostaGiocata 4,Num2,Ru,Post4,Clp,,3
               Gioca Es
            End If
         End If
      Next
   Next
   ScriviResoconto
   Scrivi
   If Vi = 1 Then
      Scrivi"  Dall'estrazione n" & Ini & " All'estrazione n" & Fin & " Totale delle somme che si ripetano per ",1,0
      Scrivi Format2(Q) & "  Volte  = " & K3,1
   End If
   Scrivi
   If Q = 1 Then Scrivi " Hai inserito un numero inferiore a 2, numero non ammesso, devi inserire minimo 2 ",1,,,2,3
   If Q > 7 Then Scrivi " Hai inserito un numero superioe a 7, è molto improbabile che si verifica qualche caso ",1,,,2,3
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Anche se a te non serve più, ho modificato lo script ed inserito un'altro inputbox che chiede per quanti colpi giocare.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Per questo secondo script la previsione è composta da 2 numeri, giocabili per ambata e ambo, facendo delle prove ho constatato che giocando solo l'ambo si hanno meno perdite, con l'ambata è quasi sempre perdente, quindi la ricerca dell'ambata l'ho messa facoltativa, cioè ho messo un InputBox alla quarta domanda, mettendo 1 cerca anche l'ambata oltre all'ambo, con un qualsiasi altro numero cerca solo l'ambo.


Codice:
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,Caso,Casi,P1,K3
   Dim Ruota,X,Y,K,K1,K2,S1,S2,OK,Q,K4,S4,Z
   Dim Diag1,Diag2,Or1,Or2,Or3,Ve1,Ve2,Ve3,Diff
   Dim Ambo(2),Ru(1),Num(9),Amba
   Dim A(5),B(5),C(5),D(5)
   Dim Post2(2),Post3(3)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,7401)'7401 per l'esempio nelle spiegazioni, Ruota Bari
   Ruota = CInt(InputBox(" In quale ruota vuoi giocare? ",,1))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare? ",,13))
   Amba = CInt(InputBox(" Vuoi giocare l'ambata? - Per SI metti 1 per NO Metti altro",,0))
   If Amba = 1 Then Post2(1) = 1
   Post2(2) = 1
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(1) & " PER MATEMATICO - QUADRATO MALTESE di ??? - PREV 2 - SCRIPT SALVO50 ",1,,4,,3,,1
   For Es = Ini To Fin
      Caso = 0
      Messaggio(Es)
      AvanzamentoElab Ini,Fin,Es
      For R1 = Ruota To Ruota
         S1 = ""
         S2 = ""
         S4 = ""
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Estratto(Es + 1,R1,P1)
            C(P1) = Estratto(Es + 2,R1,P1)
            D(P1) = Estratto(Es + 3,R1,P1)
         Next
         If A(1) > 0 Then
            K = 0
            Diag1 = Fuori90(B(1) + C(2) + D(3))
            Diag2 = Fuori90(B(3) + C(2) + D(1))
            Or1 = Fuori90(B(1) + B(2) + B(3))
            Or2 = Fuori90(C(1) + C(2) + C(3))
            Or3 = Fuori90(D(1) + D(2) + D(3))
            Ve1 = Fuori90(B(1) + C(1) + D(1))
            Ve2 = Fuori90(B(2) + C(2) + D(2))
            Ve3 = Fuori90(B(3) + C(3) + D(3))
            Diff = Differenza(Diag1,Diag2)
            Num(1) = Diag1 : Num(2) = Diag2 : Num(3) = Or1
            Num(4) = Or2 : Num(5) = Or3 : Num(6) = Ve1
            Num(7) = Ve2 : Num(8) = Ve3 : Num(9) = Diff
            '------------------------------------------------------------------------------
            ReDim VetRitornoN(10)
            ReDim VetRitornoQ(10)
            If NumeriRipetutiRilevatiV(Num,VetRitornoN,VetRitornoQ) = 2 Then
               'Max = MassimoV(VetRitornoQ) ' Massimo vettore per presenza
               For K1 = 1 To UBound(VetRitornoN)
                  S1 = S1 &(Format2(VetRitornoN(K1)) & " ")
               Next
               For K4 = 1 To UBound(VetRitornoQ)
                  S4 = S4 &(VetRitornoQ(K4) & "  ")
               Next
               OK = 0
               ReDim Sn(2)
               For K2 = 1 To UBound(VetRitornoQ)
                  If VetRitornoQ(K2) = 2 Then
                     K3 = K3 + 1
                     S2 = S2 &(VetRitornoQ(K2) & " ")
                     Sn(K2) = VetRitornoN(K2)
                     OK = 1
                  End If
               Next
               If OK = 1 Then
                  Ambo(1) = Sn(1) : Ambo(2) = Sn(2)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
                  '
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                  '
                  Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1
                  '
                  Scrivi(" Estrazione n." & Format2(Es + 2) & " del " & DataEstrazione(Es + 2)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 2,R1),1
                  '
                  Scrivi(" Estrazione n." & Format2(Es + 3) & " del " & DataEstrazione(Es + 3)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 3,R1),1
                  '
                  Scrivi
                  Scrivi
                  Scrivi " Somme Rilevate per Ambata e Ambo   " & Format2(Sn(1)) & " " & Format2(Sn(2)),1,,,1
                  Ru(1) = R1
                  Scrivi
                  ImpostaGiocata 1,Ambo,Ru,Post2,Clp,,3
                  Gioca Es
               End If
            End If
         End If
      Next
   Next
   ScriviResoconto
   Scrivi
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto