Novità

Aiutino??

mastrogino

mastrogino

Advanced Premium Member
Ciao a tutti vi volevo chiedere se vi sia un listato
che cerca gli ambi si somma 90 con 3 numeri
esempio
189
288
387
486
585
684
783
882
981
e cosi via
il difficile e trovarli con la decina davanti e fare somma 90
esempio
537 poiche 53+37 fa 90 ma essendo 4 non vale ma togliendo il 3 doppio
abbiamo 537 = 90
se ci riusciamo ad sviluppare il listato vi mostro il metodo fortissimo
grazie per l'attenzione
altri numeri che ho trovato sono
173 17+73= 90 -il 7 doppio abbiamo 173 = 90
628
719
819
 
joe

joe

Advanced Member >PLATINUM PLUS<
Ciao Mastrogino.

"Fortissimo" ... come tutti i metodi meccanici.

La risposta è sempre la stessa: Se si riesce a spiegarlo si riesce a farlo.

Dunque spiega il metodo e poi, vedremo il da farsi.

Intanto dimmi le terzine sono 25 ?

:)
 
Zetrix

Zetrix

Advanced Premium Member
173
264
355
446
537
628

mi sembra che sono solo queste le terzine che formano la somma 90
poi vedrà Joe se sono esatte che lui e il prof degli script..1654943153624.png

1654943157815.png:)

Codice: 
Sub Main
   Dim a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,w,y,j,k,x
   Dim rx,rk
   For a = 1 To 8
      For b = 1 To 8
         For c = 1 To 8
            x = Fuori90(a & b)
            y = Fuori90(b & c)
            z = Fuori90(x + y)
            If z = 90 Then
               Scrivi "" & a & b & c & "",0,1,1,5,6
            End If
         Next
      Next
   Next
End Sub
 
Ultima modifica:
mastrogino

mastrogino

Advanced Premium Member
joe ha scritto:
Ciao Mastrogino.

"Fortissimo" ... come tutti i metodi meccanici.

La risposta è sempre la stessa: Se si riesce a spiegarlo si riesce a farlo.

Dunque spiega il metodo e poi, vedremo il da farsi.

Intanto dimmi le terzine sono 25 ?

:)
Clicca per espandere...



Intanto dimmi le terzine sono 25 ?
bhe credo di si considerando la somma 90 anche con i numeretti
 
mastrogino

mastrogino

Advanced Premium Member
joe ecco il metodo :



Intanto grazie pe ravermi risposto

il metodo consiste nel trovare su ruota ho tutte le 11
un ambo di somma 90 in 3 numeri
trovandolo si procede alla piramidazione con le restanti 3 numeri sortiti
su ruota, con l'inserendo dei 3 numeri
esempio reale.
estrazione del 15/01/2022. Cagliari ambo di somma 90 con 3 numeri 446
piramidandola si ottiene
44681=62.
4462=09
44645=23
ovviamente ambata principale è il 90
90.
90.62. in ordine di sortita
90.62.09.
90.62.09.23.
su ca. e tt nz.
esito
1c ambata 90
1c ambo 90.62.
 
mastrogino

mastrogino

Advanced Premium Member
Zetrix ha scritto:
173
264
355
446
537
628

mi sembra che sono solo queste le terzine che formano la somma 90
poi vedrà Joe se sono esatte che lui e il prof degli script..Vedi l'allegato 2236171

Vedi l'allegato 2236172:)

Codice: 
Sub Main
   Dim a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,w,y,j,k,x
   Dim rx,rk
   For a = 1 To 8
      For b = 1 To 8
         For c = 1 To 8
            x = Fuori90(a & b)
            y = Fuori90(b & c)
            z = Fuori90(x + y)
            If z = 90 Then
               Scrivi "" & a & b & c & "",0,1,1,5,6
            End If
         Next
      Next
   Next
End Sub
Clicca per espandere...
ciao Zetrix si sono quelle ne vi è una x ogni decina ma si devono considerare anche quelle con il numeretto tipo 882 ,
 
mastrogino

mastrogino

Advanced Premium Member
però se capita un ambo con la somma 90 i 3 numeri con i numeretti
al contrario cioee invece del 981 ma 819
vedete cosa sucede vi faccio un esempio reale
estrazione del 15/07/2021sulla ruota di napoli abbiamo
l'ambo 819
piramidiamo
81938=59
81913=37
81927=45
prev.
90
90.59.
90.59.37.
90.59.37.45.
1c 59
2c 45
4c 59.45.tt
6c 90.59.tt

esempio reale con somma 90 con i 3 numeri inserendo il numeretto
819 invertito
estrazione del 22/07/2021 venezia 819
piramidazione
81926=44
81969=81
81931=52
prev
90
90.44.
90.44.81.
90.44.81.52.
1c
2c
3c 44
4c
8c ambo 52.90.
 
joe

joe

Advanced Member >PLATINUM PLUS<
Ok. non era una domanda trabocchetto.

Mi risultavano 25 ma una era doppia (la 882)

e penso che è anche per questo che non l'hai citata a caso.

Non prometto niente perché non ho il mio pc ed ho altri impegni.

Poi ... non mi torna l'esempio che hai fatto. del 15 Gennaio.

44 + 06

Cioè 44 + 46 è = 90 dopo di che si toglie il 4 centrale e diventano 3 numeri.

Ma 44 + 06 <> 90 e ... 6 <> 46 perlomeno per il computer sono casi molto diversi,

Cioè o è buono il primo 44+46= 90 o il secondo ... oppure si devono ammettere tutti e 2 i risultati,

cioè far accettare al computer anche quelli in cui la somma dei 2 numeri dell'Ambo non è 90.

:)
 
joe

joe

Advanced Member >PLATINUM PLUS<
Jolly = "173,189,264,288,355,387,446,486,537,585,628,684,719,783,819,828,837,846,855,864,873,882,891,981"

:)
 
mastrogino

mastrogino

Advanced Premium Member
joe ha scritto:
Ok. non era una domanda trabocchetto.

Mi risultavano 25 ma una era doppia (la 882)

e penso che è anche per questo che non l'hai citata a caso.

Non prometto niente perché non ho il mio pc ed ho altri impegni.

Poi ... non mi torna l'esempio che hai fatto. del 15 Gennaio.

44 + 06

Cioè 44 + 46 è = 90 dopo di che si toglie il 4 centrale e diventano 3 numeri.

Ma 44 + 06 <> 90 e ... 6 <> 46 perlomeno per il computer sono casi molto diversi,

Cioè o è buono il primo 44+46= 90 o il secondo ... oppure si devono ammettere tutti e 2 i risultati,

cioè far accettare al computer anche quelli in cui la somma dei 2 numeri dell'Ambo non è 90.

:)
Clicca per espandere...
Buonasera ,
in questo caso e buono la 1° cioee 446
ma quando il caso da il numeretto davanti 981 , attenzione in previsione si metto i vertibili
lo ammeto è un po incasinato , ma i risultati ci sono
 
M

Master

Advanced Member >PLATINUM<
Buona domenica a tutti
inserisco questa soluzione con somma 90 di 2 estratti

Codice: 
Option Explicit
Sub Main()
   Scrivi "Forum Lottoced - Metodo Somma 90 di Mastrogino",1
   Dim ruote(1),rt(3),amb(1),ambb(2),ter(3),qua(4),posta(1),poste(2)
   Dim ES,R1,Ini,Fin,cl,t,P1,P2,P3,P4,P5,P6,C1,A1,A2,A,postee(3)
   Dim A8,A9,A10,W1,W2,W3,Pir1,Pir2,Pir3,Abb1,Abb2,Abb3
   posta(1) = 1:poste(2) = 1 : postee(2)=1 : postee(3)=1
   t = 0
   Ini = InputBox("Quante estrazioni vuoi controllare?",,150)
   cl = InputBox("Quanti colpi?",,10)
   Fin = EstrazioneFin
   For ES = Fin - Ini To EstrazioneFin
      AvanzamentoElab Ini,Fin,ES
      Messaggio("elab. estrazione....." & ES & "      Attendere....  ")
      For R1 = 1 To 11
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A1 = Estratto(ES,R1,P1)
               A2 = Estratto(ES,R1,P2)
               If(A1 < 10 And A2 > 16) Or(A2 < 10 And A1 > 16)Or(Cadenza(A1) = Decina(A2)) Then
                  For P4 = 1 To 5
                     If(P4 <> P1 And P4 <> P2) Then
                        A8 = Estratto(ES,R1,P4)
                        For P5 = P4 + 1 To 5
                           If(P5 <> P1 And P5 <> P2 And P5 <> P4) Then
                              A9 = Estratto(ES,R1,P5)
                              For P6 = P5 + 1 To 5
                                 If(P6 <> P1 And P6 <> P2 And P6 <> P4 And P6 <> P5) Then
                                    A10 = Estratto(ES,R1,P6)
                                    If Fuori90(A1 + A2) = 90 Then
                                       ruote(1) = R1 : rt(1) = R1 : rt(2) = 11 : rt(3) = 12
                                       t = t + 1
                                       Scrivi String(75,"-") & "  Caso  " & t
                                       C1 =(A1 & A2) : W1 = Mid(C1,1,2) : W2 =(Mid(C1,4,1))
                                       If A1 > 9 And(Cadenza(A1) = Decina(A2))Then C1 = W1 & W2
                                       Scrivi DataEstrazione(ES) & "  " & SiglaRuota(R1) & "  " & StringaEstratti(ES,R1) & _
                                       "  [ " & Format2(A1) & " " & Format2(A2) & " ] Pos. " & P1 & "^ " & P2 & "^ " & " Rimanenti " & A8 & " " & A9 & " " & A10,1,,,1
                                       Scrivi Space(35),0,0
                                       W3 =(Mid(C1,1,1))
                                       Scrivi C1,0,0,3
                                       If W3 = 9 Then Scrivi Space(3) & "ATTENZIONE IN GIOCO I VERTIBILI ",,,4
                                       Scrivi : A = 90
                                       Pir1 = C1 & A8 : Pir2 = C1 & A9 : Pir3 = C1 & A10
                                       Scrivi Pir1 & " = ",1,0
                                       Abb1 = Fuori90(Piramide(Pir1,,2))
                                       Scrivi Abb1 & " ",True
                                       Scrivi Pir2 & " = ",1,0
                                       Abb2 = Fuori90(Piramide(Pir2,,2))
                                       Scrivi Abb2 & " ",True
                                       Scrivi Pir3 & " = ",1,0
                                       Abb3 = Fuori90(Piramide(Pir3,,2))
                                       Scrivi Abb3 & " ",True
                                       ColoreTesto 0
                                       If W3 = 9 Then A = Vert(A)
                                       If W3 = 9 Then Abb1 = Vert(Abb1)
                                       If W3 = 9 Then Abb2 = Vert(Abb2)
                                       If W3 = 9 Then Abb3 = Vert(Abb3)
                                       amb(1) = A
                                       ImpostaGiocata 1,amb,ruote,posta,cl
                                       ambb(1) = A
                                       ambb(2) = Abb1
                                       ImpostaGiocata 2,ambb,rt,poste,cl
                                       ter(1) = A
                                       ter(2) = Abb1
                                       ter(3) = Abb2
                                       ImpostaGiocata 3,ter,rt,poste,cl
                                       qua(1) = A
                                       qua(2) = Abb1
                                       qua(3) = Abb2
                                       qua(4) = Abb3
                                       ImpostaGiocata 4,qua,rt,postee,cl
                                       Gioca ES,1
                                    End If
                                 End If
                              Next
                           End If
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
mastrogino

mastrogino

Advanced Premium Member
Master ha scritto:
Buona domenica a tutti
inserisco questa soluzione con somma 90 di 2 estratti

Codice: 
Option Explicit
Sub Main()
   Scrivi "Forum Lottoced - Metodo Somma 90 di Mastrogino",1
   Dim ruote(1),rt(3),amb(1),ambb(2),ter(3),qua(4),posta(1),poste(2)
   Dim ES,R1,Ini,Fin,cl,t,P1,P2,P3,P4,P5,P6,C1,A1,A2,A,postee(3)
   Dim A8,A9,A10,W1,W2,W3,Pir1,Pir2,Pir3,Abb1,Abb2,Abb3
   posta(1) = 1:poste(2) = 1 : postee(2)=1 : postee(3)=1
   t = 0
   Ini = InputBox("Quante estrazioni vuoi controllare?",,150)
   cl = InputBox("Quanti colpi?",,10)
   Fin = EstrazioneFin
   For ES = Fin - Ini To EstrazioneFin
      AvanzamentoElab Ini,Fin,ES
      Messaggio("elab. estrazione....." & ES & "      Attendere....  ")
      For R1 = 1 To 11
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A1 = Estratto(ES,R1,P1)
               A2 = Estratto(ES,R1,P2)
               If(A1 < 10 And A2 > 16) Or(A2 < 10 And A1 > 16)Or(Cadenza(A1) = Decina(A2)) Then
                  For P4 = 1 To 5
                     If(P4 <> P1 And P4 <> P2) Then
                        A8 = Estratto(ES,R1,P4)
                        For P5 = P4 + 1 To 5
                           If(P5 <> P1 And P5 <> P2 And P5 <> P4) Then
                              A9 = Estratto(ES,R1,P5)
                              For P6 = P5 + 1 To 5
                                 If(P6 <> P1 And P6 <> P2 And P6 <> P4 And P6 <> P5) Then
                                    A10 = Estratto(ES,R1,P6)
                                    If Fuori90(A1 + A2) = 90 Then
                                       ruote(1) = R1 : rt(1) = R1 : rt(2) = 11 : rt(3) = 12
                                       t = t + 1
                                       Scrivi String(75,"-") & "  Caso  " & t
                                       C1 =(A1 & A2) : W1 = Mid(C1,1,2) : W2 =(Mid(C1,4,1))
                                       If A1 > 9 And(Cadenza(A1) = Decina(A2))Then C1 = W1 & W2
                                       Scrivi DataEstrazione(ES) & "  " & SiglaRuota(R1) & "  " & StringaEstratti(ES,R1) & _
                                       "  [ " & Format2(A1) & " " & Format2(A2) & " ] Pos. " & P1 & "^ " & P2 & "^ " & " Rimanenti " & A8 & " " & A9 & " " & A10,1,,,1
                                       Scrivi Space(35),0,0
                                       W3 =(Mid(C1,1,1))
                                       Scrivi C1,0,0,3
                                       If W3 = 9 Then Scrivi Space(3) & "ATTENZIONE IN GIOCO I VERTIBILI ",,,4
                                       Scrivi : A = 90
                                       Pir1 = C1 & A8 : Pir2 = C1 & A9 : Pir3 = C1 & A10
                                       Scrivi Pir1 & " = ",1,0
                                       Abb1 = Fuori90(Piramide(Pir1,,2))
                                       Scrivi Abb1 & " ",True
                                       Scrivi Pir2 & " = ",1,0
                                       Abb2 = Fuori90(Piramide(Pir2,,2))
                                       Scrivi Abb2 & " ",True
                                       Scrivi Pir3 & " = ",1,0
                                       Abb3 = Fuori90(Piramide(Pir3,,2))
                                       Scrivi Abb3 & " ",True
                                       ColoreTesto 0
                                       If W3 = 9 Then A = Vert(A)
                                       If W3 = 9 Then Abb1 = Vert(Abb1)
                                       If W3 = 9 Then Abb2 = Vert(Abb2)
                                       If W3 = 9 Then Abb3 = Vert(Abb3)
                                       amb(1) = A
                                       ImpostaGiocata 1,amb,ruote,posta,cl
                                       ambb(1) = A
                                       ambb(2) = Abb1
                                       ImpostaGiocata 2,ambb,rt,poste,cl
                                       ter(1) = A
                                       ter(2) = Abb1
                                       ter(3) = Abb2
                                       ImpostaGiocata 3,ter,rt,poste,cl
                                       qua(1) = A
                                       qua(2) = Abb1
                                       qua(3) = Abb2
                                       qua(4) = Abb3
                                       ImpostaGiocata 4,qua,rt,postee,cl
                                       Gioca ES,1
                                    End If
                                 End If
                              Next
                           End If
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
Clicca per espandere...
Ciao buona domenica
ti faccio i miei sinceri complimenti per il listato , ottimo lavoro anche con i numeretti invertiti
bravo veramente .
studiando questo metodo ho notato ( sempre se non disturbo)
dicevo ho notato che i 3 numeri si trovano nella decina , e se noi sommiamo i primi 2 numeri e lasciando il 3° si ha un numero che si mette in gioco
con il 90 e il vertibbile ,
esempio reale
estra, del 07/04/22 Palermo 17.73.=90 chiave 173 somma 1+7= 8 in coppia con il 3° numero = 83. l'83 si trova nella decina del 3 quindi si mette in gioco 83.38. .
esito
1° colpo ambata 83
6° colpo ambo secco 83.38.
questo per tenervi informato dell'evoluzione di questo metodo che sempre mi sorprende
ciao grazie per lìattenzione e buona giornata
 
mastrogino

mastrogino

Advanced Premium Member
se CORRISPONDE A VENEZIA CON LA SORTITA DEL 819 8+1=9IN COPPIA CON IL 3° NUMERO IL 9 = 99- 90=09.90.
SI ATTENDE IL 90.09. A VENEZIA
 
Zetrix

Zetrix

Advanced Premium Member
mastrogino ha scritto:
Ciao a tutti vi volevo chiedere se vi sia un listato
che cerca gli ambi si somma 90 con 3 numeri
esempio
189
288
387
486
585
684
783
882
981
e cosi via
il difficile e trovarli con la decina davanti e fare somma 90
esempio
537 poiche 53+37 fa 90 ma essendo 4 non vale ma togliendo il 3 doppio
abbiamo 537 = 90
se ci riusciamo ad sviluppare il listato vi mostro il metodo fortissimo
grazie per l'attenzione
altri numeri che ho trovato sono
173 17+73= 90 -il 7 doppio abbiamo 173 = 90
628
719
819
Clicca per espandere...

scusa ma qui si contraddice quello che sta scritto
allora cosa vuol dire
"il difficile e trovarli con la decina davanti e fare somma 90"
forse volevi dire con i numeretti a vista esempio se scriviamo 0585
il 5 e 8 non sono a vista per essere a vista devono avere gli stessi numeretti
esempio se scriviamo 7119 a una somma 90 e i numeretti interni sono a vista!
e con i tre numeretti 719 -> 71+19 fa somma 90 e questa risulta ok

1773 ->173
2664 ->264
3555 ->355
4446 -> 446
5337 ->537
6228 -> 628
7119 ->719

questi hanno tutti i numeretti interni a vista
adesso provo a elaborare di nuovo lo script con i numeretti interni a vista!
 
Ultima modifica:
Zetrix

Zetrix

Advanced Premium Member
0882 - somma 90
1773 - somma 90
2664 - somma 90
3555 - somma 90
4446 - somma 90
5337 - somma 90
6228 - somma 90
7119 - somma 90

Codice: 
Sub Main
   Dim a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,w,y,j,k,x
   Dim rx,rk
   For a = 1 To 90
      For b = 1 To 90
         c = Cadenza(a)
         d = Decina(b)
         x = Fuori90(a + b)
         If x = 90 And c = d Then
            Scrivi "" & Format2(a) & Format2(b) & " - somma 90",0,1,1,5,6
         End If
      Next
   Next
End Sub

x mastrogino questi sono con i numeretti a vista..

ciao
 
Zetrix

Zetrix

Advanced Premium Member
3448.png

x mastrogino, vi metto una mia tecnica con i numeretti a vista..
a TO nelle pos 1 2 sono estratti il 61 17 questi numeri hanno i numeretti interni a vista
adesso per elaborare la previsione dell'ambo si devono fare questi calcoli
1+1=2 (1numero)
poi dobbiamo formare un numero con i numeretti esterni 6 e 7 e si forma il numero 67
poi si calcola il diam 67-45=22 (2 numero)
la previsione in gioco sarà 2 22 a TO GE E TT

Numeri in gioco 02.22 su TO GE TT per Ambo
[GE][02 .. .. 22 ..] C. 1 Ambo 01958 [ 51 - 28/04/2022] [02.17.33.22.20]
Interrotta per esito verificato
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 26 aprile 2024
    Bari
    65
    67
    84
    22
    77
    Cagliari
    38
    09
    83
    18
    20
    Firenze
    76
    24
    78
    30
    40
    Genova
    50
    56
    61
    90
    57
    Milano
    87
    21
    15
    12
    79
    Napoli
    13
    66
    86
    25
    49
    Palermo
    72
    60
    68
    74
    09
    Roma
    23
    15
    43
    07
    75
    Torino
    82
    79
    31
    41
    64
    Venezia
    66
    89
    18
    80
    41
    Nazionale
    04
    24
    10
    69
    73
    Estrazione Simbolotto
    Genova
    33
    03
    16
    35
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto