sistemi virtuali a passo...

[clario]

Da estrazione del 27/12/06 su ruota di Genova
Ambata 39

Validita' 15 colpi.

Buona serata,ciao

 

[clario]

Auguro a tutti un 2007 di gioia, che ognuno possa vedere realizzati i propri desideri, le proprie aspirazioni.

A partire da estrazione del 02/01/07 gioco sulla ruota di Bari ambate:
77-10 per il I° colpo
60-83 per il 2° colpo
43-66 per il 3° colpo
26-49 per il 4° colpo
09-32 per il 5° colpo
82-15 per il 6° colpo
65-88 per il 7° colpi
48-71 per l' 8° colpo
31-54 per il 9° colpo

Ciao e buon San Silvestro a tutti.

 

[clario]

Di seguito posto lo script con cui erano state ricavate le proposte di gioco del 31/12/2006. Eseguendolo come proposto alla data del 30/12/2006 delle 9 ipotesi di gioco (ambata su due numeri), 8 hanno dato la vincita entro 10 colpi.

Sub main()
Dim i(25)
Dim ord(90,4)
Dim mru(500,8)
i(1)=1:i(2)=7:i(3)=11:i(4)=13:i(5)=17:i(6)=19:i(7)=23
i(8)=29:i(9)=31:i(10)=37:i(11)=41:i(12)=(43)
i(13)=89:i(14)=83:i(15)=79:i(16)=77:i(17)=73:i(18)=71
i(19)=67:i(20)=61:i(21)=59:i(22)=53:i(23)=(49):i(24)=47:i(25)=90
For t=1 To 25
For r=1 To 10
Messaggio "indice di incremento "&t&" ruota "&r
es=7339: es1=es:fin= EstrazioneFin
For y=1 To 90
ri=0
a=y
For j=7340 To fin
a= Fuori90(a+i(t))
If j>fin Then Exit For
If Posizione(j,r,a)>0 Then ri=0
If Posizione(j,r,a)=0 Then ri=ri+1
Next
ord(y,1)=a: ord(y,2)=rird(y,3)=rrd(y,4)=i(t)
Next
nn=nn+1
OrdinaMatrice ord,-1,2
For q=1 To 2
mru(nn,1)=ord(2,1):mru(nn,2)=ord(2,2)
mru(nn,3)=ord(2,3):mru(nn,4)=ord(2,4)
mru(nn,5)=ord(1,1):mru(nn,6)=ord(1,2)
mru(nn,7)=ord(1,3):mru(nn,8)=ord(1,4)
Next
Next
For q=1 To 90
ord(q,1)=0
ord(q,2)=0
ord(q,3)=0
ord(q,4)=0
Next
Next
Scrivi: Scrivi "ordinamento ruote": Scrivi
OrdinaMatrice mru,-1,2
For j=1 To 9
a0=mru(j,1):a1=mru(j,5)
Scrivi j&" nr="&mru(j,1)&" rit="&mru(j,2)&" ruota="&mru(j,3)&" ind incr="&mru(j,4)
Scrivi j&" nr="&mru(j,5)&" rit="&mru(j,6)&" ruota "&mru(j,7)&" ind incr="&mru(j,8)
For pp=1 To 10
a0=Fuori90(a0+mru(j,4)):a1=Fuori90(a1+mru(j,8))
Scrivi "colpo nr. "&pp&" ambate "&a0&"-"&a1
Next
Scrivi
Next
Scrivi
Scrivi "estraz.di fine ricerca nr "&fin&" del "& DataEstrazione(fin)
End Sub


Buona serata, ciao