Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
Dim nu(1),ru(1)
kl = CInt(InputBox("DIFFERENZA NELLA CICLICITA'",,2))
er = CInt(InputBox("Estrazioni a ritroso",,4))
cicli = CInt(InputBox(" QUANTI CICLI = > ",,2))
Ini = EstrazioneFin - 500
fin = EstrazioneFin
Scrivi "Cicilità dei numeri Futuri Estraendi *** con differenza ciclicità = " & kl & " **** Script By Mike58 **** ",1,1,7,5,3
Scrivi "Filtro cicli => " & cicli,1
Scrivi "Estrazioni a ritroso..." & er,1,1,,1,2
Scrivi "I numeri evidenziati nel Ritardo corrente sono usciti in verifica da estrazione a ritroso a Fine "
Scrivi
Scrivi "Leggenda : Rp = Ritardo Precedente , Rcr = Ritardo Cronologico , Ciclità = Ritardo x n. ciclo ",1
'r = InputBox("QUALE RUOTA",,1)
For r = 1 To 12
If r = 11 Then r = 12
ReDim T(20)
T(1) = " Numeri "
T(2) = " Ruota "
T(3) = " Ritardo "
T(4) = " Freq "
T(5) = " Rit. Max "
T(6) = " Incr "
T(7) = " Rp1 - Rcr - cicl,tà "
T(8) = " Rp2 "
T(9) = " Rp3 "
T(10) = " Rp4 "
T(11) = " Rp5 "
T(12) = " Rp6 "
T(13) = " Rp7 "
T(14) = " Rp8 "
T(15) = " Rp9 "
T(16) = " Rp10 "
T(17) = " SM Rit "
T(18) = " Md Rit "
T(19) = " Cicli "
Call InitTabella(T,1,,2,5)
'For es = Ini To fin
For x = 1 To 90
nu(1) = x
ru(1) = r
Call StatisticaFormazioneTurbo(nu,ru,1,rit,max,Incr,fre,Ini,(fin))
'elenco ritardi precedenti
ReDim rp(11)
Inizio = EstrazioneIni
fine = Fin - er
somrit = 0
For z = 1 To 11
rp(z) = SerieRitardoTurbo(Inizio,fine,nu,ru,1)
fine = fine -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
Next
' fine calcolo
ReDim V(20)
V(1) = x
V(2) = SiglaRuota(r)
V(3) = rit
V(4) = fre
V(5) = max
V(6) = Incr
V(7) = rp(2) & " " & rp(2) + rp(1) & " " & rp(1)*2
V(8) = rp(3) & " " & rp(2) + rp(1) + rp(3) & " " & rp(1)*3
V(9) = rp(4) & " " & rp(2) + rp(1) + rp(3) + rp(4) & " " & rp(1)*4
V(10) = rp(5) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) & " " & rp(1)*5
V(11) = rp(6) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) & " " & rp(1)*6
V(12) = rp(7) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) & " " & rp(1)*7
V(13) = rp(8) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) & " " & rp(1)*8
V(14) = rp(9) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) & " " & rp(1)*9
V(15) = rp(10) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10) & " " & rp(1)*10
V(16) = rp(11) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10) + rp(11) & " " & rp(1)*11
V(17) = somrit
V(18) = Medrit
If Differenza(rp(1)*2,rp(1) + rp(2)) <= kl Then k1 = 1
If Differenza(rp(1)*3,rp(1) + rp(2) + rp(3)) <= kl Then k2 = 1
If Differenza(rp(1)*4,rp(1) + rp(2) + rp(3) + rp(4)) <= kl Then k3 = 1
If Differenza(rp(1)*5,rp(1) + rp(2) + rp(3) + rp(4) + rp(5)) <= kl Then k4 = 1
If Differenza(rp(1)*6,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6)) <= kl Then k5 = 1
If Differenza(rp(1)*7,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7)) <= kl Then k6 = 1
If Differenza(rp(1)*8,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8)) <= kl Then k7 = 1
If Differenza(rp(1)*9,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9)) <= kl Then k8 = 1
If Differenza(rp(1)*10,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10)) <= kl Then k9 = 1
If Differenza(rp(1)*11,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10) + rp(11)) <= kl Then k10 = 1
V(19) = k1 + k2 + k3 + k4 + k5 + k6 + k7 + k8 + k9 + k10
If V(19) >= cicli Then
Call AddRigaTabella(V,,,2)
If Differenza(rp(1)*2,rp(1) + rp(2)) <= kl Then Call SetColoreCella(7,2,4)
If Differenza(rp(1)*3,rp(1) + rp(2) + rp(3)) <= kl Then Call SetColoreCella(8,2,4)
If Differenza(rp(1)*4,rp(1) + rp(2) + rp(3) + rp(4)) <= kl Then Call SetColoreCella(9,2,4)
If Differenza(rp(1)*5,rp(1) + rp(2) + rp(3) + rp(4) + rp(5)) <= kl Then Call SetColoreCella(10,2,4)
If Differenza(rp(1)*6,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6)) <= kl Then Call SetColoreCella(11,2,4)
If Differenza(rp(1)*7,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7)) <= kl Then Call SetColoreCella(12,2,4)
If Differenza(rp(1)*8,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8)) <= kl Then Call SetColoreCella(13,2,4)
If Differenza(rp(1)*9,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9)) <= kl Then Call SetColoreCella(14,2,4)
If Differenza(rp(1)*10,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10)) <= kl Then Call SetColoreCella(15,2,4)
If Differenza(rp(1)*11,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10) + rp(11)) <= kl Then Call SetColoreCella(16,2,4)
If V(19) > 1 Then Call SetColoreCella(1,3,1)
If V(3) = 0 Then Call SetColoreCella(3,4,2)
If V(3) <= er And V(3) > 0 Then Call SetColoreCella(3,6,1)
End If
k1 = 0
k2 = 0
k3 = 0
k4 = 0
k5 = 0
k6 = 0
k7 = 0
k8 = 0
k9 = 0
k10 = 0
Next
'Next
Call SetTableWidth("100%")
Call CreaTabella(19)
Next
End Sub
Ciao Claudio, io ci sono sempre se si tratta di fare squadra e tirar fuori qualche buon progetto, e conoscendoti so che sei un vulcano di idee in continua evoluzione e oggi mettere nero su bianco le possibile idee per noi ( visto che il livello scriptico è cresciuto rispetto a qualche anno fa ) è cosa abbastanza semplice.
Premesso che a me piacciono le videate di insieme per valutare a colpo d'occhio quelle indicazioni statistiche più appetibili e adatte magari alla giocata e ruota in quel momento sotto mio esame.
Grazie x le belle e pompose parole che hai scritto... che per me sono solo uno stimolo all'opera e che credo di non meritare.
Avrei fatto questa ricerca che estrapola i numeri che presentano un rapporto di presenza ciclica +/- con differenza +/- 2,4 estraz.
Sto valutando se attraverso la presenza ciclica un numero è realmente futuro estratto, chiaro che ancora mi mancano dei tasselli che attraverso l'intuizione è possibile migliorare.
Vedo che non hai inserito in tabella gli esiti dei numeri che estrapoli dalla tua ricerca e nello stesso tempo, un ciclo for.... next per verificare nel tempo "trascorso" la capacità di questa ricerca di estrapolare il numero estraendo. Ti chiederei di inserire entrambe le cose.
Giusto per dare una risposta alla tua richiesta , mentre se poi vogliamo solo mettere previsioni, basta che queste siano corredate da tutte le informazioni riguardante come vengono originate ed il perché sono prossime all'uscita, cosi da fare la statistica nel tempo.
Sono comunque aperto a tutte le idee, anche se ancora premetto che mi piacerebbe lavorare per la sorte di Terno senza disdignare le sorte inferiori, in fin dei conti il nostro amico ELEFANT_BIG quanto diceva AMBATA+AMBATA+AMBATA = Terno diceva una verità. questo è vero ma non è semplice da mettere in pratica...il grande Big lo sa perfettamente
ti metto lo script di ciclicità e anche se oggi non ho molto tempo spero di rileggerti con buone nuove.
[/CODE]
Vedo che non hai inserito in tabella gli esiti dei numeri che estrapoli dalla tua ricerca e nello stesso tempo, un ciclo for.... next per verificare nel tempo "trascorso" la capacità di questa ricerca di estrapolare il numero estraendo. Ti chiederei di inserire entrambe le cose.
"Call StatisticaFormazioneTurbo(nu,ru,1,rit,max,Incr,fre ,Ini,(fin))" non trovo la funzione-turbo sull'help
Sub Main
Dim ru(2)
Dim ambata(10),ambo(10),terno(10),luna(10),lute(10)
Ini = EstrazioneFin - 120
fin = EstrazioneFin
r = 1
r2 = 2
ru(1) = r
ru(2) = r2
Scrivi " ***** Metodo algoritmico su Ba-Ca per ambata - ambo - terno - dalla 1* estrazione del mese ***** ",1,1,,1,3
Scrivi
ReDim T(14)
T(1) = " Casi "
T(2) = " Ruota "
T(3) = " Ambata "
T(4) = " Esito "
T(5) = " Colpo "
T(6) = " data ID "
T(7) = " Ambo "
T(8) = " Esito "
T(9) = " Colpo "
T(10) = " data ID "
T(11) = " Terno "
T(12) = " Esito "
T(13) = " Colpo "
T(14) = " data ID "
Call InitTabella(T,2,,3,5)
For es = Ini To fin
If IndiceMensile(es) = 1 Then
co = co + 1
ambata(1) = Fuori90(Estratto(es,TO_,4) + 1)
ambo(1) = Fuori90(Estratto(es,PA_,2) + 3)
ambo(2) = Fuori90(Estratto(es,FI_,5) + 26)
ambo(3) = Fuori90(Estratto(es,PA_,3) + 1)
luna(1) = ambata(1)
luna(2) = ambo(1)
luna(3) = ambo(2)
luna(5) = ambo(4)
terno(1) = Fuori90(Estratto(es,NA_,4) + 52)
terno(2) = Fuori90(Estratto(es,MI_,4) + 6)
lute(1) = ambata(1)
lute(2) = ambo(1)
lute(3) = ambo(2)
lute(4) = ambo(3)
lute(6) = terno(1)
lute(7) = terno(2)
Call VerificaEsito(ambata,ru,es + 1,1,13,,esito1,colpi1,estratti1,id1)
Call VerificaEsito(luna,ru,es + 1,2,13,,esito2,colpi2,estratti2,id2)
Call VerificaEsito(lute,ru,es + 1,3,13,,esito3,colpi3,estratti3,id3)
ReDim v(14)
v(1) = FormatSpace(co,2) & " - " & GetInfoEstrazione(es)
v(2) = SiglaRuota(r) & "-" & SiglaRuota(r2)
v(3) = StringaNumeri(ambata,,1)
v(4) = estratti1
v(5) = colpi1
If esito1 <> "" Then v(6) = DataEstrazione(id1)
v(7) = StringaNumeri(ambo,,1)
v(8) = estratti2
v(9) = colpi2
If esito2 <> "" Then v(10) = DataEstrazione(id2)
v(11) = StringaNumeri(terno,,1)
v(12) = estratti3
v(13) = colpi3
If esito3 <> "" Then v(14) = DataEstrazione(id3)
Call AddRigaTabella(v,,,3,,"lucida")
Call SetColoreCella(3,7,5)
Call SetColoreCella(7,7,5)
Call SetColoreCella(11,7,5)
If esito1 = "Estratto" Then abb = abb + 1
If esito2 = "Ambo" Then amb = amb + 1
If esito3 = "Terno" Then Ter = Ter + 1
End If
Next
Call SetTableWidth("100%")
CreaTabella
Scrivi String(100,"="),1
Scrivi "Lunghetta : " & StringaNumeri(lute),1,1,,1,3
Scrivi String(100,"-")
exx = IndiceMensile(fin)
Scrivi "indice attuale " & exx
For ex = fin To fin - exx + 1 Step - 1
k = k + 1
Call VerificaEsitoConGuadagno(lute,ru,ex,1,1,,esito,colpi,estratti,id,,guad)
If esito = "Ambo" Or esito = "Terno" Then
ColoreTesto 2
Scrivi Format2(IndiceMensile(ex)) & " " & estratti & " " & vbTab & GetInfoEstrazione(id) & vbTab,0,0
Scrivi esito '& vbTab & guad
Else
ColoreTesto 0
Scrivi Format2(IndiceMensile(ex)) & " " & estratti & " " & vbTab & GetInfoEstrazione(id) & vbTab,0,0
Scrivi esito '& vbTab & guad
End If
Next
For x = 1 To UBound(lute)
If EstrattoFrequenza(r,lute(x),fin - exx,fin) > 0 Then lute(x) = 0 ' numeri rimasti
'End If
Next
Scrivi "Numeri Rimasti..." & StringaNumeri(lute),1
Scrivi String(100,"-")
Scrivi "Casi positivi di Ambata : " & abb,1,1,,1,3
Scrivi "casi positivi di Ambo : " & amb,1,1,,2,3
Scrivi "casi positivi di Terno : " & Ter,1,1,,7,3
Scrivi
Scrivi " ********** Metodo & Script in Tabella By Mike58 ******** ",1,1,2,4,3
End Sub
non è proprio cosi è il conteggio dei cicli che hanno la differenza di n_casi tra ritardo cronologico ( numero mediano ) e ciclicità (terzo numero).Dò per scontato che tu abbia fatto lo script correttamente e ti chiedo di spiegarmi una serie di cose:
1) Filtro cicli => 2 ( le zone che si colorano in rosso? )
2) Estrazioni a ritroso 4 ( nella colonna ritardi da me rinominata Rit corr. leggo i ritardi del fine archivio di SPM) se sto analizzando la cosa vista da 4 estrazioni fà, dovrei avere i ritardi a 4 estrazioni fà non quelli di questa sera
'elenco ritardi precedenti
ReDim rp(11)
Inizio = EstrazioneIni
fine = Fin - er
somrit = 0
For z = 1 To 11
rp(z) = SerieRitardoTurbo(Inizio,fine,nu,ru,1)
fine = fine -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
Next
' fine calcolo
la riga "Call StatisticaFormazioneTurbo(nu,ru,1,rit,max,Incr,fre ,Ini,(fin))" la ho sostituita con "Call StatisticaFormazioneTurbo(nu,ru,1,rit,max,Incr,fre ,Ini,(fin-er))" in modo da avere i rit. attuali corretti
Sub Main
Dim nu(1),ru(1)
Dim retColpi,clpMax
kl = CInt(InputBox("DIFFERENZA NELLA CICLICITA' + o - ",,2))
er = CInt(InputBox("Estrazioni a ritroso",,4))
cicli = CInt(InputBox(" QUANTI CICLI minimi considero ",,2))
clpMax = CInt(InputBox(" Entro QUANTI Colpi evidenzio l'Ambata (max) ",,4))
Ini = EstrazioneFin - 500
fin = EstrazioneFin
Scrivi "Cicilità dei numeri Futuri Estraendi *** con differenza ciclicità + o - " & kl & " **** Script By Mike58 **** ",1,1,7,5,3
Scrivi "Filtro cicli coincidenti => " & cicli,1
Scrivi "Estrazioni a ritroso..." & er & " corrispondente ad estrazione " & GetInfoEstrazione(fin - er),1,1,,1,2
'Scrivi "I numeri evidenziati nel Ritardo corrente sono usciti in verifica da estrazione a ritroso a Fine "
'Scrivi
'Scrivi "Leggenda : Rp = Ritardo Precedente , Rcr = Ritardo Cronologico , Ciclità = Ritardo x n. ciclo ",1
For r = 1 To 12
If r = 11 Then r = 12
ReDim T(20)
T(1) = " Numeri "
T(2) = " Ruota "
T(3) = " Rit.att. "
T(4) = " Freq "
T(5) = " Rit. Max "
T(6) = " Incr "
T(7) = " Rp1|Rcr|Cicl.tà "
T(8) = " Rp2 "
T(9) = " Rp3 "
T(10) = " Rp4 "
T(11) = " Rp5 "
T(12) = " Rp6 "
T(13) = " Rp7 "
T(14) = " Rp8 "
T(15) = " Rp9 "
T(16) = " Rp10 "
T(17) = " Sum Rit "
T(18) = " Med Rit "
T(19) = " Cicli "
T(20) = " Esito "
Call InitTabella(T,1,,2,5,"Kartika")
For x = 1 To 90
nu(1) = x
ru(1) = r
Call StatisticaFormazioneTurbo(nu,ru,1,rit,max,Incr,fre,Ini,(fin - er))
'''''''''''''''''''''''''''''elenco degli "z" ritardi precedenti nel range tra estrazione ini e EstrazioneFin-er
ReDim rp(11)
Inizio = EstrazioneIni
fine = fin - er
somrit = 0
For z = 1 To 11
rp(z) = SerieRitardoTurbo(Inizio,fine,nu,ru,1)
fine = fine -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Round((somrit/z),1)
Next
' ''''''''''''''''''''''''''''''''fine calcolo ritardi precedenti ''''''''''''''''''''''''''''''''''''''
ReDim V(20)
ColoreTesto 2
V(1) = x
V(2) = SiglaRuota(r)
V(3) = rit
V(4) = fre
V(5) = max
V(6) = Incr
V(7) = rp(2) & " " & rp(2) + rp(1) & " " & rp(1)*2 ''''elenca 2°rit, 2°rit+1rit° e (rit1*2)
V(8) = rp(3) & " " & rp(2) + rp(1) + rp(3) & " " & rp(1)*3
V(9) = rp(4) & " " & rp(2) + rp(1) + rp(3) + rp(4) & " " & rp(1)*4
V(10) = rp(5) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) & " " & rp(1)*5
V(11) = rp(6) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) & " " & rp(1)*6
V(12) = rp(7) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) & " " & rp(1)*7
V(13) = rp(8) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) & " " & rp(1)*8
V(14) = rp(9) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) & " " & rp(1)*9
V(15) = rp(10) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10) & " " & rp(1)*10
V(16) = rp(11) & " " & rp(2) + rp(1) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10) + rp(11) & " " & rp(1)*11
V(17) = somrit
V(18) = Medrit
If Differenza(rp(1)*2,rp(1) + rp(2)) <= kl Then k1 = 1 '''' se diff. tra 2*rit1 e (rit1+rit2) è <= kl che è "DIFFERENZA NELLA CICLICITA'", Then k1 = 1
If Differenza(rp(1)*3,rp(1) + rp(2) + rp(3)) <= kl Then k2 = 1
If Differenza(rp(1)*4,rp(1) + rp(2) + rp(3) + rp(4)) <= kl Then k3 = 1
If Differenza(rp(1)*5,rp(1) + rp(2) + rp(3) + rp(4) + rp(5)) <= kl Then k4 = 1
If Differenza(rp(1)*6,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6)) <= kl Then k5 = 1
If Differenza(rp(1)*7,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7)) <= kl Then k6 = 1
If Differenza(rp(1)*8,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8)) <= kl Then k7 = 1
If Differenza(rp(1)*9,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9)) <= kl Then k8 = 1
If Differenza(rp(1)*10,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10)) <= kl Then k9 = 1
If Differenza(rp(1)*11,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10) + rp(11)) <= kl Then k10 = 1
V(19) = k1 + k2 + k3 + k4 + k5 + k6 + k7 + k8 + k9 + k10 ''' totale Cicli rientranti in "DIFFERENZA NELLA CICLICITA"
nu(1) = x
If VerificaEsito(nu,ru,fin - er + 1,1,100,,retEsito,retColpi,retestratti,retidestratti) Then
V(20) = retColpi
Else
V(20) = ".."
End If
If V(19) >= cicli Then
Call AddRigaTabella(V,,,1,,"Calibri")
If V(20) <= clpMax Then
Call SetColoreCella(1,4,1)
Call SetColoreCella(2,4,1)
Call SetColoreCella(3,4,1)
Call SetColoreCella(4,4,1)
Call SetColoreCella(5,4,1)
Call SetColoreCella(6,4,1)
Call SetColoreCella(7,4,1)
Call SetColoreCella(8,4,1)
Call SetColoreCella(9,4,1)
Call SetColoreCella(10,4,1)
Call SetColoreCella(11,4,1)
Call SetColoreCella(12,4,1)
Call SetColoreCella(13,4,1)
Call SetColoreCella(14,4,1)
Call SetColoreCella(15,4,1)
Call SetColoreCella(16,4,1)
Call SetColoreCella(17,4,1)
Call SetColoreCella(18,4,1)
Call SetColoreCella(19,4,1)
Call SetColoreCella(20,4,1)
End If
If Differenza(rp(1)*2,rp(1) + rp(2)) <= kl Then Call SetColoreCella(7,2,4)
If Differenza(rp(1)*3,rp(1) + rp(2) + rp(3)) <= kl Then Call SetColoreCella(8,2,4)
If Differenza(rp(1)*4,rp(1) + rp(2) + rp(3) + rp(4)) <= kl Then Call SetColoreCella(9,2,4)
If Differenza(rp(1)*5,rp(1) + rp(2) + rp(3) + rp(4) + rp(5)) <= kl Then Call SetColoreCella(10,2,4)
If Differenza(rp(1)*6,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6)) <= kl Then Call SetColoreCella(11,2,4)
If Differenza(rp(1)*7,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7)) <= kl Then Call SetColoreCella(12,2,4)
If Differenza(rp(1)*8,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8)) <= kl Then Call SetColoreCella(13,2,4)
If Differenza(rp(1)*9,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9)) <= kl Then Call SetColoreCella(14,2,4)
If Differenza(rp(1)*10,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10)) <= kl Then Call SetColoreCella(15,2,4)
If Differenza(rp(1)*11,rp(1) + rp(2) + rp(3) + rp(4) + rp(5) + rp(6) + rp(7) + rp(8) + rp(9) + rp(10) + rp(11)) <= kl Then Call SetColoreCella(16,2,4)
If V(19) > 1 Then Call SetColoreCella(1,3,1)
If V(3) = 0 Then Call SetColoreCella(3,4,2)
If V(3) <= er And V(3) > 0 Then Call SetColoreCella(3,6,1)
End If
k1 = 0
k2 = 0
k3 = 0
k4 = 0
k5 = 0
k6 = 0
k7 = 0
k8 = 0
k9 = 0
k10 = 0
Next
Call SetTableWidth("100%")
ColoreTesto 0
Scrivi "Leggenda : Rp = Ritardo Precedente , Rcr = Ritardo Cronologico , Ciclità = Ritardo att. x n. ciclo " ,1,,,,1
Call CreaTabella' (19) eliminato il rif alla colonna xchè fuorviante.
Next
End Sub