Lo studente
Super Member >PLATINUM<
Buongiorno nancy48....devi sommare gli ultimi due numeri......76+86= 162 162-90=72...il resto tutto ok ...in bocca al lupo....
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Chloé;n1905334 ha scritto:chi invece predilige il metodo che ricava un solo ambo secco,anche quando l'ambo non è isotopo..
HTML:Sub Main() Dim am(1),ab(2),j(2),qu(5),ruota(2),ruote(1),posta(1),poste(2) posta(1) = 1 : poste(2) = 1 Dim prog(5,100) prog(1,1) = 1 prog(1,2) = 1 prog(1,3) = 1 prog(1,4) = 1.50 prog(1,5) = 2 prog(1,6) = 3 prog(1,7) = 4 prog(1,8) = 5.50 prog(1,9) = 8 prog(1,10) = 11 prog(1,11) = 15.50 prog(1,12) = 21.50 prog(1,13) = 30 Rem utile min. 50% unica bolletta For es = EstrazioneFin - 20 To EstrazioneFin Messaggio "Estrazione: [" & es & "]ª" For r1 = 1 To 10 For p1 = 1 To 4 For p2 = p1 + 1 To 5 a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2) For r2 = r1 + 1 To 12 If r2 = 11 Then r2 = 12 For p3 = 1 To 4 For p4 = p3 + 1 To 5 c = Estratto(es,r2,p3) : d = Estratto(es,r2,p4) If(a = c And b = d) Or(a = d And b = c) Then cont = cont + 1 Scrivi : ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1 ColoreTesto 0 : Scrivi Scrivi DataEstrazione(es,1) & "" & Space(2) & _ "[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r1),3) & _ "" & Space(3) & "" & StringaEstratti(es,r1) & "" & Space(6) & _ "" & Format2(a) & "" & Space(1) & "" & Format2(b) & _ "" & Space(4) & "(" & p1 & "-" & p2 & ")" Scrivi DataEstrazione(es,1) & "" & Space(2) & _ "[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r2),3) & _ "" & Space(3) & "" & StringaEstratti(es,r2) & "" & Space(6) & _ "" & Format2(c) & "" & Space(1) & "" & Format2(d) & _ "" & Space(4) & "(" & p3 & "-" & p4 & ")" : Scrivi If a = c And b = d Then a1 = Fuori90(a + c) : b1 = Fuori90(b + d) c1 = Abs(a1 - b1) : d1 = c1\2 j(1) = a1 : j(2) = b1 e = Fuori90(Minimo(j(1),j(2)) + d1) f = Fuori90(Massimo(j(1),j(2)) - d1) x = Fuori90(a + e) : y = Fuori90(b + e) If a < b Then am(1) = y If a > b Then am(1) = x End If If a = d And b = c Then a1 = Fuori90(a + d) : b1 = Fuori90(b + c) c1 = Abs(a1 - b1) : d1 = c1\2 j(1) = a1 : j(2) = b1 e = Fuori90(Minimo(j(1),j(2)) + d1) f = Fuori90(Massimo(j(1),j(2)) - d1) x = Fuori90(a + e) : y = Fuori90(b + e) am(1) = y End If am(1) = y ruota(1) = r1 : ruota(2) = r2 : ruote(1) = 11 ImpostaGiocata 1,am,ruota,posta,14 ImpostaProgressione 1,prog ab(1) = y : ab(2) = Fuori90(x + y) ImpostaGiocata 2,ab,ruota,poste,14 ImpostaGiocata 3,ab,ruote,poste,14 Gioca es : Scrivi String(67,151) End If Next Next Next Next Next Next Next ScriviResoconto ColoreTesto 1 Scrivi "METODO: AMBO OLTRE",1 Scrivi "AUTORE: A. Longo-",1 ColoreTesto 2 : Scrivi "•damper•",1 : End Sub
Lo studente;n1905317 ha scritto:Egregia mina46....probabilmente chi fa confusione è lei....l'ambo estratto sulla ruota nazionale 9-50, e' esattamente il risultato del metodo originale di A.Longo.poi x le mie interpretazioni ,uso consigliare le giocate sulle gemelle e diametrali ( Longo forse consigliava il gioco anche a tutte ) e di mettere in gioco anche il 3' numero.Tant'è che sulla ruota di CA ,ruota gemella di TO,sono stati estratti il 50 ed il 49...il 49 era il 3' numero.
acquario51;n1905372 ha scritto:CIAO STUDENTE SCUSA NON SONO UNA CIMA CON IL PC..NON CAPISCO IL CALCOLO 99-90 DA COSA NE VIENE...GRAZIE.ABBI PAZIENZA...