'Settine aventi Massimo storico <112 per terno su tutte (Cinzia)
Sub main()
Dim ru(1),nu(23),rt(23),rt1(23),fr(23),fr1(23)
w=3 'sorte
If w=4 Then ini=EstrazioneFin-3000
If w=3 Then ini=EstrazioneFin-150
For es=ini To EstrazioneFin-1
r=11
ru(1)=r
nu( 1 ) = Array(0, 54,66,67,74,78,81,89)
nu( 2 ) = Array(0, 1,3,32,40,68,69,70)
nu( 3 ) = Array(0, 1,5,13,23,63,85,90)
nu( 4 ) = Array(0, 30,35,44,48,60,64,86)
nu( 5 ) = Array(0, 31,35,47,60,69,85,86)
nu( 6 ) = Array(0, 31,40,42,51,57,66,68)
nu( 7 ) = Array(0, 37,53,58,74,79,84,85)
nu( 8 ) = Array(0, 44,45,48,68,72,76,88)
nu( 9 ) = Array(0, 1,6,9,19,50,82,84)
nu( 10 ) = Array(0, 30,34,38,53,69,71,76)
nu( 11 ) = Array(0, 30,35,48,60,61,64,74)
nu( 12 ) = Array(0, 30,36,47,49,74,83,89)
nu( 13 ) = Array(0, 32,34,37,45,51,82,84)
nu( 14 ) = Array(0, 32,37,45,51,54,76,85)
nu( 15 ) = Array(0, 35,38,49,74,76,79,85)
nu( 16 ) = Array(0, 38,42,47,59,60,68,78)
nu( 17 ) = Array(0, 1,3,8,13,66,73,76)
nu( 18 ) = Array(0, 30,49,53,71,84,87,90)
nu( 19 ) = Array(0, 33,35,40,68,69,81,86)
nu( 20 ) = Array(0, 33,40,41,48,66,69,76)
nu( 21 ) = Array(0, 35,61,65,80,83,85,90)
nu( 22 ) = Array(0, 40,45,71,77,78,83,87)
nu( 23 ) = Array(0, 43,54,60,70,73,86,90)
For c=1 To 23
If SerieFreq(es,es,nu(c),ru,w)>0 Then
If SerieFreq(es+1,EstrazioneFin-1,nu(c),ru,w)=0 Then
cc=cc+1
rt(c)=EstrazioneFin-es
rt1(c)=SerieRitardo(1,EstrazioneFin -rt(c)-1,nu(c),ru,w)
Scrivi FormatSpace(cc,4,1)&") "&FormatSpace(es,4,1)&") "&SiglaRuota(r)&" "&FormatSpace(StringaNumeri(nu(c)),8,4)_
&" rt pr "&FormatSpace(rt1(c),4,4)&" rt "&FormatSpace(rt(c),4,4)&"",0,0
fr(c)=SerieFreq(EstrazioneFin,EstrazioneFin,nu(c),ru,w)
If fr(c)>0 Then fre=fre+fr(c): ColoreTesto 2:Scrivi " sortiti "&fr(c) &" ",0,0
ColoreTesto 0
Scrivi
End If
End If
Next
Next
If fre>0 Then Scrivi " sortiti "& fre
If fre=0 Then Scrivi " sortiti 0"
End Sub
'Settine aventi Massimo storico <112 per terno su tutte (Cinzia)
Sub main()
Dim ru(1),nu(24),rt(24),rt1(24),fr(24),fr1(24),st(24)
w=3 'sorte
If w=4 Then ini=EstrazioneFin-3000
If w=3 Then ini=EstrazioneFin-150
If w=2 Then ini=EstrazioneFin-50
For es=ini To EstrazioneFin-1
r=11
ru(1)=r
nu( 1 ) = Array(0, 54,66,67,74,78,81,89)
nu( 2 ) = Array(0, 1,3,32,40,68,69,70)
nu( 3 ) = Array(0, 1,5,13,23,63,85,90)
nu( 4 ) = Array(0, 30,35,44,48,60,64,86)
nu( 5 ) = Array(0, 31,35,47,60,69,85,86)
nu( 6 ) = Array(0, 31,40,42,51,57,66,68)
nu( 7 ) = Array(0, 37,53,58,74,79,84,85)
nu( 8 ) = Array(0, 44,45,48,68,72,76,88)
nu( 9 ) = Array(0, 1,6,9,19,50,82,84)
nu( 10 ) = Array(0, 30,34,38,53,69,71,76)
nu( 11 ) = Array(0, 30,35,48,60,61,64,74)
nu( 12 ) = Array(0, 30,36,47,49,74,83,89)
nu( 13 ) = Array(0, 32,34,37,45,51,82,84)
nu( 14 ) = Array(0, 32,37,45,51,54,76,85)
nu( 15 ) = Array(0, 35,38,49,74,76,79,85)
nu( 16 ) = Array(0, 38,42,47,59,60,68,78)
nu( 17 ) = Array(0, 1,3,8,13,66,73,76)
nu( 18 ) = Array(0, 30,49,53,71,84,87,90)
nu( 19 ) = Array(0, 33,35,40,68,69,81,86)
nu( 20 ) = Array(0, 33,40,41,48,66,69,76)
nu( 21 ) = Array(0, 35,61,65,80,83,85,90)
nu( 22 ) = Array(0, 40,45,71,77,78,83,87)
nu( 23 ) = Array(0, 43,54,60,70,73,86,90)
nu( 24 ) = Array(0, 29,38,52,66,72,80,82)
For c=1 To 24
If SerieFreq(es,es,nu(c),ru,w)>0 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)
rt1(c)=SerieRitardo(1,EstrazioneFin -rt(c)-1,nu(c),ru,w)
Scrivi FormatSpace(cc,4,1)&") "&FormatSpace(es,4,1)&") "&SiglaRuota(r)&" "&FormatSpace(StringaNumeri(nu(c)),8,1)_
&" st "&FormatSpace(st(c),4,1)&" rt pr "&FormatSpace(rt1(c),4,4)&" rt "&FormatSpace(rt(c),4,1)&"",0,0
fr(c)=SerieFreq(EstrazioneFin,EstrazioneFin,nu(c),ru,w)
If fr(c)>0 Then fre=fre+fr(c): ColoreTesto 2:Scrivi " sortiti "&fr(c) &" ",0,0
ColoreTesto 0
Scrivi
End If
End If
Next
Next
If fre>0 Then Scrivi " sortiti "& fre
If fre=0 Then Scrivi " sortiti 0"
End Sub
'Settine aventi Massimo storico <110 per terno su tutte (Cinzia)
Sub main()
Dim ru(1),nu(11),rt(11),rt1(11),fr(11),fr1(11),st(11)
w=3 'sorte
If w=4 Then ini=EstrazioneFin-3000
If w=3 Then ini=EstrazioneFin-150
If w=2 Then ini=EstrazioneFin-50
For es=ini To EstrazioneFin-1
r=11
ru(1)=r
nu( 1 ) = Array(0, 54,66,67,74,78,81,89 )
nu( 2 ) = Array(0, 01,03,32,40,68,69,70 )
nu( 3 ) = Array(0, 01,05,13,23,63,85,90 )
nu( 4 ) = Array(0, 27,30,48,57,62,74,82 )
nu( 5 ) = Array(0, 27,32,37,40,68,82,86 )
nu( 6 ) = Array(0, 29,38,52,66,72,80,82 )
nu( 7 ) = Array(0, 30,35,44,48,60,64,86 )
nu( 8 ) = Array(0, 31,35,47,60,69,85,86 )
nu( 9 ) = Array(0, 31,40,42,51,57,66,68 )
nu( 10 ) = Array(0, 37,53,58,74,79,84,85 )
nu( 11 ) = Array(0, 44,45,48,68,72,76,88 )
For c=1 To 11
If SerieFreq(es,es,nu(c),ru,w)>0 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)
rt1(c)=SerieRitardo(1,EstrazioneFin -rt(c)-1,nu(c),ru,w)
Scrivi FormatSpace(cc,4,1)&") "&FormatSpace(es,4,1)&") "&SiglaRuota(r)&" "&FormatSpace(StringaNumeri(nu(c)),8,1)_
&" st "&FormatSpace(st(c),4,1)&" rt pr "&FormatSpace(rt1(c),4,4)&" rt "&FormatSpace(rt(c),4,1)&"",0,0
fr(c)=SerieFreq(EstrazioneFin,EstrazioneFin,nu(c),ru,w)
If fr(c)>0 Then fre=fre+fr(c): ColoreTesto 2:Scrivi " sortiti "&fr(c) &" ",0,0
ColoreTesto 0
Scrivi
End If
End If
Next
Next
If fre>0 Then Scrivi " sortiti "& fre
If fre=0 Then Scrivi " sortiti 0"
End Sub