| se può servire a qualcuno, ho questo, ma non contempla le posizioni perchè il mio archivio ha i 6 estratti in forma progressiva dal piu' piccolo al piu' alto della sestina estratta. è sempre uno script per il programma spaziometria. siccome ha qualche anno, necessita di una revisione vedi sincr.livello, Legge del Terzo su piu' cicli nelle posizioni da 1 a 6, sicuramente con l'archivio reale di come viene estratto dalle VENUS nelle 6 posizioni. ed altre cosette, soggettive ma comunque che possono avere un certo interesse nei dati presentati. CODICE Sub Main
Dim n,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine,riga,x,y,rit,riga1,riga2,riga3,z,k,aRetRitardi,aRetIdEstr,rita,xqt,xq,teo,trenta,teo90,ctnpr,filtro,t,last
Dim retesito,retcolpi,retestratti,retidestr,es,f,q,fin1,fin2,fin3,fin4,qz,e,f1,el,qw,re,disce,asce,yy,lastult,CICLOAMBIVERGINI,DAL,nu
Dim colonne,scolonna,classe,s,j,ww,u,jj,rigaout,h1,h0
Dim fr4(90),numeri(90),vergini(9999),cap(90,2),rigav(6,90)
k = 1
f = EstrazioniArchivioSE
Fine = InputBox("Estrazione n.",,f)
fin1 = Fine - 89
CICLOAMBIVERGINI = 380
ColoreTesto 1
Scrivi " Tabellone ritardi SUPERENALOTTO AL CONCORSO n. " & Fine & "/" & DataEstrazioneSE(Fine) & "......ult.estr.archivio..." & f,1
Scrivi " Sestina Orig. Elenco Ritardi ",1
Scrivi "Rit. Estratti Stella Teo6 Teo90 Rea90 Numeri Ritardo Rit.Min. / Rit.Max 10 09 08 07 06 05 04 03 02 01 "
ColoreTesto 0
ReDim aNum(90),stella(90),an(90),en(1)
For k = 1 To Fine
''' calcola RitardoCombinazione
For n = 1 To 90
aNum(n) = aNum(n) + 1
stella(n) = stella(n) + 1
Next
aNum(EstrattoSE(k,1)) = 0
aNum(EstrattoSE(k,2)) = 0
aNum(EstrattoSE(k,3)) = 0
aNum(EstrattoSE(k,4)) = 0
aNum(EstrattoSE(k,5)) = 0
aNum(EstrattoSE(k,6)) = 0
stella(EstrattoSE(k,8)) = 0
'''''''''''''''''
If k >= fin1 Then
fr4(EstrattoSE(k,1)) = fr4(EstrattoSE(k,1)) + 1
fr4(EstrattoSE(k,2)) = fr4(EstrattoSE(k,2)) + 1
fr4(EstrattoSE(k,3)) = fr4(EstrattoSE(k,3)) + 1
fr4(EstrattoSE(k,4)) = fr4(EstrattoSE(k,4)) + 1
fr4(EstrattoSE(k,5)) = fr4(EstrattoSE(k,5)) + 1
fr4(EstrattoSE(k,6)) = fr4(EstrattoSE(k,6)) + 1
End If
'''''''''''''''''
Next
''' riepilogo inserisci in tabella numeri con uguale ritardo per tabellone
For x = 0 To 200
riga = ""
For y = 1 To 90
If x = aNum(y) Then
riga = riga & Format2(y) & " "
ctnpr = ctnpr + 1
End If
Next
If x < 10 Then
rit = "00" & x
End If
If x > 9 And x < 100 Then
rit = "0" & x
End If
If x > 99 Then
rit = x
End If
ReDim Orig(8)
Orig(1) = Format2(EstrattoSE(Fine - x,1))
Orig(2) = Format2(EstrattoSE(Fine - x,2))
Orig(3) = Format2(EstrattoSE(Fine - x,3))
Orig(4) = Format2(EstrattoSE(Fine - x,4))
Orig(5) = Format2(EstrattoSE(Fine - x,5))
Orig(6) = Format2(EstrattoSE(Fine - x,6))
Orig(8) = Format2(EstrattoSE(Fine - x,8))
Call StatisticaFormazioneSE(Orig,1,Ritardo,RitardoMax,IncrRitMax,Frequenza,Fine - 360,Fine)
riga1 = FormatSpace(riga,20) : riga2 = FormatSpace(Ritardo,5) : riga3 = FormatSpace(RitardoMax,1)
'''elenco ritardi
Call ElencoRitardiSE(Orig,1,Fine - 360,Fine,aRetRitardi,aRetIdEstr)
xqt = UBound(aRetRitardi)
xq = xqt - 11 : rita = ""
For xq = xq + 1 To xqt - 1
rita = rita & Format2(aRetRitardi(xq)) & "."
Next
teo =((14/15)^rit)*6
teo90 =((14/15)^rit)*90
trenta = ""
For y = 1 To 90
If Int(aNum(y)) >= 31 Then
trenta = trenta & Format2(y) & "."
End If
Next
If riga <> "" Then
Scrivi rit & "......" & Format2(EstrattoSE(Fine - x,1)) & " " & Format2(EstrattoSE(Fine - x,2)) & " " & Format2(EstrattoSE(Fine - x,3)) & " " & Format2(EstrattoSE(Fine - x,4)) & " " & Format2(EstrattoSE(Fine - x,5)) & " " & Format2(EstrattoSE(Fine - x,6)) & " ( " & Format2(EstrattoSE(Fine - x,8)) & " ) " & " " & FormattaStringa(teo,"0.0") & " " & FormattaStringa(teo90,"00.00") & " " & Format2(90 - ctnpr) & " " & riga1 & " " & riga2 & " / " & FormatSpace(riga3,5) & " " & rita
''''accumula estratti usciti verticali nelle 6 posizioni
rigav(1,Orig(1)) = Orig(1)
rigav(2,Orig(2)) = Orig(2)
rigav(3,Orig(3)) = Orig(3)
rigav(4,Orig(4)) = Orig(4)
rigav(5,Orig(5)) = Orig(5)
rigav(6,Orig(6)) = Orig(6)
''''
If(90 - ctnpr) >= teo90 Then
ReDim av(20),av5(90)
Call SplitByChar(riga1," ",av)
last = UBound(av)
For t = 0 To last - 1
If av(t) <> "" Then
av5(t + 1) = av(t)
q = q + 1
an(q) = av(t)
End If
Next
filtro = filtro & StringaNumeri(av5,".") & "."
End If
End If
Next
'''''''''''''''''''''''
Scrivi " Riepilogo delle 6 colonne con estratti usciti raggruppati",1
For h1 = 1 To 6
rigaout = ""
For h0 = 1 To 90
If rigav(h1,h0) > 0 Then
rigaout = rigaout & Format2(rigav(h1,h0)) & "."
End If
Next
Scrivi rigaout
Next
'''
Scrivi "--------------------------------------------------",1
Scrivi " G a u s s i a n a Classi Freq. n.Presenze AL CONCORSO n. " & Fine,1
'''''''''''''''''''''''
''''scrivi output gaussiana frequenza 4 periodi
For qz = 0 To 150
el = "" : qw = 0
For qw = 1 To 90
If fr4(qw) = qz Then
el = el & Format2(qw) & "."
End If
Next
If el <> "" Then Scrivi FormattaStringa(qz,"000") & "....." & el
Next
ColoreTesto(1)
Scrivi "------------------------------------------------",1
Scrivi "Numeri...rea90>teo90....." & filtro & " filtrati Tot.nr." & q,1
es = Fine
For es = es + 1 To Fine + 13
Call VerificaEsitoSE(an,es,1,1,retesito,retcolpi,retestratti,retidestr)
If retesito <> "" And retestratti <> " " Then
Scrivi "------> " & retidestr & "....colpo n. " & Format2(es - Fine) & " ..." & retestratti & " ...." & retesito,1
End If
Next
ColoreTesto(2)
Scrivi "-----------------------------------------------------------------------------------------------",1
Scrivi " L e g g e D e l T e r z o ",1
Scrivi " Numeri aventi ritardo superiore a 30...." & trenta,1
Scrivi " Si prevede che i 2 terzi di questi Numeri verranno estratti nel prossimo ciclo di 15 concorsi.",1
Scrivi "-----------------------------------------------------------------------------------------------",1
ColoreTesto(1)
Scrivi "--------------------------------------------",1
Scrivi " RIEPILOGO STELLA e ritardo ",1
Scrivi "--------------------------------------------",1
ColoreTesto(0)
For z = 1 To 90
Scrivi Format2(z) & "...." & stella(z)
Next
End Sub |
