'Sistema 47ine rs0 tratta da 49ina Tom
Sub main()
Dim ru(1),nu(36),rt(36),rt1(36),fr(36),fr1(36),fre(36),st(36),dif(36)
w=4
'sorte
If w=3 Then ini=9975
If w=2 Then ini=9927
If w=1 Then ini=EstrazioneFin-10
For es=ini To EstrazioneFin-1
co=co+1
r=11
ru(1)=r
nu( 1 ) = Array(0, 18,20,21,35,43,54,61,74,80,88 )
nu( 2 ) = Array(0, 02,17,20,37,42,44,57,66,68,80 )
nu( 3 ) = Array(0, 02,05,18,28,37,65,66,71,80,85 )
nu( 4 ) = Array(0, 05,16,35,37,43,44,57,65,83,87 )
nu( 5 ) = Array(0, 05,10,31,36,44,51,54,57,74,77 )
nu( 6 ) = Array(0, 10,16,24,29,31,40,51,61,65,83 )
nu( 7 ) = Array(0, 10,12,18,31,42,43,48,51,61,71 )
nu( 8 ) = Array(0, 15,20,22,29,36,39,40,54,66,88 )
nu( 9 ) = Array(0, 12,20,28,35,48,77,80,83,87,90 )
nu( 10 ) = Array(0, 28,29,37,40,43,52,71,74,82,90 )
nu( 11 ) = Array(0, 02,15,22,35,42,47,52,53,82,83 )
nu( 12 ) = Array(0, 05,10,20,31,37,41,47,51,53,78 )
nu( 13 ) = Array(0, 21,39,40,42,47,53,66,74,80,87 )
nu( 14 ) = Array(0, 05,10,15,17,22,31,37,51,80,87 )
nu( 15 ) = Array(0, 10,21,31,51,52,68,82,85,87,88 )
nu( 16 ) = Array(0, 06,16,20,52,54,65,66,74,80,82 )
nu( 17 ) = Array(0, 05,06,12,17,40,47,48,66,83,85 )
nu( 18 ) = Array(0, 12,18,29,39,44,47,48,53,57,88 )
nu( 19 ) = Array(0, 02,05,06,37,39,61,77,82,87,88 )
nu( 20 ) = Array(0, 16,17,20,24,35,44,57,71,85,88 )
nu( 21 ) = Array(0, 12,15,22,24,41,48,61,74,78,85 )
nu( 22 ) = Array(0, 06,17,24,28,36,37,42,65,80,82 )
nu( 23 ) = Array(0, 02,12,16,21,36,37,47,48,54,82 )
nu( 24 ) = Array(0, 17,18,24,36,43,52,66,77,83,87 )
nu( 25 ) = Array(0, 02,06,10,28,31,35,39,51,66,90 )
nu( 26 ) = Array(0, 17,18,41,44,52,57,61,66,78,82 )
nu( 27 ) = Array(0, 15,16,22,43,47,53,65,68,71,77 )
nu( 28 ) = Array(0, 02,29,35,40,41,68,74,77,78,80 )
nu( 29 ) = Array(0, 05,12,17,39,48,52,65,68,74,83 )
nu( 30 ) = Array(0, 06,29,36,39,41,43,54,71,78,87 )
nu( 31 ) = Array(0, 06,16,18,21,24,39,52,53,68,85 )
nu( 32 ) = Array(0, 05,17,21,29,42,54,71,77,83,85 )
nu( 33 ) = Array(0, 16,21,28,41,42,65,78,83,88,90 )
nu( 34 ) = Array(0, 17,24,28,36,47,53,54,61,68,90 )
nu( 35 ) = Array(0, 02,05,24,35,36,37,43,85,88,90 )
nu( 36 ) = Array(0, 06,15,18,21,22,28,40,44,57,90 )
For c=1 To 36
OrdinaMatrice nu(c)
If SerieFreq(es,es,nu(c),ru,w)>0 Then
'If SerieFreq(EstrazioneFin-1,EstrazioneFin-1,nu(c),ru,1)>3 Then
If SerieFreq(es+1,EstrazioneFin-1,nu(c),ru,w)=0 Then
cc=cc+1
rt(c)=EstrazioneFin-es
st(c)=SerieStorico(1,EstrazioneFin-1,nu(c),ru,w)
dif(c)=st(c)-rt(c)
'If rt(c)<st(c) Then
rt1(c)=SerieRitardo(1,EstrazioneFin -rt(c)-1,nu(c),ru,w)
fre(c)=SerieFreq(1,EstrazioneFin -1,nu(c),ru,w)
Scrivi FormatSpace(cc,4,1)&") "& DataEstrazione (es)&") "&FormatSpace(es,5,1)&") "&SiglaRuota(r)&" "&FormatSpace(StringaNumeri(nu(c)),8,1)_
&" fr "&FormatSpace(fre(c),4,1)&" st "&FormatSpace(st(c),4,1)&" rt pr "&FormatSpace(rt1(c),4,4)&" rt "&FormatSpace(rt(c),4,1)&" diff "&FormatSpace(dif(c),4,1)&" ",0,0'&" cl "&FormatSpace(co,4,1)
co=0
fr(c)=SerieFreq(EstrazioneFin,EstrazioneFin,nu(c),ru,w)
If fr(c)>0 Then fre1=fre1+fr(c): ColoreTesto 2: Scrivi " sortiti "&fr(c) Else Scrivi
'For ex=1 To EstrazioneFin-1
'If SerieFreq(ex,ex,nu(c),ru,w)>0 Then
'rtx(c)=SerieRitardo(1,ex-1,nu(c),ru,w)
'OrdinaMatrice rtx(c)
'ColoreTesto 1
'Scrivi " "&FormatSpace(rtx(c),3,1)&"",0,0
'End If
'Next
ColoreTesto 0
End If
End If
'End If
Next
Next
If fre1>0 Then Scrivi " sortiti "& fre1
If fre1=0 Then Scrivi " sortiti 0"
End Sub