Novità

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

MarcoElle, Matematico, Mister1729, Rudivall, Xeroxs

Grazie.

Alcune considerazioni su questo metodo

A pagina 1 dice che il rapporto della differenza tra il primo ambo della terna (1-2-3) , (1-2) ed il secondo (2-3) deve essere di un terzo 1/3 quindi si parte con l'esempio del 3/75 PA 50 74 86 ed il rapporto in questo caso è di 1/2, penso ad un errore di stampa e procedo nello script rispettando questo rapporto 1/2 finisco tutti i calcoli, confronto i 6 ambi ottenuti dallo script, con i 6 ambi pronosticati dal metodo è sono uguali.

Regole 1,2,3 e 4 rispettate

Regola 5) recita che se nel pronostico c'è il numero 9 bisogna giocare anche il numero 6, e viceversa quindi aggiungere un altro ambo, idem se c'è il numero 2 aggiungere il 22 e viceversa, questa regola non l'ho rispettata.

Regola 6) non la vedo

Regola 7) recita che quando nella terna ci sono i numeri 17 oppure 90 non giocare, regola rispettata

Nelle pagine 3, 4, e 5 ci sono degli esempi, in nessuno è rispettato il rapporto di distanza 1/ 2

Esempio di terna dispari discendente, estrazione 23/76 CA 67 61 25 dist. 6 - 36 quindi rapporto 1/6

Esempio 1) Estrazione 8/75 GE 58 36 14 le distanze sono uguali, quindi rapporto 1/1 in questo caso dice di cambiare il tipo di calcoli, ma questa condizione nello script non potrà mai verificarsi perchè ho rispettato il rapporto delle distanze 1/2

Esempi 3 e 4) Non sono ne discendenti e neanche ascendenti, quindi nello script non ci sono

Esempi 2 e 5) anche qui il rapporto delle distanze è completamente sballato, quindi a questo punto ho fatto 2 script, nel primo ho rispettato il rapporto delle distanze di 1/2
e nel secondo non ho rispettato nessun rapporto ma le altre regole ci sono

Script con rapporto distanze 1/2


Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A1,A2,A3,Clp,Es,Cer,Salvo50,Sp
   Dim R1,R2,R3,P1,P2,P3,P4,E1,Caso,Casi
   Dim DA12,DA13,DA23,MSA12,MSA23,X1,X2,Dist1,Dist2
   Dim Ambo1(2),Ambo2(2),Ambo3(2)
   Dim Ambo4(2),Ambo5(2),Ambo6(2)
   Dim Ruote(2),Ruo(1),Posta(2),L(8),M(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9750))' 5428 PRIMO ESEMPIO NELLE SPIEGAZIONI
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,15))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,0))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(4) & "Ambi Massimi Formativi con Rapporto Distanze 1/2 - Fabarri - Script Salvo50" & Space(4),1,,4,,3,,1
   Posta(2) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            P2 = P1 + 1
            P3 = P2 + 1
            A1 = Estratto(Es,R1,P1)
            If A1 > 0 Then
               A2 = Estratto(Es,R1,P2)
               A3 = Estratto(Es,R1,P3)
               DA12 = Differenza(A1,A2) : DA23 = Differenza(A2,A3) : DA13 = Differenza(A1,A3)
               If DA13 >= 24 And DA13 <= 72 Then
                  If(pari(A1) And pari(A2) And pari(A3)) Or(dispari(A1) And dispari(A2) And dispari(A3)) Then
                     If A1 <> 90 And A2 <> 90 And A3 <> 90 And A1 <> 17 And A2 <> 17 And A3 <> 17 Then
                        If(A2 > A1 And A3 > A2) Then
                           If(DA12 >= 6) And(DA12 = DA23 * 2) Then
                              X1 = Fuori90((90 + A1) - DA23)
                              Ruo(1) = R1
                              X2 = Fuori90(A3 + DA12)
                              MSA12 =((A1 + A2)\ 2)
                              Ambo1(1) = X1 : Ambo1(2) = MSA12
                              If SerieFreq(Es,Es,Ambo1,Ruo,2) = 0 Then
                                 Dist1 = Distanza(MSA12,X1)
                                 Ambo2(1) = X1 : Ambo2(2) = Dist1
                                 If SerieFreq(Es,Es,Ambo2,Ruo,2) = 0 Then
                                    MSA23 =((A2 + A3)\ 2)
                                    Ambo3(1) = X2 : Ambo3(2) = MSA23
                                    If SerieFreq(Es,Es,Ambo3,Ruo,2) = 0 Then
                                       Dist2 = Distanza(MSA23,X2)
                                       Ambo4(1) = X2 : Ambo4(2) = Dist2
                                       If SerieFreq(Es,Es,Ambo4,Ruo,2) = 0 Then
                                          Ambo5(1) = X1 : Ambo5(2) = X2
                                          If SerieFreq(Es,Es,Ambo5,Ruo,2) = 0 Then
                                             Ambo6(1) = MSA12 : Ambo6(2) = MSA23
                                             If SerieFreq(Es,Es,Ambo6,Ruo,2) = 0 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 P4 = 1 To 5
                                                   E1 = Estratto(Es,R1,P4)
                                                   If E1 = A1 Or E1 = A2 Or E1 = A3 Then
                                                      ColoreTesto 2
                                                   Else
                                                      ColoreTesto 0
                                                   End If
                                                   Scrivi Format2(E1) & " ",1,0
                                                   ColoreTesto 0
                                                Next
                                                Scrivi
                                                Scrivi
                                                Scrivi Space(25) & "TERNA ASCENDENTE",1
                                                If Cer = 1 Then
                                                   M(1) = A1 : M(2) = A2 : M(3) = A3
                                                   DisegnaCerchioCiclometrico M,1,,,,1
                                                End If
                                                If Cer = 1 Then
                                                   L(1) = X1 : L(2) = A1 : L(3) = A2 : L(4) = A3 : L(5) = X2
                                                   DisegnaCerchioCiclometrico L,1,,,,1
                                                End If
                                                Scrivi
                                                Scrivi
                                                Ruote(1) = R1 : Ruote(2) = TU_
                                                ImpostaGiocata 1,Ambo1,Ruote,Posta,Clp
                                                ImpostaGiocata 2,Ambo2,Ruote,Posta,Clp
                                                ImpostaGiocata 3,Ambo3,Ruote,Posta,Clp
                                                ImpostaGiocata 4,Ambo4,Ruote,Posta,Clp
                                                ImpostaGiocata 5,Ambo5,Ruote,Posta,Clp
                                                ImpostaGiocata 6,Ambo6,Ruote,Posta,Clp
                                                Gioca Es,1,,1
                                             End If
                                          End If
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            P2 = P1 + 1
            P3 = P2 + 1
            A1 = Estratto(Es,R1,P1)
            If A1 > 0 Then
               A2 = Estratto(Es,R1,P2)
               A3 = Estratto(Es,R1,P3)
               DA12 = Differenza(A1,A2) : DA23 = Differenza(A2,A3) : DA13 = Differenza(A1,A3)
               If DA13 >= 24 And DA13 <= 72 Then
                  If(pari(A1) And pari(A2) And pari(A3))Or(dispari(A1) And dispari(A2) And dispari(A3)) Then
                     If A1 <> 90 And A2 <> 90 And A3 <> 90 And A1 <> 17 And A2 <> 17 And A3 <> 17 Then
                        If(A2 > A3 And A1 > A2) Then
                           If(DA23 >= 6) And(DA23 = DA12 * 2) Then
                              X1 = Fuori90((90 + A3) - DA12)
                              Ruo(1) = R1
                              X2 = Fuori90(A1 + DA23)
                              MSA12 =((A1 + A2)/ 2)
                              Ambo1(1) = X1 : Ambo1(2) = MSA12
                              If SerieFreq(Es,Es,Ambo1,Ruo,2) = 0 Then
                                 Dist1 = Distanza(MSA12,X1)
                                 Ambo2(1) = X1 : Ambo2(2) = Dist1
                                 If SerieFreq(Es,Es,Ambo2,Ruo,2) = 0 Then
                                    MSA23 =((A2 + A3)/ 2)
                                    Ambo3(1) = X2 : Ambo3(2) = MSA23
                                    If SerieFreq(Es,Es,Ambo3,Ruo,2) = 0 Then
                                       Dist2 = Distanza(MSA23,X2)
                                       Ambo4(1) = X2 : Ambo4(2) = Dist2
                                       If SerieFreq(Es,Es,Ambo4,Ruo,2) = 0 Then
                                          Ambo5(1) = X1 : Ambo5(2) = X2
                                          If SerieFreq(Es,Es,Ambo5,Ruo,2) = 0 Then
                                             Ambo6(1) = MSA12 : Ambo6(2) = MSA23
                                             If SerieFreq(Es,Es,Ambo6,Ruo,2) = 0 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 P4 = 1 To 5
                                                   E1 = Estratto(Es,R1,P4)
                                                   If E1 = A1 Or E1 = A2 Or E1 = A3 Then
                                                      ColoreTesto 2
                                                   Else
                                                      ColoreTesto 0
                                                   End If
                                                   Scrivi Format2(E1) & " ",1,0
                                                   ColoreTesto 0
                                                Next
                                                Scrivi
                                                Scrivi
                                                Scrivi Space(25) & "TERNA DISCENDENTE",1
                                                If Cer = 1 Then
                                                   M(1) = A1 : M(2) = A2 : M(3) = A3
                                                   DisegnaCerchioCiclometrico M,1,,,,1
                                                End If
                                                If Cer = 1 Then
                                                   L(1) = X1 : L(2) = A1 : L(3) = A2 : L(4) = A3 : L(5) = X2
                                                   DisegnaCerchioCiclometrico L,1,,,,1
                                                End If
                                                Scrivi
                                                Scrivi
                                                Ruote(1) = R1 : Ruote(2) = TU_
                                                ImpostaGiocata 1,Ambo1,Ruote,Posta,Clp,2
                                                ImpostaGiocata 2,Ambo2,Ruote,Posta,Clp,2
                                                ImpostaGiocata 3,Ambo3,Ruote,Posta,Clp,2
                                                ImpostaGiocata 4,Ambo4,Ruote,Posta,Clp,2
                                                ImpostaGiocata 5,Ambo5,Ruote,Posta,Clp,2
                                                ImpostaGiocata 6,Ambo6,Ruote,Posta,Clp,2
                                                Gioca Es,1,,1
                                             End If
                                          End If
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub

Script senza rapporto distanze

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A1,A2,A3,Clp,Es,Cer,Salvo50,Sp
   Dim R1,R2,R3,P1,P2,P3,P4,E1,Caso,Casi
   Dim DA12,DA13,DA23,MSA12,MSA23,X1,X2,Dist1,Dist2
   Dim Ambo1(2),Ambo2(2),Ambo3(2)
   Dim Ambo4(2),Ambo5(2),Ambo6(2)
   Dim Ruote(2),Ruo(1),Posta(2),L(8),M(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9750))' 5428 PRIMO ESEMPIO NELLE SPIEGAZIONI
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,15))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,0))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(17) & "Ambi Massimi Formativi - Fabarri - Script Salvo50" & Space(17),1,,4,,3,,1
   Posta(2) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            P2 = P1 + 1
            P3 = P2 + 1
            A1 = Estratto(Es,R1,P1)
            If A1 > 0 Then
               A2 = Estratto(Es,R1,P2)
               A3 = Estratto(Es,R1,P3)
               DA12 = Differenza(A1,A2) : DA23 = Differenza(A2,A3) : DA13 = Differenza(A1,A3)
               If DA13 >= 24 And DA13 <= 72 Then
                  If(pari(A1) And pari(A2) And pari(A3)) Or(dispari(A1) And dispari(A2) And dispari(A3)) Then
                     If A1 <> 90 And A2 <> 90 And A3 <> 90 And A1 <> 17 And A2 <> 17 And A3 <> 17 Then
                        If(A2 > A1 And A3 > A2) Then
                           If(DA12 >= 6) Then
                              X1 =((90 + A1) - DA23)
                              Ruo(1) = R1
                              X2 = Fuori90(A3 + DA12)
                              MSA12 =((A1 + A2)\ 2)
                              Ambo1(1) = X1 : Ambo1(2) = MSA12
                              If SerieFreq(Es,Es,Ambo1,Ruo,2) = 0 Then
                                 Dist1 = Distanza(MSA12,X1)
                                 Ambo2(1) = X1 : Ambo2(2) = Dist1
                                 If SerieFreq(Es,Es,Ambo2,Ruo,2) = 0 Then
                                    MSA23 =((A2 + A3)\ 2)
                                    Ambo3(1) = X2 : Ambo3(2) = MSA23
                                    If SerieFreq(Es,Es,Ambo3,Ruo,2) = 0 Then
                                       Dist2 = Distanza(MSA23,X2)
                                       Ambo4(1) = X2 : Ambo4(2) = Dist2
                                       If SerieFreq(Es,Es,Ambo4,Ruo,2) = 0 Then
                                          Ambo5(1) = X1 : Ambo5(2) = X2
                                          If SerieFreq(Es,Es,Ambo5,Ruo,2) = 0 Then
                                             Ambo6(1) = MSA12 : Ambo6(2) = MSA23
                                             If SerieFreq(Es,Es,Ambo6,Ruo,2) = 0 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 P4 = 1 To 5
                                                   E1 = Estratto(Es,R1,P4)
                                                   If E1 = A1 Or E1 = A2 Or E1 = A3 Then
                                                      ColoreTesto 2
                                                   Else
                                                      ColoreTesto 0
                                                   End If
                                                   Scrivi Format2(E1) & " ",1,0
                                                   ColoreTesto 0
                                                Next
                                                Scrivi
                                                Scrivi
                                                Scrivi Space(25) & "TERNA ASCENDENTE",1
                                                If Cer = 1 Then
                                                   M(1) = A1 : M(2) = A2 : M(3) = A3
                                                   DisegnaCerchioCiclometrico M,1,,,,1
                                                End If
                                                If Cer = 1 Then
                                                   L(1) = X1 : L(2) = A1 : L(3) = A2 : L(4) = A3 : L(5) = X2
                                                   DisegnaCerchioCiclometrico L,1,,,,1
                                                End If
                                                Scrivi
                                                Scrivi
                                                Ruote(1) = R1 : Ruote(2) = TU_
                                                ImpostaGiocata 1,Ambo1,Ruote,Posta,Clp
                                                ImpostaGiocata 2,Ambo2,Ruote,Posta,Clp
                                                ImpostaGiocata 3,Ambo3,Ruote,Posta,Clp
                                                ImpostaGiocata 4,Ambo4,Ruote,Posta,Clp
                                                ImpostaGiocata 5,Ambo5,Ruote,Posta,Clp
                                                ImpostaGiocata 6,Ambo6,Ruote,Posta,Clp
                                                Gioca Es,1,,1
                                             End If
                                          End If
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            P2 = P1 + 1
            P3 = P2 + 1
            A1 = Estratto(Es,R1,P1)
            If A1 > 0 Then
               A2 = Estratto(Es,R1,P2)
               A3 = Estratto(Es,R1,P3)
               DA12 = Differenza(A1,A2) : DA23 = Differenza(A2,A3) : DA13 = Differenza(A1,A3)
               If DA13 >= 24 And DA13 <= 72 Then
                  If(pari(A1) And pari(A2) And pari(A3))Or(dispari(A1) And dispari(A2) And dispari(A3)) Then
                     If A1 <> 90 And A2 <> 90 And A3 <> 90 And A1 <> 17 And A2 <> 17 And A3 <> 17 Then
                        If(A2 > A3 And A1 > A2) Then
                           If(DA23 >= 6) Then
                              X1 = Fuori90((90 + A3) - DA12)
                              Ruo(1) = R1
                              X2 = Fuori90(A1 + DA23)
                              MSA12 =((A1 + A2)/ 2)
                              Ambo1(1) = X1 : Ambo1(2) = MSA12
                              If SerieFreq(Es,Es,Ambo1,Ruo,2) = 0 Then
                                 Dist1 = Distanza(MSA12,X1)
                                 Ambo2(1) = X1 : Ambo2(2) = Dist1
                                 If SerieFreq(Es,Es,Ambo2,Ruo,2) = 0 Then
                                    MSA23 =((A2 + A3)/ 2)
                                    Ambo3(1) = X2 : Ambo3(2) = MSA23
                                    If SerieFreq(Es,Es,Ambo3,Ruo,2) = 0 Then
                                       Dist2 = Distanza(MSA23,X2)
                                       Ambo4(1) = X2 : Ambo4(2) = Dist2
                                       If SerieFreq(Es,Es,Ambo4,Ruo,2) = 0 Then
                                          Ambo5(1) = X1 : Ambo5(2) = X2
                                          If SerieFreq(Es,Es,Ambo5,Ruo,2) = 0 Then
                                             Ambo6(1) = MSA12 : Ambo6(2) = MSA23
                                             If SerieFreq(Es,Es,Ambo6,Ruo,2) = 0 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 P4 = 1 To 5
                                                   E1 = Estratto(Es,R1,P4)
                                                   If E1 = A1 Or E1 = A2 Or E1 = A3 Then
                                                      ColoreTesto 2
                                                   Else
                                                      ColoreTesto 0
                                                   End If
                                                   Scrivi Format2(E1) & " ",1,0
                                                   ColoreTesto 0
                                                Next
                                                Scrivi
                                                Scrivi
                                                Scrivi Space(25) & "TERNA DISCENDENTE",1
                                                If Cer = 1 Then
                                                   M(1) = A1 : M(2) = A2 : M(3) = A3
                                                   DisegnaCerchioCiclometrico M,1,,,,1
                                                End If
                                                If Cer = 1 Then
                                                   L(1) = X1 : L(2) = A1 : L(3) = A2 : L(4) = A3 : L(5) = X2
                                                   DisegnaCerchioCiclometrico L,1,,,,1
                                                End If
                                                Scrivi
                                                Scrivi
                                                Ruote(1) = R1 : Ruote(2) = TU_
                                                ImpostaGiocata 1,Ambo1,Ruote,Posta,Clp,2
                                                ImpostaGiocata 2,Ambo2,Ruote,Posta,Clp,2
                                                ImpostaGiocata 3,Ambo3,Ruote,Posta,Clp,2
                                                ImpostaGiocata 4,Ambo4,Ruote,Posta,Clp,2
                                                ImpostaGiocata 5,Ambo5,Ruote,Posta,Clp,2
                                                ImpostaGiocata 6,Ambo6,Ruote,Posta,Clp,2
                                                Gioca Es,1,,1
                                             End If
                                          End If
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub
 

Matematico

Advanced Member >PLATINUM<
Ciao salvo50, eccoti un'altra bella metodologia del Fabarri , con calma e quando puoi :)
 

Allegati

  • 1602159066.jpg
    1602159066.jpg
    146,9 KB · Visite: 82
  • 1602433531.jpg
    1602433531.jpg
    154,1 KB · Visite: 71
  • 1602491340.jpg
    1602491340.jpg
    129,4 KB · Visite: 62
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Matematico, Mister1729, Rudivall, Xeroxs, Bubù

Grazie

Regole 1, 2, 3 rispettate
Regola 4 non rispettata
Regola 5 prima metà non rispettata
Regola 5 seconda metà rispettata, eseguito trasposizione
Regola 6 recita che quando i centrali hanno la medesima cifra delle unità, (ed io aggiungo anche le medesime decine) agire in un certo modo (leggere la regola 6) , in questo caso ho eliminato il secondo ambo
Regola 7 non rispettata
Regola 8 rispettata
Regola 9 non rispettata

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Clp2,XS1,S1,S2,Salvo50
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2,X1,X2
   Dim DAB,DCD,DAC,DBD,Dist1,Dist2,Dist3,Dist4
   Dim Ok,A,B,C,D,Co,Sp,A1,A2,A3,A4,A5,S3,S4
   Dim Ruote(2),Posta(1),Poste(2),M(4)
   Dim Amba(2),Ambo1(2),Ambo2(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,4)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",,7)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(22) & "METODO ESAMET - FABARRI - SCRIPT SALVO50" & Space(22),1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               For P3 = 1 To 4
                  P4 = P3 + 1
                  C = Estratto(Es,R2,P3)
                  D = Estratto(Es,R2,P4)
                  'A---B
                  '|   |
                  'C---D
                  If A <> C And A <> D And B <> C And B <> D Then
                     DAB = Distanza(A,B) : DCD = Distanza(C,D)
                     DBD = Distanza(B,D) : DAC = Distanza(A,C)
                     If(DAC = 45 Or DBD = 45) Then
                        If DAB + DCD = 45 Then
                           M(1) = A : M(2) = B : M(3) = C : M(4) = D
                           Call OrdinaMatrice(M,1)
                           Dist1 = Distanza(M(1),M(2)) : Dist2 = Distanza(M(2),M(3))
                           Dist3 = Distanza(M(3),M(4)) : Dist4 = Distanza(M(4),M(1))
                           '
                           If pari(Dist1) And pari(Dist2) Then
                              A1 = M(1) : A2 = M(2)
                              A3 = M(2) : A4 = M(3)
                              XS1 = Dist1/2
                              S1 = Fuori90(A1 + XS1)
                              S2 = Fuori90(A3 + XS1)
                              A5 = Dist1
                           End If
                           '---------------------------------------------
                           If pari(Dist2) And pari(Dist3) Then
                              A1 = M(2) : A2 = M(3)
                              A3 = M(3) : A4 = M(4)
                              XS1 = Dist2/2
                              S1 = Fuori90(A1 + XS1)
                              S2 = Fuori90(A3 + XS1)
                              A5 = Dist2
                           End If
                           '----------------------------------------------------
                           If pari(Dist3) And pari(Dist4) Then
                              A1 = M(3) : A2 = M(4)
                              A3 = M(1) : A4 = M(4)
                              XS1 = Dist3/2
                              S1 = Fuori90(A1 + XS1)
                              S2 = Fuori90(A3 + XS1)
                              A5 = Dist3
                           End If
                           '
                           If pari(Dist1) And pari(Dist4) Then
                              A1 = M(1) : A2 = M(2)
                              A3 = M(4) : A4 = M(1)
                              XS1 = Dist1/2
                              S1 = Fuori90(A1 + XS1)
                              S2 = Fuori90(A3 + XS1)
                              A5 = Dist1
                           End If
                           S3 = Trasposizione(S1,S2)
                           S4 = Trasposizione(S2,S1)
                           If S3 = 00 Then S3 = 90
                           If S4 = 00 Then S4 = 90
                           Amba(1) = S1 : Amba(2) = S2
                           Ambo1(1) = S1 : Ambo1(2) = S2
                           Ambo2(1) = S3 : Ambo2(2) = S4
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
                           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 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 PP = 1 To 5
                              E2 = Estratto(Es,R2,PP)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(5) & "Evidenziati" & Space(11) & "Evidenziati" & Space(11) & "Distanze ",1
                           Scrivi Space(5) & "Distanza 45" & Space(12) & "In Ordine " & Space(10) & " In Ordine",1
                           Scrivi Space(4) & "In verticale " & Space(10) & " Crescente" & Space(12) & "Crescente ",1
                           Scrivi Space(8) & Format2(A) & Sp & Format2(B) & Space(17),1,0
                           Scrivi Format2(M(1)) & Sp & Format2(M(2)) & Space(14),1,0
                           Scrivi Format2(M(1)) & Sp & Format2(M(2)) & " = " & Format2(Dist1),1
                           Scrivi Space(8) & Format2(C) & Sp & Format2(D) & Space(17),1,0
                           Scrivi Format2(M(4)) & Sp & Format2(M(3)) & Space(14),1,0
                           Scrivi Format2(M(2)) & Sp & Format2(M(3)) & " = " & Format2(Dist2),1
                           Scrivi Space(49) & Format2(M(3)) & Sp & Format2(M(4)) & " = " & Format2(Dist3),1
                           Scrivi Space(4) & " Numero Pari " & Format2(A5) & "/2 = " & Format2(XS1),1,0
                           Scrivi Space(23) & Format2(M(4)) & Sp & Format2(M(1)) & " = " & Format2(Dist4),1
                           Scrivi Space(1) & " Nr.   Minore 1° lato Pari " & Format2(A1) & " + " & Format2(XS1) & " = " & Format2(S1),1
                           If Dist1 <> Dist4 Then
                              Scrivi Space(1) & " Nr.   Minore 2° lato Pari " & Format2(A3) & " + " & Format2(XS1) & " = " & Format2(S2),1
                           End If
                           If Dist1 = Dist4 Then
                              Scrivi Space(1) & " Nr. Maggiore 2° lato Pari " & Format2(A3) & " + " & Format2(XS1) & " = " & Format2(S2),1
                           End If
                           Scrivi
                           Scrivi Space(1) & " La Trasposizione di  " & Format2(S1) & " e " & Format2(S2) & " Genera ",1,0
                           Scrivi Format2(S3) & " e " & Format2(S4),1
                           Scrivi
                           '
                           Ruote(1) = R1
                           Ruote(2) = R2
                           ImpostaGiocata 1,Amba,Ruote,Posta,Clp1
                           ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                           If(Cadenza(S1) <> Cadenza(S2)) And(Decina(S1) <> Decina(S2)) Then
                              ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                           End If
                           Gioca Es,1
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

Matematico

Advanced Member >PLATINUM<
Ciao salvo50 e un saluto a tutti quelli che seguono questa sezione doc , vado a postarti un fantastico metodo dal titolo: "IL TRIANGOLO SIMMETRICO" ..credo sia di A.Longo .....uno script aiuterbbe molto nella ricerca delle condizioni ....funziona dal lontano 1939
 

Allegati

  • 1.jpg
    1.jpg
    228,9 KB · Visite: 54
  • 2.jpg
    2.jpg
    158,8 KB · Visite: 48
  • 3.jpg
    3.jpg
    194,7 KB · Visite: 43
  • 4.jpg
    4.jpg
    174,5 KB · Visite: 45
  • 5.jpg
    5.jpg
    94,7 KB · Visite: 48

Matematico

Advanced Member >PLATINUM<
Sorry , reinvio il metodo completo...mi sono accorto ora che mancavano delle pagine ...

Buona serata a te salvo50 e a quelli che ci seguono :)
 

Allegati

  • si (1).jpg
    si (1).jpg
    135,5 KB · Visite: 35
  • si (2).jpg
    si (2).jpg
    135,5 KB · Visite: 33
  • si (3).jpg
    si (3).jpg
    138,7 KB · Visite: 30
  • si (4).jpg
    si (4).jpg
    138,7 KB · Visite: 27
  • si (5).jpg
    si (5).jpg
    132,3 KB · Visite: 26
  • si (6).jpg
    si (6).jpg
    132,3 KB · Visite: 25
  • si (7).jpg
    si (7).jpg
    107 KB · Visite: 26
  • si (8).jpg
    si (8).jpg
    107 KB · Visite: 31

Matematico

Advanced Member >PLATINUM<
Completo ora
 

Allegati

  • si (11).jpg
    si (11).jpg
    157,6 KB · Visite: 34
  • si (12).jpg
    si (12).jpg
    191,5 KB · Visite: 34
  • si (13).jpg
    si (13).jpg
    191,5 KB · Visite: 31
  • si (14).jpg
    si (14).jpg
    191,5 KB · Visite: 30
  • si (15).jpg
    si (15).jpg
    135,5 KB · Visite: 35
  • si (16).jpg
    si (16).jpg
    135,5 KB · Visite: 46

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Matematico,Rudivall, Xeroxs
Grazie

IL TRIANGOLO SIMMETRICO

Script per questo metodo ne ho fatti 2, il metodo è strutturato con 3 triangoli di cui la somma degli elementi delle basi viene divisa per 2, ma può capitare che qualche somma (quella del secondo triangolo) può essere dispari, in questo caso i calcoli per impostare gli ambi, sono diversi, l'autore dalle statistiche effettuate, consiglia di accoppiare alla ruota principale, la ruota gemella e quindi la ricerca degli ambi l'ho fatto solo nella ruota gemella, fare la ricerca in tutte le ruote rende gli script molto lenti quindi ho scartato questo procedimento.

Primo script, - Somma Elementi Base Secondo Triangolo PARI -


Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,A1,B1,A2,A3,B2,B3,Clp
   Dim R1,P1,P2,P3,E1,k,Es,Salvo50,Sp
   Dim Ava,Es2,Es3,Es4,Caso,Casi,Co,OK,k1
   Dim SAB,SA1B1,DiAB,Diff_M1M2,Sft_Cop6,Sft_Cop7
   Dim Ver1,Ver2,Diam_Ver1,Diam_Ver2,DA2_Diam_Ver1
   Dim Sft_Cop1,Sft_Cop2,Sft_Cop3,Sft_Cop4,Sft_Cop5
   Dim Cop1(2),Cop2(2),Cop3(2),Cop4(2),Cop5(2),Cop6(2),Cop7(2)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Ambo6(2)
   Dim Ruo(2),Ru(10),Posta(2),Sft_Cop(7),M(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800))'5867 ESEMPIO NELL'ARTICOLO
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Ava = CInt(InputBox(" Quante estrazioni avanti per cercare l'ambo presente?",Salvo50,5))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(15) & " Il Triangolo Simmetrico - FABARRI - SCRIPT SALVO50" & Space(18),1,,4,,3,,1
   Scrivi Space(20) & " Somma Elementi Base Secondo Triangolo PARI" & Space(21),1,,4,,3,,1
   Posta(2) = 1
   Sp = " "
   For Es = Ini To FIn -(Ava + Ava)
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            If(pari(A) And pari(B)) Or(dispari(A) And dispari(B)) Then
               DiAB = Distanza(A,B)
               If DiAB >= 6 And DiAB <= 42 Then
                  SAB = A + B
                  Ver1 = SAB/2
                  Diam_Ver1 = Diametrale(Ver1)
                  A1 = Fuori90(SAB) : B1 = Fuori90(B + Diam_Ver1)
                  SA1B1 = A1 + B1
                  If pari(SA1B1) Then
                     Ver2 = SA1B1 / 2
                     Diam_Ver2 = Diametrale(Ver2)
                     A2 = Fuori90((90 + Diam_Ver2) - Diam_Ver1)
                     DA2_Diam_Ver1 = Distanza(A2,Diam_Ver1)
                     B2 = Fuori90((90 + Diam_Ver1) - DA2_Diam_Ver1)
                     If A2 <> B2 And A <> A2 And B <> B2 Then
                        Cop1(1) = Diam_Ver2 : Cop1(2) = Diam_Ver1
                        Cop2(1) = Diam_Ver2 : Cop2(2) = A2
                        Cop3(1) = Diam_Ver2 : Cop3(2) = B2
                        Cop4(1) = Diam_Ver2 : Cop4(2) = A
                        Cop5(1) = Diam_Ver2 : Cop5(2) = B
                        Cop6(1) = Diam_Ver2 : Cop6(2) = A1
                        Cop7(1) = Diam_Ver2 : Cop7(2) = B1
                        For k1 = 1 To 7
                        Sft_Cop(k1) = 0
                        Next
                                               Es3 = Es + Ava
Ru(1) = RuotaGemella(R1)
                        Sft_Cop(1) = SerieFreqTurbo(Es,Es3,Cop1,Ru,2)
                        Sft_Cop(2) = SerieFreqTurbo(Es,Es3,Cop2,Ru,2)
                        Sft_Cop(3) = SerieFreqTurbo(Es,Es3,Cop3,Ru,2)
                        Sft_Cop(4) = SerieFreqTurbo(Es,Es3,Cop4,Ru,2)
                        Sft_Cop(5) = SerieFreqTurbo(Es,Es3,Cop5,Ru,2)
                        Sft_Cop(6) = SerieFreqTurbo(Es,Es3,Cop6,Ru,2)
                        Sft_Cop(7) = SerieFreqTurbo(Es,Es3,Cop7,Ru,2)
                        Co = 0
                        OK = 0
                      
                        For Es2 = Es To Es3
                           Co = Co + 1
                           For k = 1 To 7
                              If Sft_Cop(k) > 0 Then OK = 1 : Exit For
                           Next
                           If OK = 1 Then Exit For
                        Next
                        If OK = 1 Then
                           Es4 = Es2 + Co
                           Ruo(1) = R1 : Ruo(2) = Ru(1)
                           '
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P3 = 1 To 5
                              E1 = Estratto(Es,R1,P3)
                              If E1 = A Or E1 = B Or E1 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  <-- Evidenziati Basi 1° Triangolo",1,,,1
                           Scrivi
                           Scrivi Space(15) & " Somma Elementi Base 2° Triangolo - PARI",1,,,2
                           Scrivi
                           Scrivi Space(5) & Format2(A) & " + " & Format2(B) & " = " & Format2(SAB) & " / 2 = Medio " & Format2(Ver1),1,0
                           Scrivi " Diametrale di " & Format2(Diam_Ver1) & " Vertice 1° Triangolo ",1
                           Scrivi Space(5) & Format2(A) & " + " & Format2(B) & " = " & Format2(A1) & " Elem. Base 2° Triangolo",1
                           Scrivi Space(5) & Format2(B) & " + " & Format2(Diam_Ver1) & " = " & Format2(B1) & " Elem. Base 2° Triangolo",1
                           Scrivi Space(5) & Format2(A1) & " + " & Format2(B1) & " = " & Format2(SA1B1) & " / 2 = Medio " & Format2(Ver2),1,0
                           Scrivi " Diametrale di " & Format2(Diam_Ver2) & " Vertice 2° Triangolo ",1
                           Scrivi Space(5) & Format2(Diam_Ver2) & " - " & Format2(Diam_Ver1) & " = " & Format2(A2) & " Elem. Base 3° Triangolo",1
                           Scrivi Space(5) & "Distanza Tra " & Format2(A2) & " e " & Format2(Diam_Ver1) & " = " & Format2(DA2_Diam_Ver1),1
                           Scrivi Space(5) & Format2(Diam_Ver1) & " - " & Format2(DA2_Diam_Ver1) & " = " & Format2(B2) & " Elem. Base 3° Triangolo",1
                           Scrivi Space(5) & "AMBI PRINCIPALI " & Space(14) & " AMBI SECONDARI",1,,,1
                           Scrivi Space(9) & Format2(Diam_Ver1) & Sp & Format2(A2) & " Prevalente " & Space(5),1,0
                           Scrivi Space(9) & Format2(Diam_Ver1) & Sp & Format2(A),1
                           Scrivi Space(9) & Format2(Diam_Ver1) & Sp & Format2(B2) & Space(17),1,0
                           Scrivi Space(9) & Format2(Diam_Ver1) & Sp & Format2(B),1
                           Scrivi Space(9) & Format2(Diam_Ver1) & Sp & Format2(Diam_Ver2) & Space(17),1,0
                           Scrivi Space(9) & Format2(A2) & Sp & Format2(B2) & " (Ambo Verticale)",1
                           Scrivi
                           Scrivi
                           Ambo1(1) = Diam_Ver1 : Ambo1(2) = A2
                           ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
                           Ambo2(1) = Diam_Ver1 : Ambo2(2) = A
                           ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
                           Ambo3(1) = Diam_Ver1 : Ambo3(2) = B2
                           ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
                           Ambo4(1) = Diam_Ver1 : Ambo4(2) = B
                           ImpostaGiocata 4,Ambo4,Ruo,Posta,Clp
                           Ambo5(1) = Diam_Ver1 : Ambo5(2) = Diam_Ver2
                           ImpostaGiocata 5,Ambo5,Ruo,Posta,Clp
                           Ambo6(1) = A2 : Ambo6(2) = B2
                           ImpostaGiocata 6,Ambo6,Ruo,Posta,Clp
                           Gioca Es4,1,,1
                        End If
                     End If
                  End If
               End If
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub

Secondo script, - Somma Elementi Base Secondo Triangolo DISPARI -

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,A1,B1,A2,A3,B2,B3,Clp
   Dim R1,P1,P2,P3,E1,k,Es,Salvo50,Sp
   Dim Ava,Es2,Es3,Es4,Caso,Casi,Co,OK,k1
   Dim SAB,SA1B1,DiAB,Diff_M1M2,Ver4,Sft_Cop6,Sft_Cop7
   Dim Ver1,Ver2,Diam_Ver1,Diam_Ver2,DA2_Diam_Ver1
   Dim Sft_Cop1,Sft_Cop2,Sft_Cop3,Sft_Cop4,Sft_Cop5
   Dim Cop1(2),Cop2(2),Cop3(2),Cop4(2),Cop5(2),Cop6(2),Cop7(2)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Ambo6(2)
   Dim Ruo(2),Ru(10),Posta(2),Sft_Cop(7),M(2),L(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800))'5868 ESEMPIO NELL'ARTICOLO
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Ava = CInt(InputBox(" Quante estrazioni avanti per cercare l'ambo presente?",Salvo50,5))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(15) & " Il Triangolo Simmetrico - FABARRI - SCRIPT SALVO50" & Space(18),1,,4,,3,,1
   Scrivi Space(18) & " Somma Elementi Base Secondo Triangolo DISPARI" & Space(20),1,,4,,3,,1
   Posta(2) = 1
   Sp = " "
   For Es = Ini To FIn -(Ava + Ava)
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            If(pari(A) And pari(B)) Or(dispari(A) And dispari(B)) Then
               DiAB = Distanza(A,B)
               If DiAB >= 6 And DiAB <= 42 Then
                  SAB = A + B
                  Ver1 = SAB/2
                  Diam_Ver1 = Diametrale(Ver1)
                  A1 = Fuori90(SAB) : B1 = Fuori90(B + Diam_Ver1)
                  SA1B1 = A1 + B1
                  If dispari(SA1B1) Then
                     M(1) = A1 : M(2) = B1
                     Call OrdinaMatrice(M,1)
                     Diff_M1M2 = M(2) - M(1)
                     Ver2 = Fuori90((90 + M(1)) - Diff_M1M2)
                     Diam_Ver2 = Ver2
                     A2 = Fuori90((90 + Diam_Ver2) - Diam_Ver1)
                     DA2_Diam_Ver1 = Distanza(A2,Diam_Ver1)
                     B2 = Fuori90((90 + Diam_Ver1) - DA2_Diam_Ver1)
                     If A2 <> B2 And A <> A2 And B <> B2 Then
                        Cop1(1) = Diam_Ver2 : Cop1(2) = Diam_Ver1
                        Cop2(1) = Diam_Ver2 : Cop2(2) = A2
                        Cop3(1) = Diam_Ver2 : Cop3(2) = B2
                        Cop4(1) = Diam_Ver2 : Cop4(2) = A
                        Cop5(1) = Diam_Ver2 : Cop5(2) = B
                        Cop6(1) = Diam_Ver2 : Cop6(2) = A1
                        Cop7(1) = Diam_Ver2 : Cop7(2) = B1
                        For k1 = 1 To 7
                           Sft_Cop(k1) = 0

                        Next
                        Es3 = Es + Ava
                        Ru(1) = RuotaGemella(R1)
                        Sft_Cop(1) = SerieFreqTurbo(Es,Es3,Cop1,Ru,2)
                        Sft_Cop(2) = SerieFreqTurbo(Es,Es3,Cop2,Ru,2)
                        Sft_Cop(3) = SerieFreqTurbo(Es,Es3,Cop3,Ru,2)
                        Sft_Cop(4) = SerieFreqTurbo(Es,Es3,Cop4,Ru,2)
                        Sft_Cop(5) = SerieFreqTurbo(Es,Es3,Cop5,Ru,2)
                        Sft_Cop(6) = SerieFreqTurbo(Es,Es3,Cop6,Ru,2)
                        Sft_Cop(7) = SerieFreqTurbo(Es,Es3,Cop7,Ru,2)
                        Co = 0
                        
                        For Es2 = Es To Es3
                           Co = Co + 1
                           For k = 1 To 7
                              If Sft_Cop(k) > 0 Then OK = 1 : Exit For
                           Next
                           If OK = 1 Then Exit For
                        Next
                        If OK = 1 Then
                           Es4 = Es2 + Co
                           Ruo(1) = R1 : Ruo(2) = Ru(1)
                           '
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P3 = 1 To 5
                              E1 = Estratto(Es,R1,P3)
                              If E1 = A Or E1 = B Or E1 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  <-- Evidenziati Basi 1° Triangolo",1,,,1
                           Scrivi
                           Scrivi Space(15) & " Somma Elementi Base 2° Triangolo - DISPARI",1,,,2
                           Scrivi
                           Scrivi Space(5) & Format2(A) & " + " & Format2(B) & " = " & Format2(SAB) & " / 2 = Medio " & Format2(Ver1),1,0
                           Scrivi " Diametrale di " & Format2(Diam_Ver1) & " Vertice 1° Triangolo ",1
                           Scrivi Space(5) & Format2(A) & " + " & Format2(B) & " = " & Format2(A1) & " Elem. Base 2° Triangolo",1
                           Scrivi Space(5) & Format2(B) & " + " & Format2(Diam_Ver1) & " = " & Format2(B1) & " Elem. Base 2° Triangolo",1
                           Scrivi Space(5) & Format2(A1) & " + " & Format2(B1) & " = " & Format2(SA1B1) & " Somma Dispari ",1
                           Scrivi Space(5) & Format2(M(2)) & " - " & Format2(M(1)) & " = " & Format2(Ver2) & " Vertice 2° Triangolo ",1
                           Scrivi Space(5) & Format2(Diam_Ver2) & " - " & Format2(Diam_Ver1) & " = " & Format2(A2) & " Elem. Base 3° Triangolo",1
                           Scrivi Space(5) & "Distanza Tra " & Format2(A2) & " e " & Format2(Diam_Ver1) & " = " & Format2(DA2_Diam_Ver1),1
                           Scrivi Space(5) & Format2(Diam_Ver1) & " - " & Format2(DA2_Diam_Ver1) & " = " & Format2(B2) & " Elem. Base 3° Triangolo",1
                           Scrivi Space(5) & "AMBI PRINCIPALI " & Space(14) & " AMBI SECONDARI",1,,,1
                           Scrivi Space(9) & Format2(Diam_Ver1) & Sp & Format2(A2) & " Prevalente " & Space(5),1,0
                           Scrivi Space(9) & Format2(Diam_Ver1) & Sp & Format2(A),1
                           Scrivi Space(9) & Format2(Diam_Ver1) & Sp & Format2(B2) & Space(17),1,0
                           Scrivi Space(9) & Format2(Diam_Ver1) & Sp & Format2(B),1
                           Scrivi Space(9) & Format2(Diam_Ver1) & Sp & Format2(Diam_Ver2) & Space(17),1,0
                           Scrivi Space(9) & Format2(A2) & Sp & Format2(B2) & " (Ambo Verticale)",1
                           Scrivi
                           Scrivi
                           Ambo1(1) = Diam_Ver1 : Ambo1(2) = A2
                           ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
                           Ambo2(1) = Diam_Ver1 : Ambo2(2) = A
                           ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
                           Ambo3(1) = Diam_Ver1 : Ambo3(2) = B2
                           ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
                           Ambo4(1) = Diam_Ver1 : Ambo4(2) = B
                           ImpostaGiocata 4,Ambo4,Ruo,Posta,Clp
                           Ambo5(1) = Diam_Ver1 : Ambo5(2) = Diam_Ver2
                           ImpostaGiocata 5,Ambo5,Ruo,Posta,Clp
                           Ambo6(1) = A2 : Ambo6(2) = B2
                           ImpostaGiocata 6,Ambo6,Ruo,Posta,Clp
                           Gioca Es4,,,1
                        End If
                     End If
                  End If
               End If
            End If
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   ScriviResoconto
   Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub
 
Ultima modifica:

Red*one

Banned
Buon pomeriggio al forum e al nostro salvo50 al quale chiedo se non ci dovesse esser nel lungo elenco di script postati:
la possibilità di uno script che esegua (sempre se possibile e se ha senso)

1. un controllo sui numeri ripetitivi mese ed anno
es. quante volte è uscito il n. 12 nel mese di gennaio dell'anno 2000 febbraio Marzo etc. e negli anni a seguire.
quante volte il numero si è mostrato con il suo diametrale su tutte le ruote combinando un ambo
quante volte si sono evidenziati dei rettangoli/quadrati negli anni con rappresentazione ciclometrica.

2. questo è un po piu' complicato cerco di spiegarmi al meglio:

vorrei che lo script evidenziasse in condizione ciclometrica una previsione di chiusura: ad esempio se manca un lato a chiusura per la
figura armonica che si deve presentare come possibile pronostico pronostico.

Grazie
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Matematico, Red*one,

Per Red*one, in questo topic, non faccio script statistici, come da titolo

Script Su Metodi Cabalistici, Ciclometrici & C

Veramente di statistici non ne faccio completamente, prova ad aprire un topic e chiedilo a tutti, qui trovi dei bravissimi scripter che si dilettano a fare script statistici tipo Mike58, Ilegend, Claudio8 ecc...
Io mi diletto a fare quelli Cabalisti, Ciclometrici ecc...


Per Matematico
ci provo
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Mat, Matematico, Rudivall, Xeroxs.

Grazie


IL COS di Antonio Longo

Per questo metodo ho eliminato le estrazioni dove le distanze sono uguali (stessa distanza), ed anche quando tra 2 distanze la differenza risulta 1, perchè sballavano tutti i calcoli, con distanza 2 tra le distanze il pronostico è sempre 90, ho eliminato anche le estrazioni dove il COS risultava zero oppure uno,

Nel primo esempio tutti i numeri e pronostici corrispondono, cioè quelli calcolati con lo script, coincidono con quelli calcolati dall'autore.
Nel secondo esempio l'autore fa i calcoli solo per 2 distanze che coincidono parzialmente con i risultati dello script.

Secondo esempio dell'autore
Pronostico
PA 79 - 13
PA 27 - 21

Sempre per il secondo esempio
calcoli risultati nello script
PA 80 - 13
PA 28 - 21

I numeri non uguali sono il risultato della distanza al quadrato, dai risultati che vedo, lo script li arrotonda sempre per eccesso, non ho rifatto i calcoli fatti dall'autore, per vedere se è giusto cosi o no, questo "piacere" lo lascio a voi se ne avete voglia:)

In questo script alla terza domanda ho messo la possibilità di poter scegliere di impostare una qualsiasi ruota singolarmente mettendo il numero corrispondente della ruota, oppure inserire il numero 11 che le calcola tutte.

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota
   Dim R1,Caso,Casi,A,B,C,P1,P2,P3,P4,E1
   Dim F90AB,F90AC,F90BC,xDiAB,xDiAC,xDiBC,DistABq,DistACq,DistBCq
   Dim abCos,acCos,bcCos,xabCos,xbcCos,xacCos,CosBC,CosAB,CosAC
   Dim IniR,FInR,DiAB,DiAC,DiBC,DistAB,DistAC,DistBC
   Dim Ruo(1),Post1(5),aNum(6)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9880)'6034 e 6030 primo e secondo esempio nelle spiegazioni
   Clp = InputBox("Per quanti colpi vuoi giocare ?",,7)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 -" & _
   "Per Ruota Singola Indica il Numero - da 1 A 10 Per Nazionale 12 ?",Salvo50,11)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(3) & " IL COS di Antonio Longo - Script Salvo50 con la Collaborazione di Xeroxs e Joe" & Space(3),1,,4,,3,,1
   Post1(2) = 1
   Post1(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            For P2 = P1 + 1 To 4
               For P3 = P2 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  If A > 0 Then
                     DiAB = Distanza(A,B) : DiBC = Distanza(B,C) : DiAC = Distanza(A,C)
                     If DiAB <> DiBC And DiAB <> DiAC And DiBC <> DiAC Then
                        If Differenza(DiAB,DiAC) > 1 And Differenza(DiAB,DiBC) > 1 Then
                           If Differenza(DiAC,DiBC) > 1 Then
                              ' Calcolo di una distanza su tre
                              xDiAB =((DiBC^2) +(DiAC^2)) -(2*(DiBC*DiAC))
                              xDiAC =((DiAB^2) +(DiBC^2)) -(2*(DiAB*DiBC))
                              xDiBC =((DiAB^2) +(DiAC^2)) -(2*(DiAB*DiAC))
                              'Calcolo Numero per Coseno
                              xabCos =((DiBC*DiAC))
                              xacCos =((DiAB*DiBC))
                              xbcCos =((DiAB*DiAC))
                              'Calcolo Coseno
                              CosAB = xabCos *(PI_ /180)
                              CosAC = xacCos *(PI_ /180)
                              CosBC = xbcCos *(PI_ /180)
                              'Calcolo Coseno solo 3 cifre dopo lo zero
                              abCos = Left(Abs(Cos(CosAB)),5)
                              acCos = Left(Abs(Cos(CosAC)),5)
                              bcCos = Left(Abs(Cos(CosBC)),5)
                              '
                              If(abCos > 0 And abCos < 1) And(acCos > 0 And acCos < 1) And(bcCos > 0 And bcCos < 1)Then
                                 'Calcolo Distanza al quadrato
                                 DistABq = xDiAB * abCos
                                 DistACq = xDiAC * acCos
                                 DistBCq = xDiBC * bcCos
                                 'Ritorna il numero per eccesso o per difetto
                                 DistABq = CLng(DistABq)
                                 DistACq = CLng(DistACq)
                                 DistBCq = CLng(DistBCq)
                                 'Calcolo Distanza Finale
                                 DistAB = Int(Sqr(DistABq))
                                 DistAC = Int(Sqr(DistACq))
                                 DistBC = Int(Sqr(DistBCq))
                                 'Fuori90 Distanza al Quadrato
                                 F90AB = Fuori90(DistABq)
                                 F90AC = Fuori90(DistACq)
                                 F90BC = Fuori90(DistBCq)
                                 'Pronostico
                                 aNum(1) = Fuori90(DistAB) : aNum(2) =(F90AB)
                                 aNum(3) = Fuori90(DistAC) : aNum(4) =(F90AC)
                                 aNum(5) = Fuori90(DistBC) : aNum(6) =(F90BC)
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 1
                                 Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 2
                                 Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P4 = 1 To 5
                                    E1 = Estratto(Es,R1,P4)
                                    If E1 = A Or E1 = B Or E1 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi "Distanza tra " & Format2(A) & " e " & Format2(B) & " = " & Format2(DiAB) & Space(5),1,0
                                 Scrivi "Distanza tra " & Format2(B) & " e " & Format2(C) & " = " & Format2(DiBC) & Space(5),1,0
                                 Scrivi "Distanza tra " & Format2(A) & " e " & Format2(C) & " = " & Format2(DiAC) & Space(5),1
                                 Scrivi
                                 Scrivi Space(9) & " Formula per Calcolare " & Space(14) & " Formula per" & Space(37) & "Fuori90",1,,,1
                                 Scrivi Space(8) & "  una Distanza Su Tre" & Space(15) & "  Calcolare il Cos",1,0,,1
                                 Scrivi Space(4) & "Cos" & Space(11) & "Dist²  " & " Dist" & Space(4) & "Dist²",1,,,1
                                 '
                                 Scrivi FormattaStringa(xDiAB,"0000") & " = (" & Format2(DiBC) & "² + " & Format2(DiAC),1,0
                                 Scrivi "²) - ( 2 * (" & Format2(DiBC) & " * " & Format2(DiAC) & " * Cos)) ",1,0
                                 Scrivi "  (" & Format2(DiBC) & " * " & Format2(DiAC) & ") = " & FormattaStringa(xabCos,"0000"),1,0
                                 Scrivi Space(3) & abCos & " * " & FormattaStringa(xDiAB,"0000") & " = " & FormattaStringa(DistABq,"0000"),1,0
                                 Scrivi "  =  " & Format2(DistAB) & Space(6) & Format2(F90AB),1
                                 '
                                 Scrivi FormattaStringa(xDiAC,"0000") & " = (" & Format2(DiAB) & "² + " & Format2(DiBC),1,0
                                 Scrivi "²) - ( 2 * (" & Format2(DiAB) & " * " & Format2(DiBC) & " * Cos)) ",1,0
                                 Scrivi "  (" & Format2(DiAB) & " * " & Format2(DiBC) & ") = " & FormattaStringa(xacCos,"0000"),1,0
                                 Scrivi Space(3) & acCos & " * " & FormattaStringa(xDiAC,"0000") & " = " & FormattaStringa(DistACq,"0000"),1,0
                                 Scrivi "  =  " & Format2(DistAC) & Space(6) & Format2(F90AC),1
                                 '
                                 Scrivi FormattaStringa(xDiBC,"0000") & " = (" & Format2(DiAB) & "² + " & Format2(DiAC) & "²) - ( 2 * (",1,0
                                 Scrivi Format2(DiAB) & " * " & Format2(DiAC) & " * Cos)) ",1,0
                                 Scrivi "  (" & Format2(DiAB) & " * " & Format2(DiAC) & ") = " & FormattaStringa(xbcCos,"0000"),1,0
                                 Scrivi Space(3) & bcCos & " * " & FormattaStringa(xDiBC,"0000") & " = " & FormattaStringa(DistBCq,"0000"),1,0
                                 Scrivi "  =  " & Format2(DistBC) & Space(6) & Format2(F90BC),1
                                 Scrivi
                                 Scrivi Space(33) & " Pronostico " & StringaNumeri(aNum," ",True),1,,,2 '
                                 Scrivi
                                 Ruo(1) = R1
                                 Call EliminaRipetuti(aNum)
                                 ImpostaGiocata 1,aNum,Ruo,Post1,Clp
                                 Gioca Es
                              End If
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

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
Alto