Script su Metodi Cabalistici, Ciclometrici & C.

salvo50 · 11 Novembre 2020

Matematico ha scritto:
Uff!Mi dice che il file è troppo grosso ...ci sarebbe un'altro modo x inviarlo?

Potresti metterlo nel mulo e dirmi come lo hai chiamato

Matematico · 11 Novembre 2020

salvo50 ha scritto:
Potresti metterlo nel mulo e dirmi come lo hai chiamato

Cosa intendi x mulo ?

....il file è in PDF

salvo50 · 12 Novembre 2020

Matematico ha scritto:
Cosa intendi x mulo ?....il file è in PDF

Emule

simon-simon · 12 Novembre 2020

salvo50 ha scritto:
Ciao Simon, metti la spunta a queste tre righe, forse non ci dovrebbe essere altro

Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(8) & "PARALLELOGRAMMO SIMMETRICO di PASQUALE ROBBE - SCRIPT SALVO50",1,,4,,3,,1
Scrivi Space(8) & " SENZA SESTINA ESAGONALE ",1,,4,,3,,1

Grazie ma non va lo stesso

salvo50 · 12 Novembre 2020

simon-simon ha scritto:
Grazie ma non va lo stesso

Ciao Simon, metti dove si blocca

Matematico · 12 Novembre 2020

salvo50 ha scritto:
Emule

Ah ok, non mi fido d i questi programmi , fai prima a lasciarmi la tua mail qui cosi te lo invio , tanto posterai qui lo script , non credo che lottoced faccia problemi ...io ho libero come posta e posso utilizzare jumbo mail x file grossi.

salvo50 · 12 Novembre 2020

Matematico ha scritto:
Ah ok, non mi fido d i questi programmi , fai prima a lasciarmi la tua mail qui cosi te lo invio , tanto posterai qui lo script , non credo che lottoced faccia problemi ...io ho libero come posta e posso utilizzare jumbo mail x file grossi.

Ciao Matematico, qui non si possono mettere le mail, da regolamento e non voglio trasgredire le regole

simon-simon · 12 Novembre 2020

salvo50 ha scritto:
Ciao Matematico, qui non si possono mettere le mail, da regolamento e non voglio trasgredire le regole

Grazie Salvo50
tutto funziona

Matematico · 12 Novembre 2020

Ci sono riuscito salvo50

Matematico · 12 Novembre 2020

Pagina 2

Matematico · 12 Novembre 2020

Pagina 3

Matematico · 12 Novembre 2020

Pagina 4

Matematico · 12 Novembre 2020

Pagina 5

Matematico · 12 Novembre 2020

Pagina 6

Matematico · 12 Novembre 2020

Ultima pagina 7

salvo50 · 14 Novembre 2020

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

Paki144 · 14 Novembre 2020

salvo50 ha scritto:

Matematico, Rudivall, Xeroxs.
Grazie.

IL MEDIO TRIPLARE 15 di ANTONIO LONGO (Incompleto)

Nella prima parte del "Medio Triplare 15" Nell'esempio fatto dall'autore nelle coppie delle 2 cinquine finali

non ci sono doppioni, ma se si verificano io in questi casi ho eliminato l'estrazione (Obbligato perche

nell'ultima tabella a 2 numeri uguali non corrisponde niente)ed anche perchè se li lascio (non serve a niente

lasciarli)lo script va in errore <INVALIDO USO DI NULL>. Ha riguardo al gruppo delle miste, ho fatto delle prove

e si sono verificate delle coppie miste che non ci sono nel gruppo delle miste, quindi non essendoci la coppia

nel gruppo delle miste il risultato non ci dovrebbe essere ma c'è, anche per le figure stessa cosa la coppia può

essere della stessa figura ma nel gruppo delle figure non c'è,ed anche in questo caso c'è un numero che lo sa

solo lo script con che criterio lo mette, esempio la coppia (15-24) due numeri stessa figura non ci sono

accoppiati nella tabella delle triple gruppo figure, io posso anche non far apparire i numeri che mette lo

script, ma ci sarebbero delle coppie senza numero, avevo eliminato le estrazioni in cui uno o più estratti erano

zerati (cadenza 0) perchè nella prima tabella agli zerati non corrisponde nessun numero piccolo, però l'autore

fa un esempio con uno zerato, ma al posto del 70 fa i calcoli con il 79 ma non lo dice, si capisce che è così

rifacendo tutti i calcoli, quindi l'ho rimesso, inserendo gli zerati nella prima tabella.

esempio dell'autore,immagine 3 in basso a sinistra

63 - 06 - 70 - 36 - 64
83 - 36 - 37 - 06 - 42
----------------------
19 - 33 - 58 - 33 - 59 = medio 15 delle somme

49 - 09 - 55 - 66 - 53 = differenza triplare = Medio 15 somma numeri piccoli, al posto del 55 ci va il 52 e al

posto del 66 ci va lo 09, ennesimi errori di stampa

49 - 09 - 52 - 09 - 53 la riga sopra deve essere così

79 - 66 - 55 - 66 - 56 la cinquina finale giusta è questa con il 55 come terzo numero

(19 49) - 79
(33 09) - 66
(58 52) - 55
(33 09) - 66
(59 53) - 56

La prima parte finisce con un pronostico di una cinquina, script fatto.

La seconda parte dovrebbe pronosticare l'ambata secca, l'autore inizia le spiegazioni ed a un certo punto dice,

<a questo punto riprendiamo i 20 numeri prima ottenuti>. 20 numeri?!?! Che io sappia sono 15, ma ho pensato sarà

l'ennesimo errore di stampa, ed invece continua a parlare di 20 numeri e alla fine li scrive

Vedi l'allegato 2207102

Dice che li ha ottenuti nella ruota di Cagliari, la quarta settimana di maggio del 1972, ebbene ho impostato

nello script l'estrazione, ma lo script salta quell'estrazione, quindi tolgo le condizioni e risulta che come

coppia finale ci sono 2 numeri uguali, e l'ultima tabella quella delle triple non da nessun numero a 2 numeri

uguali, perchè non ci sono, anche così controllando i numeri scritti dall'autore ed i numeri ottenuti dai

calcoli non vedo riscontri, ho cercato anche qualche estrazione prima ed anche qualche estrazione dopo, niente.

Vedi l'allegato 2207103

Allora passo al secondo esempio dice che è la stessa estrazione ma nella ruota di Roma

Vedi l'allegato 2207104

Vedi l'allegato 2207105

Ed anche qui non trovo riscontri con i numeri postati dall'autore, quindi non so come li ha ottenuti questi 20

numeri, forse io ho sbagliato ad interpretarli, se qualcuno ha capito da dove prendere questi 20 numeri, la-o

prego di spiegarmelo, forse così si può proseguire lo script per la seconda parte, dico forse perchè non sò

ancora come tradurre in script quello di calcolare nelle figure cadenze e decine quelle maggiormente uscite e

poi come accoppiarle per formare il pronostico, in questultimo esempio nella ruota di Roma i numeri maggiormente

usciti sono:

2 e 5 per le decine
2 e 9 per le cadenze
2, 4, 7, 9 per le figure

l'autore pronostica questi 3 numeri

22
29
52

ma con quale criterio?

Perchè per esempio non ha messo anche il 25 oppure il 25 al posto del 52?

Non lo sapremo mai, a meno che qualcuno non abbia una spiegazione.

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Clp2,Salvo50,Ruota
   Dim R1,Caso,Casi,IniR,x,K,G,FInR,Ok1
   Dim M1(2),M2(2),M3(2),M4(2)
   Dim A(5),B(5),DecA(5),DecB(5),CadA(5),CadB(5)
   Dim Dec_AB(5),Cad_AB(5),DeAB(5),CaAB(5)
   Dim So_DecAB(5),So_CadAB(5),DecAB_CadAB(5)
   Dim M15_AB(5),Min_A(5),Min_B(5),C(5)
   Dim M15_DePi(5),M15_CaPi(5),M15_Pi(5)
   Dim Num_Pi(5),De_Num_Pi(5),Ca_Num_Pi(5)
   Dim Ruo(1),Posta(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9700)'5289 primo esempio nell'articolo, ruota Milano
   Clp = CInt(InputBox("Per quanti colpi vuoi giocare ?",,8))
   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,5)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "IL MEDIO TRIPLARE 15 di ANTONIO LONGO (Prima Parte) - SCRIPT SALVO50",1,,4,,3,,1
   Posta(2) = 1
   Posta(3) = 1
   'Posta(4) = 1
   'Posta(5) = 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
         Ok1 = 0
         'CALCOLI PER TROVARE IL MEDIO 15
         For x = 1 To 5
            A(x) = Estratto(Es,R1,x)
            B(x) = Estratto(Es + 1,R1,x)
            DecA(x) = Decina(A(x)) : CadA(x) = Cadenza(A(x))'Decine e cadenze estratto A
            DecB(x) = Decina(B(x)) : CadB(x) = Cadenza(B(x))'Decine e cadenze estratto B
            So_DecAB(x) = FuoriX(DecA(x) + DecB(x),9) ' Somma decine di A e B
            So_CadAB(x) = FuoriX(CadA(x) + CadB(x),9) ' Somma cadenze di A e B
            If CadA(x) = 0 And CadB(x) = 0 Then So_CadAB(x) = 0
            DecAB_CadAB(x) = So_DecAB(x) & So_CadAB(x)
            '
            DeAB(x) = FuoriX(15 - So_DecAB(x),9)'Medio 15 delle decine
            If DeAB(x) = 9 Then DeAB(x) = 0 '--------------------
            CaAB(x) = FuoriX(15 - So_CadAB(x),9)'Medio 15 delle cadenze
            M15_AB(x) = DeAB(x) & CaAB(x)'Medio 15
            'M15_AB(x) = Fuori90(M15_AB(x))
            M15_AB(x) = CInt(M15_AB(x))
            '
            If A(x) = 1 Or A(x) = 4 Or A(x) = 7 Or A(x) = 31 Or A(x) = 34 Or A(x) = 37 Or A(x) = 61 Or A(x) = 64 Or A(x) = 67 Then Min_A(x) = 1
            If A(x) = 2 Or A(x) = 5 Or A(x) = 8 Or A(x) = 32 Or A(x) = 35 Or A(x) = 38 Or A(x) = 62 Or A(x) = 65 Or A(x) = 68 Then Min_A(x) = 2
            If A(x) = 3 Or A(x) = 6 Or A(x) = 9 Or A(x) = 33 Or A(x) = 36 Or A(x) = 30 Or A(x) = 39 Or A(x) = 63 Or A(x) = 66 Or A(x) = 60 Or A(x) = 69 Then Min_A(x) = 3
            If A(x) = 11 Or A(x) = 14 Or A(x) = 17 Or A(x) = 41 Or A(x) = 44 Or A(x) = 47 Or A(x) = 71 Or A(x) = 74 Or A(x) = 77 Then Min_A(x) = 11
            If A(x) = 12 Or A(x) = 15 Or A(x) = 18 Or A(x) = 42 Or A(x) = 45 Or A(x) = 48 Or A(x) = 72 Or A(x) = 75 Or A(x) = 78 Then Min_A(x) = 12
            If A(x) = 13 Or A(x) = 16 Or A(x) = 10 Or A(x) = 19 Or A(x) = 43 Or A(x) = 46 Or A(x) = 40 Or A(x) = 49 Or A(x) = 73 Or A(x) = 76 Or A(x) = 70 Or A(x) = 79 Then Min_A(x) = 13
            If A(x) = 21 Or A(x) = 24 Or A(x) = 27 Or A(x) = 51 Or A(x) = 54 Or A(x) = 57 Or A(x) = 81 Or A(x) = 84 Or A(x) = 87 Then Min_A(x) = 21
            If A(x) = 22 Or A(x) = 25 Or A(x) = 28 Or A(x) = 52 Or A(x) = 55 Or A(x) = 58 Or A(x) = 82 Or A(x) = 85 Or A(x) = 88 Then Min_A(x) = 22
            If A(x) = 23 Or A(x) = 26 Or A(x) = 20 Or A(x) = 29 Or A(x) = 53 Or A(x) = 56 Or A(x) = 50 Or A(x) = 59 Or A(x) = 83 Or A(x) = 86 Or A(x) = 80 Or A(x) = 89 Then Min_A(x) = 23
            '
            If B(x) = 1 Or B(x) = 4 Or B(x) = 7 Or B(x) = 31 Or B(x) = 34 Or B(x) = 37 Or B(x) = 61 Or B(x) = 64 Or B(x) = 67 Then Min_B(x) = 1
            If B(x) = 2 Or B(x) = 5 Or B(x) = 8 Or B(x) = 32 Or B(x) = 35 Or B(x) = 38 Or B(x) = 62 Or B(x) = 65 Or B(x) = 68 Then Min_B(x) = 2
            If B(x) = 3 Or B(x) = 6 Or B(x) = 9 Or B(x) = 33 Or B(x) = 36 Or B(x) = 30 Or B(x) = 39 Or B(x) = 63 Or B(x) = 66 Or B(x) = 60 Or B(x) = 69 Then Min_B(x) = 3
            If B(x) = 11 Or B(x) = 14 Or B(x) = 17 Or B(x) = 41 Or B(x) = 44 Or B(x) = 47 Or B(x) = 71 Or B(x) = 74 Or B(x) = 77 Then Min_B(x) = 11
            If B(x) = 12 Or B(x) = 15 Or B(x) = 18 Or B(x) = 42 Or B(x) = 45 Or B(x) = 48 Or B(x) = 72 Or B(x) = 75 Or B(x) = 78 Then Min_B(x) = 12
            If B(x) = 13 Or B(x) = 16 Or B(x) = 10 Or B(x) = 19 Or B(x) = 43 Or B(x) = 46 Or B(x) = 40 Or B(x) = 49 Or B(x) = 73 Or B(x) = 76 Or B(x) = 70 Or B(x) = 79 Then Min_B(x) = 13
            If B(x) = 21 Or B(x) = 24 Or B(x) = 27 Or B(x) = 51 Or B(x) = 54 Or B(x) = 57 Or B(x) = 81 Or B(x) = 84 Or B(x) = 87 Then Min_B(x) = 21
            If B(x) = 22 Or B(x) = 25 Or B(x) = 28 Or B(x) = 52 Or B(x) = 55 Or B(x) = 58 Or B(x) = 82 Or B(x) = 85 Or B(x) = 88 Then Min_B(x) = 22
            If B(x) = 23 Or B(x) = 26 Or B(x) = 20 Or B(x) = 29 Or B(x) = 53 Or B(x) = 56 Or B(x) = 50 Or B(x) = 59 Or B(x) = 83 Or B(x) = 86 Or B(x) = 80 Or B(x) = 89 Then Min_B(x) = 23
            '
            Num_Pi(x) = Min_A(x) + Min_B(x)'Somma numeri piccoli
            De_Num_Pi(x) = Decina(Num_Pi(x))'Decina della somma dei numeri piccoli
            Ca_Num_Pi(x) = Cadenza(Num_Pi(x))'Cadenza della somma dei numeri piccoli
            M15_DePi(x) = FuoriX(15 - De_Num_Pi(x),9)'Medio 15 decine somma numeri piccoli
            If De_Num_Pi(x) = 0 Then M15_DePi(x) = 0
            M15_CaPi(x) = FuoriX(15 - Ca_Num_Pi(x),9)'Medio 15 cadenza somma numeri piccoli
            If Ca_Num_Pi(x) = 0 Then M15_CaPi(x) = 0
            M15_Pi(x) = M15_DePi(x) & M15_CaPi(x)'Medio 15 decine e cadenze somma numeri piccoli
            M15_Pi(x) = CInt(M15_Pi(x))
            'FINE CALCOLI PER TROVARE IL MEDIO 15
            '*****************************************************************
            'INIZIO CALCOLI PER TROVATE MEDIO TRIPLARE
            If M15_AB(x) <> M15_Pi(x) Then
               Ok1 = Ok1 + 1 ' Elimina i doppioni
               '***********************************************************************
               'DECINE
               If Decina(M15_AB(x)) = Decina(M15_Pi(x)) Then
                  M1(1) = M15_AB(x) : M1(2) = M15_Pi(x)
                  Call OrdinaMatrice(M1,1)
                  If(M1(1) > 0 And M1(1) < 4)Or(M1(1) > 10 And M1(1) < 14)Or(M1(1) > 20 And M1(1) < 24)_
                     Or(M1(1) > 30 And M1(1) < 34)Or(M1(1) > 40 And M1(1) < 44)Or(M1(1) > 50 And M1(1) < 54)_
                     Or(M1(1) > 60 And M1(1) < 64)Or(M1(1) > 70 And M1(1) < 74)Or(M1(1) > 80 And M1(1) < 84) Then
                     If M1(1) + 3 = M1(2) Then C(x) = Fuori90(M1(1) + 6)
                     If M1(1) + 6 = M1(2) Then C(x) = Fuori90(M1(1) + 3)
                  End If
                  If(M1(1) > 3 And M1(1) < 7)Or(M1(1) > 13 And M1(1) < 17)Or(M1(1) > 23 And M1(1) < 27)_
                     Or(M1(1) > 33 And M1(1) < 37)Or(M1(1) > 43 And M1(1) < 47)Or(M1(1) > 53 And M1(1) < 57)_
                     Or(M1(1) > 63 And M1(1) < 67)Or(M1(1) > 73 And M1(1) < 77)Or(M1(1) > 83 And M1(1) < 87) Then
                     If M1(1) + 3 = M1(2) Then C(x) = M1(1) - 3
                  End If
               End If
               '***********************************************************************
               'CADENZE
               If Cadenza(M15_AB(x)) = Cadenza(M15_Pi(x)) Then
                  C(x) = Fuori90(M15_AB(x) + 30)
                  If C(x) = M15_Pi(x) Then C(x) = Fuori90(C(x) + 30)
               End If
               '***********************************************************************
               'FIGURE
               If Figura(M15_AB(x)) = Figura(M15_Pi(x)) Then
                  M3(1) = M15_AB(x) : M3(2) = M15_Pi(x)
                  Call OrdinaMatrice(M3,1)
                  If(M3(1) > 0 And M3(1) < 4) Or(M3(1) > 10 And M3(1) < 14) Or(M3(1) > 20 And M3(1) < 24) Then
                     If M3(1) + 36 = M3(2) Then C(x) = M3(1) + 63 Else If M3(1) + 63 = M3(2) Then C(x) = M3(1) + 36
                  End If
                  If(M3(1) > 36 And M3(1) < 40) Or(M3(1) > 46 And M3(1) < 50) Or(M3(1) > 56 And M3(1) < 60) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) - 36
                  End If
                  If(M3(1) > 3 And M3(1) < 7) Or(M3(1) > 13 And M3(1) < 17) Or(M3(1) > 23 And M3(1) < 27) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) + 63 Else If M3(1) + 63 = M3(2) Then C(x) = M3(1) + 27
                  End If
                  If(M3(1) > 30 And M3(1) < 34) Or(M3(1) > 40 And M3(1) < 44) Or(M3(1) > 50 And M3(1) < 54) Then
                     If M3(1) + 36 = M3(2) Then C(x) = M3(1) - 27
                  End If
                  If(M3(1) > 6 And M3(1) < 10) Or(M3(1) > 16 And M3(1) < 20) Or(M3(1) > 26 And M3(1) < 30) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) + 54 Else If M3(1) + 54 = M3(2) Then C(x) = M3(1) + 27
                  End If
                  If(M3(1) > 33 And M3(1) < 37) Or(M3(1) > 43 And M3(1) < 47) Or(M3(1) > 53 And M3(1) < 57) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) - 27
                  End If
               End If
               '***********************************************************************
               'MISTE
               If Figura(M15_AB(x)) <> Figura(M15_Pi(x)) And Decina(M15_AB(x)) <> Decina(M15_Pi(x))_
                  And Cadenza(M15_AB(x)) <> Cadenza(M15_Pi(x))Then
                  M4(1) = M15_AB(x) : M4(2) = M15_Pi(x)
                  Call OrdinaMatrice(M4,1)
                  If(M4(1) > 0 And M4(1) < 4) Or(M4(1) > 10 And M4(1) < 14) Or(M4(1) > 20 And M4(1) < 24) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) + 66 Else If M4(1) + 66 = M4(2) Then C(x) = M4(1) + 33
                  End If
                  If(M4(1) > 33 And M4(1) < 37) Or(M4(1) > 43 And M4(1) < 47) Or(M4(1) > 53 And M4(1) < 57) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) - 33
                  End If
                  If(M4(1) > 3 And M4(1) < 7) Or(M4(1) > 13 And M4(1) < 17) Or(M4(1) > 23 And M4(1) < 27) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) + 57 Else If M4(1) + 57 = M4(2) Then C(x) = M4(1) + 33
                  End If
                  If(M4(1) > 36 And M4(1) < 40) Or(M4(1) > 46 And M4(1) < 50) Or(M4(1) > 56 And M4(1) < 60) Then
                     If M4(1) + 24 = M4(2) Then C(x) = M4(1) - 33
                  End If
                  If(M4(1) > 6 And M4(1) < 10) Or(M4(1) > 16 And M4(1) < 20) Or(M4(1) > 26 And M4(1) < 30) Then
                     If M4(1) + 24 = M4(2) Then C(x) = M4(1) + 57 Else If M4(1) + 57 = M4(2) Then C(x) = M4(1) + 24
                  End If
                  If(M4(1) > 30 And M4(1) < 34) Or(M4(1) > 40 And M4(1) < 44) Or(M4(1) > 50 And M4(1) < 54) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) - 24
                  End If
               End If
            End If
         Next
         If Ok1 = 5 Then 'elimina i doppioni
            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 + 1) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es,R1) & "   ",1,0
            Scrivi StringaNumeri(Min_A," ",True) & "   <- Numeri Piccoli ",1
            Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es + 1,R1),1,0
            Scrivi "   " & StringaNumeri(Min_B," ",True) & "   <- Numeri Piccoli ",1
            Scrivi Space(39) & String(14,"-") & Space(3) & String(14,"-"),1,,,2
            Scrivi " Somma Delle Decine e Cadenze Fuori 9  " & StringaNumeri(DecAB_CadAB," ",True),1,0
            Scrivi Space(3) & StringaNumeri(Num_Pi," ",True) & "   <- Somma Numeri Piccoli",1
            Scrivi " Il Medio 15 Delle Somme               " & StringaNumeri(M15_AB," ",True),1,0
            Scrivi Space(3) & StringaNumeri(M15_Pi," ",True) & "   <- Medio 15 Somma Numeri Piccoli",1
            Scrivi
            Scrivi " Le Due Cinquine Ottenute Aprono Cinque Triple ",1,,,1
            Scrivi Format2(M15_AB(1)) & " " & Format2(M15_Pi(1)) & Space(15) & Format2(C(1))
            Scrivi Format2(M15_AB(2)) & " " & Format2(M15_Pi(2)) & Space(15) & Format2(C(2))
            Scrivi Format2(M15_AB(3)) & " " & Format2(M15_Pi(3)) & Space(15) & Format2(C(3))
            Scrivi Format2(M15_AB(4)) & " " & Format2(M15_Pi(4)) & Space(15) & Format2(C(4))
            Scrivi Format2(M15_AB(5)) & " " & Format2(M15_Pi(5)) & Space(15) & Format2(C(5))
            Ruo(1) = R1
            ImpostaGiocata 1,C,Ruo,Posta,Clp
            Gioca Es
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Vedi l'allegato 2207106
Vedi l'allegato 2207107

Vedi l'allegato 2207108

Vedi l'allegato 2207109

Ciao

salvo50 ha scritto:

Matematico, Rudivall, Xeroxs.
Grazie.

IL MEDIO TRIPLARE 15 di ANTONIO LONGO (Incompleto)

Nella prima parte del "Medio Triplare 15" Nell'esempio fatto dall'autore nelle coppie delle 2 cinquine finali

non ci sono doppioni, ma se si verificano io in questi casi ho eliminato l'estrazione (Obbligato perche

nell'ultima tabella a 2 numeri uguali non corrisponde niente)ed anche perchè se li lascio (non serve a niente

lasciarli)lo script va in errore <INVALIDO USO DI NULL>. Ha riguardo al gruppo delle miste, ho fatto delle prove

e si sono verificate delle coppie miste che non ci sono nel gruppo delle miste, quindi non essendoci la coppia

nel gruppo delle miste il risultato non ci dovrebbe essere ma c'è, anche per le figure stessa cosa la coppia può

essere della stessa figura ma nel gruppo delle figure non c'è,ed anche in questo caso c'è un numero che lo sa

solo lo script con che criterio lo mette, esempio la coppia (15-24) due numeri stessa figura non ci sono

accoppiati nella tabella delle triple gruppo figure, io posso anche non far apparire i numeri che mette lo

script, ma ci sarebbero delle coppie senza numero, avevo eliminato le estrazioni in cui uno o più estratti erano

zerati (cadenza 0) perchè nella prima tabella agli zerati non corrisponde nessun numero piccolo, però l'autore

fa un esempio con uno zerato, ma al posto del 70 fa i calcoli con il 79 ma non lo dice, si capisce che è così

rifacendo tutti i calcoli, quindi l'ho rimesso, inserendo gli zerati nella prima tabella.

esempio dell'autore,immagine 3 in basso a sinistra

63 - 06 - 70 - 36 - 64
83 - 36 - 37 - 06 - 42
----------------------
19 - 33 - 58 - 33 - 59 = medio 15 delle somme

49 - 09 - 55 - 66 - 53 = differenza triplare = Medio 15 somma numeri piccoli, al posto del 55 ci va il 52 e al

posto del 66 ci va lo 09, ennesimi errori di stampa

49 - 09 - 52 - 09 - 53 la riga sopra deve essere così

79 - 66 - 55 - 66 - 56 la cinquina finale giusta è questa con il 55 come terzo numero

(19 49) - 79
(33 09) - 66
(58 52) - 55
(33 09) - 66
(59 53) - 56

La prima parte finisce con un pronostico di una cinquina, script fatto.

La seconda parte dovrebbe pronosticare l'ambata secca, l'autore inizia le spiegazioni ed a un certo punto dice,

<a questo punto riprendiamo i 20 numeri prima ottenuti>. 20 numeri?!?! Che io sappia sono 15, ma ho pensato sarà

l'ennesimo errore di stampa, ed invece continua a parlare di 20 numeri e alla fine li scrive

Vedi l'allegato 2207102

Dice che li ha ottenuti nella ruota di Cagliari, la quarta settimana di maggio del 1972, ebbene ho impostato

nello script l'estrazione, ma lo script salta quell'estrazione, quindi tolgo le condizioni e risulta che come

coppia finale ci sono 2 numeri uguali, e l'ultima tabella quella delle triple non da nessun numero a 2 numeri

uguali, perchè non ci sono, anche così controllando i numeri scritti dall'autore ed i numeri ottenuti dai

calcoli non vedo riscontri, ho cercato anche qualche estrazione prima ed anche qualche estrazione dopo, niente.

Vedi l'allegato 2207103

Allora passo al secondo esempio dice che è la stessa estrazione ma nella ruota di Roma

Vedi l'allegato 2207104

Vedi l'allegato 2207105

Ed anche qui non trovo riscontri con i numeri postati dall'autore, quindi non so come li ha ottenuti questi 20

numeri, forse io ho sbagliato ad interpretarli, se qualcuno ha capito da dove prendere questi 20 numeri, la-o

prego di spiegarmelo, forse così si può proseguire lo script per la seconda parte, dico forse perchè non sò

ancora come tradurre in script quello di calcolare nelle figure cadenze e decine quelle maggiormente uscite e

poi come accoppiarle per formare il pronostico, in questultimo esempio nella ruota di Roma i numeri maggiormente

usciti sono:

2 e 5 per le decine
2 e 9 per le cadenze
2, 4, 7, 9 per le figure

l'autore pronostica questi 3 numeri

22
29
52

ma con quale criterio?

Perchè per esempio non ha messo anche il 25 oppure il 25 al posto del 52?

Non lo sapremo mai, a meno che qualcuno non abbia una spiegazione.

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Clp2,Salvo50,Ruota
   Dim R1,Caso,Casi,IniR,x,K,G,FInR,Ok1
   Dim M1(2),M2(2),M3(2),M4(2)
   Dim A(5),B(5),DecA(5),DecB(5),CadA(5),CadB(5)
   Dim Dec_AB(5),Cad_AB(5),DeAB(5),CaAB(5)
   Dim So_DecAB(5),So_CadAB(5),DecAB_CadAB(5)
   Dim M15_AB(5),Min_A(5),Min_B(5),C(5)
   Dim M15_DePi(5),M15_CaPi(5),M15_Pi(5)
   Dim Num_Pi(5),De_Num_Pi(5),Ca_Num_Pi(5)
   Dim Ruo(1),Posta(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9700)'5289 primo esempio nell'articolo, ruota Milano
   Clp = CInt(InputBox("Per quanti colpi vuoi giocare ?",,8))
   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,5)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "IL MEDIO TRIPLARE 15 di ANTONIO LONGO (Prima Parte) - SCRIPT SALVO50",1,,4,,3,,1
   Posta(2) = 1
   Posta(3) = 1
   'Posta(4) = 1
   'Posta(5) = 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
         Ok1 = 0
         'CALCOLI PER TROVARE IL MEDIO 15
         For x = 1 To 5
            A(x) = Estratto(Es,R1,x)
            B(x) = Estratto(Es + 1,R1,x)
            DecA(x) = Decina(A(x)) : CadA(x) = Cadenza(A(x))'Decine e cadenze estratto A
            DecB(x) = Decina(B(x)) : CadB(x) = Cadenza(B(x))'Decine e cadenze estratto B
            So_DecAB(x) = FuoriX(DecA(x) + DecB(x),9) ' Somma decine di A e B
            So_CadAB(x) = FuoriX(CadA(x) + CadB(x),9) ' Somma cadenze di A e B
            If CadA(x) = 0 And CadB(x) = 0 Then So_CadAB(x) = 0
            DecAB_CadAB(x) = So_DecAB(x) & So_CadAB(x)
            '
            DeAB(x) = FuoriX(15 - So_DecAB(x),9)'Medio 15 delle decine
            If DeAB(x) = 9 Then DeAB(x) = 0 '--------------------
            CaAB(x) = FuoriX(15 - So_CadAB(x),9)'Medio 15 delle cadenze
            M15_AB(x) = DeAB(x) & CaAB(x)'Medio 15
            'M15_AB(x) = Fuori90(M15_AB(x))
            M15_AB(x) = CInt(M15_AB(x))
            '
            If A(x) = 1 Or A(x) = 4 Or A(x) = 7 Or A(x) = 31 Or A(x) = 34 Or A(x) = 37 Or A(x) = 61 Or A(x) = 64 Or A(x) = 67 Then Min_A(x) = 1
            If A(x) = 2 Or A(x) = 5 Or A(x) = 8 Or A(x) = 32 Or A(x) = 35 Or A(x) = 38 Or A(x) = 62 Or A(x) = 65 Or A(x) = 68 Then Min_A(x) = 2
            If A(x) = 3 Or A(x) = 6 Or A(x) = 9 Or A(x) = 33 Or A(x) = 36 Or A(x) = 30 Or A(x) = 39 Or A(x) = 63 Or A(x) = 66 Or A(x) = 60 Or A(x) = 69 Then Min_A(x) = 3
            If A(x) = 11 Or A(x) = 14 Or A(x) = 17 Or A(x) = 41 Or A(x) = 44 Or A(x) = 47 Or A(x) = 71 Or A(x) = 74 Or A(x) = 77 Then Min_A(x) = 11
            If A(x) = 12 Or A(x) = 15 Or A(x) = 18 Or A(x) = 42 Or A(x) = 45 Or A(x) = 48 Or A(x) = 72 Or A(x) = 75 Or A(x) = 78 Then Min_A(x) = 12
            If A(x) = 13 Or A(x) = 16 Or A(x) = 10 Or A(x) = 19 Or A(x) = 43 Or A(x) = 46 Or A(x) = 40 Or A(x) = 49 Or A(x) = 73 Or A(x) = 76 Or A(x) = 70 Or A(x) = 79 Then Min_A(x) = 13
            If A(x) = 21 Or A(x) = 24 Or A(x) = 27 Or A(x) = 51 Or A(x) = 54 Or A(x) = 57 Or A(x) = 81 Or A(x) = 84 Or A(x) = 87 Then Min_A(x) = 21
            If A(x) = 22 Or A(x) = 25 Or A(x) = 28 Or A(x) = 52 Or A(x) = 55 Or A(x) = 58 Or A(x) = 82 Or A(x) = 85 Or A(x) = 88 Then Min_A(x) = 22
            If A(x) = 23 Or A(x) = 26 Or A(x) = 20 Or A(x) = 29 Or A(x) = 53 Or A(x) = 56 Or A(x) = 50 Or A(x) = 59 Or A(x) = 83 Or A(x) = 86 Or A(x) = 80 Or A(x) = 89 Then Min_A(x) = 23
            '
            If B(x) = 1 Or B(x) = 4 Or B(x) = 7 Or B(x) = 31 Or B(x) = 34 Or B(x) = 37 Or B(x) = 61 Or B(x) = 64 Or B(x) = 67 Then Min_B(x) = 1
            If B(x) = 2 Or B(x) = 5 Or B(x) = 8 Or B(x) = 32 Or B(x) = 35 Or B(x) = 38 Or B(x) = 62 Or B(x) = 65 Or B(x) = 68 Then Min_B(x) = 2
            If B(x) = 3 Or B(x) = 6 Or B(x) = 9 Or B(x) = 33 Or B(x) = 36 Or B(x) = 30 Or B(x) = 39 Or B(x) = 63 Or B(x) = 66 Or B(x) = 60 Or B(x) = 69 Then Min_B(x) = 3
            If B(x) = 11 Or B(x) = 14 Or B(x) = 17 Or B(x) = 41 Or B(x) = 44 Or B(x) = 47 Or B(x) = 71 Or B(x) = 74 Or B(x) = 77 Then Min_B(x) = 11
            If B(x) = 12 Or B(x) = 15 Or B(x) = 18 Or B(x) = 42 Or B(x) = 45 Or B(x) = 48 Or B(x) = 72 Or B(x) = 75 Or B(x) = 78 Then Min_B(x) = 12
            If B(x) = 13 Or B(x) = 16 Or B(x) = 10 Or B(x) = 19 Or B(x) = 43 Or B(x) = 46 Or B(x) = 40 Or B(x) = 49 Or B(x) = 73 Or B(x) = 76 Or B(x) = 70 Or B(x) = 79 Then Min_B(x) = 13
            If B(x) = 21 Or B(x) = 24 Or B(x) = 27 Or B(x) = 51 Or B(x) = 54 Or B(x) = 57 Or B(x) = 81 Or B(x) = 84 Or B(x) = 87 Then Min_B(x) = 21
            If B(x) = 22 Or B(x) = 25 Or B(x) = 28 Or B(x) = 52 Or B(x) = 55 Or B(x) = 58 Or B(x) = 82 Or B(x) = 85 Or B(x) = 88 Then Min_B(x) = 22
            If B(x) = 23 Or B(x) = 26 Or B(x) = 20 Or B(x) = 29 Or B(x) = 53 Or B(x) = 56 Or B(x) = 50 Or B(x) = 59 Or B(x) = 83 Or B(x) = 86 Or B(x) = 80 Or B(x) = 89 Then Min_B(x) = 23
            '
            Num_Pi(x) = Min_A(x) + Min_B(x)'Somma numeri piccoli
            De_Num_Pi(x) = Decina(Num_Pi(x))'Decina della somma dei numeri piccoli
            Ca_Num_Pi(x) = Cadenza(Num_Pi(x))'Cadenza della somma dei numeri piccoli
            M15_DePi(x) = FuoriX(15 - De_Num_Pi(x),9)'Medio 15 decine somma numeri piccoli
            If De_Num_Pi(x) = 0 Then M15_DePi(x) = 0
            M15_CaPi(x) = FuoriX(15 - Ca_Num_Pi(x),9)'Medio 15 cadenza somma numeri piccoli
            If Ca_Num_Pi(x) = 0 Then M15_CaPi(x) = 0
            M15_Pi(x) = M15_DePi(x) & M15_CaPi(x)'Medio 15 decine e cadenze somma numeri piccoli
            M15_Pi(x) = CInt(M15_Pi(x))
            'FINE CALCOLI PER TROVARE IL MEDIO 15
            '*****************************************************************
            'INIZIO CALCOLI PER TROVATE MEDIO TRIPLARE
            If M15_AB(x) <> M15_Pi(x) Then
               Ok1 = Ok1 + 1 ' Elimina i doppioni
               '***********************************************************************
               'DECINE
               If Decina(M15_AB(x)) = Decina(M15_Pi(x)) Then
                  M1(1) = M15_AB(x) : M1(2) = M15_Pi(x)
                  Call OrdinaMatrice(M1,1)
                  If(M1(1) > 0 And M1(1) < 4)Or(M1(1) > 10 And M1(1) < 14)Or(M1(1) > 20 And M1(1) < 24)_
                     Or(M1(1) > 30 And M1(1) < 34)Or(M1(1) > 40 And M1(1) < 44)Or(M1(1) > 50 And M1(1) < 54)_
                     Or(M1(1) > 60 And M1(1) < 64)Or(M1(1) > 70 And M1(1) < 74)Or(M1(1) > 80 And M1(1) < 84) Then
                     If M1(1) + 3 = M1(2) Then C(x) = Fuori90(M1(1) + 6)
                     If M1(1) + 6 = M1(2) Then C(x) = Fuori90(M1(1) + 3)
                  End If
                  If(M1(1) > 3 And M1(1) < 7)Or(M1(1) > 13 And M1(1) < 17)Or(M1(1) > 23 And M1(1) < 27)_
                     Or(M1(1) > 33 And M1(1) < 37)Or(M1(1) > 43 And M1(1) < 47)Or(M1(1) > 53 And M1(1) < 57)_
                     Or(M1(1) > 63 And M1(1) < 67)Or(M1(1) > 73 And M1(1) < 77)Or(M1(1) > 83 And M1(1) < 87) Then
                     If M1(1) + 3 = M1(2) Then C(x) = M1(1) - 3
                  End If
               End If
               '***********************************************************************
               'CADENZE
               If Cadenza(M15_AB(x)) = Cadenza(M15_Pi(x)) Then
                  C(x) = Fuori90(M15_AB(x) + 30)
                  If C(x) = M15_Pi(x) Then C(x) = Fuori90(C(x) + 30)
               End If
               '***********************************************************************
               'FIGURE
               If Figura(M15_AB(x)) = Figura(M15_Pi(x)) Then
                  M3(1) = M15_AB(x) : M3(2) = M15_Pi(x)
                  Call OrdinaMatrice(M3,1)
                  If(M3(1) > 0 And M3(1) < 4) Or(M3(1) > 10 And M3(1) < 14) Or(M3(1) > 20 And M3(1) < 24) Then
                     If M3(1) + 36 = M3(2) Then C(x) = M3(1) + 63 Else If M3(1) + 63 = M3(2) Then C(x) = M3(1) + 36
                  End If
                  If(M3(1) > 36 And M3(1) < 40) Or(M3(1) > 46 And M3(1) < 50) Or(M3(1) > 56 And M3(1) < 60) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) - 36
                  End If
                  If(M3(1) > 3 And M3(1) < 7) Or(M3(1) > 13 And M3(1) < 17) Or(M3(1) > 23 And M3(1) < 27) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) + 63 Else If M3(1) + 63 = M3(2) Then C(x) = M3(1) + 27
                  End If
                  If(M3(1) > 30 And M3(1) < 34) Or(M3(1) > 40 And M3(1) < 44) Or(M3(1) > 50 And M3(1) < 54) Then
                     If M3(1) + 36 = M3(2) Then C(x) = M3(1) - 27
                  End If
                  If(M3(1) > 6 And M3(1) < 10) Or(M3(1) > 16 And M3(1) < 20) Or(M3(1) > 26 And M3(1) < 30) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) + 54 Else If M3(1) + 54 = M3(2) Then C(x) = M3(1) + 27
                  End If
                  If(M3(1) > 33 And M3(1) < 37) Or(M3(1) > 43 And M3(1) < 47) Or(M3(1) > 53 And M3(1) < 57) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) - 27
                  End If
               End If
               '***********************************************************************
               'MISTE
               If Figura(M15_AB(x)) <> Figura(M15_Pi(x)) And Decina(M15_AB(x)) <> Decina(M15_Pi(x))_
                  And Cadenza(M15_AB(x)) <> Cadenza(M15_Pi(x))Then
                  M4(1) = M15_AB(x) : M4(2) = M15_Pi(x)
                  Call OrdinaMatrice(M4,1)
                  If(M4(1) > 0 And M4(1) < 4) Or(M4(1) > 10 And M4(1) < 14) Or(M4(1) > 20 And M4(1) < 24) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) + 66 Else If M4(1) + 66 = M4(2) Then C(x) = M4(1) + 33
                  End If
                  If(M4(1) > 33 And M4(1) < 37) Or(M4(1) > 43 And M4(1) < 47) Or(M4(1) > 53 And M4(1) < 57) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) - 33
                  End If
                  If(M4(1) > 3 And M4(1) < 7) Or(M4(1) > 13 And M4(1) < 17) Or(M4(1) > 23 And M4(1) < 27) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) + 57 Else If M4(1) + 57 = M4(2) Then C(x) = M4(1) + 33
                  End If
                  If(M4(1) > 36 And M4(1) < 40) Or(M4(1) > 46 And M4(1) < 50) Or(M4(1) > 56 And M4(1) < 60) Then
                     If M4(1) + 24 = M4(2) Then C(x) = M4(1) - 33
                  End If
                  If(M4(1) > 6 And M4(1) < 10) Or(M4(1) > 16 And M4(1) < 20) Or(M4(1) > 26 And M4(1) < 30) Then
                     If M4(1) + 24 = M4(2) Then C(x) = M4(1) + 57 Else If M4(1) + 57 = M4(2) Then C(x) = M4(1) + 24
                  End If
                  If(M4(1) > 30 And M4(1) < 34) Or(M4(1) > 40 And M4(1) < 44) Or(M4(1) > 50 And M4(1) < 54) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) - 24
                  End If
               End If
            End If
         Next
         If Ok1 = 5 Then 'elimina i doppioni
            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 + 1) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es,R1) & "   ",1,0
            Scrivi StringaNumeri(Min_A," ",True) & "   <- Numeri Piccoli ",1
            Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es + 1,R1),1,0
            Scrivi "   " & StringaNumeri(Min_B," ",True) & "   <- Numeri Piccoli ",1
            Scrivi Space(39) & String(14,"-") & Space(3) & String(14,"-"),1,,,2
            Scrivi " Somma Delle Decine e Cadenze Fuori 9  " & StringaNumeri(DecAB_CadAB," ",True),1,0
            Scrivi Space(3) & StringaNumeri(Num_Pi," ",True) & "   <- Somma Numeri Piccoli",1
            Scrivi " Il Medio 15 Delle Somme               " & StringaNumeri(M15_AB," ",True),1,0
            Scrivi Space(3) & StringaNumeri(M15_Pi," ",True) & "   <- Medio 15 Somma Numeri Piccoli",1
            Scrivi
            Scrivi " Le Due Cinquine Ottenute Aprono Cinque Triple ",1,,,1
            Scrivi Format2(M15_AB(1)) & " " & Format2(M15_Pi(1)) & Space(15) & Format2(C(1))
            Scrivi Format2(M15_AB(2)) & " " & Format2(M15_Pi(2)) & Space(15) & Format2(C(2))
            Scrivi Format2(M15_AB(3)) & " " & Format2(M15_Pi(3)) & Space(15) & Format2(C(3))
            Scrivi Format2(M15_AB(4)) & " " & Format2(M15_Pi(4)) & Space(15) & Format2(C(4))
            Scrivi Format2(M15_AB(5)) & " " & Format2(M15_Pi(5)) & Space(15) & Format2(C(5))
            Ruo(1) = R1
            ImpostaGiocata 1,C,Ruo,Posta,Clp
            Gioca Es
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Vedi l'allegato 2207106
Vedi l'allegato 2207107

Vedi l'allegato 2207108

Vedi l'allegato 2207109

Ciao salvo50 ho un immlibretto

salvo50 ha scritto:

Matematico, Rudivall, Xeroxs.
Grazie.

IL MEDIO TRIPLARE 15 di ANTONIO LONGO (Incompleto)

Nella prima parte del "Medio Triplare 15" Nell'esempio fatto dall'autore nelle coppie delle 2 cinquine finali

non ci sono doppioni, ma se si verificano io in questi casi ho eliminato l'estrazione (Obbligato perche

nell'ultima tabella a 2 numeri uguali non corrisponde niente)ed anche perchè se li lascio (non serve a niente

lasciarli)lo script va in errore <INVALIDO USO DI NULL>. Ha riguardo al gruppo delle miste, ho fatto delle prove

e si sono verificate delle coppie miste che non ci sono nel gruppo delle miste, quindi non essendoci la coppia

nel gruppo delle miste il risultato non ci dovrebbe essere ma c'è, anche per le figure stessa cosa la coppia può

essere della stessa figura ma nel gruppo delle figure non c'è,ed anche in questo caso c'è un numero che lo sa

solo lo script con che criterio lo mette, esempio la coppia (15-24) due numeri stessa figura non ci sono

accoppiati nella tabella delle triple gruppo figure, io posso anche non far apparire i numeri che mette lo

script, ma ci sarebbero delle coppie senza numero, avevo eliminato le estrazioni in cui uno o più estratti erano

zerati (cadenza 0) perchè nella prima tabella agli zerati non corrisponde nessun numero piccolo, però l'autore

fa un esempio con uno zerato, ma al posto del 70 fa i calcoli con il 79 ma non lo dice, si capisce che è così

rifacendo tutti i calcoli, quindi l'ho rimesso, inserendo gli zerati nella prima tabella.

esempio dell'autore,immagine 3 in basso a sinistra

63 - 06 - 70 - 36 - 64
83 - 36 - 37 - 06 - 42
----------------------
19 - 33 - 58 - 33 - 59 = medio 15 delle somme

49 - 09 - 55 - 66 - 53 = differenza triplare = Medio 15 somma numeri piccoli, al posto del 55 ci va il 52 e al

posto del 66 ci va lo 09, ennesimi errori di stampa

49 - 09 - 52 - 09 - 53 la riga sopra deve essere così

79 - 66 - 55 - 66 - 56 la cinquina finale giusta è questa con il 55 come terzo numero

(19 49) - 79
(33 09) - 66
(58 52) - 55
(33 09) - 66
(59 53) - 56

La prima parte finisce con un pronostico di una cinquina, script fatto.

La seconda parte dovrebbe pronosticare l'ambata secca, l'autore inizia le spiegazioni ed a un certo punto dice,

<a questo punto riprendiamo i 20 numeri prima ottenuti>. 20 numeri?!?! Che io sappia sono 15, ma ho pensato sarà

l'ennesimo errore di stampa, ed invece continua a parlare di 20 numeri e alla fine li scrive

Vedi l'allegato 2207102

Dice che li ha ottenuti nella ruota di Cagliari, la quarta settimana di maggio del 1972, ebbene ho impostato

nello script l'estrazione, ma lo script salta quell'estrazione, quindi tolgo le condizioni e risulta che come

coppia finale ci sono 2 numeri uguali, e l'ultima tabella quella delle triple non da nessun numero a 2 numeri

uguali, perchè non ci sono, anche così controllando i numeri scritti dall'autore ed i numeri ottenuti dai

calcoli non vedo riscontri, ho cercato anche qualche estrazione prima ed anche qualche estrazione dopo, niente.

Vedi l'allegato 2207103

Allora passo al secondo esempio dice che è la stessa estrazione ma nella ruota di Roma

Vedi l'allegato 2207104

Vedi l'allegato 2207105

Ed anche qui non trovo riscontri con i numeri postati dall'autore, quindi non so come li ha ottenuti questi 20

numeri, forse io ho sbagliato ad interpretarli, se qualcuno ha capito da dove prendere questi 20 numeri, la-o

prego di spiegarmelo, forse così si può proseguire lo script per la seconda parte, dico forse perchè non sò

ancora come tradurre in script quello di calcolare nelle figure cadenze e decine quelle maggiormente uscite e

poi come accoppiarle per formare il pronostico, in questultimo esempio nella ruota di Roma i numeri maggiormente

usciti sono:

2 e 5 per le decine
2 e 9 per le cadenze
2, 4, 7, 9 per le figure

l'autore pronostica questi 3 numeri

22
29
52

ma con quale criterio?

Perchè per esempio non ha messo anche il 25 oppure il 25 al posto del 52?

Non lo sapremo mai, a meno che qualcuno non abbia una spiegazione.

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Clp2,Salvo50,Ruota
   Dim R1,Caso,Casi,IniR,x,K,G,FInR,Ok1
   Dim M1(2),M2(2),M3(2),M4(2)
   Dim A(5),B(5),DecA(5),DecB(5),CadA(5),CadB(5)
   Dim Dec_AB(5),Cad_AB(5),DeAB(5),CaAB(5)
   Dim So_DecAB(5),So_CadAB(5),DecAB_CadAB(5)
   Dim M15_AB(5),Min_A(5),Min_B(5),C(5)
   Dim M15_DePi(5),M15_CaPi(5),M15_Pi(5)
   Dim Num_Pi(5),De_Num_Pi(5),Ca_Num_Pi(5)
   Dim Ruo(1),Posta(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9700)'5289 primo esempio nell'articolo, ruota Milano
   Clp = CInt(InputBox("Per quanti colpi vuoi giocare ?",,8))
   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,5)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "IL MEDIO TRIPLARE 15 di ANTONIO LONGO (Prima Parte) - SCRIPT SALVO50",1,,4,,3,,1
   Posta(2) = 1
   Posta(3) = 1
   'Posta(4) = 1
   'Posta(5) = 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
         Ok1 = 0
         'CALCOLI PER TROVARE IL MEDIO 15
         For x = 1 To 5
            A(x) = Estratto(Es,R1,x)
            B(x) = Estratto(Es + 1,R1,x)
            DecA(x) = Decina(A(x)) : CadA(x) = Cadenza(A(x))'Decine e cadenze estratto A
            DecB(x) = Decina(B(x)) : CadB(x) = Cadenza(B(x))'Decine e cadenze estratto B
            So_DecAB(x) = FuoriX(DecA(x) + DecB(x),9) ' Somma decine di A e B
            So_CadAB(x) = FuoriX(CadA(x) + CadB(x),9) ' Somma cadenze di A e B
            If CadA(x) = 0 And CadB(x) = 0 Then So_CadAB(x) = 0
            DecAB_CadAB(x) = So_DecAB(x) & So_CadAB(x)
            '
            DeAB(x) = FuoriX(15 - So_DecAB(x),9)'Medio 15 delle decine
            If DeAB(x) = 9 Then DeAB(x) = 0 '--------------------
            CaAB(x) = FuoriX(15 - So_CadAB(x),9)'Medio 15 delle cadenze
            M15_AB(x) = DeAB(x) & CaAB(x)'Medio 15
            'M15_AB(x) = Fuori90(M15_AB(x))
            M15_AB(x) = CInt(M15_AB(x))
            '
            If A(x) = 1 Or A(x) = 4 Or A(x) = 7 Or A(x) = 31 Or A(x) = 34 Or A(x) = 37 Or A(x) = 61 Or A(x) = 64 Or A(x) = 67 Then Min_A(x) = 1
            If A(x) = 2 Or A(x) = 5 Or A(x) = 8 Or A(x) = 32 Or A(x) = 35 Or A(x) = 38 Or A(x) = 62 Or A(x) = 65 Or A(x) = 68 Then Min_A(x) = 2
            If A(x) = 3 Or A(x) = 6 Or A(x) = 9 Or A(x) = 33 Or A(x) = 36 Or A(x) = 30 Or A(x) = 39 Or A(x) = 63 Or A(x) = 66 Or A(x) = 60 Or A(x) = 69 Then Min_A(x) = 3
            If A(x) = 11 Or A(x) = 14 Or A(x) = 17 Or A(x) = 41 Or A(x) = 44 Or A(x) = 47 Or A(x) = 71 Or A(x) = 74 Or A(x) = 77 Then Min_A(x) = 11
            If A(x) = 12 Or A(x) = 15 Or A(x) = 18 Or A(x) = 42 Or A(x) = 45 Or A(x) = 48 Or A(x) = 72 Or A(x) = 75 Or A(x) = 78 Then Min_A(x) = 12
            If A(x) = 13 Or A(x) = 16 Or A(x) = 10 Or A(x) = 19 Or A(x) = 43 Or A(x) = 46 Or A(x) = 40 Or A(x) = 49 Or A(x) = 73 Or A(x) = 76 Or A(x) = 70 Or A(x) = 79 Then Min_A(x) = 13
            If A(x) = 21 Or A(x) = 24 Or A(x) = 27 Or A(x) = 51 Or A(x) = 54 Or A(x) = 57 Or A(x) = 81 Or A(x) = 84 Or A(x) = 87 Then Min_A(x) = 21
            If A(x) = 22 Or A(x) = 25 Or A(x) = 28 Or A(x) = 52 Or A(x) = 55 Or A(x) = 58 Or A(x) = 82 Or A(x) = 85 Or A(x) = 88 Then Min_A(x) = 22
            If A(x) = 23 Or A(x) = 26 Or A(x) = 20 Or A(x) = 29 Or A(x) = 53 Or A(x) = 56 Or A(x) = 50 Or A(x) = 59 Or A(x) = 83 Or A(x) = 86 Or A(x) = 80 Or A(x) = 89 Then Min_A(x) = 23
            '
            If B(x) = 1 Or B(x) = 4 Or B(x) = 7 Or B(x) = 31 Or B(x) = 34 Or B(x) = 37 Or B(x) = 61 Or B(x) = 64 Or B(x) = 67 Then Min_B(x) = 1
            If B(x) = 2 Or B(x) = 5 Or B(x) = 8 Or B(x) = 32 Or B(x) = 35 Or B(x) = 38 Or B(x) = 62 Or B(x) = 65 Or B(x) = 68 Then Min_B(x) = 2
            If B(x) = 3 Or B(x) = 6 Or B(x) = 9 Or B(x) = 33 Or B(x) = 36 Or B(x) = 30 Or B(x) = 39 Or B(x) = 63 Or B(x) = 66 Or B(x) = 60 Or B(x) = 69 Then Min_B(x) = 3
            If B(x) = 11 Or B(x) = 14 Or B(x) = 17 Or B(x) = 41 Or B(x) = 44 Or B(x) = 47 Or B(x) = 71 Or B(x) = 74 Or B(x) = 77 Then Min_B(x) = 11
            If B(x) = 12 Or B(x) = 15 Or B(x) = 18 Or B(x) = 42 Or B(x) = 45 Or B(x) = 48 Or B(x) = 72 Or B(x) = 75 Or B(x) = 78 Then Min_B(x) = 12
            If B(x) = 13 Or B(x) = 16 Or B(x) = 10 Or B(x) = 19 Or B(x) = 43 Or B(x) = 46 Or B(x) = 40 Or B(x) = 49 Or B(x) = 73 Or B(x) = 76 Or B(x) = 70 Or B(x) = 79 Then Min_B(x) = 13
            If B(x) = 21 Or B(x) = 24 Or B(x) = 27 Or B(x) = 51 Or B(x) = 54 Or B(x) = 57 Or B(x) = 81 Or B(x) = 84 Or B(x) = 87 Then Min_B(x) = 21
            If B(x) = 22 Or B(x) = 25 Or B(x) = 28 Or B(x) = 52 Or B(x) = 55 Or B(x) = 58 Or B(x) = 82 Or B(x) = 85 Or B(x) = 88 Then Min_B(x) = 22
            If B(x) = 23 Or B(x) = 26 Or B(x) = 20 Or B(x) = 29 Or B(x) = 53 Or B(x) = 56 Or B(x) = 50 Or B(x) = 59 Or B(x) = 83 Or B(x) = 86 Or B(x) = 80 Or B(x) = 89 Then Min_B(x) = 23
            '
            Num_Pi(x) = Min_A(x) + Min_B(x)'Somma numeri piccoli
            De_Num_Pi(x) = Decina(Num_Pi(x))'Decina della somma dei numeri piccoli
            Ca_Num_Pi(x) = Cadenza(Num_Pi(x))'Cadenza della somma dei numeri piccoli
            M15_DePi(x) = FuoriX(15 - De_Num_Pi(x),9)'Medio 15 decine somma numeri piccoli
            If De_Num_Pi(x) = 0 Then M15_DePi(x) = 0
            M15_CaPi(x) = FuoriX(15 - Ca_Num_Pi(x),9)'Medio 15 cadenza somma numeri piccoli
            If Ca_Num_Pi(x) = 0 Then M15_CaPi(x) = 0
            M15_Pi(x) = M15_DePi(x) & M15_CaPi(x)'Medio 15 decine e cadenze somma numeri piccoli
            M15_Pi(x) = CInt(M15_Pi(x))
            'FINE CALCOLI PER TROVARE IL MEDIO 15
            '*****************************************************************
            'INIZIO CALCOLI PER TROVATE MEDIO TRIPLARE
            If M15_AB(x) <> M15_Pi(x) Then
               Ok1 = Ok1 + 1 ' Elimina i doppioni
               '***********************************************************************
               'DECINE
               If Decina(M15_AB(x)) = Decina(M15_Pi(x)) Then
                  M1(1) = M15_AB(x) : M1(2) = M15_Pi(x)
                  Call OrdinaMatrice(M1,1)
                  If(M1(1) > 0 And M1(1) < 4)Or(M1(1) > 10 And M1(1) < 14)Or(M1(1) > 20 And M1(1) < 24)_
                     Or(M1(1) > 30 And M1(1) < 34)Or(M1(1) > 40 And M1(1) < 44)Or(M1(1) > 50 And M1(1) < 54)_
                     Or(M1(1) > 60 And M1(1) < 64)Or(M1(1) > 70 And M1(1) < 74)Or(M1(1) > 80 And M1(1) < 84) Then
                     If M1(1) + 3 = M1(2) Then C(x) = Fuori90(M1(1) + 6)
                     If M1(1) + 6 = M1(2) Then C(x) = Fuori90(M1(1) + 3)
                  End If
                  If(M1(1) > 3 And M1(1) < 7)Or(M1(1) > 13 And M1(1) < 17)Or(M1(1) > 23 And M1(1) < 27)_
                     Or(M1(1) > 33 And M1(1) < 37)Or(M1(1) > 43 And M1(1) < 47)Or(M1(1) > 53 And M1(1) < 57)_
                     Or(M1(1) > 63 And M1(1) < 67)Or(M1(1) > 73 And M1(1) < 77)Or(M1(1) > 83 And M1(1) < 87) Then
                     If M1(1) + 3 = M1(2) Then C(x) = M1(1) - 3
                  End If
               End If
               '***********************************************************************
               'CADENZE
               If Cadenza(M15_AB(x)) = Cadenza(M15_Pi(x)) Then
                  C(x) = Fuori90(M15_AB(x) + 30)
                  If C(x) = M15_Pi(x) Then C(x) = Fuori90(C(x) + 30)
               End If
               '***********************************************************************
               'FIGURE
               If Figura(M15_AB(x)) = Figura(M15_Pi(x)) Then
                  M3(1) = M15_AB(x) : M3(2) = M15_Pi(x)
                  Call OrdinaMatrice(M3,1)
                  If(M3(1) > 0 And M3(1) < 4) Or(M3(1) > 10 And M3(1) < 14) Or(M3(1) > 20 And M3(1) < 24) Then
                     If M3(1) + 36 = M3(2) Then C(x) = M3(1) + 63 Else If M3(1) + 63 = M3(2) Then C(x) = M3(1) + 36
                  End If
                  If(M3(1) > 36 And M3(1) < 40) Or(M3(1) > 46 And M3(1) < 50) Or(M3(1) > 56 And M3(1) < 60) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) - 36
                  End If
                  If(M3(1) > 3 And M3(1) < 7) Or(M3(1) > 13 And M3(1) < 17) Or(M3(1) > 23 And M3(1) < 27) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) + 63 Else If M3(1) + 63 = M3(2) Then C(x) = M3(1) + 27
                  End If
                  If(M3(1) > 30 And M3(1) < 34) Or(M3(1) > 40 And M3(1) < 44) Or(M3(1) > 50 And M3(1) < 54) Then
                     If M3(1) + 36 = M3(2) Then C(x) = M3(1) - 27
                  End If
                  If(M3(1) > 6 And M3(1) < 10) Or(M3(1) > 16 And M3(1) < 20) Or(M3(1) > 26 And M3(1) < 30) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) + 54 Else If M3(1) + 54 = M3(2) Then C(x) = M3(1) + 27
                  End If
                  If(M3(1) > 33 And M3(1) < 37) Or(M3(1) > 43 And M3(1) < 47) Or(M3(1) > 53 And M3(1) < 57) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) - 27
                  End If
               End If
               '***********************************************************************
               'MISTE
               If Figura(M15_AB(x)) <> Figura(M15_Pi(x)) And Decina(M15_AB(x)) <> Decina(M15_Pi(x))_
                  And Cadenza(M15_AB(x)) <> Cadenza(M15_Pi(x))Then
                  M4(1) = M15_AB(x) : M4(2) = M15_Pi(x)
                  Call OrdinaMatrice(M4,1)
                  If(M4(1) > 0 And M4(1) < 4) Or(M4(1) > 10 And M4(1) < 14) Or(M4(1) > 20 And M4(1) < 24) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) + 66 Else If M4(1) + 66 = M4(2) Then C(x) = M4(1) + 33
                  End If
                  If(M4(1) > 33 And M4(1) < 37) Or(M4(1) > 43 And M4(1) < 47) Or(M4(1) > 53 And M4(1) < 57) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) - 33
                  End If
                  If(M4(1) > 3 And M4(1) < 7) Or(M4(1) > 13 And M4(1) < 17) Or(M4(1) > 23 And M4(1) < 27) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) + 57 Else If M4(1) + 57 = M4(2) Then C(x) = M4(1) + 33
                  End If
                  If(M4(1) > 36 And M4(1) < 40) Or(M4(1) > 46 And M4(1) < 50) Or(M4(1) > 56 And M4(1) < 60) Then
                     If M4(1) + 24 = M4(2) Then C(x) = M4(1) - 33
                  End If
                  If(M4(1) > 6 And M4(1) < 10) Or(M4(1) > 16 And M4(1) < 20) Or(M4(1) > 26 And M4(1) < 30) Then
                     If M4(1) + 24 = M4(2) Then C(x) = M4(1) + 57 Else If M4(1) + 57 = M4(2) Then C(x) = M4(1) + 24
                  End If
                  If(M4(1) > 30 And M4(1) < 34) Or(M4(1) > 40 And M4(1) < 44) Or(M4(1) > 50 And M4(1) < 54) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) - 24
                  End If
               End If
            End If
         Next
         If Ok1 = 5 Then 'elimina i doppioni
            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 + 1) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es,R1) & "   ",1,0
            Scrivi StringaNumeri(Min_A," ",True) & "   <- Numeri Piccoli ",1
            Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es + 1,R1),1,0
            Scrivi "   " & StringaNumeri(Min_B," ",True) & "   <- Numeri Piccoli ",1
            Scrivi Space(39) & String(14,"-") & Space(3) & String(14,"-"),1,,,2
            Scrivi " Somma Delle Decine e Cadenze Fuori 9  " & StringaNumeri(DecAB_CadAB," ",True),1,0
            Scrivi Space(3) & StringaNumeri(Num_Pi," ",True) & "   <- Somma Numeri Piccoli",1
            Scrivi " Il Medio 15 Delle Somme               " & StringaNumeri(M15_AB," ",True),1,0
            Scrivi Space(3) & StringaNumeri(M15_Pi," ",True) & "   <- Medio 15 Somma Numeri Piccoli",1
            Scrivi
            Scrivi " Le Due Cinquine Ottenute Aprono Cinque Triple ",1,,,1
            Scrivi Format2(M15_AB(1)) & " " & Format2(M15_Pi(1)) & Space(15) & Format2(C(1))
            Scrivi Format2(M15_AB(2)) & " " & Format2(M15_Pi(2)) & Space(15) & Format2(C(2))
            Scrivi Format2(M15_AB(3)) & " " & Format2(M15_Pi(3)) & Space(15) & Format2(C(3))
            Scrivi Format2(M15_AB(4)) & " " & Format2(M15_Pi(4)) & Space(15) & Format2(C(4))
            Scrivi Format2(M15_AB(5)) & " " & Format2(M15_Pi(5)) & Space(15) & Format2(C(5))
            Ruo(1) = R1
            ImpostaGiocata 1,C,Ruo,Posta,Clp
            Gioca Es
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Vedi l'allegato 2207106
Vedi l'allegato 2207107

Vedi l'allegato 2207108

Vedi l'allegato 2207109

Ciao salvo50, avrei un immagine del libretto il medio triplare 15, nell'immagine ultima qui nel forum nella tabella a destra in alto a sinistra c'è il 23 nell'immagine che avrei, c'è il numero 20, non sò se questa informazione può essere utile.
Saluti

simon-simon · 14 Novembre 2020

Paki144 ha scritto:
Ciao

Ciao salvo50 ho un immagine del libretto che ho del "medio triplale 15"

Ciao salvo50, ho un immagine del libretto che ho di "medio triplare 15"
dove in questa tabella a destra che è qui nel forum :
20.73.29.25.48.
58.12.52.56.17.
49.32.14. 6. 9.
35.88.22.54.29.
nel mio libretto ho il numero 20
il primo in alto a sinistra, non sò questo ai fini dei calcoli può incidere. Saluti
paki144Vedi l'allegato 2207384

Grazie per gli script ma....
non vanno con lottodesk

salvo50 · 14 Novembre 2020

Ciao Paki144, non ho capito quello che vuoi dire, io nel MEDIO TRIPLARE 15 non ho potuto proseguire con la seconda parte perchè i 20 numeri che scrive il Longo, non sò, non riesco a capire come li ha ricavati, che poi due tre numeri possono anche coincidere è normale, lui dice: < i 20 numeri trovati seguendo i procedimenti prima indicati> allora seguendo i procedimenti indicati prima, i 20 numeri che mette lui non ci sono, ripeto per puro caso ce ne possono essere esempio 1, 2, 3, ma ne servono 20 per poter proseguire con la seconda parte.

salvo50 · 14 Novembre 2020

simon-simon ha scritto:
Grazie per gli script ma....
non vanno con lottodesk

Ciao Simon, io non conosco Lottodesk, gli script che faccio sono per Spaziometria.

Non sono affari miei, ma non riesco a capire perchè non usi Spaziometria, è GRATIS

Script su Metodi Cabalistici, Ciclometrici & C.

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Junior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Junior Member

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM PLUS<

Super member

Junior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<