'Decine 10-3-3 - sistema Nikor -39ina ricavata da ricerca con Tom - script Cinzia27
Sub Main()
Dim ru(2),nu(104),rt(104),rt1(104),fr(104),fr1(104),fre(104),st(104)
w=3 'sorte
If w=3 Then ini=1007
If w=2 Then ini=10049
If w=4 Then ini=8964
For es=ini To EstrazioneFin-1
co=co+1
r=11
r1=12
ru(1)=r
ru(2)=r1
nu(1 )=Array(0,02,05,06,10,12,16,21,22,29,31 )
nu(2 )=Array(0,02,05,06,10,15,28,42,43,47,52 )
nu(3 )=Array(0,02,05,06,10,35,54,57,61,65,88 )
nu(4 )=Array(0,02,05,06,10,37,39,40,41,77,85 )
nu(5 )=Array(0,02,05,06,10,37,39,40,41,80,83 )
nu(6 )=Array(0,02,05,06,10,66,68,71,74,87,90 )
nu(7 )=Array(0,02,05,06,12,15,16,17,18,24,29 )
nu(8 )=Array(0,02,05,10,15,17,18,21,22,24,31 )
nu(9 )=Array(0,02,06,10,66,68,71,74,87,88,90 )
nu(10 )=Array(0,02,12,15,16,18,21,22,24,28,35 )
nu(11 )=Array(0,02,12,18,28,37,42,54,66,77,87 )
nu(12 )=Array(0,02,12,18,28,39,43,57,68,80,85 )
nu(13 )=Array(0,02,12,18,28,40,47,61,71,80,88 )
nu(14 )=Array(0,02,12,18,28,41,52,65,74,83,90 )
nu(15 )=Array(0,02,15,24,31,37,43,65,71,77,88 )
nu(16 )=Array(0,02,15,24,31,39,42,61,74,85,90 )
nu(17 )=Array(0,02,15,24,31,40,52,57,66,80,87 )
nu(18 )=Array(0,02,15,24,31,41,47,54,68,83,85 )
nu(19 )=Array(0,02,16,21,35,37,47,57,74,77,90 )
nu(20 )=Array(0,02,16,21,35,39,52,54,71,85,88 )
nu(21 )=Array(0,02,16,21,35,40,42,65,68,77,80 )
nu(22 )=Array(0,02,16,21,35,41,43,61,66,83,87 )
nu(23 )=Array(0,02,17,22,29,37,52,61,68,77,83 )
nu(24 )=Array(0,02,17,22,29,39,47,65,66,85,87 )
nu(25 )=Array(0,02,17,22,29,40,43,54,74,80,90 )
nu(26 )=Array(0,02,17,22,29,41,42,57,71,83,88 )
nu(27 )=Array(0,02,17,28,29,31,35,37,39,40,41 )
nu(28 )=Array(0,05,12,16,17,18,21,22,24,28,35 )
nu(29 )=Array(0,05,12,22,35,37,43,65,71,83,85 )
nu(30 )=Array(0,05,12,22,35,39,42,61,74,80,87 )
nu(31 )=Array(0,05,12,22,35,40,52,57,66,85,90 )
nu(32 )=Array(0,05,12,22,35,41,47,54,68,77,88 )
nu(33 )=Array(0,05,15,21,29,37,42,54,66,83,90 )
nu(34 )=Array(0,05,15,21,29,39,43,57,68,80,88 )
nu(35 )=Array(0,05,15,21,29,40,47,61,71,80,85 )
nu(36 )=Array(0,05,15,21,29,41,52,65,74,77,87 )
nu(37 )=Array(0,05,15,35,77,80,83,85,87,88,90 )
nu(38 )=Array(0,05,16,24,28,37,52,61,68,83,88 )
nu(39 )=Array(0,05,16,24,28,39,47,65,66,80,90 )
nu(40 )=Array(0,05,16,24,28,40,43,54,74,85,87 )
nu(41 )=Array(0,05,16,24,28,41,42,57,71,77,83 )
nu(42 )=Array(0,05,17,18,31,37,47,57,74,83,87 )
nu(43 )=Array(0,05,17,18,31,39,52,54,71,77,80 )
nu(44 )=Array(0,05,17,18,31,40,42,65,68,85,88 )
nu(45 )=Array(0,05,17,18,31,41,43,61,66,77,90 )
nu(46 )=Array(0,05,28,29,31,35,66,68,71,74,88 )
nu(47 )=Array(0,06,10,12,16,18,24,28,29,31,35 )
nu(48 )=Array(0,06,10,15,17,21,22,28,29,31,35 )
nu(49 )=Array(0,06,12,24,29,37,47,57,74,85,88 )
nu(50 )=Array(0,06,12,24,29,39,52,54,71,77,90 )
nu(51 )=Array(0,06,12,24,29,40,42,65,68,83,87 )
nu(52 )=Array(0,06,12,24,29,41,43,61,66,77,80 )
nu(53 )=Array(0,06,15,18,35,37,52,61,68,85,87 )
nu(54 )=Array(0,06,15,18,35,39,47,65,66,77,83 )
nu(55 )=Array(0,06,15,18,35,40,43,54,74,83,88 )
nu(56 )=Array(0,06,15,18,35,41,42,57,71,80,90 )
nu(57 )=Array(0,06,16,22,31,37,42,54,66,80,85 )
nu(58 )=Array(0,06,16,22,31,39,43,57,68,77,87 )
nu(59 )=Array(0,06,16,22,31,40,47,61,71,83,90 )
nu(60 )=Array(0,06,16,22,31,41,52,65,74,80,88 )
nu(61 )=Array(0,06,17,21,28,37,43,65,71,85,90 )
nu(62 )=Array(0,06,17,21,28,39,42,61,74,77,88 )
nu(63 )=Array(0,06,17,21,28,40,52,57,66,83,85 )
nu(64 )=Array(0,06,17,21,28,41,47,54,68,80,87 )
nu(65 )=Array(0,06,18,21,22,24,29,54,57,61,65 )
nu(66 )=Array(0,10,12,15,16,17,31,66,68,71,74 )
nu(67 )=Array(0,10,12,21,31,37,52,61,68,80,90 )
nu(68 )=Array(0,10,12,21,31,39,47,65,66,83,88 )
nu(69 )=Array(0,10,12,21,31,40,43,54,74,77,83 )
nu(70 )=Array(0,10,12,21,31,41,42,57,71,85,87 )
nu(71 )=Array(0,10,15,22,28,37,47,57,74,77,80 )
nu(72 )=Array(0,10,15,22,28,39,52,54,71,83,87 )
nu(73 )=Array(0,10,15,22,28,40,42,65,68,77,90 )
nu(74 )=Array(0,10,15,22,28,41,43,61,66,85,88 )
nu(75 )=Array(0,10,16,18,29,37,43,65,71,80,87 )
nu(76 )=Array(0,10,16,18,29,39,42,61,74,83,85 )
nu(77 )=Array(0,10,16,18,29,40,52,57,66,77,88 )
nu(78 )=Array(0,10,16,18,29,41,47,54,68,85,90 )
nu(79 )=Array(0,10,17,24,35,37,42,54,66,80,88 )
nu(80 )=Array(0,10,17,24,35,39,43,57,68,83,90 )
nu(81 )=Array(0,10,17,24,35,40,47,61,71,77,87 )
nu(82 )=Array(0,10,17,24,35,41,52,65,74,80,85 )
nu(83 )=Array(0,12,15,16,17,37,39,40,41,88,90 )
nu(84 )=Array(0,12,15,16,17,42,43,47,52,87,88 )
nu(85 )=Array(0,12,15,16,17,42,43,47,52,87,90 )
nu(86 )=Array(0,12,15,16,17,54,57,61,65,77,85 )
nu(87 )=Array(0,12,15,16,17,54,57,61,65,80,83 )
nu(88 )=Array(0,18,21,22,24,37,39,40,41,87,88 )
nu(89 )=Array(0,18,21,22,24,37,39,40,41,87,90 )
nu(90 )=Array(0,18,21,22,24,42,43,47,52,88,90 )
nu(91 )=Array(0,18,21,22,24,66,68,71,74,77,85 )
nu(92 )=Array(0,18,21,22,24,66,68,71,74,80,83 )
nu(93 )=Array(0,28,29,31,35,42,43,47,52,77,85 )
nu(94 )=Array(0,28,29,31,35,42,43,47,52,80,83 )
nu(95 )=Array(0,28,29,31,35,54,57,61,65,87,90 )
nu(96 )=Array(0,28,29,31,54,57,61,65,87,88,90 )
nu(97 )=Array(0,37,39,40,41,43,52,54,57,66,68 )
nu(98 )=Array(0,37,39,40,41,47,54,57,61,71,74 )
nu(99 )=Array(0,37,39,40,42,47,52,57,65,66,74 )
nu(100)=Array(0,37,40,41,42,43,47,54,65,68,74 )
nu(101)=Array(0,37,40,42,43,52,61,65,66,68,71 )
nu(102)=Array(0,39,41,42,52,54,57,61,65,66,71 )
nu(103)=Array(0,39,42,43,47,57,61,65,68,71,74 )
nu(104)=Array(0,41,43,47,52,54,61,66,68,71,74 )
For c=1 To 104
OrdinaMatrice nu(c),1
If ScriptInterrotto Then Exit For
If SerieFreqTurbo(es,es,nu(c),ru,w)>0 Then
If SerieFreqTurbo(es+1,EstrazioneFin-1,nu(c),ru,w)=0 Then
cc=cc+1
rt(c)=EstrazioneFin-es
st(c)=SerieStoricoTurbo(1,EstrazioneFin-1,nu(c),ru,w)
rt1(c)=SerieRitardoTurbo(1,EstrazioneFin -rt(c)-1,nu(c),ru,w)
fre(c)=SerieFreqTurbo(1,EstrazioneFin -1,nu(c),ru,w)
Messaggio FormatSpace(cc,4,1)&") "& DataEstrazione (es)&") "&FormatSpace(es,5,1)&") "&SiglaRuota(r)&" "&SiglaRuota(r1)&" "&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)
Scrivi FormatSpace(cc,4,1)&") "& DataEstrazione (es)&") "&FormatSpace(es,5,1)&") "&SiglaRuota(r)&" "&SiglaRuota(r1)&" "&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)&" ",0,0
fr(c)=SerieFreqTurbo(EstrazioneFin,EstrazioneFin,nu(c),ru,w)
If fr(c)>0 Then fre1=fre1+fr(c): ColoreTesto 2: Scrivi " sortiti "&fr(c) Else Scrivi
ColoreTesto 0
End If
End If
Next
Next
Scrivi
If fre1>0 Then Scrivi " sortiti "& fre1
If fre1=0 Then Scrivi " sortiti 0"
End Sub