Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Ciao salvo50, era soltanto del numero 20 dove il primo in alto a sinistra della tabella dell'ultima pagina qui nel forum c'è il numero 23. Era solo un informazione se poteva essere utile.
 
Ultima modifica:
Ciao a Tutti.

Matematico, Xeroxs, Simon-Simon.

Grazie.

L'AMBO RELATIVO di GIUSEPPE PEZZELLA

Di script ne ho fatti due, nel primo ho visualizzato i segni distanziali e rispettato la disposizione ++- e --+, nel secondo li ho visualizzati ma non ho rispettato la disposizione ++- e --+ .

CON I SEGNI DISTANZIALI CONTROLLATI

Codice:
Option Explicit
Sub Main
   Dim FIn,Es1,Es2,Es3,Ini,Caso,Casi,Salvo50
   Dim Clp1,Clp2,Sp,A,B,C,D,E,F,E1,E2,E3,Som1
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9
   Dim DiAB,DiCD,DiEF,DiAD,DiBC,DiAF,DiBE
   Dim Diff1,Diff2,Diff3,X1,X2,X3,Abb1
   Dim Ruo(3),Tutte(1),Posta(1),Poste(2)
   Dim Amba(1),Ambo1(2),Ambo2(2)
   Posta(1) = 1
   Poste(2) = 1
   Sp = " "
   Som1 = 45
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9830)
   Clp1 = InputBox("Per quanti colpi vuoi giocare A Ruota?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare L'ambo a Tutte?",,13)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "AMBO RELATIVO di GIUSEPPE PEZZELLA  - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi Space(8) & "        CON I SEGNI DISTANZIALI CONTROLLATI         ",1,,4,,3,,1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            P2 = FuoriX(P1 + 1,5)
            A = Estratto(Es1,R1,P1)
            B = Estratto(Es1,R1,P2)
            DiAB = Distanza(A,B)
            If A > 0 And DiAB <> 1 And DiAB <> 17 And DiAB <> 44 And DiAB <> 45 Then
               For Es2 = Es1 - 1 To Es1 - 18 Step - 1
                  For R2 = 1 To 10
                     For P3 = 1 To 5
                        P4 = FuoriX(P3 + 1,5)
                        C = Estratto(Es2,R2,P3)
                        D = Estratto(Es2,R2,P4)
                        DiCD = Distanza(C,D)
                        'A--B
                        '|  |
                        'C--D
                        If C > 0 And DiCD <> 1 And DiCD <> 17 And DiCD <> 44 And DiCD <> 45 Then
                           DiAD = Distanza(A,D) : DiBC = Distanza(B,C)
                           If(DiAB = DiCD) And(DiAD = DiBC) Then
                              If DiAD + DiAB = Som1 Then
                                 For Es3 = Es2 To Es1 - 18 Step - 1
                                    For R3 = R2 + 1 To 12
                                       If R3 = 11 Then R3 = 12
                                       For P5 = 1 To 5
                                          P6 = FuoriX(P5 + 1,5)
                                          E = Estratto(Es3,R3,P5)
                                          F = Estratto(Es3,R3,P6)
                                          DiEF = Distanza(E,F)
                                          'A--B
                                          '|  |
                                          'E--F
                                          If E > 0 And DiEF <> 1 And DiEF <> 17 And DiEF <> 44 And DiEF <> 45 Then
                                             DiAF = Distanza(A,F) : DiBE = Distanza(B,E)
                                             If(DiCD = DiEF) And DiAF = DiBE Then
                                                If DiAF + DiEF = Som1 Then
                                                   Diff1 = Differenza(A,B)
                                                   Diff2 = Differenza(C,D)
                                                   Diff3 = Differenza(E,F)
                                                   If Diff1 > 45 And A > B Then X1 = "+"
                                                   If Diff1 > 45 And A < B Then X1 = "-"
                                                   If Diff1 < 46 And A > B Then X1 = "-"
                                                   If Diff1 < 46 And A < B Then X1 = "+"
                                                   If Diff2 > 45 And C > D Then X2 = "+"
                                                   If Diff2 > 45 And C < D Then X2 = "-"
                                                   If Diff2 < 46 And C > D Then X2 = "-"
                                                   If Diff2 < 46 And C < D Then X2 = "+"
                                                   If Diff3 > 45 And E > F Then X3 = "+"
                                                   If Diff3 > 45 And E < F Then X3 = "-"
                                                   If Diff3 < 46 And E > F Then X3 = "-"
                                                   If Diff3 < 46 And E < F Then X3 = "+"
                                                   If(X1 = "+" And X2 = "+" And X3 = "-") Or(X1 = "-" And X2 = "-" And X3 = "+") Then
                                                      Abb1 = Fuori90(B + DiAB)
                                                      If Abb1 = A Then Abb1 = Fuori90(A + DiAB)
                                                      Amba(1) = B
                                                      Ambo1(1) = B
                                                      Ambo1(2) = Abb1
                                                      Ambo2(1) = A : Ambo2(2) = B
                                                      Caso = Caso + 1
                                                      Casi = Casi + 1
                                                      ColoreTesto 2
                                                      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                      ColoreTesto 1
                                                      Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000")
                                                      ColoreTesto 0
                                                      Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                                      Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                                      For P7 = 1 To 5
                                                         E1 = Estratto(Es1,R1,P7)
                                                         If E1 = A Or E1 = B Then
                                                            ColoreTesto 2
                                                         Else
                                                            ColoreTesto 0
                                                         End If
                                                         Scrivi Format2(E1) & " ",1,0
                                                         ColoreTesto 0
                                                      Next
                                                      Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiAB) & Sp & X1,1
                                                      Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                                      Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                      For P8 = 1 To 5
                                                         E2 = Estratto(Es2,R2,P8)
                                                         If E2 = C Or E2 = D Then
                                                            ColoreTesto 2
                                                         Else
                                                            ColoreTesto 0
                                                         End If
                                                         Scrivi Format2(E2) & " ",1,0
                                                         ColoreTesto 0
                                                      Next
                                                      Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiCD) & Sp & X2,1
                                                      Scrivi(" Estrazione n." & Format2(Es3) & " del " & DataEstrazione(Es3)),1,0
                                                      Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                      For P9 = 1 To 5
                                                         E3 = Estratto(Es3,R3,P9)
                                                         If E3 = E Or E3 = F Then
                                                            ColoreTesto 2
                                                         Else
                                                            ColoreTesto 0
                                                         End If
                                                         Scrivi Format2(E3) & " ",1,0
                                                         ColoreTesto 0
                                                      Next
                                                      Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiEF) & Sp & X3,1
                                                      Scrivi
                                                      Scrivi Space(17) & "Distanze " & Space(7),1,0
                                                      Scrivi "Distanze" & Space(11) & "Somme",1
                                                      Scrivi Space(3) & "Ambi Uniti" & Space(4) & "Diagonali" & Space(5),1,0
                                                      Scrivi " Orizzontali" & Space(8) & "Distanze ",1
                                                      Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAD),1,0
                                                      Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1
                                                      Scrivi Space(5) & Format2(C) & Sp & Format2(D) & Space(10) & Format2(DiBC),1,0
                                                      Scrivi Space(14) & Format2(DiCD) & Space(16) & Format2(Som1),1
                                                      Scrivi String(60,"=")
                                                      Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAF),1,0
                                                      Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1
                                                      Scrivi Space(5) & Format2(E) & Sp & Format2(F) & Space(10) & Format2(DiBE),1,0
                                                      Scrivi Space(14) & Format2(DiEF) & Space(16) & Format2(Som1),1
                                                      Scrivi
                                                      Tutte(1) = TT_
                                                      Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                                                      ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                      ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp1
                                                      ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp1
                                                      ImpostaGiocata 4,Ambo2,Tutte,Poste,Clp2
                                                      Gioca Es1
                                                   End If
                                                End If
                                             End If
                                          End If
                                       Next
                                       If ScriptInterrotto Then Exit Sub
                                    Next
                                 Next
                              End If
                           End If
                        End If
                     Next
                     If ScriptInterrotto Then Exit Sub
                  Next
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

CON I SEGNI DISTANZIALI NON CONTROLLATI

Codice:
Option Explicit
Sub Main
   Dim FIn,Es1,Es2,Es3,Ini,Caso,Casi,Salvo50
   Dim Clp1,Clp2,Sp,A,B,C,D,E,F,E1,E2,E3,Som1
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9
   Dim DiAB,DiCD,DiEF,DiAD,DiBC,DiAF,DiBE
   Dim Diff1,Diff2,Diff3,X1,X2,X3,Abb1
   Dim Ruo(3),Tutte(1),Posta(1),Poste(2)
   Dim Amba(1),Ambo1(2),Ambo2(2)
   Posta(1) = 1
   Poste(2) = 1
   Sp = " "
   Som1 = 45
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9830)
   Clp1 = InputBox("Per quanti colpi vuoi giocare A Ruota?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare L'ambo a Tutte?",,13)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "AMBO RELATIVO di GIUSEPPE PEZZELLA  - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi Space(8) & "     CON I SEGNI DISTANZIALI NON CONTROLLATI       ",1,,4,,3,,1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            P2 = FuoriX(P1 + 1,5)
            A = Estratto(Es1,R1,P1)
            B = Estratto(Es1,R1,P2)
            DiAB = Distanza(A,B)
            If A > 0 And DiAB <> 1 And DiAB <> 17 And DiAB <> 44 And DiAB <> 45 Then
               For Es2 = Es1 - 1 To Es1 - 18 Step - 1
                  For R2 = 1 To 10
                     For P3 = 1 To 5
                        P4 = FuoriX(P3 + 1,5)
                        C = Estratto(Es2,R2,P3)
                        D = Estratto(Es2,R2,P4)
                        DiCD = Distanza(C,D)
                        'A--B
                        '|  |
                        'C--D
                        If C > 0 And DiCD <> 1 And DiCD <> 17 And DiCD <> 44 And DiCD <> 45 Then
                           DiAD = Distanza(A,D) : DiBC = Distanza(B,C)
                           If(DiAB = DiCD) And(DiAD = DiBC) Then
                              If DiAD + DiAB = Som1 Then
                                 For Es3 = Es2 To Es1 - 18 Step - 1
                                    For R3 = R2 + 1 To 12
                                       If R3 = 11 Then R3 = 12
                                       For P5 = 1 To 5
                                          P6 = FuoriX(P5 + 1,5)
                                          E = Estratto(Es3,R3,P5)
                                          F = Estratto(Es3,R3,P6)
                                          DiEF = Distanza(E,F)
                                          'A--B
                                          '|  |
                                          'E--F
                                          If E > 0 And DiEF <> 1 And DiEF <> 17 And DiEF <> 44 And DiEF <> 45 Then
                                             DiAF = Distanza(A,F) : DiBE = Distanza(B,E)
                                             If(DiCD = DiEF) And DiAF = DiBE Then
                                                If DiAF + DiEF = Som1 Then
                                                   Diff1 = Differenza(A,B)
                                                   Diff2 = Differenza(C,D)
                                                   Diff3 = Differenza(E,F)
                                                   If Diff1 > 45 And A > B Then X1 = "+"
                                                   If Diff1 > 45 And A < B Then X1 = "-"
                                                   If Diff1 < 46 And A > B Then X1 = "-"
                                                   If Diff1 < 46 And A < B Then X1 = "+"
                                                   If Diff2 > 45 And C > D Then X2 = "+"
                                                   If Diff2 > 45 And C < D Then X2 = "-"
                                                   If Diff2 < 46 And C > D Then X2 = "-"
                                                   If Diff2 < 46 And C < D Then X2 = "+"
                                                   If Diff3 > 45 And E > F Then X3 = "+"
                                                   If Diff3 > 45 And E < F Then X3 = "-"
                                                   If Diff3 < 46 And E > F Then X3 = "-"
                                                   If Diff3 < 46 And E < F Then X3 = "+"
                                                   Abb1 = Fuori90(B + DiAB)
                                                   If Abb1 = A Then Abb1 = Fuori90(A + DiAB)
                                                   Amba(1) = B
                                                   Ambo1(1) = B
                                                   Ambo1(2) = Abb1
                                                   Ambo2(1) = A : Ambo2(2) = B
                                                   Caso = Caso + 1
                                                   Casi = Casi + 1
                                                   ColoreTesto 2
                                                   Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                   ColoreTesto 1
                                                   Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000")
                                                   ColoreTesto 0
                                                   Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                                   Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                                   For P7 = 1 To 5
                                                      E1 = Estratto(Es1,R1,P7)
                                                      If E1 = A Or E1 = B Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E1) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiAB) & Sp & X1,1
                                                   Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                                   Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                   For P8 = 1 To 5
                                                      E2 = Estratto(Es2,R2,P8)
                                                      If E2 = C Or E2 = D Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E2) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiCD) & Sp & X2,1
                                                   Scrivi(" Estrazione n." & Format2(Es3) & " del " & DataEstrazione(Es3)),1,0
                                                   Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                   For P9 = 1 To 5
                                                      E3 = Estratto(Es3,R3,P9)
                                                      If E3 = E Or E3 = F Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E3) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiEF) & Sp & X3,1
                                                   Scrivi
                                                   Scrivi Space(17) & "Distanze " & Space(7),1,0
                                                   Scrivi "Distanze" & Space(11) & "Somme",1
                                                   Scrivi Space(3) & "Ambi Uniti" & Space(4) & "Diagonali" & Space(5),1,0
                                                   Scrivi " Orizzontali" & Space(8) & "Distanze ",1
                                                   Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAD),1,0
                                                   Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1
                                                   Scrivi Space(5) & Format2(C) & Sp & Format2(D) & Space(10) & Format2(DiBC),1,0
                                                   Scrivi Space(14) & Format2(DiCD) & Space(16) & Format2(Som1),1
                                                   Scrivi String(60,"=")
                                                   Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAF),1,0
                                                   Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1
                                                   Scrivi Space(5) & Format2(E) & Sp & Format2(F) & Space(10) & Format2(DiBE),1,0
                                                   Scrivi Space(14) & Format2(DiEF) & Space(16) & Format2(Som1),1
                                                   Scrivi
                                                   Tutte(1) = TT_
                                                   Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                                                   ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                   ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp1
                                                   ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp1
                                                   ImpostaGiocata 4,Ambo2,Tutte,Poste,Clp2
                                                   Gioca Es1
                                                End If
                                             End If
                                          End If
                                       Next
                                       If ScriptInterrotto Then Exit Sub
                                    Next
                                 Next
                              End If
                           End If
                        End If
                     Next
                     If ScriptInterrotto Then Exit Sub
                  Next
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Ciao salvo50, grazie di cuore superveloce come sempre...pensavo fosse più efficace almeno x l'ambo su tutte...comunque x l'ambata è valido:-)
Ho altri metodi vecchi ma in cartaceo e devo scennerizzarli ..appena posso li metto qui.
 
Ciao salvo50 , uno script per questo metodo datato cortesemente ...la statistica è ottima :)

IL METODO E' DI RAMCOLOTTO


SOMMA SPY 21 in quarta posizione

Saremo attenti ad ogni estrazione, qualora si formasse fra le sole DUE RUOTE BARI E TORINO e con elementi sortiti in QUARTA POSIZIONE, una somma di VALORE 21.

La somma dei due numeri usciti tiene conto del fuori90 se necessario.

ITER OPERATIVO

Analizzando tutte le somme, ci pare di sottolineare questa particolare somma sulle sopradette ruote, attraverso il concetto classico di Spia, ricaviamo una tipologia di gioco interessante e “sicuramente” affidabile.

Ci differenzieremo da una puntata all’altra dalla posizione di sortita di questa somma che di volta in volta analizzeremo.

LA SOMMA SPY DEVE SORTIRE IN QUARTA POSIZIONE



1) Ricerca fra le due ruote, BARI-TORINO nella stessa estrazione e nella stessa posizione (indicata sopra), DUE elementi che sommati tra di loro generino il VALORE 21
2) Ad ogni somma corrisponde una previsione “FISSA” di tipo statistico, da porre in gioco a partire dall’estrazione successiva sulle due ruote di rilevamento.
3) Poniamo in gioco solo una Ambata più quattro abbinamenti per ambo secco, ovviamente la lunghetta con tutti i numeri per ambo e terno.



La previsione genera l’Ambata 39

Abbinamenti e lunghetta: 39-5-52-53-71

(l’analisi di questa metodica dal 02/05/2014 al 30/01/2018 è stata vincente nel 100% dei casi rilevati..)
-----------------------------------------------------------------------------------------------------------------
Ovviamente con qualche esempio reale chiariamo ogni concetto:



02/05/2014 Ba (77) – To (34)

39 To 1C

39 To 4C

39-52 To 1C



10/07/2014 Ba (25) – To (86)

39 Ba 2C

39 To 8C

39 Ba 9C

39-53 To 8C

39-71 To 8C

T 39 53 71 To 8C



17/07/2014 Ba (59) – To (52)

39 To 5C

39 Ba 6C

39-53 To 5C

39-71 To 5C

T 39 53 71 To 5C



04/10/2014 Ba (64) – To (47)

39 Ba 6C



25/10/2014 Ba (12) – To (9)

39 Ba 4C

39 To 4C

39 Ba 7C

39-5 Ba 4C

A 5 52 Ba 6C



07/07/2015 Ba (43) – To (68)

39 To 5C

39 Ba 8C

39 To 8C

39 To 11C

39-71 To 5C



03/05/2016 Ba (16) – To (5)

39 To 3C

39 Ba 10C



26/11/2016 Ba (3) – To (18)

39 To 8C

39 To 10C

39-53 To 8C

39-5 To 10C



13/04/2017 Ba (73) – To (38)

39 Ba 8C

39 Ba 11C

39 Ba 12C

39-5 Ba 8C

39-71 Ba 11C



29/08/2017 Ba (48) – To (63)

39 To 7C

39-52 To 7C

A 5 53 To 2C



07/09/2017 Ba (31) – To (80)

39 To 3C

39-52 To 3C
 
Ciao a Tutti.

Ciao Matematico

Qualche chiarimento

Ovviamente con qualche esempio reale chiariamo ogni concetto:



02/05/2014 Ba (77) – To (34)

39 To 1C

39 To 4C

39-52 To 1C



10/07/2014 Ba (25) – To (86)

39 Ba 2C

39 To 8C

39 Ba 9C

39-53 To 8C

39-71 To 8C

T 39 53 71 To 8C



17/07/2014 Ba (59) – To (52)

39 To 5C

39 Ba 6C

39-53 To 5C

39-71 To 5C

T 39 53 71 To 5C



04/10/2014 Ba (64) – To (47)

39 Ba 6C



25/10/2014 Ba (12) – To (9)

39 Ba 4C

39 To 4C

39 Ba 7C

39-5 Ba 4C

A 5 52 Ba 6C



07/07/2015 Ba (43) – To (68)

39 To 5C

39 Ba 8C

39 To 8C

39 To 11C

39-71 To 5C



03/05/2016 Ba (16) – To (5)

39 To 3C

39 Ba 10C



26/11/2016 Ba (3) – To (18)

39 To 8C

39 To 10C

39-53 To 8C

39-5 To 10C



13/04/2017 Ba (73) – To (38)

39 Ba 8C

39 Ba 11C

39 Ba 12C

39-5 Ba 8C

39-71 Ba 11C



29/08/2017 Ba (48) – To (63)

39 To 7C

39-52 To 7C

A 5 53 To 2C



07/09/2017 Ba (31) – To (80)

39 To 3C

39-52 To 3C

non ho capito a cosa corrispondono questi

39 Ba 8C

39 Ba 11C

39 Ba 12C

39-5 Ba 8C

39-71 Ba 11C

perchè 39, perchè 71, perchè 12 ecc...
perchè 11C, perche12C. ecc...
 
Ciao a Tutti.

Ciao Matematico

Qualche chiarimento

Ovviamente con qualche esempio reale chiariamo ogni concetto:



02/05/2014 Ba (77) – To (34)

39 To 1C

39 To 4C

39-52 To 1C



10/07/2014 Ba (25) – To (86)

39 Ba 2C

39 To 8C

39 Ba 9C

39-53 To 8C

39-71 To 8C

T 39 53 71 To 8C



17/07/2014 Ba (59) – To (52)

39 To 5C

39 Ba 6C

39-53 To 5C

39-71 To 5C

T 39 53 71 To 5C



04/10/2014 Ba (64) – To (47)

39 Ba 6C



25/10/2014 Ba (12) – To (9)

39 Ba 4C

39 To 4C

39 Ba 7C

39-5 Ba 4C

A 5 52 Ba 6C



07/07/2015 Ba (43) – To (68)

39 To 5C

39 Ba 8C

39 To 8C

39 To 11C

39-71 To 5C



03/05/2016 Ba (16) – To (5)

39 To 3C

39 Ba 10C



26/11/2016 Ba (3) – To (18)

39 To 8C

39 To 10C

39-53 To 8C

39-5 To 10C



13/04/2017 Ba (73) – To (38)

39 Ba 8C

39 Ba 11C

39 Ba 12C

39-5 Ba 8C

39-71 Ba 11C



29/08/2017 Ba (48) – To (63)

39 To 7C

39-52 To 7C

A 5 53 To 2C



07/09/2017 Ba (31) – To (80)

39 To 3C

39-52 To 3C

non ho capito a cosa corrispondono questi

39 Ba 8C

39 Ba 11C

39 Ba 12C

39-5 Ba 8C

39-71 Ba 11C

perchè 39, perchè 71, perchè 12 ecc...
perchè 11C, perche12C. ecc...
Ciao salvo50, m isà proprio che sia un errore di battitura dell'autore , infatti questi numeri che non fanno parte della totale previsione sono riportati solo in questo ultimo caso...non tenerne conto , la previsione completa è solo questa :

La previsione genera l’Ambata 39

Abbinamenti e lunghetta: 39-5-52-53-71
 
Matematico
Grazie

DUE RUOTE, E SPIA IN POSIZIONE (di RAMCOLOTTO)

Le 2 ruote, la spia, la posizione e la lunghetta si possono cambiare tramite inputbox, ma per defoult ho messo le ruote, la spia, le posizioni e la lunghetta che hai usato negli esempi.

L'ambata è il primo numero della lunghetta.


Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,P3,E1,E2,Caso,Casi
   Dim Spia,Pos,A,B,C,Num,aNum
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Ruo(2),Amba(1),Posta(1),Poste(2),Post(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,9630))
   R1 = CInt(InputBox("Inserisci la 1ª Ruota",Salvo50,1))
   R2 = CInt(InputBox("Inserisci la 2ª Ruota",Salvo50,9))
   Spia = CInt(InputBox("Inserisci la Spia",Salvo50,21))
   Pos = CInt(InputBox("Inserisci la Posizione",Salvo50,4))
   Num = InputBox("Inserisci 5 Numeri Separati da un Punto (.)",,"39.05.52.53.71")
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",,15))
   aNum = Split("0." & Num,".")
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "DUE RUOTE, E SPIA IN POSIZIONE " & Pos & " (di RamcoLotto) - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Post(2) = 1
   Post(3) = 1
   Ruo(1) = R1
   Ruo(2) = R2
   Amba(1) = aNum(1)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      A = Estratto(Es,R1,Pos)
      B = Estratto(Es,R2,Pos)
      C = Fuori90(A + B)
      If C = Spia Then
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For P2 = 1 To 5
            E1 = Estratto(Es,R1,P2)
            If E1 = A Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R2) & " ",1,0
         For P3 = 1 To 5
            E2 = Estratto(Es,R2,P3)
            If E2 = B Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi Space(18) & " Spia Inserita " & Format2(Spia),1
         Scrivi Space(10) & " Posizine Spia Inserita " & Pos,1
         Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(C) & " <-- Spia inserita ",1
         Scrivi Space(10) & "Numeri Lunghetta Inseriti " & StringaNumeri(aNum," ",True),1
         Scrivi
         Amba(1) = aNum(1)
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp
         Ambo1(1) = aNum(1) : Ambo1(2) = aNum(2)
         ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
         Ambo2(1) = aNum(1) : Ambo2(2) = aNum(3)
         ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
         Ambo3(1) = aNum(1) : Ambo3(2) = aNum(4)
         ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
         Ambo4(1) = aNum(1) : Ambo4(2) = aNum(5)
         ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
         ImpostaGiocata 6,aNum,Ruo,Post,Clp
         Gioca Es,1
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Matematico
Grazie

DUE RUOTE, E SPIA IN POSIZIONE (di RAMCOLOTTO)

Le 2 ruote, la spia, la posizione e la lunghetta si possono cambiare tramite inputbox, ma per defoult ho messo le ruote, la spia, le posizioni e la lunghetta che hai usato negli esempi.

L'ambata è il primo numero della lunghetta.


Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,P3,E1,E2,Caso,Casi
   Dim Spia,Pos,A,B,C,Num,aNum
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Ruo(2),Amba(1),Posta(1),Poste(2),Post(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,9630))
   R1 = CInt(InputBox("Inserisci la 1ª Ruota",Salvo50,1))
   R2 = CInt(InputBox("Inserisci la 2ª Ruota",Salvo50,9))
   Spia = CInt(InputBox("Inserisci la Spia",Salvo50,21))
   Pos = CInt(InputBox("Inserisci la Posizione",Salvo50,4))
   Num = InputBox("Inserisci 5 Numeri Separati da un Punto (.)",,"39.05.52.53.71")
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",,15))
   aNum = Split("0." & Num,".")
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "DUE RUOTE, E SPIA IN POSIZIONE " & Pos & " (di RamcoLotto) - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Post(2) = 1
   Post(3) = 1
   Ruo(1) = R1
   Ruo(2) = R2
   Amba(1) = aNum(1)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      A = Estratto(Es,R1,Pos)
      B = Estratto(Es,R2,Pos)
      C = Fuori90(A + B)
      If C = Spia Then
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For P2 = 1 To 5
            E1 = Estratto(Es,R1,P2)
            If E1 = A Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R2) & " ",1,0
         For P3 = 1 To 5
            E2 = Estratto(Es,R2,P3)
            If E2 = B Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi Space(18) & " Spia Inserita " & Format2(Spia),1
         Scrivi Space(10) & " Posizine Spia Inserita " & Pos,1
         Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(C) & " <-- Spia inserita ",1
         Scrivi Space(10) & "Numeri Lunghetta Inseriti " & StringaNumeri(aNum," ",True),1
         Scrivi
         Amba(1) = aNum(1)
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp
         Ambo1(1) = aNum(1) : Ambo1(2) = aNum(2)
         ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
         Ambo2(1) = aNum(1) : Ambo2(2) = aNum(3)
         ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
         Ambo3(1) = aNum(1) : Ambo3(2) = aNum(4)
         ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
         Ambo4(1) = aNum(1) : Ambo4(2) = aNum(5)
         ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
         ImpostaGiocata 6,aNum,Ruo,Post,Clp
         Gioca Es,1
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Grazie , sempre forte con i tuoi script ottimi ....peccato x le condizioni abbastanza rare , ma gli iesiti sono davvero buoni :)
Entro domani ti metto un metodo datato 2020 di Franco Mongillo in cartaceo davvero interessante ...devo scannerizzare le pagine e ora non sono in sede.

Buona serata
 
Ciao a tutti , in particolare a salvo50 ,
Come promesso allego pagine scannerizzate x un'altro interessante omaggio a voi tutti lettori , si tratta di un metodo in cartaceo da me acquistato nel lontano anno 2000.
Autore : Franco Mongillo
Nome metodo : "ARMONIA STELLARE" distanza 45
 

Allegati

Ciao a Tutti

Matematico, Xeroxs
Grazie.

ARMONIA STELLARE a cura di FRANCO MONGILLO

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Clp2,K,Sp,Salvo50
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
   Dim A,B,C,D,SommeOr,SommeVe,SommeDi
   Dim SomOr1,SomOr2,SomVe1,SomVe2,SomDi1,SomDi2
   Dim Nu(5),DiaNu(5),Amba(1),Ambo1(2),Ambo2(2)
   Dim Ruote(3),Ruota(2),Posta(1),Poste(2)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9812)'6881 secondo esempio nel metodo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",Salvo50,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Salvo50,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "ARMONIA STELLARE a cura di FRANCO MONGILLO - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If Distanza(A,B) = 45 Then
                  K = 0
                  For K = 1 To 5
                     Nu(K) = Estratto(Es,R1,K)
                     If Nu(K) = A Or Nu(K) = B Then Nu(K) = 0
                  Next
                  Call OrdinaMatrice(Nu,1)
                  DiaNu(1) = Diametrale(Nu(3))
                  DiaNu(2) = Diametrale(Nu(4))
                  DiaNu(3) = Diametrale(Nu(5))
                  For R2 = 1 To 10
                     If R2 <> R1 Then
                        For P3 = 1 To 5
                           If P3 <> P1 And P3 <> P2 Then
                              C =(Estratto(Es,R2,P3))
                              If C = DiaNu(1) Or C = DiaNu(2) Or C = DiaNu(3)Then
                                 If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) _
                                    Or Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) _
                                    Or Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then
                                    If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) Then D = Nu(3)
                                    If Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) Then D = Nu(4)
                                    If Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then D = Nu(5)
                                    'A--B
                                    '|  |
                                    'D--C
                                    SomOr1 = Fuori90(A + B) : SomOr2 = Fuori90(D + C)
                                    SomDi1 = Fuori90(A + C) : SomDi2 = Fuori90(D + B)
                                    SomVe1 = Fuori90(A + D) : SomVe2 = Fuori90(B + C)
                                    SommeOr = Fuori90(SomOr1 + SomOr2)
                                    SommeDi = Fuori90(SomDi1 + SomDi2)
                                    SommeVe = Fuori90(SomVe1 + SomVe2)
                                    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 P = 1 To 5
                                       E1 = Estratto(Es,R1,P)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 1
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziati in Rosso Distanza 45",1
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For PP = 1 To 5
                                       E2 = Estratto(Es,R2,PP)
                                       If E2 = C Then
                                          ColoreTesto 1
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziato In Blu Diametrale Corrispondente",1
                                    Scrivi
                                    Scrivi Space(6) & " Quadrato " & Space(15) & "Somme " & Space(10),1,0
                                    Scrivi " Somme" & Space(11) & " Somme",1
                                    Scrivi Space(6) & " Composto " & Space(12) & " Orizontali" & Space(7),1,0
                                    Scrivi "Diagonali        Verticali",1
                                    Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(20),1,0
                                    Scrivi Format2(SomOr1) & Space(14) & Format2(SomDi1),1,0
                                    Scrivi Space(15) & Format2(SomVe1),1
                                    Scrivi Space(8) & Format2(D) & " " & Format2(C) & Space(20),1,0
                                    Scrivi Format2(SomOr2) & Space(14) & Format2(SomDi2),1,0
                                    Scrivi Space(15) & Format2(SomVe2),1
                                    Scrivi Space(30) & String(40,"-"),1
                                    Scrivi Space(9) & " Tripla Sommativi " & Space(6) & Format2(SommeOr) & Space(14),1,0
                                    Scrivi Format2(SommeDi) & Space(15) & Format2(SommeVe),1
                                    Scrivi
                                    Scrivi Space(45) & "Pronostico",1
                                    Scrivi Space(44) & " Ambata " & Format2(SommeDi),1
                                    Scrivi Space(44) & " Ambo   " & Format2(SommeDi) & Sp & Format2(C),1
                                    Scrivi Space(44) & " Ambo   " & Format2(SommeDi) & Sp & Format2(Vert(C)),1
                                    Scrivi
                                    Ruota(1) = R1 : Ruota(2) = R2
                                    Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TU_
                                    Amba(1) = SommeDi
                                    ImpostaGiocata 1,Amba,Ruota,Posta,Clp1
                                    Ambo1(1) = SommeDi : Ambo1(2) = C
                                    ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                                    Ambo2(1) = SommeDi : Ambo2(2) = Vert(C)
                                    ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                                    Gioca Es,1
                                 End If
                              End If
                           End If
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ciao a Tutti

Matematico, Xeroxs
Grazie.

ARMONIA STELLARE a cura di FRANCO MONGILLO

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Clp2,K,Sp,Salvo50
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
   Dim A,B,C,D,SommeOr,SommeVe,SommeDi
   Dim SomOr1,SomOr2,SomVe1,SomVe2,SomDi1,SomDi2
   Dim Nu(5),DiaNu(5),Amba(1),Ambo1(2),Ambo2(2)
   Dim Ruote(3),Ruota(2),Posta(1),Poste(2)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9812)'6881 secondo esempio nel metodo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",Salvo50,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Salvo50,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "ARMONIA STELLARE a cura di FRANCO MONGILLO - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If Distanza(A,B) = 45 Then
                  K = 0
                  For K = 1 To 5
                     Nu(K) = Estratto(Es,R1,K)
                     If Nu(K) = A Or Nu(K) = B Then Nu(K) = 0
                  Next
                  Call OrdinaMatrice(Nu,1)
                  DiaNu(1) = Diametrale(Nu(3))
                  DiaNu(2) = Diametrale(Nu(4))
                  DiaNu(3) = Diametrale(Nu(5))
                  For R2 = 1 To 10
                     If R2 <> R1 Then
                        For P3 = 1 To 5
                           If P3 <> P1 And P3 <> P2 Then
                              C =(Estratto(Es,R2,P3))
                              If C = DiaNu(1) Or C = DiaNu(2) Or C = DiaNu(3)Then
                                 If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) _
                                    Or Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) _
                                    Or Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then
                                    If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) Then D = Nu(3)
                                    If Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) Then D = Nu(4)
                                    If Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then D = Nu(5)
                                    'A--B
                                    '|  |
                                    'D--C
                                    SomOr1 = Fuori90(A + B) : SomOr2 = Fuori90(D + C)
                                    SomDi1 = Fuori90(A + C) : SomDi2 = Fuori90(D + B)
                                    SomVe1 = Fuori90(A + D) : SomVe2 = Fuori90(B + C)
                                    SommeOr = Fuori90(SomOr1 + SomOr2)
                                    SommeDi = Fuori90(SomDi1 + SomDi2)
                                    SommeVe = Fuori90(SomVe1 + SomVe2)
                                    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 P = 1 To 5
                                       E1 = Estratto(Es,R1,P)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 1
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziati in Rosso Distanza 45",1
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For PP = 1 To 5
                                       E2 = Estratto(Es,R2,PP)
                                       If E2 = C Then
                                          ColoreTesto 1
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziato In Blu Diametrale Corrispondente",1
                                    Scrivi
                                    Scrivi Space(6) & " Quadrato " & Space(15) & "Somme " & Space(10),1,0
                                    Scrivi " Somme" & Space(11) & " Somme",1
                                    Scrivi Space(6) & " Composto " & Space(12) & " Orizontali" & Space(7),1,0
                                    Scrivi "Diagonali        Verticali",1
                                    Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(20),1,0
                                    Scrivi Format2(SomOr1) & Space(14) & Format2(SomDi1),1,0
                                    Scrivi Space(15) & Format2(SomVe1),1
                                    Scrivi Space(8) & Format2(D) & " " & Format2(C) & Space(20),1,0
                                    Scrivi Format2(SomOr2) & Space(14) & Format2(SomDi2),1,0
                                    Scrivi Space(15) & Format2(SomVe2),1
                                    Scrivi Space(30) & String(40,"-"),1
                                    Scrivi Space(9) & " Tripla Sommativi " & Space(6) & Format2(SommeOr) & Space(14),1,0
                                    Scrivi Format2(SommeDi) & Space(15) & Format2(SommeVe),1
                                    Scrivi
                                    Scrivi Space(45) & "Pronostico",1
                                    Scrivi Space(44) & " Ambata " & Format2(SommeDi),1
                                    Scrivi Space(44) & " Ambo   " & Format2(SommeDi) & Sp & Format2(C),1
                                    Scrivi Space(44) & " Ambo   " & Format2(SommeDi) & Sp & Format2(Vert(C)),1
                                    Scrivi
                                    Ruota(1) = R1 : Ruota(2) = R2
                                    Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TU_
                                    Amba(1) = SommeDi
                                    ImpostaGiocata 1,Amba,Ruota,Posta,Clp1
                                    Ambo1(1) = SommeDi : Ambo1(2) = C
                                    ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                                    Ambo2(1) = SommeDi : Ambo2(2) = Vert(C)
                                    ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                                    Gioca Es,1
                                 End If
                              End If
                           End If
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Grazie salvo50, se allunghiamo i colpi di gioco migliora negli esiti ...bravissimo !(y)👏
 
Ciao salvo50 ,
Ho un'altro bellissimo metodo in cartaceo del bravissimo Antonio Fiacco : IL RETTANGOLO ASSOLUTO 2002
Se non è stato fatto lo script lo scannerizzo e lo invio ....ne vale la pena davvero.
 
Piacere Salvo,
sto osservando tutti gli script per cercare da autodidatta di imparare qualcosa di codice di programmazione dal tuo enorme lavoro. Ma ahimé non sono ancora riuscito a portare a casa neanche un calcolo (se non con i copia/incolla).
A questo punto ti chiederei una cortesia, se mai dovessi avere tempo, per uno script su questo metodo che io ho chiamato Forza4 (gioco sulla diagonale) e che non escludo possa aver "teorizzato" qualcuno prima di me.

Condizioni di gioco
Individuare una diagonale (sx verso dx) con i primi due elementi "in cadenza"

Giocata
2 ambate (3° e 4° elemento della diagonale) - Esito molto positivo da settembre ad oggi

Per costruzione ambi secchi (somma di 1°+4° della diagonale; somma di 2°+3° della diagonale) - DA VERIFICARE (sono alla ricerca di un buon gioco per ambo)

Nell'immagine ho provato a specificare sia le condizioni di rilevamento, sia quelle di giocata.
Nello specifico quella giocata ha portato una ambata al secondo colpo su Roma (estratto il 63)

Scusa e grazie per l'aiuto.
 

Allegati

  • esempio_giocata.PNG
    esempio_giocata.PNG
    15,5 KB · Visite: 13
Piacere Salvo,
sto osservando tutti gli script per cercare da autodidatta di imparare qualcosa di codice di programmazione dal tuo enorme lavoro. Ma ahimé non sono ancora riuscito a portare a casa neanche un calcolo (se non con i copia/incolla).
A questo punto ti chiederei una cortesia, se mai dovessi avere tempo, per uno script su questo metodo che io ho chiamato Forza4 (gioco sulla diagonale) e che non escludo possa aver "teorizzato" qualcuno prima di me.

Condizioni di gioco
Individuare una diagonale (sx verso dx) con i primi due elementi "in cadenza"

Giocata
2 ambate (3° e 4° elemento della diagonale) - Esito molto positivo da settembre ad oggi

Per costruzione ambi secchi (somma di 1°+4° della diagonale; somma di 2°+3° della diagonale) - DA VERIFICARE (sono alla ricerca di un buon gioco per ambo)

Nell'immagine ho provato a specificare sia le condizioni di rilevamento, sia quelle di giocata.
Nello specifico quella giocata ha portato una ambata al secondo colpo su Roma (estratto il 63)

Scusa e grazie per l'aiuto.
Ciao Giovanni81, non la vedo semplice per questo script, comunque a tempo perso vedrò cosa posso fare.
 
Ciao a Tutti.

Ciao Matematico, Giovanni81, per adesso nel tempo libero sto facendo quello proposto da Giovanni81, appena concludo Forza4, passo a quello di Antonio Fiacco
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22

Ultimi Messaggi

Indietro
Alto