RICHIESTA per salvo50 e tutti gli scripter

[kubes]

potresti fare lo script di questo metodo?
Prendete una cinquina qualsiasi su una delle 11 ruote che più vi piace e, dei cinque numeri estratti prima ne calcolate la chiusura a 90, i risultati disponeteli in orizzontale, poi moltiplicate x2 ogni singolo estratto, i risultati disponeteli in verticale




[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/forum.lottoced.com\/image\/gif;base64,R0lGODlhAQABAPABAP\/\/\/wAAACH5BAEKAAAALAAAAAABAAEAAAICRAEAOw=="}[/IMG2]​ora dobbiamo formare il nostro quadrato pieno di numeri, in questo semplicissimo modo, 70+55= 35 70+14= 84 70+42= 22 62+55= 27 62+14= 76 .
Calcolo numeri condizione
47+72= 29
33+29= 62
Bari 69 25 68 62 58 4/2/17 estrazione appena precedente
Bari 35 76 48 29 41 7/2/17 estrazione presa in esame
i due numeri in questo caso occupano entrambi la 4° posizione, cio'non toglie che possono essere non isotopi e se ne puo' presentare anche solo uno, per calcolare e porre in gioco la Previsione.

Previsione; sommiamo i due numeri condizione sommiamo le 3 triadi, i risultati più le chiusure a 90 di questi formeranno le quartine secche da porre in gioco per 3 Colpi
29+62= 1 complemento a 90 = 89 ( numeri condizionii )

23+27+35= 85 complemeto a 90 = 5 ( 1° triade)
84+41+29= 64 complemeto a 90= 26 ( 2° triade)
21+17+41= 79 complemeto a 90 = 11 ( 3° triade )

Quartine 1-85-64-79
Quartine 89-5-26-11
MAX 3 COLPI

 

[salvo50]

Ciao aTutti

Prima domanda, i numeri 47+72 e 33+29, nel quadrato che hai postato sono presi da una delle 2 diagonali, li prendi sempre dallo stesso posto fisso o ci sono dei motivi del perche li hai presi proprio da lì?

Seconda domanda, è uguale alla prima, ma riguarda i numeri delle triadi, anche qui sono presi da dei quadrettini fissi, cioè bisogna prenderli per qualsiasi estrazione sempre dallo stesso posto oppure c'è un motivo, se si quale?

Terza domanda, se i numeri della prima domanda e seconda domanda devi prenderli sempre dallo stesso posto nel quadretto, a che servono i 25 numeri del quadretto, se ne bastano solo 12?

 

[kubes]

Si vengono presi sempre da quelle posizioni di quella diagonale ,anche perché l’altra diagonale corriponde all ,estrazione.Si i numeri vengono presi sempre dalle stessse posizioni.
anche nelle triadi vengono usate le stesse posizioni.per tutte le ruote.
sul fatto che ci siano 25 numeri va bene ... si lo so che ne occorrono solo 12 ... però occorrono gli altri per poi confutare se nelle somme ottenute ci sia qualche numero dei 25 che rafforza la previsione

 

[salvo50]

ok,grazie

 

[kubes]

No... grazie a te per l’intereSsamento

 

[salvo50]

Ciao

Ho messo anche la ricerca su tutte le ruote

 'Chiesto da kubes
'Prendete una cinquina qualsiasi su una delle 11 ruote che più vi piace
'e, dei cinque numeri estratti prima ne calcolate la chiusura a 90,
'i risultati disponeteli In orizzontale, poi moltiplicate x2 ogni singolo Estratto,
'i risultati disponeteli In verticale
'
'---35-76-48-29-41 <-- estrazione
'---55-14-42-61-49 <-- complemento a 90
'-----------------
'70|35-84-22-41-29
'62|27-76-14-33-21
'06|61-20-48-67-55
'58|23-72-10-29-17
'82|47-06-34-53-41
'
'Ora dobbiamo formare il nostro quadrato pieno di numeri, In questo semplicissimo modo,
'70+55= 35 70+14= 84 70+42= 22 62+55= 27 62+14= 76 .
'Calcolo numeri condizione
'47+72= 29
'33+29= 62
'Bari 69 25 68 62 58 4/2/17 estrazione appena precedente
'Bari 35 76 48 29 41 7/2/17 estrazione presa In esame
'i due numeri In questo caso occupano entrambi la 4° Posizione,
'cio'non toglie che possono essere non isotopi e se ne puo'
'presentare anche solo uno, per calcolare e porre in gioco la Previsione.
'Previsione; sommiamo i due numeri condizione sommiamo le 3 triadi,
'i risultati più le chiusure a 90 di questi formeranno le quartine secche
'da porre In gioco per 3 Colpi
'29+62= 1 complemento a 90 = 89 ( numeri condizionii )
'23+27+35= 85 complemeto a 90 = 5 ( 1° triade)
'84+41+29= 64 complemeto a 90= 26 ( 2° triade)
'21+17+41= 79 complemeto a 90 = 11 ( 3° triade )
'Quartine 1-85-64-79
'Quartine 89-5-26-11
'MAX 3 COLPI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim Es,Fin,R1,E1,E2,Ini,P1,P2,Som1,Som2,Caso,Casi
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,C1,C2,C3,C4,C5
   Dim A01,A02,A03,A04,A05,Clp1,Clp2
   Dim S_Tr1,S_Tr2,S_Tr3,S_Tr1_C90,S_Tr2_C90,S_Tr3_C90
   Dim C1B1,C1B2,C1B3,C1B4,C1B5,C2B1,C2B2,C2B3,C2B4
   Dim C2B5,C3B1,C3B2,C3B3,C3B4,C3B5,C4B1,C4B2,C4B3
   Dim C4B4,C4B5,C5B1,C5B2,C5B3,C5B4,C5B5
   Dim Cond1,Cond2,SomCond12,Compl90,Salvo50
   Dim Quart1(4),Quart2(4),Ruota(1),Tutte(1),Posta(4)
   Posta(2) = 1
   Posta(3) = 1
   'Posta(4) = 1
   Fin = EstrazioneFin
   Clp1 = InputBox(" Per quanti colpi vuoi giocare la Quartina a Ruota? ",Salvo50,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la Quartina a Tutte? ",Salvo50,3)
   Ini = InputBox("Da qual'è estrazione vuoi iniziare?",,9275) ' 9275 estrazione dell'esempio
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio(Es)
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         A01 = Estratto(Es - 1,R1,1)
         A02 = Estratto(Es - 1,R1,2)
         A03 = Estratto(Es - 1,R1,3)
         A04 = Estratto(Es - 1,R1,4)
         A05 = Estratto(Es - 1,R1,5)
         A1 = Estratto(Es,R1,1)
         A2 = Estratto(Es,R1,2)
         A3 = Estratto(Es,R1,3)
         A4 = Estratto(Es,R1,4)
         A5 = Estratto(Es,R1,5)
         B1 = 90 - A1 : B2 = 90 - A2 : B3 = 90 - A3 : B4 = 90 - A4 : B5 = 90 - A5
         C1 = Fuori90(A1 + A1) : C2 = Fuori90(A2 + A2) : C3 = Fuori90(A3 + A3) : C4 = Fuori90(A4 + A4) : C5 = Fuori90(A5 + A5)
         C1B1 = Fuori90(C1 + B1) : C1B2 = Fuori90(C1 + B2) : C1B3 = Fuori90(C1 + B3) : C1B4 = Fuori90(C1 + B4) : C1B5 = Fuori90(C1 + B5)
         C2B1 = Fuori90(C2 + B1) : C2B2 = Fuori90(C2 + B2) : C2B3 = Fuori90(C2 + B3) : C2B4 = Fuori90(C2 + B4) : C2B5 = Fuori90(C2 + B5)
         C3B1 = Fuori90(C3 + B1) : C3B2 = Fuori90(C3 + B2) : C3B3 = Fuori90(C3 + B3) : C3B4 = Fuori90(C3 + B4) : C3B5 = Fuori90(C3 + B5)
         C4B1 = Fuori90(C4 + B1) : C4B2 = Fuori90(C4 + B2) : C4B3 = Fuori90(C4 + B3) : C4B4 = Fuori90(C4 + B4) : C4B5 = Fuori90(C4 + B5)
         C5B1 = Fuori90(C5 + B1) : C5B2 = Fuori90(C5 + B2) : C5B3 = Fuori90(C5 + B3) : C5B4 = Fuori90(C5 + B4) : C5B5 = Fuori90(C5 + B5)
         Cond1 = Fuori90(C5B1 + C4B2) : Cond2 = Fuori90(C2B4 + C1B5)
         If Cond1 = A01 Or Cond1 = A02 Or Cond1 = A03 Or Cond1 = A04 Or Cond1 = A05 Or Cond2 = A01 Or Cond2 = A02 Or Cond2 = A03 Or Cond2 = A04 Or Cond2 = A05 _
            Or Cond1 = A1 Or Cond1 = A2 Or Cond1 = A3 Or Cond1 = A4 Or Cond1 = A5 Or Cond2 = A1 Or Cond2 = A2 Or Cond2 = A3 Or Cond2 = A4 Or Cond2 = A5 Then
            SomCond12 = Fuori90(Cond1 + Cond2)
            Compl90 = 90 - SomCond12
            If SomCond12 = 90 Then Compl90 = 90
            S_Tr1 = Fuori90(C4B1 + C2B1 + C1B1)
            S_Tr2 = Fuori90(C1B2 + C1B4 + C1B5)
            S_Tr3 = Fuori90(C2B5 + C4B5 + C5B5)
            S_Tr1_C90 = 90 - S_Tr1
            If S_Tr1 = 90 Then S_Tr1_C90 = 90
            S_Tr2_C90 = 90 - S_Tr2
            If S_Tr2 = 90 Then S_Tr2_C90 = 90
            S_Tr3_C90 = 90 - S_Tr3
            If S_Tr3 = 90 Then S_Tr3_C90 = 90
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
            Scrivi "  " & SiglaRuota(R1) & " ",1,0
            For P1 = 1 To 5
               E1 = Estratto(Es - 1,R1,P1)
               If E1 = Cond1 Or E1 = Cond2 Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E1) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi "   <-- Estrazione precedente ",1
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " ",1,0
            For P2 = 1 To 5
               E2 = Estratto(Es,R1,P2)
               If E2 = Cond1 Or E2 = Cond2 Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E2) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi "   <-- Estrazione corrente ",1
            Scrivi
            Scrivi " Estrazione    " & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
            Scrivi " Complem.90    " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
            Scrivi Space(15) & String(14,"-")
            Scrivi Space(10) & Format2(C1) & " | " & Format2(C1B1) & " " & Format2(C1B2) & " " & Format2(C1B3) & " " & Format2(C1B4) & " " & Format2(C1B5),1
            Scrivi Space(10) & Format2(C2) & " | " & Format2(C2B1) & " " & Format2(C2B2) & " " & Format2(C2B3) & " " & Format2(C2B4) & " " & Format2(C2B5),1
            Scrivi Space(10) & Format2(C3) & " | " & Format2(C3B1) & " " & Format2(C3B2) & " " & Format2(C3B3) & " " & Format2(C3B4) & " " & Format2(C3B5),1
            Scrivi Space(10) & Format2(C4) & " | " & Format2(C4B1) & " " & Format2(C4B2) & " " & Format2(C4B3) & " " & Format2(C4B4) & " " & Format2(C4B5),1
            Scrivi Space(10) & Format2(C5) & " | " & Format2(C5B1) & " " & Format2(C5B2) & " " & Format2(C5B3) & " " & Format2(C5B4) & " " & Format2(C5B5),1
            Scrivi
            Scrivi Space(14) & Format2(C5B1) & " + " & Format2(C4B2) & " = " & Format2(Cond1),1
            Scrivi Space(14) & Format2(C2B4) & " + " & Format2(C1B5) & " = " & Format2(Cond2),1
            Scrivi Space(14) & Format2(Cond1) & " + " & Format2(Cond2) & " = " & Format2(SomCond12) & " Complemento a 90 = " & Format2(Compl90),1
            Scrivi
            Scrivi Space(14) & Format2(C4B1) & " + " & Format2(C2B1) & " + " & Format2(C1B1) & " = " & Format2(S_Tr1) & " Complemento a 90 = " & Format2(S_Tr1_C90),1
            Scrivi Space(14) & Format2(C1B2) & " + " & Format2(C1B4) & " + " & Format2(C1B5) & " = " & Format2(S_Tr2) & " Complemento a 90 = " & Format2(S_Tr2_C90),1
            Scrivi Space(14) & Format2(C2B5) & " + " & Format2(C4B5) & " + " & Format2(C5B5) & " = " & Format2(S_Tr3) & " Complemento a 90 = " & Format2(S_Tr3_C90),1
            Scrivi
            Scrivi Space(14) & "Quartine  " & Format2(SomCond12) & "-" & Format2(S_Tr1) & "-" & Format2(S_Tr2) & "-" & Format2(S_Tr3),1
            Scrivi Space(14) & "Quartine  " & Format2(Compl90) & "-" & Format2(S_Tr1_C90) & "-" & Format2(S_Tr2_C90) & "-" & Format2(S_Tr3_C90),1
            Scrivi
            Ruota(1) = R1
            Tutte(1) = TT_
            Quart1(1) = SomCond12 : Quart1(2) = S_Tr1 : Quart1(3) = S_Tr2 : Quart1(4) = S_Tr3
            EliminaRipetuti(Quart1)
            ImpostaGiocata 1,Quart1,Ruota,Posta,Clp1
            ImpostaGiocata 2,Quart1,Tutte,Posta,Clp2
            Quart2(1) = Compl90 : Quart2(2) = S_Tr1_C90 : Quart2(3) = S_Tr2_C90 : Quart2(4) = S_Tr3_C90
            EliminaRipetuti(Quart2)
            ImpostaGiocata 3,Quart2,Ruota,Posta,Clp1
            ImpostaGiocata 4,Quart2,Tutte,Posta,Clp2
            Gioca Es
         End If
      Next
   Next
   ScriviResoconto
End Sub

 

[kubes]

wauuu fantastico !!! grazie infinite. sei semplicemente Bravissimo...... Grazie 1000... Salvo50 !

 

[salvo50]

wauuu fantastico !!! grazie infinite. sei semplicemente Bravissimo...... Grazie 1000... Salvo50 !

Grazie

Devi riprenderlo, perchè quando faceva il complemento di un numero che era 90 metteva zero, quindi l'ho corretto che in questi casi il complemento di un numero di valore 90 deve essere 90.