Metodino per BA-CA
ho cambiato le chiavi
originali 23-46
io ho messo 13-26
che sembrerebbero aumentare gli esiti.
Bah! Non dico niente,cmq utile per estrapolare convergenze.
Sub Main() Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim n(1)
Dim am(5)
ruote(1) = 1
ruote(2) = 2
posta(1) = 1
poste(2) = 1
clp = 9
ini = EstrazioneFin - 50
fin = EstrazioneFin
co = 0
For es = ini To fin
AvanzamentoElab ini,fin,es
a = Estratto(es,1,5)
b = Estratto(es,2,5)
c = (a + b)
d = Fuori90(c + 20)'1° numero x la quadratura
e = Fuori90(c - 20) '2° numero x la quadratura
f = Fuori90(d + e)
g = Fuori90( 90 + (f - 13)) '3° numero x la quadratura
h = Fuori90( 90 + (f - 26)) '4° numero x la quadratura
h1 = Fuori90(d + g) '1°numero In gioco
l = Fuori90(e + h) ' 2° numero in gioco
m = Fuori90(d + h) '3° numero in gioco
o = Fuori90(e + g) '4° numero in gioco
p = Fuori90(m + o) 'capogioco e 5° numero in gioco
n(1) = p
am(1) = h1
am(2) = l
am(3) = m
am(4) = o
am(5) = p
co = co + 1
ImpostaGiocata 1,n,ruote,posta,clp,1
posta(1) = n(1)
ImpostaGiocata 2,am,ruote,poste,clp,2
am(1) = h1
am(2) = l
am(3) = m
am(4) = o
am(5) = p
Gioca es
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub
ho cambiato le chiavi
originali 23-46
io ho messo 13-26
che sembrerebbero aumentare gli esiti.
Bah! Non dico niente,cmq utile per estrapolare convergenze.
Sub Main() Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim n(1)
Dim am(5)
ruote(1) = 1
ruote(2) = 2
posta(1) = 1
poste(2) = 1
clp = 9
ini = EstrazioneFin - 50
fin = EstrazioneFin
co = 0
For es = ini To fin
AvanzamentoElab ini,fin,es
a = Estratto(es,1,5)
b = Estratto(es,2,5)
c = (a + b)
d = Fuori90(c + 20)'1° numero x la quadratura
e = Fuori90(c - 20) '2° numero x la quadratura
f = Fuori90(d + e)
g = Fuori90( 90 + (f - 13)) '3° numero x la quadratura
h = Fuori90( 90 + (f - 26)) '4° numero x la quadratura
h1 = Fuori90(d + g) '1°numero In gioco
l = Fuori90(e + h) ' 2° numero in gioco
m = Fuori90(d + h) '3° numero in gioco
o = Fuori90(e + g) '4° numero in gioco
p = Fuori90(m + o) 'capogioco e 5° numero in gioco
n(1) = p
am(1) = h1
am(2) = l
am(3) = m
am(4) = o
am(5) = p
co = co + 1
ImpostaGiocata 1,n,ruote,posta,clp,1
posta(1) = n(1)
ImpostaGiocata 2,am,ruote,poste,clp,2
am(1) = h1
am(2) = l
am(3) = m
am(4) = o
am(5) = p
Gioca es
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub
Ultima modifica: