IL MEDIO TRIPLARE 15

[salvo50]

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,




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




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

 

[salvo50]

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]

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]

Ciao salvo50
prova questa function se ti può essere utile per le figure

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]

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.

 '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

 

[Master]

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.
buon fine settimana

 

[salvo50]

Ho capito perchè hai messo la funzione CADENZA

Alla grande, cervello fino, sei meglio di Einstein.

 

[Master]

ciao salvo50

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

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]

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]

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