Novità

IL MEDIO TRIPLARE 15

salvo50

Advanced Member >PLATINUM PLUS<
Sto preparando per il topic " Script su Metodi Cabalistici Ciclometrici & C" il metodo di Antonio Longo " Il Medio Triplare 15 " ho le spigazioni di una rivista lotto, la prima parte quella che cerca il medio 15 non è stata difficile farla, nonostante i molti errori di stampa,

triplare 15.PNG


da qui gli devo affiancare alle due colonne il medio triplare che devo prenderlo dalla tabella delle triple

tabella triple.PNG


per le colonne delle decine e delle cadenze, non ho avuto problemi, perche le decine sono distanziate tutte di 3 e le cadenze tutte di 30, quindi per cercare il numero mancante ho sfruttato la formuletta della "Distanza 30"

I problemi nascono dalle colonne Figure e l'ultima colonna Miste, c'è scritto miate ma sicuramente vuol dire miste, è l'ennesimo errore di stampa per questo metodo, dicevo i problemi nascono perche le triple di queste 2 colonne non hanno la stessa distanza tra un numero è l'altro, ma non sono del tutto diverse,
nella colonna delle figure abbiamo queste distanze


numeri 01 - 37 - 64
distanza tra il 1° ed il 2° numero 36
distanza tra il 2° ed il 3° numero 27
distanza tra il 1° ed il 3° numero 63
queste distanze si ripetono in 9 triple nella colonna delle figure

altre triple con distanze diverse che si ripete per 9 triple sono

numeri 04 - 31 - 67
distanza tra il 1° ed il 2° numero 27
distanza tra il 2° ed il 3° numero 36
distanza tra il 1° ed il 3° numero 63
queste distanze si ripetono in 9 triple nella colonna delle figure


numeri 07 - 34 - 61
distanza tra il 1° ed il 2° numero 27
distanza tra il 2° ed il 3° numero 27
distanza tra il 1° ed il 3° numero 54
queste distanze si ripetono in 9 triple nella colonna delle figure






stesso discorso per la colonna delle miste ma con altre distanze


avete qualche consiglio da darmi

altrimenti devo fare 162 if-then, 3 per ogni tripla
grazie
 

Allegati

  • tabella triple.PNG
    tabella triple.PNG
    381,2 KB · Visite: 23
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Mi sono accorto che per il terzo gruppo di nove triple posso usare la formuletta della "Distanza 30"



numeri 07 - 34 - 61
distanza tra il 1° ed il 2° numero 27
distanza tra il 2° ed il 3° numero 27
distanza tra il 1° ed il 3° numero 54
questo si ripete in 9 triple della colonna delle figure
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Niente da fare la formuletta delle terzine simmetriche funziona solo con la distanza 30 e l'ho applicata con successo al gruppo delle cadenze, sto provando a mettere dei range e con il gruppo delle decine è andata bene sono bastati solo 6 If-Then, continuerò con i range anche con i gruppi delle figure e delle miste
 

Master

Advanced Member >PLATINUM<
Ciao salvo50
prova questa function se ti può essere utile per le figure


Codice:
Sub Main
   'List by Master
   Scrivi "Per Salvo50 figure",1,,4 : Scrivi
   Dim n1,n2,x,co
   For n1 = 1 To 89
      For n2 = n1 + 1 To 90
         If Cadenza(n1) <> 0 And Cadenza(n2) <> 0 Then
            If figuratriplare15(n1,n2) Then
               If Cadenza(n2) < 4 Then x = Fuori90(n2 + 36) Else If Cadenza(n2) > 3 Then x = Fuori90(n2 + 27)
               co = co + 1
               Scrivi "  " & Format2(n1) & "  " & Format2(n2) & Space(4),1,0
               Scrivi Format2(x),1,,,2  
            End If
         End If
      Next
   Next
   Scrivi:
End Sub
Function figuratriplare15(n1,n2)
   If Cadenza(n1) <> 0 Then
      If Cadenza(n1) > 3 And n2 = n1 + 27 Or Cadenza(n1) < 4 And n2 = n1 + 36 Then
         figuratriplare15 = True
      End If
   End If
End Function
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao Master
Perfetto ed " Elegante", devo solo capire dato che si tratta delle Figure perchè nello script c'è la funzione Cadenze,

Io l'ho già fatto, ho usato solo IF-THEN, però se riesco ad inserirla, userò la tua soluzione, grazie.

Codice:
 'FIGURE
               If Figura(M15_AB(x)) = Figura(M15_Pi(x)) Then
                  M3(1) = M15_AB(x) : M3(2) = M15_Pi(x)
                  Call OrdinaMatrice(M3,1)
                  If(M3(1) > 0 And M3(1) < 4) Or(M3(1) > 10 And M3(1) < 14) Or(M3(1) > 20 And M3(1) < 24) Then
                     If M3(1) + 36 = M3(2) Then C(x) = M3(1) + 63
                     If M3(1) + 63 = M3(2) Then C(x) = M3(1) + 36
                  End If
                  If(M3(1) > 36 And M3(1) < 40) Or(M3(1) > 46 And M3(1) < 50) Or(M3(1) > 56 And M3(1) < 60) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) - 36
                  End If
                  If(M3(1) > 3 And M3(1) < 7) Or(M3(1) > 13 And M3(1) < 17) Or(M3(1) > 23 And M3(1) < 27) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) + 63
                     If M3(1) + 63 = M3(2) Then C(x) = M3(1) + 27
                  End If
                  If(M3(1) > 30 And M3(1) < 34) Or(M3(1) > 40 And M3(1) < 44) Or(M3(1) > 50 And M3(1) < 54) Then
                     If M3(1) + 36 = M3(2) Then C(x) = M3(1) - 27
                  End If
                  If(M3(1) > 6 And M3(1) < 10) Or(M3(1) > 16 And M3(1) < 20) Or(M3(1) > 26 And M3(1) < 30) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) + 54
                     If M3(1) + 54 = M3(2) Then C(x) = M3(1) + 27
                  End If
                  If(M3(1) > 33 And M3(1) < 37) Or(M3(1) > 43 And M3(1) < 47) Or(M3(1) > 53 And M3(1) < 57) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) - 27
                  End If
               End If

Con lo stesso metodo ho fatto anche il gruppo delle Miste
 
Ultima modifica:

Master

Advanced Member >PLATINUM<
Ciao a tutti

Ciao salvo50
Seguo sempre i tuoi lavori, c'è da dire che mettere in script questo metodo è veramente impegnativo
In effetti si possono ottenere gli stessi risultati usando modi diversi, l'importante è raggiungere l'obbiettivo
stamattina per passatempo ho modificato fa function delle figure per ottenere le miste e le ho messe insieme
per prova ho usato una ruota con delle estrazioni a caso e sembra funzionare
niente a che vedere con il metodo ci sono troppi calcoli e mi viene mal di testa.o_O
buon fine settimana
 

Master

Advanced Member >PLATINUM<
ciao salvo50

Einstein Ahahahah!!!
Diciamo che mi invento dei garbugli per trovare una soluzione :unsure:
ti metto anche quest'ultimo

Codice:
Sub Main()
   Qe = InputBox("Quante estrazioni controllo?","ESTRAZIONI",150)
   fin = EstrazioneFin
   ini = fin - Qe
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      r = 1
      For p = 1 To 4
         For pp = p + 1 To 5
            n1 = Estratto(es,r,p) : n2 = Estratto(es,r,pp)
            If figuratriplare15(n1,n2,x) Or miatetriplare15(n1,n2,x1) Then
               co = co + 1
               Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r),10) & " " & StringaEstratti(es,r),1,0
               Scrivi Space(3) & " < " & Format2(n1) & "-" & Format2(n2) & " > " & Space(4),1,0
               If figuratriplare15(n1,n2,x) = True Then Scrivi Format2(x) & Space(3) & "figure",1,,,2
               If miatetriplare15(n1,n2,x1) = True Then Scrivi Format2(x1) & Space(3) & "miste",1,,,1
               Scrivi String(70,"-")'& " Caso n° " & Format2(co)
            End If
         Next
      Next
   Next
End Sub
Function figuratriplare15(n1,n2,x)
   If Cadenza(n1) <> 0 Then
      If Cadenza(n1) > 3 And n2 = n1 + 27 Or Cadenza(n1) < 4 And n2 = n1 + 36 Then
         If Cadenza(n2) < 4 Then x = Fuori90(n2 + 36) Else If Cadenza(n2) > 3 Then x = Fuori90(n2 + 27)
         figuratriplare15 = True
      End If
   End If
End Function
Function miatetriplare15(n1,n2,x1)
   If Cadenza(n1) <> 0 Then
      If Cadenza(n1) < 7 And n2 = n1 + 33 Or Cadenza(n1) > 6 And n2 = n1 + 24 Then
         If Cadenza(n2) < 7 Then x1 = Fuori90(n2 + 33) Else If Cadenza(n2) > 6 Then x1 = Fuori90(n2 + 24)
         miatetriplare15 = True
      End If
   End If
End Function
 

Paki144

Super member
Ciao salvo50 volevo spendere qualche parola per incoraggiarti nel tuo script medio triplare15 diversi anni fà ho letto il libretto medio triplare15
(è un osso duro) posso solo con le parole incoraggiarti a non mollarlo (abbandonarlo) salvo50 in modo di poterLO condividere in questo forum, un grazie a Master che ti è vicino con gli altri, un grazie a te salvo50 se potrai farci questo dono per Natale.. Grazie per quello che potrai. 🌟
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao salvo50 volevo spendere qualche parola per incoraggiarti nel tuo script medio triplare15 diversi anni fà ho letto il libretto medio triplare15
(è un osso duro) posso solo con le parole incoraggiarti a non mollarlo (abbandonarlo) salvo50 in modo di poterLO condividere in questo forum, un grazie a Master che ti è vicino con gli altri, un grazie a te salvo50 se potrai farci questo dono per Natale.. Grazie per quello che potrai. 🌟
Ciao Paki144, non l'ho mollato è in fase di aggiustamento
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto