claudiolotto |
|
| IL listato non contempla tutti i casi del metodo ma comunque da l'idea del metodo. Per i restanti casi basteraà fare piccole modifiche. CODICE ' http://superlotto.blogfree.net/?t=3647741 Analizza solo casi stessa estrazione ambi uniti ed isotopi
' per superlotto LA MASSIMA ARMONIA QUADRATICA --- Importanza del "fattore 45" x franchinoss
Sub Main()
Dim ru(2)
Dim ambata(2)
Dim posta(5)
posta(1) = 1
clp = 10
co = 0
ini = EstrazioneFin - 566
fin = EstrazioneFin
For es = ini To fin
For p = 1 To 4
For r = 1 To 10
For rr = r + 1 To 12
If rr = 11 Then rr = 12 End If
'A --- C
'| |
'B --- D
a = Estratto(es,r,p)
c = Estratto(es,r,p + 1)
b = Estratto(es,rr,p)
d = Estratto(es,rr,p + 1)
If Distanza(a,d) = 45 And Distanza(b,c) = 45 And Distanza(a,c) = Distanza(b,d) And Distanza(a,b) = Distanza(c,d)And Fuori90(a + c) = Fuori90(b + d) And Fuori90(a + b) = Fuori90(c + d) Then
co = co + 1
ambata(1) = d
'ambata(2) = Fuori90(a + b + c + d)
ru(1) = r ' prima ruota in gioco
ru(2) = rr ' seconda ruota in gioco
Scrivi "---------------------------------------------------------------"
ColoreTesto 1
Scrivi " Generatori previsione isotopi : " & a & "-" & c & " dist orizz " & Distanza(a,c) & "-" & Distanza(b,d)
Scrivi " : " & b & "-" & d & " dist diagonale 45 "_
& " su " & NomeRuota(r) & " e " & NomeRuota(rr) & " caso " & co
ColoreTesto 0
ImpostaGiocata 1,ambata,ru,posta,clp
Gioca es,True,,2 ' x spaziometria di luigiB
'Gioca es ' x L8 ...
End If
Next
Next
Next
Next
ColoreTesto 1
Scrivi
Scrivi " CASI TROVATI : " & co
ColoreTesto 0
ScriviResoconto
Scrivi "listato by claudiolotto x franchinoss",1
ColoreTesto 0
End Sub Saluti |
| | |
