copertura ambo (richiesta spiegazione)

[alexvisco]

Ciao , volevo da Voi una spiegazione riguardo questo script (presente nel forum) che ottiene ottimi risultati, inoltre vorrei sapere come mai ad ogni estrazione non aggiorna la previsione successiva

Option Explicit
Class clsAmbo
Private aNum(2)
Private aCicli()
Private bUsato
Private QcicliCopertiSeUsato
Private sBit
Property Get Bit
Bit = sBit
End Property
Property Let Usato(b)
bUsato = b
End Property
Property Get Usato
Usato = bUsato
End Property
Property Let QCicli(v)
ReDim aCicli(v)
End Property
Property Get QCicliCopertiSeInUso
QCicliCopertiSeInUso = QcicliCopertiSeUsato
End Property
Property Get QuantitaCicliRapp
Dim k,q
q = 0
For k = 1 To UBound(aCicli)
If aCicli(k) <> 0 Then
q = q + 1
End If
Next
QuantitaCicliRapp = q
End Property
Sub SetFlagCiclo(id,b)
aCicli(id) = b
End Sub
Function GetFlagCiclo(id)
GetFlagCiclo = aCicli(id)
End Function
Sub SetNumero(id,v)
aNum(id) = v
End Sub
Function GetNumeriString
GetNumeriString = StringaNumeri(aNum,,True)
End Function
Sub GetNumeri(aRet)
Dim k
ReDim aRet(UBound(aNum))

For k = 1 To UBound(aNum)
aRet(k) = aNum(k)
Next
End Sub
Sub AggiornaCicliCoperti
Dim k
sBit = ""
QcicliCopertiSeUsato = QuantitaCicliRapp
For k = 1 To UBound(aCicli)
If aCicli(k) <> 0 Then
sBit = sBit & "X"
Else
sBit = sBit & " "
End If
Next

End Sub
End Class
Sub Main
Dim CollAmbi,CollAmbiTrov
Dim Inizio,Fine,nTotNelRange
Dim nLenCiclo,qCicli
Dim idCiclo,k
Dim Ruota
Dim cAmbo
Dim nTrovati

ReDim aRuote(1)
ReDim aPoste(2)


nTrovati = 0
Ruota = ScegliRuota
nLenCiclo = CInt(InputBox("Colpi di gioco","Colpi","12"))

aRuote(1) = Ruota
aPoste(2) = 1
Inizio = EstrazioneIni
Fine = EstrazioneFin
nTotNelRange =(Fine + 1) - Inizio


If nTotNelRange Mod nLenCiclo = 0 Then
qCicli = nTotNelRange /nLenCiclo
Else
qCicli =((nTotNelRange -(nTotNelRange Mod nLenCiclo)) /nLenCiclo) + 1
End If

Call InitCollAmbi(CollAmbi,qCicli)

ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
Call GestioneRicercaAmbi(qCicli,aCicli,CollAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)

Call GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,CollAmbi)

Call GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)

Call GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)








End Sub
Sub GestioneRicercaAmbi(qCicli,aCicli,collAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
Dim idCiclo,k

Dim cAmbo
nTrovati = 0
ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
Call InitACicli(aCicli,nLenCiclo,Inizio)
Do
For idCiclo = 1 To qCicli
If aCicli(idCiclo,2) = 0 Then
For k = aCicli(idCiclo,0) To aCicli(idCiclo,1)
Call AggiornaAmbiUsciti(collAmbi,Ruota,k,idCiclo)
Next
End If
Call AvanzamentoElab(1,qCicli,idCiclo)
If ScriptInterrotto Then Exit Sub
Next
Call GetAmboConPiuCopertura(cAmbo,collAmbi)
If Not cAmbo Is Nothing Then
nTrovati = nTrovati + 1
cAmbo.Usato = True
Call cAmbo.AggiornaCicliCoperti
For idCiclo = 1 To qCicli
If cAmbo.GetFlagCiclo(idCiclo) <> 0 Then
aCicli(idCiclo,2) = 1
End If
Next
Else
Exit Do
End If
Call Messaggio("Ambi trovati " & nTrovati)
Call AzzeraCopertura(collAmbi,qCicli)
If ScriptInterrotto Then Exit Sub

Loop While IsScoperto(aCicli,qCicli)
End Sub
Sub GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
Dim idCiclo,k
Dim cAmbo

Call Messaggio("Analisi Giocate")
For idCiclo = 1 To qCicli
k = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
k = k + 1
ReDim aNum(0)
Call cAmbo.GetNumeri(aNum)
Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
'Call Scrivi(StringaNumeri(aNum))
End If
Next
Call Gioca(aCicli(idCiclo,0) - 1,True)
Call AvanzamentoElab(1,qCicli,idCiclo)
If ScriptInterrotto Then Exit Sub

Next





k = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
k = k + 1
ReDim aNum(0)
Call cAmbo.GetNumeri(aNum)
Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
'Call Scrivi(StringaNumeri(aNum))
End If
Next


Call ScriviResoconto()

End Sub
Sub GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)


Dim cAmbo
Dim idCiclo,k
Dim sTmp
Dim sRigaBit
Call Scrivi("Quadro copertura ambi")



ReDim aT(3 + qCicli)
aT(1) = " N. "
aT(2) = " Ambo "
aT(3) = " Cicli coperti "
For k = 1 To qCicli
aT(k + 3) = aCicli(k,0) & "-" & aCicli(k,1)
Next

Call Messaggio("Creazione tabella copertura")
Call InitTabella(aT)
ReDim aLineeBit(nTrovati)
nTrovati = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
nTrovati = nTrovati + 1
aLineeBit(nTrovati) = cAmbo.Bit

ReDim aT(3 + qCicli)
aT(1) = nTrovati
aT(2) = cAmbo.GetNumeriString
aT(3) = cAmbo.QCicliCopertiSeInUso
For k = 1 To qCicli
aT(k + 3) = Mid(cAmbo.Bit,k,1)
Next
ReDim aColoreCelle(UBound(aT))
Call ImpostaArrayColoreCelle(aColoreCelle,aT)
Call AddRigaTabella(aT,aColoreCelle)
End If
If ScriptInterrotto Then Exit Sub

Next



sRigaBit = ""
For idCiclo = 1 To qCicli
sTmp = "-"
For k = 1 To UBound(aLineeBit)
If Mid(aLineeBit(k),idCiclo,1) = "X" Then
sTmp = "X"
Exit For
End If
Next
sRigaBit = sRigaBit & sTmp
Next
'Call Scrivi(Space(20) & sRigaBit)
ReDim aT(3 + qCicli)

For k = 1 To qCicli
aT(k + 3) = Mid(sRigaBit,k,1)

Next
ReDim aColoreCelle(UBound(aT))
Call ImpostaArrayColoreCelle(aColoreCelle,aT)
Call AddRigaTabella(aT,aColoreCelle)
Call CreaTabella

End Sub
Sub GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,Collambi)
Dim sTmp
Dim cAmbo
Call Scrivi(String(100,"."))

Call Scrivi("Ruota : " & NomeRuota(Ruota))
Call Scrivi("Periodo : " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(Fine))
Call Scrivi("Colpi per singolo attacco : " & nLenCiclo)
Call Scrivi("Totale attacchi : " & qCicli)
Call Scrivi
Call Scrivi(Space(20) & "Descrizione del gioco",True)

Call Scrivi("Giocando i seguenti " & nTrovati & " ambi impostando il gioco in " & nLenCiclo & " colpi di gioco")
Call Scrivi("per ogni attacco e interrompendo alla prima vincita per riprenderlo")
Call Scrivi("con l'attacco successivo previsto al termine naturale dell'attacco")
Call Scrivi("in corso si sarebbero ottenuti i seguenti risutati di gioco")



Call Scrivi("Attenzione non è detto che giocando questa serie di ambi nelle estrazioni",,,,vbRed)
Call Scrivi("successive a quelle esaminate si otttenga per certo la vincita",,,,vbRed)

Call Scrivi(String(100,"."))

Call Scrivi()

sTmp = ""
For Each cAmbo In Collambi
If cAmbo.usato Then
sTmp = sTmp &(cAmbo.GetNumeriString) & ","
End If
Next
sTmp = Left(sTmp,Len(sTmp) - 1)
Call Scrivi("Ambi in gioco : " & sTmp)

Call Scrivi(String(100,"."))

Call Scrivi()
End Sub
Sub ImpostaArrayColoreCelle(aColoreCelle,aT)
Dim k

For k = 1 To UBound(aT)
If aT(k) = "X" Then
aColoreCelle(k) = vbGreen
Else
aColoreCelle(k) = vbWhite
End If
Next
End Sub
Sub AggiornaRigheBuf(aRighe,nInizio,nFine,idCiclo)

Dim k
Dim sChr
Dim sTmp

sTmp = FormatSpace(nInizio,4,True)
For k = 1 To 4
sChr = Mid(sTmp,k,1)
Call InsCar(aRighe(k),sChr,idCiclo)

Next

sTmp = FormatSpace(nFine,4,True)
For k = 6 To 9
sChr = Mid(sTmp,k - 5,1)
Call InsCar(aRighe(k),sChr,idCiclo)

Next


End Sub
Sub InsCar(sRiga,sChr,nPos)

Dim sLeft
Dim sRight

sLeft = Left(sRiga,nPos - 1)
sRight = Mid(sRiga,nPos + 1)
sRiga = sLeft & sChr & sRight


End Sub
Function IsScoperto(aCicli,qCicli)
Dim k,b
b = False

For k = 1 To qCicli
If aCicli(k,2) = 0 Then
b = True
Exit For
End If
Next
IsScoperto = b
End Function

Sub AzzeraCopertura(CollAmbi,qCicli)
Dim cAmbo
For Each cAmbo In CollAmbi
cAmbo.qCicli = qCicli
Next
End Sub
Sub GetAmboConPiuCopertura(cAmbo,CollAmbi)
Dim cAmboTmp
Dim nMax,n
nMax = 0
For Each cAmboTmp In CollAmbi
n = cAmboTmp.QuantitaCicliRapp
If n >= nMax Then
nMax = n
Set cAmbo = cAmboTmp
End If
Next
End Sub
Sub AggiornaAmbiUsciti(CollAmbi,Ruota,idEstr,idCiclo)
Dim k,kk,s
Dim cAmbo
ReDim aNum(0)


If GetArrayNumeriRuota(idEstr,Ruota,aNum) Then
Call OrdinaMatrice(aNum,1)
For k = 1 To 4
For kk = k + 1 To 5
s = "k" & Format2(aNum(k)) & "-" & Format2(aNum(kk))
Set cAmbo = CollAmbi(s)
Call cAmbo.SetFlagCiclo(idCiclo,1)
Next
Next
End If
End Sub

Sub InitACicli(aCicli,nLenCiclo,Inizio)
Dim k
Dim nStart
nStart = Inizio
For k = 1 To UBound(aCicli)
aCicli(k,2) = 0
aCicli(k,0) = nStart
aCicli(k,1) =(nStart - 1) + nLenCiclo
nStart = aCicli(k,1) + 1
Next
End Sub
Sub InitCollAmbi(CollAmbi,qCicli)
' sistemi che generano un elevato numero di combinazioni
Dim k,e,s
Dim nClasse
ReDim aNumeri(90)
Dim aColonne
Dim cAmbo
Set CollAmbi = GetNewCollection
nClasse = 2 ' sviluppo in ambi
' inizializzo i numeri da sviluppare in questo caso 90
' ma potrebbero essere anche di meno
For k = 1 To 90
aNumeri(k) = k
Next
' sviluppo il sistema valorizzando le colonne sviluppate
aColonne = SviluppoIntegrale(aNumeri,nClasse)
' scrivo le colonne in output
For k = 1 To UBound(aColonne)
Set cAmbo = New clsAmbo
cAmbo.qCicli = qCicli
s = "k"
' ciclo per leggere la colonna k
For e = 1 To nClasse
Call cAmbo.SetNumero(e,aColonne(k,e))
s = s & Format2(aColonne(k,e)) & "-"
Next
' tolgo l'ultimo trattino
s = Left(s,Len(s) - 1)
Call CollAmbi.Add(cAmbo,s)
Next
End Sub

 

[kubes]

Option Explicit
Class clsAmbo
   Private aNum(2)
   Private aCicli()
   Private bUsato
   Private QcicliCopertiSeUsato
   Private sBit
   Property Get Bit
      Bit = sBit
   End Property
   Property Let Usato(b)
      bUsato = b
   End Property
   Property Get Usato
      Usato = bUsato
   End Property
   Property Let QCicli(v)
      ReDim aCicli(v)
   End Property
   Property Get QCicliCopertiSeInUso
      QCicliCopertiSeInUso = QcicliCopertiSeUsato
   End Property
   Property Get QuantitaCicliRapp
      Dim k,q
      q = 0
      For k = 1 To UBound(aCicli)
         If aCicli(k) <> 0 Then
            q = q + 1
         End If
      Next
      QuantitaCicliRapp = q
   End Property
   Sub SetFlagCiclo(id,b)
      aCicli(id) = b
   End Sub
   Function GetFlagCiclo(id)
      GetFlagCiclo = aCicli(id)
   End Function
   Sub SetNumero(id,v)
      aNum(id) = v
   End Sub
   Function GetNumeriString
      GetNumeriString = StringaNumeri(aNum,,True)
   End Function
   Sub GetNumeri(aRet)
      Dim k
      ReDim aRet(UBound(aNum))
      For k = 1 To UBound(aNum)
         aRet(k) = aNum(k)
      Next
   End Sub
   Sub AggiornaCicliCoperti
      Dim k
      sBit = ""
      QcicliCopertiSeUsato = QuantitaCicliRapp
      For k = 1 To UBound(aCicli)
         If aCicli(k) <> 0 Then
            sBit = sBit & "X"
         Else
            sBit = sBit & " "
         End If
      Next
   End Sub
End Class
Sub Main
   Dim CollAmbi,CollAmbiTrov
   Dim Inizio,Fine,nTotNelRange
   Dim nLenCiclo,qCicli
   Dim idCiclo,k
   Dim Ruota
   Dim cAmbo
   Dim nTrovati
   ReDim aRuote(1)
   ReDim aPoste(2)
   nTrovati = 0
   Ruota = ScegliRuota
   nLenCiclo = CInt(InputBox("Colpi di gioco","Colpi","12"))
   aRuote(1) = Ruota
   aPoste(2) = 1
   Inizio = EstrazioneIni
   Fine = EstrazioneFin
   nTotNelRange =(Fine + 1) - Inizio
   If nTotNelRange Mod nLenCiclo = 0 Then
      qCicli = nTotNelRange /nLenCiclo
   Else
      qCicli =((nTotNelRange -(nTotNelRange Mod nLenCiclo)) /nLenCiclo) + 1
   End If
   Call InitCollAmbi(CollAmbi,qCicli)
   ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
   Call GestioneRicercaAmbi(qCicli,aCicli,CollAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
   Call GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,CollAmbi)
   Call GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
   Call GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
End Sub
Sub GestioneRicercaAmbi(qCicli,aCicli,collAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
   Dim idCiclo,k
   Dim cAmbo
   nTrovati = 0
   ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
   Call InitACicli(aCicli,nLenCiclo,Inizio)
   Do
      For idCiclo = 1 To qCicli
         If aCicli(idCiclo,2) = 0 Then
            For k = aCicli(idCiclo,0) To aCicli(idCiclo,1)
               Call AggiornaAmbiUsciti(collAmbi,Ruota,k,idCiclo)
            Next
         End If
         Call AvanzamentoElab(1,qCicli,idCiclo)
         If ScriptInterrotto Then Exit Sub
      Next
      Call GetAmboConPiuCopertura(cAmbo,collAmbi)
      If Not cAmbo Is Nothing Then
         nTrovati = nTrovati + 1
         cAmbo.Usato = True
         Call cAmbo.AggiornaCicliCoperti
         For idCiclo = 1 To qCicli
            If cAmbo.GetFlagCiclo(idCiclo) <> 0 Then
               aCicli(idCiclo,2) = 1
            End If
         Next
      Else
         Exit Do
      End If
      Call Messaggio("Ambi trovati " & nTrovati)
      Call AzzeraCopertura(collAmbi,qCicli)
      If ScriptInterrotto Then Exit Sub
   Loop While IsScoperto(aCicli,qCicli)
End Sub
Sub GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
   Dim idCiclo,k
   Dim cAmbo
   Call Messaggio("Analisi Giocate")
   For idCiclo = 1 To qCicli
      k = 0
      For Each cAmbo In CollAmbi
         If cAmbo.usato Then
            k = k + 1
            ReDim aNum(0)
            Call cAmbo.GetNumeri(aNum)
            Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
            'Call Scrivi(StringaNumeri(aNum))
         End If
      Next
      Call Gioca(aCicli(idCiclo,0) - 1,True)
      Call AvanzamentoElab(1,qCicli,idCiclo)
      If ScriptInterrotto Then Exit Sub
   Next
   k = 0
   For Each cAmbo In CollAmbi
      If cAmbo.usato Then
         k = k + 1
         ReDim aNum(0)
         Call cAmbo.GetNumeri(aNum)
         Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
         'Call Scrivi(StringaNumeri(aNum))
      End If
   Next
   Call ScriviResoconto()
End Sub
Sub GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
   Dim cAmbo
   Dim idCiclo,k
   Dim sTmp
   Dim sRigaBit
   Call Scrivi("Quadro copertura ambi")
   ReDim aT(3 + qCicli)
   aT(1) = " N. "
   aT(2) = " Ambo "
   aT(3) = " Cicli coperti "
   For k = 1 To qCicli
      aT(k + 3) = aCicli(k,0) & "-" & aCicli(k,1)
   Next
   Call Messaggio("Creazione tabella copertura")
   Call InitTabella(aT)
   ReDim aLineeBit(nTrovati)
   nTrovati = 0
   For Each cAmbo In CollAmbi
      If cAmbo.usato Then
         nTrovati = nTrovati + 1
         aLineeBit(nTrovati) = cAmbo.Bit
         ReDim aT(3 + qCicli)
         aT(1) = nTrovati
         aT(2) = cAmbo.GetNumeriString
         aT(3) = cAmbo.QCicliCopertiSeInUso
         For k = 1 To qCicli
            aT(k + 3) = Mid(cAmbo.Bit,k,1)
         Next
         ReDim aColoreCelle(UBound(aT))
         Call ImpostaArrayColoreCelle(aColoreCelle,aT)
         Call AddRigaTabella(aT,aColoreCelle)
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   sRigaBit = ""
   For idCiclo = 1 To qCicli
      sTmp = "-"
      For k = 1 To UBound(aLineeBit)
         If Mid(aLineeBit(k),idCiclo,1) = "X" Then
            sTmp = "X"
            Exit For
         End If
      Next
      sRigaBit = sRigaBit & sTmp
   Next
   'Call Scrivi(Space(20) & sRigaBit)
   ReDim aT(3 + qCicli)
   For k = 1 To qCicli
      aT(k + 3) = Mid(sRigaBit,k,1)
   Next
   ReDim aColoreCelle(UBound(aT))
   Call ImpostaArrayColoreCelle(aColoreCelle,aT)
   Call AddRigaTabella(aT,aColoreCelle)
   Call CreaTabella
End Sub
Sub GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,Collambi)
   Dim sTmp
   Dim cAmbo
   Call Scrivi(String(100,"."))
   Call Scrivi("Ruota : " & NomeRuota(Ruota))
   Call Scrivi("Periodo : " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(Fine))
   Call Scrivi("Colpi per singolo attacco : " & nLenCiclo)
   Call Scrivi("Totale attacchi : " & qCicli)
   Call Scrivi
   Call Scrivi(Space(20) & "Descrizione del gioco",True)
   Call Scrivi("Giocando i seguenti " & nTrovati & " ambi impostando il gioco in " & nLenCiclo & " colpi di gioco")
   Call Scrivi("per ogni attacco e interrompendo alla prima vincita per riprenderlo")
   Call Scrivi("con l'attacco successivo previsto al termine naturale dell'attacco")
   Call Scrivi("in corso si sarebbero ottenuti i seguenti risutati di gioco")
   Call Scrivi("Attenzione non è detto che giocando questa serie di ambi nelle estrazioni",,,,vbRed)
   Call Scrivi("successive a quelle esaminate si otttenga per certo la vincita",,,,vbRed)
   Call Scrivi(String(100,"."))
   Call Scrivi()
   sTmp = ""
   For Each cAmbo In Collambi
      If cAmbo.usato Then
         sTmp = sTmp &(cAmbo.GetNumeriString) & ","
      End If
   Next
   sTmp = Left(sTmp,Len(sTmp) - 1)
   Call Scrivi("Ambi in gioco : " & sTmp)
   Call Scrivi(String(100,"."))
   Call Scrivi()
End Sub
Sub ImpostaArrayColoreCelle(aColoreCelle,aT)
   Dim k
   For k = 1 To UBound(aT)
      If aT(k) = "X" Then
         aColoreCelle(k) = vbGreen
      Else
         aColoreCelle(k) = vbWhite
      End If
   Next
End Sub
Sub AggiornaRigheBuf(aRighe,nInizio,nFine,idCiclo)
   Dim k
   Dim sChr
   Dim sTmp
   sTmp = FormatSpace(nInizio,4,True)
   For k = 1 To 4
      sChr = Mid(sTmp,k,1)
      Call InsCar(aRighe(k),sChr,idCiclo)
   Next
   sTmp = FormatSpace(nFine,4,True)
   For k = 6 To 9
      sChr = Mid(sTmp,k - 5,1)
      Call InsCar(aRighe(k),sChr,idCiclo)
   Next
End Sub
Sub InsCar(sRiga,sChr,nPos)
   Dim sLeft
   Dim sRight
   sLeft = Left(sRiga,nPos - 1)
   sRight = Mid(sRiga,nPos + 1)
   sRiga = sLeft & sChr & sRight
End Sub
Function IsScoperto(aCicli,qCicli)
   Dim k,b
   b = False
   For k = 1 To qCicli
      If aCicli(k,2) = 0 Then
         b = True
         Exit For
      End If
   Next
   IsScoperto = b
End Function
Sub AzzeraCopertura(CollAmbi,qCicli)
   Dim cAmbo
   For Each cAmbo In CollAmbi
      cAmbo.qCicli = qCicli
   Next
End Sub
Sub GetAmboConPiuCopertura(cAmbo,CollAmbi)
   Dim cAmboTmp
   Dim nMax,n
   nMax = 0
   For Each cAmboTmp In CollAmbi
      n = cAmboTmp.QuantitaCicliRapp
      If n >= nMax Then
         nMax = n
         Set cAmbo = cAmboTmp
      End If
   Next
End Sub
Sub AggiornaAmbiUsciti(CollAmbi,Ruota,idEstr,idCiclo)
   Dim k,kk,s
   Dim cAmbo
   ReDim aNum(0)
   If GetArrayNumeriRuota(idEstr,Ruota,aNum) Then
      Call OrdinaMatrice(aNum,1)
      For k = 1 To 4
         For kk = k + 1 To 5
            s = "k" & Format2(aNum(k)) & "-" & Format2(aNum(kk))
            Set cAmbo = CollAmbi(s)
            Call cAmbo.SetFlagCiclo(idCiclo,1)
         Next
      Next
   End If
End Sub
Sub InitACicli(aCicli,nLenCiclo,Inizio)
   Dim k
   Dim nStart
   nStart = Inizio
   For k = 1 To UBound(aCicli)
      aCicli(k,2) = 0
      aCicli(k,0) = nStart
      aCicli(k,1) =(nStart - 1) + nLenCiclo
      nStart = aCicli(k,1) + 1
   Next
End Sub
Sub InitCollAmbi(CollAmbi,qCicli)
   ' sistemi che generano un elevato numero di combinazioni
   Dim k,e,s
   Dim nClasse
   ReDim aNumeri(90)
   Dim aColonne
   Dim cAmbo
   Set CollAmbi = GetNewCollection
   nClasse = 2 ' sviluppo in ambi
   ' inizializzo i numeri da sviluppare in questo caso 90
   ' ma potrebbero essere anche di meno
   For k = 1 To 90
      aNumeri(k) = k
   Next
   ' sviluppo il sistema valorizzando le colonne sviluppate
   aColonne = SviluppoIntegrale(aNumeri,nClasse)
   ' scrivo le colonne in output
   For k = 1 To UBound(aColonne)
      Set cAmbo = New clsAmbo
      cAmbo.qCicli = qCicli
      s = "k"
      ' ciclo per leggere la colonna k
      For e = 1 To nClasse
         Call cAmbo.SetNumero(e,aColonne(k,e))
         s = s & Format2(aColonne(k,e)) & "-"
      Next
      ' tolgo l'ultimo trattino
      s = Left(s,Len(s) - 1)
      Call CollAmbi.Add(cAmbo,s)
   Next
End Sub

a me da errore qui:

  Set cAmbo = CollAmbi(s)

 

[LuigiB]

Lo script calcola nel periodo precedente gli ambi che hanno dato sempre un risultato. La previsione e costituita appunto dagli ambi trovati.
essendo questa la premessa risulta evidente che lo script non serve a nulla se qualcuno gioca gli ambi individuati e dovesse vincere sarebbe solo una questione di fortuna

 

[alexvisco]

Lo script calcola nel periodo precedente gli ambi che hanno dato sempre un risultato. La previsione e costituita appunto dagli ambi trovati.
essendo questa la premessa risulta evidente che lo script non serve a nulla se qualcuno gioca gli ambi individuati e dovesse vincere sarebbe solo una questione di fortuna

Grazie Luigi, c'è uno script valido (seguendo qualsiasi metodo) che potresti proporre ? Grazie

 

[LuigiB]

Se avessi uno script valido ti garantisco che lo userei io per primo affinché possa affrancarmi dal posto in cui lavoro zeppo di imbecilli e furbastri....

L unica cosa che ti posso dire è che script validi non esistono...

 

[lotto_tom75]

Option Explicit
Class clsAmbo
Private aNum(2)
Private aCicli()
Private bUsato
Private QcicliCopertiSeUsato
Private sBit
Property Get Bit
Bit = sBit
End Property
Property Let Usato(b)
bUsato = b
End Property
Property Get Usato
Usato = bUsato
End Property
Property Let QCicli(v)
ReDim aCicli(v)
End Property
Property Get QCicliCopertiSeInUso
QCicliCopertiSeInUso = QcicliCopertiSeUsato
End Property
Property Get QuantitaCicliRapp
Dim k,q
q = 0
For k = 1 To UBound(aCicli)
If aCicli(k) <> 0 Then
q = q + 1
End If
Next
QuantitaCicliRapp = q
End Property
Sub SetFlagCiclo(id,b)
aCicli(id) = b
End Sub
Function GetFlagCiclo(id)
GetFlagCiclo = aCicli(id)
End Function
Sub SetNumero(id,v)
aNum(id) = v
End Sub
Function GetNumeriString
GetNumeriString = StringaNumeri(aNum,,True)
End Function
Sub GetNumeri(aRet)
Dim k
ReDim aRet(UBound(aNum))
For k = 1 To UBound(aNum)
aRet(k) = aNum(k)
Next
End Sub
Sub AggiornaCicliCoperti
Dim k
sBit = ""
QcicliCopertiSeUsato = QuantitaCicliRapp
For k = 1 To UBound(aCicli)
If aCicli(k) <> 0 Then
sBit = sBit & "X"
Else
sBit = sBit & " "
End If
Next
End Sub
End Class
Sub Main
Dim CollAmbi,CollAmbiTrov
Dim Inizio,Fine,nTotNelRange
Dim nLenCiclo,qCicli
Dim idCiclo,k
Dim Ruota
Dim cAmbo
Dim nTrovati
ReDim aRuote(1)
ReDim aPoste(2)
nTrovati = 0
Ruota = ScegliRuota
nLenCiclo = CInt(InputBox("Colpi di gioco","Colpi","12"))
aRuote(1) = Ruota
aPoste(2) = 1
Inizio = EstrazioneIni
Fine = EstrazioneFin
nTotNelRange =(Fine + 1) - Inizio
If nTotNelRange Mod nLenCiclo = 0 Then
qCicli = nTotNelRange /nLenCiclo
Else
qCicli =((nTotNelRange -(nTotNelRange Mod nLenCiclo)) /nLenCiclo) + 1
End If
Call InitCollAmbi(CollAmbi,qCicli)
ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
Call GestioneRicercaAmbi(qCicli,aCicli,CollAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
Call GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,CollAmbi)
Call GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
Call GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
End Sub
Sub GestioneRicercaAmbi(qCicli,aCicli,collAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
Dim idCiclo,k
Dim cAmbo
nTrovati = 0
ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
Call InitACicli(aCicli,nLenCiclo,Inizio)
Do
For idCiclo = 1 To qCicli
If aCicli(idCiclo,2) = 0 Then
For k = aCicli(idCiclo,0) To aCicli(idCiclo,1)
Call AggiornaAmbiUsciti(collAmbi,Ruota,k,idCiclo)
Next
End If
Call AvanzamentoElab(1,qCicli,idCiclo)
If ScriptInterrotto Then Exit Sub
Next
Call GetAmboConPiuCopertura(cAmbo,collAmbi)
If Not cAmbo Is Nothing Then
nTrovati = nTrovati + 1
cAmbo.Usato = True
Call cAmbo.AggiornaCicliCoperti
For idCiclo = 1 To qCicli
If cAmbo.GetFlagCiclo(idCiclo) <> 0 Then
aCicli(idCiclo,2) = 1
End If
Next
Else
Exit Do
End If
Call Messaggio("Ambi trovati " & nTrovati)
Call AzzeraCopertura(collAmbi,qCicli)
If ScriptInterrotto Then Exit Sub
Loop While IsScoperto(aCicli,qCicli)
End Sub
Sub GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
Dim idCiclo,k
Dim cAmbo
Call Messaggio("Analisi Giocate")
For idCiclo = 1 To qCicli
k = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
k = k + 1
ReDim aNum(0)
Call cAmbo.GetNumeri(aNum)
Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
'Call Scrivi(StringaNumeri(aNum))
End If
Next
Call Gioca(aCicli(idCiclo,0) - 1,True)
Call AvanzamentoElab(1,qCicli,idCiclo)
If ScriptInterrotto Then Exit Sub
Next
k = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
k = k + 1
ReDim aNum(0)
Call cAmbo.GetNumeri(aNum)
Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
'Call Scrivi(StringaNumeri(aNum))
End If
Next
Call ScriviResoconto()
End Sub
Sub GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
Dim cAmbo
Dim idCiclo,k
Dim sTmp
Dim sRigaBit
Call Scrivi("Quadro copertura ambi")
ReDim aT(3 + qCicli)
aT(1) = " N. "
aT(2) = " Ambo "
aT(3) = " Cicli coperti "
For k = 1 To qCicli
aT(k + 3) = aCicli(k,0) & "-" & aCicli(k,1)
Next
Call Messaggio("Creazione tabella copertura")
Call InitTabella(aT)
ReDim aLineeBit(nTrovati)
nTrovati = 0
For Each cAmbo In CollAmbi
If cAmbo.usato Then
nTrovati = nTrovati + 1
aLineeBit(nTrovati) = cAmbo.Bit
ReDim aT(3 + qCicli)
aT(1) = nTrovati
aT(2) = cAmbo.GetNumeriString
aT(3) = cAmbo.QCicliCopertiSeInUso
For k = 1 To qCicli
aT(k + 3) = Mid(cAmbo.Bit,k,1)
Next
ReDim aColoreCelle(UBound(aT))
Call ImpostaArrayColoreCelle(aColoreCelle,aT)
Call AddRigaTabella(aT,aColoreCelle)
End If
If ScriptInterrotto Then Exit Sub
Next
sRigaBit = ""
For idCiclo = 1 To qCicli
sTmp = "-"
For k = 1 To UBound(aLineeBit)
If Mid(aLineeBit(k),idCiclo,1) = "X" Then
sTmp = "X"
Exit For
End If
Next
sRigaBit = sRigaBit & sTmp
Next
'Call Scrivi(Space(20) & sRigaBit)
ReDim aT(3 + qCicli)
For k = 1 To qCicli
aT(k + 3) = Mid(sRigaBit,k,1)
Next
ReDim aColoreCelle(UBound(aT))
Call ImpostaArrayColoreCelle(aColoreCelle,aT)
Call AddRigaTabella(aT,aColoreCelle)
Call CreaTabella
End Sub
Sub GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,Collambi)
Dim sTmp
Dim cAmbo
Call Scrivi(String(100,"."))
Call Scrivi("Ruota : " & NomeRuota(Ruota))
Call Scrivi("Periodo : " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(Fine))
Call Scrivi("Colpi per singolo attacco : " & nLenCiclo)
Call Scrivi("Totale attacchi : " & qCicli)
Call Scrivi
Call Scrivi(Space(20) & "Descrizione del gioco",True)
Call Scrivi("Giocando i seguenti " & nTrovati & " ambi impostando il gioco in " & nLenCiclo & " colpi di gioco")
Call Scrivi("per ogni attacco e interrompendo alla prima vincita per riprenderlo")
Call Scrivi("con l'attacco successivo previsto al termine naturale dell'attacco")
Call Scrivi("in corso si sarebbero ottenuti i seguenti risutati di gioco")
Call Scrivi("Attenzione non è detto che giocando questa serie di ambi nelle estrazioni",,,,vbRed)
Call Scrivi("successive a quelle esaminate si otttenga per certo la vincita",,,,vbRed)
Call Scrivi(String(100,"."))
Call Scrivi()
sTmp = ""
For Each cAmbo In Collambi
If cAmbo.usato Then
sTmp = sTmp &(cAmbo.GetNumeriString) & ","
End If
Next
sTmp = Left(sTmp,Len(sTmp) - 1)
Call Scrivi("Ambi in gioco : " & sTmp)
Call Scrivi(String(100,"."))
Call Scrivi()
End Sub
Sub ImpostaArrayColoreCelle(aColoreCelle,aT)
Dim k
For k = 1 To UBound(aT)
If aT(k) = "X" Then
aColoreCelle(k) = vbGreen
Else
aColoreCelle(k) = vbWhite
End If
Next
End Sub
Sub AggiornaRigheBuf(aRighe,nInizio,nFine,idCiclo)
Dim k
Dim sChr
Dim sTmp
sTmp = FormatSpace(nInizio,4,True)
For k = 1 To 4
sChr = Mid(sTmp,k,1)
Call InsCar(aRighe(k),sChr,idCiclo)
Next
sTmp = FormatSpace(nFine,4,True)
For k = 6 To 9
sChr = Mid(sTmp,k - 5,1)
Call InsCar(aRighe(k),sChr,idCiclo)
Next
End Sub
Sub InsCar(sRiga,sChr,nPos)
Dim sLeft
Dim sRight
sLeft = Left(sRiga,nPos - 1)
sRight = Mid(sRiga,nPos + 1)
sRiga = sLeft & sChr & sRight
End Sub
Function IsScoperto(aCicli,qCicli)
Dim k,b
b = False
For k = 1 To qCicli
If aCicli(k,2) = 0 Then
b = True
Exit For
End If
Next
IsScoperto = b
End Function
Sub AzzeraCopertura(CollAmbi,qCicli)
Dim cAmbo
For Each cAmbo In CollAmbi
cAmbo.qCicli = qCicli
Next
End Sub
Sub GetAmboConPiuCopertura(cAmbo,CollAmbi)
Dim cAmboTmp
Dim nMax,n
nMax = 0
For Each cAmboTmp In CollAmbi
n = cAmboTmp.QuantitaCicliRapp
If n >= nMax Then
nMax = n
Set cAmbo = cAmboTmp
End If
Next
End Sub
Sub AggiornaAmbiUsciti(CollAmbi,Ruota,idEstr,idCiclo)
Dim k,kk,s
Dim cAmbo
ReDim aNum(0)
If GetArrayNumeriRuota(idEstr,Ruota,aNum) Then
Call OrdinaMatrice(aNum,1)
For k = 1 To 4
For kk = k + 1 To 5
s = "k" & Format2(aNum(k)) & "-" & Format2(aNum(kk))
Set cAmbo = CollAmbi(s)
Call cAmbo.SetFlagCiclo(idCiclo,1)
Next
Next
End If
End Sub
Sub InitACicli(aCicli,nLenCiclo,Inizio)
Dim k
Dim nStart
nStart = Inizio
For k = 1 To UBound(aCicli)
aCicli(k,2) = 0
aCicli(k,0) = nStart
aCicli(k,1) =(nStart - 1) + nLenCiclo
nStart = aCicli(k,1) + 1
Next
End Sub
Sub InitCollAmbi(CollAmbi,qCicli)
' sistemi che generano un elevato numero di combinazioni
Dim k,e,s
Dim nClasse
ReDim aNumeri(90)
Dim aColonne
Dim cAmbo
Set CollAmbi = GetNewCollection
nClasse = 2 ' sviluppo in ambi
' inizializzo i numeri da sviluppare in questo caso 90
' ma potrebbero essere anche di meno
For k = 1 To 90
aNumeri(k) = k
Next
' sviluppo il sistema valorizzando le colonne sviluppate
aColonne = SviluppoIntegrale(aNumeri,nClasse)
' scrivo le colonne in output
For k = 1 To UBound(aColonne)
Set cAmbo = New clsAmbo
cAmbo.qCicli = qCicli
s = "k"
' ciclo per leggere la colonna k
For e = 1 To nClasse
Call cAmbo.SetNumero(e,aColonne(k,e))
s = s & Format2(aColonne(k,e)) & "-"
Next
' tolgo l'ultimo trattino
s = Left(s,Len(s) - 1)
Call CollAmbi.Add(cAmbo,s)
Next
End Sub

a me da errore qui:

 Set cAmbo = CollAmbi(s)

Anche a me da errore qui dove ha indicato kubes . Peccato perchè mi sarebbe piaciuto provarlo comunque... Un saluto a tutti gli intervenuti a cominciare dal Maestro

 

[solare]

Ciao, a me l'errore lo da solo se analizzo tutte le ruote

 

[fillotto]

A me funziona ...... a patto che si esegua il sottonotato script (ho impostato 717 estrazioni)

 Option Explicit
Class clsAmbo
   Private aNum(2)
   Private aCicli()
   Private bUsato
   Private QcicliCopertiSeUsato
   Private sBit
   Property Get Bit
      Bit = sBit
   End Property
   Property Let Usato(b)
      bUsato = b
   End Property
   Property Get Usato
      Usato = bUsato
   End Property
   Property Let QCicli(v)
      ReDim aCicli(v)
   End Property
   Property Get QCicliCopertiSeInUso
      QCicliCopertiSeInUso = QcicliCopertiSeUsato
   End Property
   Property Get QuantitaCicliRapp
      Dim k,q
      q = 0
      For k = 1 To UBound(aCicli)
         If aCicli(k) <> 0 Then
            q = q + 1
         End If
      Next
      QuantitaCicliRapp = q
   End Property
   Sub SetFlagCiclo(id,b)
      aCicli(id) = b
   End Sub
   Function GetFlagCiclo(id)
      GetFlagCiclo = aCicli(id)
   End Function
   Sub SetNumero(id,v)
      aNum(id) = v
   End Sub
   Function GetNumeriString
      GetNumeriString = StringaNumeri(aNum,,True)
   End Function
   Sub GetNumeri(aRet)
      Dim k
      ReDim aRet(UBound(aNum))
      For k = 1 To UBound(aNum)
         aRet(k) = aNum(k)
      Next
   End Sub
   Sub AggiornaCicliCoperti
      Dim k
      sBit = ""
      QcicliCopertiSeUsato = QuantitaCicliRapp
      For k = 1 To UBound(aCicli)
         If aCicli(k) <> 0 Then
            sBit = sBit & "X"
         Else
            sBit = sBit & " "
         End If
      Next
   End Sub
End Class
Sub Main
   Dim CollAmbi,CollAmbiTrov
   Dim Inizio,Fine,nTotNelRange
   Dim nLenCiclo,qCicli
   Dim idCiclo,k
   Dim Ruota
   Dim cAmbo
   Dim nTrovati
   ReDim aRuote(1)
   ReDim aPoste(2)
   nTrovati = 0
   Ruota = ScegliRuota
   nLenCiclo = CInt(InputBox("Colpi di gioco","Colpi","12"))
   aRuote(1) = Ruota
   aPoste(2) = 1
   Inizio = EstrazioneIni
   Fine = EstrazioneFin
   nTotNelRange =(Fine + 1) - Inizio
   If nTotNelRange Mod nLenCiclo = 0 Then
      qCicli = nTotNelRange /nLenCiclo
   Else
      qCicli =((nTotNelRange -(nTotNelRange Mod nLenCiclo)) /nLenCiclo) + 1
   End If
   Call InitCollAmbi(CollAmbi,qCicli)
   ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
   Call GestioneRicercaAmbi(qCicli,aCicli,CollAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
   Call GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,CollAmbi)
   Call GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
   Call GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
End Sub
Sub GestioneRicercaAmbi(qCicli,aCicli,collAmbi,nLenCiclo,Inizio,Fine,Ruota,nTrovati)
   Dim idCiclo,k
   Dim cAmbo
   nTrovati = 0
   ReDim aCicli(qCicli,2) ' indice 0 InizioCiclo , Indice 1 Fine Ciclo , Indice 2 <> da 0 se coperto
   Call InitACicli(aCicli,nLenCiclo,Inizio)
   Do
      For idCiclo = 1 To qCicli
         If aCicli(idCiclo,2) = 0 Then
            For k = aCicli(idCiclo,0) To aCicli(idCiclo,1)
               Call AggiornaAmbiUsciti(collAmbi,Ruota,k,idCiclo)
            Next
         End If
         Call AvanzamentoElab(1,qCicli,idCiclo)
         If ScriptInterrotto Then Exit Sub
      Next
      Call GetAmboConPiuCopertura(cAmbo,collAmbi)
      If Not cAmbo Is Nothing Then
         nTrovati = nTrovati + 1
         cAmbo.Usato = True
         Call cAmbo.AggiornaCicliCoperti
         For idCiclo = 1 To qCicli
            If cAmbo.GetFlagCiclo(idCiclo) <> 0 Then
               aCicli(idCiclo,2) = 1
            End If
         Next
      Else
         Exit Do
      End If
      Call Messaggio("Ambi trovati " & nTrovati)
      Call AzzeraCopertura(collAmbi,qCicli)
      If ScriptInterrotto Then Exit Sub
   Loop While IsScoperto(aCicli,qCicli)
End Sub
Sub GestioneAnalisiGiocate(qCicli,aCicli,CollAmbi,aRuote,aPoste,nLenCiclo)
   Dim idCiclo,k
   Dim cAmbo
   Call Messaggio("Analisi Giocate")
   For idCiclo = 1 To qCicli
      k = 0
      For Each cAmbo In CollAmbi
         If cAmbo.usato Then
            k = k + 1
            ReDim aNum(0)
            Call cAmbo.GetNumeri(aNum)
            Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
            'Call Scrivi(StringaNumeri(aNum))
         End If
      Next
      Call Gioca(aCicli(idCiclo,0) - 1,True)
      Call AvanzamentoElab(1,qCicli,idCiclo)
      If ScriptInterrotto Then Exit Sub
   Next
   k = 0
   For Each cAmbo In CollAmbi
      If cAmbo.usato Then
         k = k + 1
         ReDim aNum(0)
         Call cAmbo.GetNumeri(aNum)
         Call ImpostaGiocata(k,aNum,aRuote,aPoste,nLenCiclo,2,,1)
         'Call Scrivi(StringaNumeri(aNum))
      End If
   Next
   Call ScriviResoconto()
End Sub
Sub GestioneQuadroCopertura(qCicli,aCicli,CollAmbi,nTrovati)
   Dim cAmbo
   Dim idCiclo,k
   Dim sTmp
   Dim sRigaBit
   Call Scrivi("Quadro copertura ambi")
   ReDim aT(3 + qCicli)
   aT(1) = " N. "
   aT(2) = " Ambo "
   aT(3) = " Cicli coperti "
   For k = 1 To qCicli
      aT(k + 3) = aCicli(k,0) & "-" & aCicli(k,1)
   Next
   Call Messaggio("Creazione tabella copertura")
   Call InitTabella(aT)
   ReDim aLineeBit(nTrovati)
   nTrovati = 0
   For Each cAmbo In CollAmbi
      If cAmbo.usato Then
         nTrovati = nTrovati + 1
         aLineeBit(nTrovati) = cAmbo.Bit
         ReDim aT(3 + qCicli)
         aT(1) = nTrovati
         aT(2) = cAmbo.GetNumeriString
         aT(3) = cAmbo.QCicliCopertiSeInUso
         For k = 1 To qCicli
            aT(k + 3) = Mid(cAmbo.Bit,k,1)
         Next
         ReDim aColoreCelle(UBound(aT))
         Call ImpostaArrayColoreCelle(aColoreCelle,aT)
         Call AddRigaTabella(aT,aColoreCelle)
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   sRigaBit = ""
   For idCiclo = 1 To qCicli
      sTmp = "-"
      For k = 1 To UBound(aLineeBit)
         If Mid(aLineeBit(k),idCiclo,1) = "X" Then
            sTmp = "X"
            Exit For
         End If
      Next
      sRigaBit = sRigaBit & sTmp
   Next
   'Call Scrivi(Space(20) & sRigaBit)
   ReDim aT(3 + qCicli)
   For k = 1 To qCicli
      aT(k + 3) = Mid(sRigaBit,k,1)
   Next
   ReDim aColoreCelle(UBound(aT))
   Call ImpostaArrayColoreCelle(aColoreCelle,aT)
   Call AddRigaTabella(aT,aColoreCelle)
   Call CreaTabella
End Sub
Sub GestioneIntstazioneOutput(qCicli,Ruota,Inizio,Fine,nLenCiclo,nTrovati,Collambi)
   Dim sTmp
   Dim cAmbo
   Call Scrivi(String(100,"."))
   Call Scrivi("Ruota : " & NomeRuota(Ruota))
   Call Scrivi("Periodo : " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(Fine))
   Call Scrivi("Colpi per singolo attacco : " & nLenCiclo)
   Call Scrivi("Totale attacchi : " & qCicli)
   Call Scrivi
   Call Scrivi(Space(20) & "Descrizione del gioco",True)
   Call Scrivi("Giocando i seguenti " & nTrovati & " ambi impostando il gioco in " & nLenCiclo & " colpi di gioco")
   Call Scrivi("per ogni attacco e interrompendo alla prima vincita per riprenderlo")
   Call Scrivi("con l'attacco successivo previsto al termine naturale dell'attacco")
   Call Scrivi("in corso si sarebbero ottenuti i seguenti risutati di gioco")
   Call Scrivi("Attenzione non è detto che giocando questa serie di ambi nelle estrazioni",,,,vbRed)
   Call Scrivi("successive a quelle esaminate si otttenga per certo la vincita",,,,vbRed)
   Call Scrivi(String(100,"."))
   Call Scrivi()
   sTmp = ""
   For Each cAmbo In Collambi
      If cAmbo.usato Then
         sTmp = sTmp &(cAmbo.GetNumeriString) & ","
      End If
   Next
   sTmp = Left(sTmp,Len(sTmp) - 1)
   Call Scrivi("Ambi in gioco : " & sTmp)
   Call Scrivi(String(100,"."))
   Call Scrivi()
End Sub
Sub ImpostaArrayColoreCelle(aColoreCelle,aT)
   Dim k
   For k = 1 To UBound(aT)
      If aT(k) = "X" Then
         aColoreCelle(k) = vbGreen
      Else
         aColoreCelle(k) = vbWhite
      End If
   Next
End Sub
Sub AggiornaRigheBuf(aRighe,nInizio,nFine,idCiclo)
   Dim k
   Dim sChr
   Dim sTmp
   sTmp = FormatSpace(nInizio,4,True)
   For k = 1 To 4
      sChr = Mid(sTmp,k,1)
      Call InsCar(aRighe(k),sChr,idCiclo)
   Next
   sTmp = FormatSpace(nFine,4,True)
   For k = 6 To 9
      sChr = Mid(sTmp,k - 5,1)
      Call InsCar(aRighe(k),sChr,idCiclo)
   Next
End Sub
Sub InsCar(sRiga,sChr,nPos)
   Dim sLeft
   Dim sRight
   sLeft = Left(sRiga,nPos - 1)
   sRight = Mid(sRiga,nPos + 1)
   sRiga = sLeft & sChr & sRight
End Sub
Function IsScoperto(aCicli,qCicli)
   Dim k,b
   b = False
   For k = 1 To qCicli
      If aCicli(k,2) = 0 Then
         b = True
         Exit For
      End If
   Next
   IsScoperto = b
End Function
Sub AzzeraCopertura(CollAmbi,qCicli)
   Dim cAmbo
   For Each cAmbo In CollAmbi
      cAmbo.qCicli = qCicli
   Next
End Sub
Sub GetAmboConPiuCopertura(cAmbo,CollAmbi)
   Dim cAmboTmp
   Dim nMax,n
   nMax = 0
   For Each cAmboTmp In CollAmbi
      n = cAmboTmp.QuantitaCicliRapp
      If n >= nMax Then
         nMax = n
         Set cAmbo = cAmboTmp
      End If
   Next
End Sub
Sub AggiornaAmbiUsciti(CollAmbi,Ruota,idEstr,idCiclo)
   Dim k,kk,s
   Dim cAmbo
   ReDim aNum(0)
   If GetArrayNumeriRuota(idEstr,Ruota,aNum) Then
      Call OrdinaMatrice(aNum,1)
      For k = 1 To 4
         For kk = k + 1 To 5
            s = "k" & Format2(aNum(k)) & "-" & Format2(aNum(kk))
            Set cAmbo = CollAmbi(s)
            Call cAmbo.SetFlagCiclo(idCiclo,1)
         Next
      Next
   End If
End Sub
Sub InitACicli(aCicli,nLenCiclo,Inizio)
   Dim k
   Dim nStart
   nStart = Inizio
   For k = 1 To UBound(aCicli)
      aCicli(k,2) = 0
      aCicli(k,0) = nStart
      aCicli(k,1) =(nStart - 1) + nLenCiclo
      nStart = aCicli(k,1) + 1
   Next
End Sub
Sub InitCollAmbi(CollAmbi,qCicli)
   ' sistemi che generano un elevato numero di combinazioni
   Dim k,e,s
   Dim nClasse
   ReDim aNumeri(90)
   Dim aColonne
   Dim cAmbo
   Set CollAmbi = GetNewCollection
   nClasse = 2 ' sviluppo in ambi
   ' inizializzo i numeri da sviluppare in questo caso 90
   ' ma potrebbero essere anche di meno
   For k = 1 To 90
      aNumeri(k) = k
   Next
   ' sviluppo il sistema valorizzando le colonne sviluppate
   aColonne = SviluppoIntegrale(aNumeri,nClasse)
   ' scrivo le colonne in output
   For k = 1 To UBound(aColonne)
      Set cAmbo = New clsAmbo
      cAmbo.qCicli = qCicli
      s = "k"
      ' ciclo per leggere la colonna k
      For e = 1 To nClasse
         Call cAmbo.SetNumero(e,aColonne(k,e))
         s = s & Format2(aColonne(k,e)) & "-"
      Next
      ' tolgo l'ultimo trattino
      s = Left(s,Len(s) - 1)
      Call CollAmbi.Add(cAmbo,s)
   Next
End Sub

 

[fillotto]

parte del resoconto

 [FONT=Courier New][SIZE=2][COLOR=#000000]....................................................................................................[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Ruota : Bari[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Periodo : [08904] [115] 25.09.2014 - [09620] [ 49] 23.04.2019[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Colpi per singolo attacco : 12[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Totale attacchi : 60[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000][B]                    Descrizione del gioco[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Giocando i seguenti 14 ambi impostando il gioco in 12 colpi di gioco[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]per ogni attacco e interrompendo alla prima vincita per riprenderlo[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]con l'attacco successivo previsto al termine naturale dell'attacco[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]in corso si sarebbero ottenuti i seguenti risutati di gioco[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000]Attenzione non è detto che giocando questa serie di ambi nelle estrazioni[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000]successive a quelle esaminate si otttenga per certo la vincita[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]....................................................................................................[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]Ambi in gioco : 03.40,03.84,23.48,31.81,32.78,57.65,62.69,62.87,65.83,69.76,71.80,73.74,73.75,75.76[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]....................................................................................................[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]Quadro copertura ambi[/COLOR][/SIZE][/FONT]    [TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]N. [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Ambo [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Cicli coperti [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8904-8915 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8916-8927 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8928-8939 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8940-8951 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8952-8963 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8964-8975 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8976-8987 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8988-8999 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9000-9011 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9012-9023 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9024-9035 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9036-9047 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9048-9059 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9060-9071 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9072-9083 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9084-9095 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9096-9107 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9108-9119 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9120-9131 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9132-9143 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9144-9155 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9156-9167 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9168-9179 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9180-9191 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9192-9203 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9204-9215 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9216-9227 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9228-9239 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9240-9251 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9252-9263 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9264-9275 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9276-9287 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9288-9299 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9300-9311 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9312-9323 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9324-9335 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9336-9347 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9348-9359 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9360-9371 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9372-9383 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9384-9395 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9396-9407 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9408-9419 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9420-9431 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9432-9443 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9444-9455 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9456-9467 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9468-9479 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9480-9491 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9492-9503 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9504-9515 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9516-9527 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9528-9539 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9540-9551 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9552-9563 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9564-9575 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9576-9587 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9588-9599 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9600-9611 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9612-9623 [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]1 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]03.40 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]03.84 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]6 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]3 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]23.48 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]4 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]4 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]31.81 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]3 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]5 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]32.78 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]4 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]6 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]57.65 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]4 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]7 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]62.69 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]3 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]62.87 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]5 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]9 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]65.83 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]6 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]10 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]69.76 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]1 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]11 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]71.80 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]12 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]73.74 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]4 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]13 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]73.75 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]8 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]14 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]75.76 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]2 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 			[TD="bgcolor: #ffffff, align: center"] [/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]  [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #00ff00, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]X [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[/TABLE]

 

[LuigiB]

tom ma non era lo stesso script che avevi segnalato tu 10 15 giorni fa ? il problema era sul range .. bisogna lasciare qualche estrazione alla fine ...

 

[fillotto]

Luigi se invece degli ambi si può fare con le terzine con uscita di ambo? questo script mi sembra di ricordare lo hai fatto tu ... non è che potresti modificarlo?

 

[LuigiB]

certo che l'ho fatto io, ma non certo perche pensavo servisse a qualcosa in termini di lotto ... doveva servire ad insegnarvi .. bho sarò un presuntuoso ...
devi scusarmi ma non intendo minimamente fare alcuna modifica

 

[fillotto]

OK ! va bene lo stesso

 

[fillotto]

Grazie Magia !!!!!

 

[solare]

Ciao Magia, grazie per questa modifica di questo capolavoro di Luigi
potresti aggiungere la possibilità di selezionare quante estrazioni voglio elaborare la statistica ?
Grazie

 

[lotto_tom75]

Magico magia . Script molto interessante per analisi cicliche a copertura teorica. Manca forse solo una ciliegina su questa torta buonissima... E cioè la famosa tabella colorata per immissione del gruppo numerico desiderato.

Ho provato ad inserirla così...



ma ovviamente non funzia

Puoi fare tu una piccola magia ed inserirla per noi tutti senza disturbare il Maestro che saluto insieme a Te grande magia e a tutti gli intervenuti in questo thread? Grazie 1000 comunque e Good Lucky Saturday

 

[alexvisco]

Grazie Magia, ho riprovato lo script , i tempi di attesa sono un pò lunghi, si potrebbe inserire quante estrazioni vogliamo controllare?