'Gaussiana delle Frequenze Ambi Capogioco - Rubino
Sub Main()
Dim Nu(2),teo(90),teoru(15),Mediacicli(4,90),MINMAX(9999,3)
Dim N1,N2,Ini,dal,Fin,ambo,q,N,ru,riga,capog,ct,ctz,ctq,retro,riga2,max,des1,rtt,dif,min,medteo,des,deviazione,somma,sommat,I,Inx,gapt,al,det
Dim Classe,colonne,k,j,scolonna,s,y,v,Ritardo,RitardoMax,IncrRitMax,Frequenza,aRetRitardi,aRetIdEstr,rt1,rt2,svilfre,MEDIA,MEDIAT,Iny,ALTA,BASSA,cicli,ran
Dim qtateo,es,r,p,Sm,Medfre,systema,solo,rigaout,rigpre,MinimoRITARDO,key,Ord,ca,retestratti,retidestr,ctw,xb,elenco,rita,freqtot,rteomax,tfreq,retfre,qtsr,h
Dim nm(10),snr(90),Np(90)
' teo(1) = 0.0000000 0.00 ' teo(2) = 0.0000003 0.00 ' teo(3) = 0.0000026 0.00 ' teo(4) = 0.0000165 0.00
' teo(5) = 0.0000844 0.00 ' teo(6) = 0.0003584 0.02 ' teo(7) = 0.0013031 0.06 ' teo(8) = 0.0041422 0.19
' teo(9) = 0.0116917 0.53 ' teo(10) = 0.0296708 1.34 ' teo(11) = 0.0683834 3.08 ' teo(12) = 0.1443260 6.49
' teo(13) = 0.2808905 12.64 ' teo(14) = 0.5071134 22.82 ' teo(15) = 0.8536300 38.41 ' teo(16) = 1.3457516 60.56
' teo(17) = 1.9947571 89.76 ' teo(18) = 2.7896518 125.53 ' teo(19) = 3.6922139 166.15 ' teo(20) = 4.6377232 208.70
' teo(21) = 5.5423069 249.40 ' teo(22) = 6.3158170 284.21 ' teo(23) = 6.8773246 309.48 ' teo(24) = 7.1693834 322.62
' teo(25) = 7.1675474 322.54 ' teo(26) = 6.8830481 309.74 ' teo(27) = 6.3585042 286.13 ' teo(28) = 5.6583360 254.63
' teo(29) = 4.8566405 218.55 ' teo(30) = 4.0254357 181.14 ' teo(31) = 3.2255360 145.15 ' teo(32) = 2.5012359 112.56
' teo(33) = 1.8788627 84.55 ' teo(34) = 1.3684268 61.58 ' teo(35) = 0.9671851 43.52 ' teo(36) = 0.6639164 29.88
' teo(37) = 0.4429632 19.93 ' teo(38) = 0.2874679 12.94 ' teo(39) = 0.1815845 8.17 ' teo(40) = 0.1117175 5.03
' teo(41) = 0.0669865 3.01 ' teo(42) = 0.0391684 1.76 ' teo(43) = 0.0223466 1.01 ' teo(44) = 0.0124466 0.56
' teo(45) = 0.0067713 0.30 ' teo(46) = 0.0036000 0.16 ' teo(47) = 0.0018712 0.08 ' teo(48) = 0.0009514 0.04
' teo(49) = 0.0004733 0.02 ' teo(50) = 0.0002306 0.01 ' teo(51) = 0.0001100 0.00 ' teo(52) = 0.0000514 0.00
' teo(53) = 0.0000235 0.00 ' teo(54) = 0.0000106 0.00 ' teo(55) = 0.0000047 0.00 ' teo(56) = 0.0000020 0.00
' teo(57) = 0.0000009 0.00 ' teo(58) = 0.0000004 0.00 ' teo(59) = 0.0000001 0.00 ' teo(60) = 0.0000001 0.00
'----------------------------------------------------------------------------------------------------------------------------
' formula per calcolo teorico e MEDIA teorica in tot.estrazioni
' Nr.estrazioni lunghezza periodo estrazioni Base di calcolo esempio: 1000 estrazioni
' 4005 ambi tot. su tutte le ruote ne vengono estratti 100 ad ogni estrazione (4005/100) = 40,05 ciclo teorico estrazioni
' calcolo media = 1000estrazioni/40,05 ottengono 24,968789
'----------------------------------------------------------------------------------------------------------------------------
' nr.estrazioni 1000 18 numeri formano 153 ambi ciclo teorico = 1000/(4005/100)*153 risulta 26,17647059
' calcolo media = 1000/26,1764706 = 38,202247
'----------------------------------------------------------------------------------------------------------------------------
''''teorici su ruota fissa in 1000 estrazioni
teoru(0) = 7.285
teoru(1) = 8.256
teoru(2) = 22.851
teoru(3) = 19.050
teoru(4) = 11.899
teoru(5) = 5.940
teoru(6) = 2.468
teoru(7) = 0.878
teoru(8) = 0.273
teoru(9) = 0.075
teoru(10) = 0.019
teoru(11) = 0.004
teoru(12) = 0.001
teoru(13) = 0.001
teoru(14) = 0.001
teo(1) = 0.0000000
teo(2) = 0.0000003
teo(3) = 0.0000026
teo(4) = 0.0000165
teo(5) = 0.0000844
teo(6) = 0.0003584
teo(7) = 0.0013031
teo(8) = 0.0041422
teo(9) = 0.0116917
teo(10) = 0.0296708
teo(11) = 0.0683834
teo(12) = 0.1443260
teo(13) = 0.2808905
teo(14) = 0.5071134
teo(15) = 0.8536300
teo(16) = 1.3457516
teo(17) = 1.9947571
teo(18) = 2.7896518
teo(19) = 3.6922139
teo(20) = 4.6377232
teo(21) = 5.5423069
teo(22) = 6.3158170
teo(23) = 6.8773246
teo(24) = 7.1693834
teo(25) = 7.1675474
teo(26) = 6.8830481
teo(27) = 6.3585042
teo(28) = 5.6583360
teo(29) = 4.8566405
teo(30) = 4.0254357
teo(31) = 3.2255360
teo(32) = 2.5012359
teo(33) = 1.8788627
teo(34) = 1.3684268
teo(35) = 0.9671851
teo(36) = 0.6639164
teo(37) = 0.4429632
teo(38) = 0.2874679
teo(39) = 0.1815845
teo(40) = 0.1117175
teo(41) = 0.0669865
teo(42) = 0.0391684
teo(43) = 0.0223466
teo(44) = 0.0124466
teo(45) = 0.0067713
teo(46) = 0.0036000
teo(47) = 0.0018712
teo(48) = 0.0009514
teo(49) = 0.0004733
teo(50) = 0.0002306
teo(51) = 0.0001100
teo(52) = 0.0000514
teo(53) = 0.0000235
teo(54) = 0.0000106
teo(55) = 0.0000047
teo(56) = 0.0000020
teo(57) = 0.0000009
teo(58) = 0.0000004
teo(59) = 0.0000001
teo(60) = 0.0000001
ru = CInt(InputBox("Elabora su Ruota ",,1))
Fin = InputBox("All.estrazione n.",,EstrazioneFin)
solo = InputBox("Ruota Fissa oppure Tutte? RF/TT ",,"RF")
capog = CInt(InputBox("Capogioco richiesto ",,1))
svilfre = CInt(InputBox("Sviluppa ritardi frequenza..",,3))
Classe = CInt(InputBox("Sviluppo in classe..",,2))
s = InputBox(" Sorte di 1=Ambata 2=Ambo 3=Terno ",,2)
retro = CInt(InputBox("Statistica Ultime Estrazioni n.",,1000))
Ini = Fin - retro
det = InputBox("Vuoi dettaglio dei cicli? SI/NO",,"NO")
systema = InputBox("Vuoi sviluppo sistema in classi? SI/NO ",,"NO")
Ord = InputBox("Ordina colonna riepilogo 1=Freq.Reale 3=RitMINMAX ",,1)
ran =(Fin - 3950)*10
If solo = "RF" Then
s = 2
Classe = 2
End If
If ru = 11 Then
medteo = Round(1000/(4005/100),6)
qtateo = Round(medteo*89,2)
If Classe = 3 Then Medfre = 136.60465/2
If Classe = 4 Then Medfre = 69.89987/2
If Classe = 5 Then Medfre = 42.92650/2
Else
medteo = Round(1000/(4005/10),6)
qtateo = Round(medteo * 89,2)
If Classe = 3 Then Medfre = 136.60465/2
If Classe = 4 Then Medfre = 69.89987/2
If Classe = 5 Then Medfre = 42.92650/2
End If
'''----------------------------------------------------------------------------------------
'''Metodo - calcola presenze nei 70 concorsi precedenti dei 90 numeri
ReDim ar(1)
ar(1) = r
dal = Fin - 70
al = Fin
For r = 1 To 10 ''''
For es = dal To al
For p = 1 To 5 ''' considero gli estratti
Np(Estratto(es,r,p)) = Np(Estratto(es,r,p)) + 1
Next
Next
Next
'''----------------------------------------------------------------------------------------
For capog = 1 To 90
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,90,capog)
Messaggio(capog)
ReDim atitoli2(17),avalori2(17)
' preimposto i titoli delle colonne
atitoli2(1) = " Freq. "
atitoli2(2) = " "
atitoli2(3) = " Pres.Teor. "
atitoli2(4) = " Diff.1° "
atitoli2(5) = " 3ciclo pr. "
atitoli2(6) = " 2ciclo pr. "
atitoli2(7) = " 1ciclo pr. "
atitoli2(8) = " Reali pr.Att"
atitoli2(9) = " Media Centrata"
atitoli2(10) = " Diff.Reale "
atitoli2(11) = " E l e n c o A m b i "
atitoli2(12) = " SommaR."
atitoli2(13) = " Med.Rit"
atitoli2(14) = " Rit.Min"
atitoli2(15) = " Rifer. "
atitoli2(16) = " Freq.tot "
atitoli2(17) = " Rit.Teo.Max"
' ' inizializzo la tabella
SetTableWidth("95%")
Call InitTabella(atitoli2,2,"center",1.5,5,"Arial")
'-------------------------------------------------------------------------------
Ini = Fin -(4*retro) + 1
For cicli = 1 To 3
al = Ini + retro - 1
ct = 0
ctz = 0
riga = ""
riga2 = ""
min = 0
max = 0
ReDim fr(8990,1)
''''calcola frequenze reali 3 cicli precedenti
min = 999
For N1 = 1 To 89
Nu(1) = N1
For N2 = N1 + 1 To 90
Nu(2) = N2
If N1 = capog Or N2 = capog Then
ambo = Format2(N1) & Format2(N2)
rita = AmboRitardo(ru,Nu(1),Nu(2),EstrazioneIni,Fin)
If rita > 0 Then
fr(ambo,1) = rita
fr(ambo,0) = AmboFrequenza(ru,Nu(1),Nu(2),Ini,al)
If fr(ambo,0) < min Then
min = fr(ambo,0)
End If
If fr(ambo,0) > max Then
max = fr(ambo,0)
End If
End If
End If
Next
Next
''''calcola quanti numeri hanno frequenza breve uguale
ReDim Nr(90)
For q = min To max
riga = ""
ct = 0
ctz = 0
Sm = 0
For N1 = 1 To 89
For N2 = N1 + 1 To 90
ambo = Format2(N1) & Format2(N2)
If fr(ambo,0) = q Then
If N1 = capog Or N2 = capog Then
riga = riga & Format2(N1) & Format2(N2) & " | "
ct = ct + 1
ctz = ctz + 1
End If
End If
Next
Next
''''per gap di frequenza rigira nelle 2 freq.precedenti
If ct = 0 And ctz > 0 Or svilfre = q - 1 Then
riga2 = ""
For N1 = 1 To 89
For N2 = N1 + 1 To 90
ambo = Format2(N1) & Format2(N2)
If fr(ambo,0) = q - 1 Then
If N1 = capog Or N2 = capog Then
Nr(N1) = 1
Nr(N2) = 1
End If
End If
Next
Next
riga2 = riga2 & " gap prendo 2 freq.prec. "
End If
If ct > 0 Then
Mediacicli(cicli,q) = ct
Else
Mediacicli(cicli,q) = ct
End If
Next
Ini = Ini + retro
Next
'-------------------------------------------------------------------------------
''''calcola frequenza attuale ultimo ciclo all'estrazione fine
Ini = Fin - retro + 1
min = 999
For N1 = 1 To 89
Nu(1) = N1
For N2 = N1 + 1 To 90
Nu(2) = N2
If N2 = capog Or N1 = capog Then
ambo = Format2(N1) & Format2(N2)
fr(ambo,0) = AmboFrequenza(ru,Nu(1),Nu(2),Ini,Fin)
If fr(ambo,0) < min Then
min = fr(ambo,0)
End If
If fr(ambo,0) > max Then
max = fr(ambo,0)
End If
End If
Next
Next
'''''media A correzione presenze teoriche
If ru = 11 Then
Inx = min - 1
For Inx = Inx + 1 To max
Iny = Iny + 1
somma = somma + teo(Inx)
Next
Else
Inx = min - 1
For Inx = Inx + 1 To max
Iny = Iny + 1
somma = somma + teoru(Inx)
Next
End If
sommat = somma / Iny
ColoreTesto(2)
Scrivi " Rubino - Gaussiana Frequenza Ambi sulla ruota di " & NomeRuota(ru),1
ColoreTesto(1)
Scrivi " Ambi Aventi Capogioco.." & capog & " Attenzione colonne Giallo SottoPresenze ( Reale-Centrata ) = diff ",1
ColoreTesto(2)
Scrivi " Statistica CICLI Estrazioni n." & retro & " Attenzione colonne verde Plus Presenze ( Reale-Centrata ) = diff ",1
ColoreTesto(1)
Scrivi " Dall'estrazione n." & Ini & "/" & DataEstrazione(Ini) & " all.estrazione n." & Fin & "/" & DataEstrazione(Fin),1
Scrivi "----------------------------------------------------------------------------------",1
ColoreTesto(0)
Inx = 0 : MEDIAT = 0
''''calcola quanti numeri hanno frequenza breve uguale
ReDim Nr(90),anr(2),ar(1)
For q = min To max
riga = "" : ct = 0 : Sm = 0 : tfreq = 0
MinimoRITARDO = 99999
For N1 = 1 To 89
For N2 = N1 + 1 To 90
ambo = Format2(N1) & Format2(N2)
If fr(ambo,0) = q Then
If N2 = capog Or N1 = capog Then
riga = riga & Format2(N1) & Format2(N2) & " | "
ct = ct + 1
ctz = ctz + 1
Sm = Sm + Int(fr(ambo,1))
If Int(fr(ambo,1)) < MinimoRITARDO Then
MinimoRITARDO = Int(fr(ambo,1))
End If
End If
End If
Next
Next
''''per gap di frequenza rigira nelle 2 freq.precedenti
If ct = 0 And ctz > 0 Or svilfre = q - 1 Then
riga2 = "" : tfreq = 0
For N1 = 1 To 89
For N2 = N1 + 1 To 90
ambo = Format2(N1) & Format2(N2)
If fr(ambo,0) = q - 1 Then
If N2 = capog Or N1 = capog Then
anr(1) = N1 : anr(2) = N2: ar(1) = ru
Call StatisticaFormazioneTurbo(anr,ar,2,,,,retfre,3950,Fin)
tfreq = tfreq + retfre
riga2 = riga2 & Format2(N1) & Format2(N2) & " | "
Nr(N1) = 1
Nr(N2) = 1
End If
End If
Next
Next
End If
Inx = Inx + 1
MEDIAT = MEDIAT + Round(ct / 89,6) * 100
MEDIA = MEDIAT / Inx
ALTA = MEDIA * 2
BASSA = Round(MEDIA,6) - Round((deviazione * 2),6)
If ct = 0 And ctz > 0 Then
gapt = gapt + 1
avalori2(1) = Format2(q)
avalori2(2) = " "
If Int(ru) = 11 Then avalori2(3) = teo(q)
If Int(ru) <> 11 Then avalori2(3) = teoru(q)
avalori2(4) = ct - avalori2(3)
avalori2(5) = Mediacicli(1,q)
avalori2(6) = Mediacicli(2,q)
avalori2(7) = Mediacicli(3,q)
avalori2(8) = ct
avalori2(9) = Round((avalori2(5) + avalori2(6) + avalori2(7) + avalori2(8)) / 4,2)
avalori2(10) = Round(avalori2(8) - avalori2(9),2)
avalori2(11) = " gap prendo 2 freq.prec. "
avalori2(12) = 0
avalori2(13) = 0
avalori2(14) = 0
avalori2(15) = NomeRuota(ru) & "..." & capog
'''calcola frequenza totale delle combinazioni include in questa freq.
tfreq = 0
ReDim nrambi(90)
Call SplitByChar(riga," | ",nrambi)
qtsr = UBound(nrambi)
For h = 0 To ct
anr(1) = Left(nrambi(h),2) : anr(2) = Right(nrambi(h),2) :ar(1) = ru
Call StatisticaFormazioneTurbo(anr,ar,2,,,,retfre,3950,Fin)
tfreq = tfreq + retfre
''''''''''' Scrivi anr(1) & " " & anr(2) & "....." & SiglaRuota(ar(1)) & "........" & retfre
Next
avalori2(16) = tfreq
If tfreq > 0 Then
avalori2(17) = Round(1 /(tfreq/ran),1)
Else
avalori2(17) = 0
End If
Call AddRigaTabella(avalori2,Bianco_,"left",1)
Call SetColoreCella(11,RGB(252,255,193),vbBlack)
Call SetColoreCella(8,RGB(217,255,179),vbBlack)
Call SetColoreCella(13,RGB(217,255,179),vbBlack)
Call SetColoreCella(2,RGB(9,62,242),vbBlack)
If avalori2(10) > 0 Then
Call SetColoreCella(10,RGB(72,153,74),vbWhite)
Else
Call SetColoreCella(10,RGB(236,206,104),vbBlack)
End If
If avalori2(4) > 0 Then
Call SetColoreCella(4,RGB(72,153,74),vbWhite)
Else
Call SetColoreCella(4,RGB(252,254,160),vbBlack)
End If
Call SetColoreCella(13,RGB(217,255,179),vbBlack)
If avalori2(8) = 3 And avalori2(13) >= 175 Then
Call SetColoreCella(13,RGB(170,170,255),vbBlack)
End If
If avalori2(8) >= 4 And avalori2(13) >= 100 Then
Call SetColoreCella(13,RGB(170,170,255),vbBlack)
End If
Else
If ct > 0 Then
If Int(ru) = 11 Then dif = ct - teo(q)
If Int(ru) <> 11 Then dif = ct - teoru(q)
avalori2(1) = Format2(q)
avalori2(2) = " "
If ru = 11 Then avalori2(3) = teo(q)
If ru <> 11 Then avalori2(3) = teoru(q)
avalori2(4) = Round(dif,2)
avalori2(5) = Mediacicli(1,q)
avalori2(6) = Mediacicli(2,q)
avalori2(7) = Mediacicli(3,q)
avalori2(8) = ct
avalori2(9) = Round((avalori2(5) + avalori2(6) + avalori2(7) + avalori2(8)) / 4,2)
avalori2(10) = Round(avalori2(8) - avalori2(9),2)
avalori2(11) = riga
avalori2(12) = Sm
avalori2(14) = MinimoRITARDO
avalori2(15) = NomeRuota(ru) & "..." & capog
'''calcola frequenza totale delle combinazioni include in questa freq.
tfreq = 0
ReDim nrambi(90)
Call SplitByChar(riga," | ",nrambi)
qtsr = UBound(nrambi)
For h = 0 To ct
anr(1) = Left(nrambi(h),2) : anr(2) = Right(nrambi(h),2) :ar(1) = ru
Call StatisticaFormazioneTurbo(anr,ar,2,,,,retfre,3950,Fin)
tfreq = tfreq + retfre
'''''''''''''' Scrivi anr(1) & " " & anr(2) & "....." & SiglaRuota(ar(1)) & "........" & retfre
Next
avalori2(16) = tfreq
If tfreq > 0 Then
avalori2(17) = Round(1 /(tfreq/ran),1)
Else
avalori2(17) = 0
End If
If ct > 0 Then avalori2(13) = Round(Sm/Int(ct),2)
Call AddRigaTabella(avalori2,Bianco_,"left",1)
Call SetColoreCella(2,RGB(9,62,242),vbBlack)
Call SetColoreCella(11,RGB(252,255,193),vbBlack)
Call SetColoreCella(8,RGB(217,255,179),vbBlack)
If avalori2(10) > 0 Then
Call SetColoreCella(10,RGB(72,153,74),vbWhite)
Else
Call SetColoreCella(10,RGB(236,206,104),vbBlack)
End If
If avalori2(4) > 0 Then
Call SetColoreCella(4,RGB(72,153,74),vbWhite)
Else
Call SetColoreCella(4,RGB(236,206,104),vbBlack)
End If
Call SetColoreCella(13,RGB(217,255,179),vbBlack)
If avalori2(8) = 3 And avalori2(13) >= 175 Then
Call SetColoreCella(13,RGB(170,170,255),vbBlack)
End If
If avalori2(8) >= 4 And avalori2(13) >= 100 Then
Call SetColoreCella(13,RGB(170,170,255),vbBlack)
End If
''''''archiviazione ritardo minmax x fascia
key = Format2(q) & Format2(ct)
If MinimoRITARDO > MINMAX(key,1) Then
MINMAX(key,0) = Format2(q) & " | " & Format2(ct)
MINMAX(key,1) = MinimoRITARDO
MINMAX(key,2) = Format2(capog) & " " & SiglaRuota(ru)
MINMAX(key,3) = avalori2(10)
End If
ct = 0
End If
End If
Next
'''''-----------------------------------------------------------------------------
CreaTabella
''''riepilogo e sviluppo ambi derivanti da metodo gap
ct = 0
ReDim atitoli(11),avalori(11)
' preimposto i titoli delle colonne
atitoli(1) = " N u m e r i "
atitoli(2) = " Ruota "
atitoli(3) = " R.Cor."
atitoli(4) = " R.Sto "
atitoli(5) = " Incr. "
atitoli(6) = " Frequ "
atitoli(7) = " U.Rp1 "
atitoli(8) = " U.Rp2 "
atitoli(9) = " U.Rp3 "
atitoli(10) = " R.Tutte "
atitoli(11) = " Pres.Metodo "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli,2,"center",1.5,5,"Arial")
ColoreTesto(0)
rigaout = ""
rigpre = ""
For v = 1 To 90
If Nr(v) = 1 Then
snr(v) = Format2(v)
rigaout = rigaout & Format2(v) & " "
rigpre = rigpre & Format2(Np(v)) & " "
ctq = ctq + 1
End If
Next
If s = 1 Then
des = "Ambata"
End If
If s = 2 Then
des = "Ambo"
End If
If s = 3 Then
des = "Terno "
End If
If s = 4 Then
des = "Quaterna"
End If
ColoreTesto(0)
If ctq < 2 Then
ColoreTesto(2)
Scrivi " Nessun Gap in frequenza ",1
ColoreTesto(0)
Exit Sub
End If
''''--------------------------------------------------------------------------------------------------------------------
''''elaborare sistema sviluppato in classi
If systema = "SI" Or systema = "si" Then
Call Messaggio("Sviluppo Combinazione RF solo Ambo - TT classi Ambo ")
colonne = SviluppoIntegrale(snr,Classe)
For k = 1 To UBound(colonne)
scolonna = ""
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(colonne),k)
For j = 1 To Classe
scolonna = scolonna & Format2(colonne(k,j)) & " "
nm(j) = colonne(k,j)
Next
'Loop 10 ruote a coppie
If solo <> "RF" Then
For rt1 = 1 To 9
rt2 = rt1
For rt2 = rt2 + 1 To 10
If Classe = 2 And Int(nm(1)) = capog Or Classe = 2 And Int(nm(2)) = capog Or Classe = 3 And Int(nm(1)) = capog Or Classe = 3 And Int(nm(2)) = capog Or Classe = 3 And Int(nm(3)) = capog Or Classe = 4 And Int(nm(1)) = capog Or Classe = 4 And Int(nm(2)) = capog Or Classe = 4 And Int(nm(3)) = capog Or Classe = 4 And Int(nm(4)) = capog Then
rtt = AmboRitardo(11,nm(1),nm(2))
ReDim ar(2)
ar(1) = rt1
ar(2) = rt2
Call StatisticaFormazione(nm,ar,s,Ritardo,RitardoMax,IncrRitMax,Frequenza)
Call ElencoRitardi(nm,ar,s,EstrazioneIni,Fin,aRetRitardi,aRetIdEstr)
y = UBound(aRetRitardi)
ct = ct + 1
avalori(1) = scolonna
avalori(2) = SiglaRuota(rt1) & " " & SiglaRuota(rt2)
avalori(3) = Ritardo
avalori(4) = RitardoMax
avalori(5) = IncrRitMax
avalori(6) = Frequenza
If y >= 2 Then
avalori(7) = aRetRitardi(y - 1)
Else
avalori(7) = 0
End If
If y >= 3 Then
avalori(8) = aRetRitardi(y - 2)
Else
avalori(8) = 0
End If
If y >= 4 Then
avalori(9) = aRetRitardi(y - 3)
Else
avalori(9) = 0
End If
avalori(11) = Format2(Np(nm(1))) & " " & Format2(Np(nm(2))) & " " & Format2(Np(nm(3))) & " " & Format2(Np(nm(4)))
avalori(10) = rtt
Call AddRigaTabella(avalori,Bianco_,"center",1)
Call SetColoreCella(2,RGB(255,255,198),vbBlack)
Call SetColoreCella(3,RGB(255,255,198),vbBlack)
Call SetColoreCella(10,RGB(255,255,198),vbBlack)
If avalori(3) >= avalori(4) Then
Call SetColoreCella(3,RGB(179,202,255),vbBlack)
Call SetColoreCella(4,RGB(179,202,255),vbBlack)
End If
End If
Next
Next
Else
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(colonne),k)
rtt = AmboRitardo(11,nm(1),nm(2))
ReDim art(1)
art(1) = ru
Call StatisticaFormazione(nm,art,s,Ritardo,RitardoMax,IncrRitMax,Frequenza)
Call ElencoRitardi(nm,art,s,EstrazioneIni,Fin,aRetRitardi,aRetIdEstr)
y = UBound(aRetRitardi)
ct = ct + 1
avalori(1) = scolonna
avalori(2) = SiglaRuota(ru)
avalori(3) = Ritardo
avalori(4) = RitardoMax
avalori(5) = IncrRitMax
avalori(6) = Frequenza
If y >= 2 Then
avalori(7) = aRetRitardi(y - 1)
Else
avalori(7) = 0
End If
If y >= 3 Then
avalori(8) = aRetRitardi(y - 2)
Else
avalori(8) = 0
End If
If y >= 4 Then
avalori(9) = aRetRitardi(y - 3)
Else
avalori(9) = 0
End If
avalori(11) = Format2(Np(nm(1))) & " " & Format2(Np(nm(2)))
avalori(10) = rtt
Call AddRigaTabella(avalori,Bianco_,"center",1)
Call SetColoreCella(2,RGB(255,255,198),vbBlack)
Call SetColoreCella(3,RGB(255,255,198),vbBlack)
Call SetColoreCella(10,RGB(255,255,198),vbBlack)
If avalori(3) >= avalori(4) Then
Call SetColoreCella(3,RGB(179,202,255),vbBlack)
Call SetColoreCella(4,RGB(179,202,255),vbBlack)
End If
If Format2(Np(nm(1))) = Format2(Np(nm(2))) Then
Call SetColoreCella(11,RGB(131,203,50),vbBlack)
Call SetColoreCella(1,RGB(131,203,50),vbBlack)
End If
End If
Next
Call Messaggio(" Creazione Tabella e ordinamento : ATTENDERE ")
CreaTabella(3)
Scrivi " Totale combinazioni elaborate.." & ct,1
End If
Next ''''' loop per massa capogioco 01-90
''''riepilogo finale frequenza-pres.reali-minmax-ruota
ReDim atitoli3(7),avalori3(7),an(1),aru(1)
' preimposto i titoli delle colonne
atitoli3(1) = " Freq.|PReal"
atitoli3(2) = " Rit.MinMax "
atitoli3(3) = " Capogioco e Ruota "
atitoli3(4) = " Presenze "
atitoli3(5) = " Rit.Capog."
atitoli3(6) = " Diff.Reale"
atitoli3(7) = " E s i t o "
SetTableWidth("700px")
Call InitTabella(atitoli3,2,"center",1.6,5,"Arial")
For hh = 1 To 9999
If MINMAX(hh,1) > 0 Then
ca = Left(MINMAX(hh,2),2)
avalori3(1) = MINMAX(hh,0)
avalori3(2) = MINMAX(hh,1)
avalori3(3) = MINMAX(hh,2)
avalori3(4) = Np(ca)
avalori3(5) = EstrattoRitardo(ru,ca)
avalori3(6) = MINMAX(hh,3)
an(1) = ca :aru(1) = ru
Call VerificaEsitoTurbo(an,aru,Fin + 1,1,,,,,retestratti,retidestr)
If retestratti <> "" Then
avalori3(7) = retestratti & " cn." &(retidestr - Fin)
Else
avalori3(7) = ""
End If
Call AddRigaTabella(avalori3,Bianco_,"center",1)
If Int(Right(MINMAX(hh,0),2)) > 28 Then
Call SetColoreCella(1,RGB(91,146,75),vbWhite)
End If
xb = 0
If Int(MINMAX(hh,3)) >= 5 Then
Call SetColoreCella(6,RGB(0,126,187),vbWhite)
xb = 1
If avalori3(2) < 10 Then
xb = xb + 1
Call SetColoreCella(2,RGB(0,126,187),vbWhite)
End If
If avalori3(5) <= 10 Then
xb = xb + 1
Call SetColoreCella(3,RGB(255,255,128),vbBlack)
Call SetColoreCella(5,RGB(0,126,187),vbWhite)
Call SetColoreCella(7,RGB(255,255,128),vbBlack)
ctw = ctw + 1
End If
If xb = 3 Then elenco = elenco & avalori3(3) & " - "
End If
End If
Next
CreaTabella(Ord)
Scrivi:Scrivi " Formula presenze teoriche ambi con ritardo > 1000 x tutti i capogiochi : (10ambi*90cap) * (3996/4005)^1000) risultato è 95 ambi ",1
Scrivi " sommando per ogni capogioco gli ambi che superano i 1000 di ritardo si può vedere se il risultato presenze reali è maggiore del teorico..",1
Scrivi
ColoreTesto(1)
Scrivi " Trovate Totale combinazioni in giallo...." & ctw,1
Scrivi " Selezionare i numeri con 3 colonne colorate in blu.....capogiochi.." & elenco,1
ColoreTesto(0)
Scrivi"----------------------------------------------------------------",1
Scrivi "NB: Prendere 6 numeri capogiochi della fascia 0 : gli ultimi elencati nel riepilogo",1
Scrivi " Il motivo è che avendo un eccesso di sottopresenze di fascia, generalmente nei 20",1
Scrivi " concorsi successivi, generano ambi-terni e qualche quaterna a TUTTE.",1
Scrivi " i 6 numeri selezionati verranno associati ad altri 6+6 numeri derivanti dall'elaborazione",1
Scrivi " delle ruote fisse BA-CA-NA ",1
Scrivi " NOTA che nella medesima fascia dove vi sono capogiochi con medesime presenze, sono soggetti",1
Scrivi " a dare almeno 1 ambata in pochi colpi, a volte anche ambi secchi con presenze uguali",1
End Sub
