| La statistica è sempre stata la mia passione e....prendendo spunto
dal Lottologo Mirco,mi sono messo a sviluppare formule per cercare di ottenere qualche
soddisfazione dal Quadro estrazionale
Formula 6-84
53-29
53-46
53-49
53-64
8-29-46-49-64 (ambo e terno)
basta trovare nel quadro estrazionale i due numeri, uno su una ruota e l'altro su un altra ruota,
se,le ruote cominciano ad essere tre o più meglio laciar perdere,perchè il gioco non sarebbe
più redditizio.Per avere più chance,andare a ritroso di 7/8 estrazioni e verivicare che,non sia
presente l'ambo o l'ambo in cinquina
Per chi ha il programma SPAZIOMETRIA,vi inserisco anche il listatoSub Main()
Dim ruote(10)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(5)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",150)
k = InputBox("per quanti colpi?","colpi di gioco",15)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If a = 6 And b = 84 Or a = 84 And b = 6 Then
ok = 1
If ok = 1 Then
n1(1) = 53
n2(1) = 53
n2(2) = 29
n3(1) = 53
n3(2) = 46
n4(1) = 53
n4(2) = 49
n5(1) = 53
n5(2) = 64
n6(1) = 8
n6(2) = 29
n6(3) = 46
n6(4) = 49
n6(5) = 64
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,posta,k
ImpostaGiocata 2,n2,ruote,poste,k,2
ImpostaGiocata 3,n3,ruote,poste,k,2
ImpostaGiocata 4,n4,ruote,poste,k,2
ImpostaGiocata 5,n5,ruote,poste,k,2
ImpostaGiocata 6,n6,ruote,poste,k,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub
|
