Novità

Script per analizzare archivi destrutturati... o personalizzati in qualsiasi modo...

lotto_tom75

Advanced Premium Member
Buongiorno, chiedo a tutti gli scripters in grado di farlo se qualcuno/a possa realizzare uno script che appunto consenta l'analisi e il confronto tra due file txt per RA, RS e magari anche per INCMAX indipendentemente dal tipo di gioco esaminato...

Cerco di spiegarmi meglio...

L'idea mi è venuta cercando di affrontare il million day... ma ovviamente concettualmente può valere appunto anche per qualsiasi altro tipo di gioco come il l8 e il super per esempio.

Ho pensato di smontare i numeri estratti dall'inizio delle estrazioni ad oggi e di analizzare solo i parametri statistici dei rispettivi componenti. Portandoli quindi da una massa generale di 55 a soli 10 ovvero ai soli "mattoncini" costituenti qualsiasi altro numero 0,1,2,3,4,5,6,7,8,9

Poi con uno script "per adesso mancante e oggetto di questa richiesta" appunto vorrei analizzare i vari ritardi di questi soli 10 elementi che saranno nel relativo file txt da analizzare presenti nelle rispettive 10 colonnine intervallate da un carattere (una virgola ad esempio).

Es.

Nel primo file denominato: ARCHIVIO-DESTRUTTURATO-PERSONALIZZATO.txt ci andrà qualcosa di questo genere...

data,c1,c2,c3,c4,c5,c6,c7,c8,c9,c10
07/02/2018,1,6,0,7,4,3,4,4,5,1
08/02/2018,5,3,1,5,3,8,2,6,2,7
09/02/2018,4,3,4,5,1,3,3,1,0,2
10/02/2018,4,7,4,6,4,4,2,8,4,9
11/02/2018,0,5,3,9,4,0,4,6,3,3

ecc...


Come si può notare ogni colonnina riporta un elemento (sx o dx) del rispettivo numero uscito nella estrazione di riferimento... Tanto per fare un esempio: al 7-2-2018 uscirono: 16-7-43-44-51 che appunto destrutturati sono : 1,6,0,7,4,3,4,4,5,1 anteponendo lo 0 prima di ogni numero "singolo" come il 7 in questo es.

Lo script dovrebbe analizzare questo file txt (COLONNA PER COLONNA) e riportare in un altro file txt magari o solo a video... qualcosa di questo genere:

COLONNA 1:

0: ra 0 rs 5 incmax 0
1: ra 10 rs 13 incmax 0
2: ra 23 rs 23 incmax 5
3: ra 44 rs 44 incmax 11

ecc..

9: ra 3 rs:20 incmax 0

COLONNA 2:
idem con patate :)

COLONNA 3:
idem

COLONNA 4:
idem

ecc...

fino a...

COLONNA 10


Spero di essere stato sufficientemente chiaro nell'esporvi cosa mi servirebbe al momento e sopratutto che qualcuno/a sia in grado e abbia voglia di realizzarlo senza scomodare il Maestro LuigiB che saluto calorosamente :). Se così non è.. :( e avete bisogno di altre delucidazioni sono pronto a darvele h24 :) Grazie e Good Saturday a tutti/e
 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
però, pensandoci bene, la cosa non può funzionare bene esempio il 9 in 1^ 3^ 5^ 7^ e 9^ posizione avrà ritardi e frequenze diverse (non equivalenti) a quelle che potrebbe avere , per esempio un 2 ...ecc
 
M

Membro cancellato 16574

Guest
Buongiorno,
Salutando tutti gli intervenuti ,
Se abbiamo capito bene bisogna trasformare l' estrazione in decina e cadenza di ognuno dei 5 estratti.
secondo noi , forse il problema maggiore , e' che facendo la trasformazione delle estrazioni , in questo modo :
Codice:
00380,21/02/2019,3,5,0,5,4,2,3,4,1,9
00381,22/02/2019,2,2,1,8,1,2,0,6,1,9
00382,23/02/2019,2,7,2,9,4,1,0,3,0,2
00383,24/02/2019,3,1,0,3,1,4,4,7,1,2
00384,25/02/2019,1,3,0,3,5,5,3,1,4,2

Il valore " 0 " , non viene letto , perche e Nullo,
Una posssibile soluzione , sarebbe di trasformarlo in valore " 10 ".
Pero , se i piu' esperti , LuigiB,Mike68,Joe91,Rubino,Ilegend,beppignello salvo50 ,
e tutti gli altri piu' competenti dei sottoscritti , hanno una soluzione si facciano avanti .
 
R

Rubino

Guest
per mantenere la struttura e la leggibilità dei numeri reali usciti, lo zero va tenuto
esempio se li prendo 2 a 2 , leggo 3,5 - 0,5 - 5,4 - 2,3 - 1,9 che è l'estrazione uscita, ottengo 10 numeretti
per farci sopra delle statistiche è meglio che siano così
io ho usato questo metodo.

invece

se è riferito a quanto si sta leggendo in questi ultimi giorni, in alcuni thread, un metodo di scomposizione di AM lo zero va tolto, perchè non significativo e perchè il metodo è posizionale.

inoltre

il criterio di disposizione è

dalla 1 alla 10 posizione dei numeretti e non dalla 0 alla 9



questo è un esempio di come ho fatto io, è una specie di situazione statistica di posizione

[codice]
Ruota di Milano Estrazione n.9595 / 23.02.2019
N.Estrazioni considerate...10

Posizione..Elab..1
--------Estratti Estrazione------ 1 2 3 4 5 6 7 8 9 0 pre 1 2 3 4 5 6 7 8 9 0
9586....4 0 1 3 6 7 3 9 1 9.....| .-.-.-4-.-.-.-.-.-. ||| .-.-.-x-.-.-.-.-.-.
9587....3 9 1 5 6 6 3 4 3 5.....| .-.-3-.-.-.-.-.-.-. ||| .-.-x-.-.-.-.-.-.-.
9588....2 8 1 9 7 4 3 1 5 5.....| .-2-.-.-.-.-.-.-.-. ||| .-x-.-.-.-.-.-.-.-.
9589....8 3 5 8 2 6 0 7 1 4.....| .-.-.-.-.-.-.-8-.-. ||| .-.-.-.-.-.-.-x-.-.
9590....7 7 2 9 5 0 6 2 0 7.....| .-.-.-.-.-.-7-.-.-. ||| .-.-.-.-.-.-x-.-.-.
9591....2 7 0 3 6 6 1 4 7 3.....| .-2-.-.-.-.-.-.-.-. ||| .-x-.-.-.-.-.-.-.-.
9592....4 8 4 2 7 6 4 5 5 0.....| .-.-.-4-.-.-.-.-.-. ||| .-.-.-x-.-.-.-.-.-.
9593....6 1 6 2 6 9 8 0 3 2.....| .-.-.-.-.-6-.-.-.-. ||| .-.-.-.-.-x-.-.-.-.
9594....5 4 5 8 5 6 0 1 1 0.....| .-.-.-.-5-.-.-.-.-. ||| .-.-.-.-x-.-.-.-.-.
9595....0 2 1 4 3 0 8 7 3 2.....| .-.-.-.-.-.-.-.-.-D ||| .-.-.-.-.-.-.-.-.-x
Posizione..Elab..2
--------Estratti Estrazione------ 1 2 3 4 5 6 7 8 9 0 pre 1 2 3 4 5 6 7 8 9 0
9586....4 0 1 3 6 7 3 9 1 9.....| .-.-.-.-.-.-.-.-.-D ||| .-.-.-.-.-.-.-.-.-x
9587....3 9 1 5 6 6 3 4 3 5.....| .-.-.-.-.-.-.-.-9-. ||| .-.-.-.-.-.-.-.-x-.
9588....2 8 1 9 7 4 3 1 5 5.....| .-.-.-.-.-.-.-8-.-. ||| .-.-.-.-.-.-.-x-.-.
9589....8 3 5 8 2 6 0 7 1 4.....| .-.-3-.-.-.-.-.-.-. ||| .-.-x-.-.-.-.-.-.-.
9590....7 7 2 9 5 0 6 2 0 7.....| .-.-.-.-.-.-7-.-.-. ||| .-.-.-.-.-.-x-.-.-.
9591....2 7 0 3 6 6 1 4 7 3.....| .-.-.-.-.-.-7-.-.-. ||| .-.-.-.-.-.-x-.-.-.
9592....4 8 4 2 7 6 4 5 5 0.....| .-.-.-.-.-.-.-8-.-. ||| .-.-.-.-.-.-.-x-.-.
9593....6 1 6 2 6 9 8 0 3 2.....| 1-.-.-.-.-.-.-.-.-. ||| x-.-.-.-.-.-.-.-.-.
9594....5 4 5 8 5 6 0 1 1 0.....| .-.-.-4-.-.-.-.-.-. ||| .-.-.-x-.-.-.-.-.-.
9595....0 2 1 4 3 0 8 7 3 2.....| .-2-.-.-.-.-.-.-.-. ||| .-x-.-.-.-.-.-.-.-.
Posizione..Elab..3
--------Estratti Estrazione------ 1 2 3 4 5 6 7 8 9 0 pre 1 2 3 4 5 6 7 8 9 0
9586....4 0 1 3 6 7 3 9 1 9.....| 1-.-.-.-.-.-.-.-.-. ||| x-.-.-.-.-.-.-.-.-.
9587....3 9 1 5 6 6 3 4 3 5.....| 1-.-.-.-.-.-.-.-.-. ||| x-.-.-.-.-.-.-.-.-.
9588....2 8 1 9 7 4 3 1 5 5.....| 1-.-.-.-.-.-.-.-.-. ||| x-.-.-.-.-.-.-.-.-.
9589....8 3 5 8 2 6 0 7 1 4.....| .-.-.-.-5-.-.-.-.-. ||| .-.-.-.-x-.-.-.-.-.
9590....7 7 2 9 5 0 6 2 0 7.....| .-2-.-.-.-.-.-.-.-. ||| .-x-.-.-.-.-.-.-.-.
9591....2 7 0 3 6 6 1 4 7 3.....| .-.-.-.-.-.-.-.-.-D ||| .-.-.-.-.-.-.-.-.-x
9592....4 8 4 2 7 6 4 5 5 0.....| .-.-.-4-.-.-.-.-.-. ||| .-.-.-x-.-.-.-.-.-.
9593....6 1 6 2 6 9 8 0 3 2.....| .-.-.-.-.-6-.-.-.-. ||| .-.-.-.-.-x-.-.-.-.
9594....5 4 5 8 5 6 0 1 1 0.....| .-.-.-.-5-.-.-.-.-. ||| .-.-.-.-x-.-.-.-.-.
9595....0 2 1 4 3 0 8 7 3 2.....| 1-.-.-.-.-.-.-.-.-. ||| x-.-.-.-.-.-.-.-.-.


[/codice]

se invece si deve decodificare tutto l'archivio, l'esempio di magia fatto sopra,
secondo il mio punto di vista mi sembra buono.
 
Ultima modifica di un moderatore:

fillotto

Advanced Member >PLATINUM<
proviamo a inviare l'immagine di cattura PerTom2.jpg Questo è come faccio io scusate torno dopo devo uscire poi spiego
 

fillotto

Advanced Member >PLATINUM<
Allora questa è la situazione delle ultime 19 estrazioni della ruota di bari la prima estraz che si vede è quella relativa al 12/1/19 nell' inrervallo K3:T3 scompongo in 10 numeretti, compreso lo 0, la suddetta estrazione;nell'intervallo V3:AE3 conto quanti "0" , quanti" 1" ...2 ...3 ecc sono presenti in quella estrazione copio questo intervallo (V3:AE3) e lo piazzo paro paro in K2 (solo i valori) in AF3 uso la funzione "Correlazione" fra i 2 intervalli fin qui presi in considerazione e ovviamente mi darà 1 .A questo punto con le frecce per andaare indietro con le estrazioni vado a trovare un estrazione avente possibilmente gli stessi numeretti ovvero quella che maggiormente "CORRELATA" nel caso specifico la prima che trovo è quella del 5 /7/18 la pongo virtualmente in gioco e vedete mi da 3 ambi in 18 estrazioni ....... ovvio non capita sempre così:rolleyes:





 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
Non saprei , la funzione "correlazione" non esiste in spaziometria si potrebbe fare , io non ne sono capace ,i soliti scripters spero si vogliano cimentare.Una curiosità, se invece della cinquina che ho trovato correlata all'84% si avesse giocato anche la cinquina cosidetta generatice (quindi 10 numeri) avremmo avuto il terno!
 

fillotto

Advanced Member >PLATINUM<
destruraz.jpg.PNG
Anche in questo caso ambo in cinquina la cinquina "generatrice" è quella successiva al topic # 6
quella da comparare è dell'1/3/18 questa volta si è dovuto aspettare 18 estr. ma sempre in tempo utile per avere un guadagno.Se qualcuno si volesse cimentare in uno script.....
 
M

Membro cancellato 16574

Guest
Buongiorno ,
Salutando tutti ,gli intervenuti .
Per fare il listato richiesto da fillotto ,
per prima cosa e' indispensabile trovare una soluzione alla funzione " CORRELAZIONE ".
Per Cui ritorniamo a chiamare in causa :
LuigiB , Joe91 , Mike58 , Ilegend , Rubino , salvo50 , Beppignello , e gli altri scripter in ascolto .
Quando saranno disponibili .
Nel frattempo , qui si puo' trovare gia' dei lavori :

CORRELAZIONE

CORRELAZIONE

CORRELAZIONE

Controllare Sempre .
Salvo Errori ed Omissis .
 
L

LuigiB

Guest
porting di uno degli esempi proposti da magia

Codice:
Option Explicit
Sub Main
   ReDim a1(10)
   ReDim a2(10)
   Dim k
   For k = 1 To 10
      a1(k) = NumeroCasuale(0,9)
      a2(k) = NumeroCasuale(0,9)
      Scrivi(a1(k) & " - " & a2(k))
   Next
   Scrivi
   Scrivi "Correlazione : " & Correl(a1,a2,10)
End Sub
Function Correl(X,Y,Num)
   Dim muX,muY
   Dim Sxx,Sxy,Syy
   Dim sumX,sumY
   Dim sumX2,sumXY,sumY2
   Dim l
   sumX = 0
   sumY = 0
   sumX2 = 0
   sumY2 = 0
   sumXY = 0
   For l = 1 To Num
      sumX = sumX + X(l)
      sumY = sumY + Y(l)
      sumX2 = sumX2 +(X(l) * X(l))
      sumY2 = sumY2 +(Y(l) * Y(l))
      sumXY = sumXY +(X(l) * Y(l))
   Next
   muX = sumX / Num
   muY = sumY / Num
   Sxx = sumX2 - Num * muX * muX
   Syy = sumY2 - Num * muY * muY
   Sxy = sumXY - Num * muX * muY
   Correl = Sxy / Sqr(Sxx * Syy)
End Function ' Correl
 
Ultima modifica di un moderatore:
L

LuigiB

Guest
un esempio di applicazione su archivio dei numeretti della funzioen precedente

Codice:
Option Explicit
Class clsEstrazioneNumeretti
   Public aNumeretti
   Sub Inizializza(aEstratti)

      Dim k,i
      ReDim aNumeretti  (10)
      For k = 1 To 5
         i = i + 1
         aNumeretti(i) = Int(aEstratti(k)/10)
         i = i + 1
         aNumeretti(i) = aEstratti(k) Mod 10
      Next
   End Sub
   Function StringaNumeri
      Dim k , sRet

      sRet = ""
      For k = 1 To 9
         sRet = sRet & aNumeretti(k) & "."
      Next
      sRet = sRet & aNumeretti(k)
      StringaNumeri = sRet
   End Function
End Class

Sub Main

   Dim k ,r, sRiga  , Inizio , Fine


   Inizio = EstrazioneIni
   Fine = EstrazioneFin

   ' creo la matrice contenente le estrazioni in formato numeretti
   Dim aEstrNumeretti ' (Inizio to Fine , 1 to 12)  11 non usato perche la naz è 12
   Call EstrazioniToNumeretti(Inizio,Fine,aEstrNumeretti)



   ' esempio per la funzione correlazione

    Call Scrivi ("Correlazione tra la prima  estrazione di Bari e Cagliari : "  & Correl (aEstrNumeretti (Inizio , BA_).aNumeretti ,aEstrNumeretti (Inizio , CA_ ).aNumeretti , 10  ))

    Call Scrivi

   ' scrivo le estraszioni numeretti in output
   sRiga = ""
   For r = 1  To 12
      If r <> 11 Then
         sRiga  = sRiga &  FormatSpace (  NomeRuota(r)  ,22 )
      End If
   Next
   Call Scrivi (sRiga)
   For k = EstrazioneIni To EstrazioneFin
      sRiga = ""
      For r = 1 To 12
         If r <> 11 Then
            sRiga = sRiga &  aEstrNumeretti (k ,r).StringaNumeri & " * "  
         End If
      Next
      Call Scrivi (sRiga)

   Next





End Sub



Sub EstrazioniToNumeretti(Inizio,Fine,aEstrNumeretti)

   Dim idEstr , r
   Dim aNumeri
   ReDim aEstrNumeretti(Fine,12)
   For idEstr = Inizio To Fine
      For r = 1 To 12
         If r <> 11 Then
            Call GetArrayNumeriRuota(idEstr,r,aNumeri)
            Set aEstrNumeretti(idEstr , r) = New clsEstrazioneNumeretti
            Call aEstrNumeretti(idEstr,r).Inizializza(aNumeri)
          End If
      Next
   Next
End Sub

Function Correl(X,Y,Num)
   Dim muX,muY
   Dim Sxx,Sxy,Syy
   Dim sumX,sumY
   Dim sumX2,sumXY,sumY2
   Dim l
   sumX = 0
   sumY = 0
   sumX2 = 0
   sumY2 = 0
   sumXY = 0
   For l = 1 To Num
      sumX = sumX + X(l)
      sumY = sumY + Y(l)
      sumX2 = sumX2 +(X(l) * X(l))
      sumY2 = sumY2 +(Y(l) * Y(l))
      sumXY = sumXY +(X(l) * Y(l))
   Next
   muX = sumX / Num
   muY = sumY / Num
   Sxx = sumX2 - Num * muX * muX
   Syy = sumY2 - Num * muY * muY
   Sxy = sumXY - Num * muX * muY
   Correl = Round (Sxy / Sqr(Sxx * Syy) ,3)

End Function ' Correl
 

zagort

Super Member >GOLD<
per non scomodare sempre Luigi,ora che abbiamo gli archivi.....come inserire le altre funzioni come da esempio di filotto... (non sono
riuscito neanche a mettere la terza ruota...è tutto un dire)
Call Scrivi ("Correlazione tra la prima estrazione di Bari e Cagliari : " & Correl (aEstrNumeretti (Inizio , BA_).aNumeretti ,aEstrNumeretti (Inizio , CA_ ).aNumeretti ,aEstrNumeretti (Inizio , fi_ ).aNumeretti , 10 ))
 
L

LuigiB

Guest
Ciao Zagort , non potrai mai riuscire a mettere 3 ruote per il semplice fatto che la correlazione si fa tra due sogetti e non 3 ...quindi la funzione accetta solo due vettori ciascuno riferito ai numeretti di una ruota ..
 

zagort

Super Member >GOLD<
lo porto su ....tante volte qualcuno si cimenterà..................come gia ribadito piu volte sappiamo che i metodi lasciano il tempo che trovano...ma è fuori dai soliti canoni
 
L

LuigiB

Guest
questo script consente di specificare la ruota principale ovvero quella da cui prendere l'estrazione da correlare alle altre
e cerca all'indietro sulle ruote di gioco l'estrazione correlata , appena la trova la pone in gioco

non chiedetemi nessuna aggiunta e nessuna modifica.

Codice:
Option Explicit
Dim aEstrNumeretti ' (Inizio to Fine , 1 to 12)  11 non usato perche la naz è 12
Class clsEstrazioneNumeretti
   Public aNumeretti
   Sub Inizializza(aEstratti)
      Dim k,i
      ReDim aNumeretti(10)
      For k = 1 To 5
         i = i + 1
         aNumeretti(i) = Int(aEstratti(k)/10)
         i = i + 1
         aNumeretti(i) = aEstratti(k) Mod 10
      Next
   End Sub
   Function StringaNumeri
      Dim k,sRet
      sRet = ""
      For k = 1 To 9
         sRet = sRet & aNumeretti(k) & "."
      Next
      sRet = sRet & aNumeretti(k)
      StringaNumeri = sRet
   End Function
End Class
Sub Main
   Dim Inizio,Fine
   Dim nRuota,nRuote,aRuote,nCorrelMin,nColpiDiGioco
   Dim idEstr,nCorrel,nRuotaCorrel,nIdEstrcorrel
   Dim nDurata,nSorte,nRetColpi
   Const cPrimaValida = 0
   Const cMigliore = 1
   Inizio = EstrazioneIni
   Fine = EstrazioneFin
   MsgBox "Inserire la ruota da cui prendere l'estrazione da confrontare"
   nRuota = ScegliRuota
   MsgBox "Inserire le ruote di gioco"
   nRuote = ScegliRuote(aRuote)
   MsgBox "Inserire il valore minimo di correlazione"
   nCorrelMin = CSng(InputBox("Valore minimo di correlazione ",,"0,7"))
   ReDim aPoste(5)
   nSorte = 2
   aPoste(nSorte) = 1
   nDurata = GetPremioLotto(5,nSorte,nRuote)/ nRuote

   If nRuota > 0 And nRuote > 0 Then
      ReDim Preserve aRuote (nRuote)
      ' creo la matrice contenente le estrazioni in formato numeretti
      ' Dim aEstrNumeretti ' (Inizio to Fine , 1 to 12)  11 non usato perche la naz è 12
      Call EstrazioniToNumeretti(1,Fine,aEstrNumeretti)
      For idEstr = Inizio To Fine-1
         ReDim aRetNum(0)
         If GetEstrazionePiuCorrelata(idEstr,nRuota,aRuote,nCorrelMin,aRetNum,nCorrel,nRuotaCorrel,nIdEstrcorrel,cPrimaValida) Then

            Call Scrivi("Ruota principale : " & GetInfoEstrazione(idEstr) & " "  & SiglaRuota(nRuota) & " - " & StringaEstratti(idEstr,nRuota))
            Call Scrivi("Ruota correlata  : " & GetInfoEstrazione(nIdEstrcorrel) & " " & SiglaRuota(nRuotaCorrel) & " - " & StringaEstratti(nIdEstrcorrel,nRuotaCorrel))
            Call Scrivi("Valore correl.   : " & nCorrel)

            Call ImpostaGiocata(1,aRetNum,aRuote,aPoste,nDurata,nSorte)
            Call Gioca(idEstr + 1)
            If VerificaEsito(aRetNum,aRuote,idEstr + 1,nSorte,nDurata,,,nRetColpi) Then
               idEstr = idEstr + nRetColpi
            End If
         End If
         Call AvanzamentoElab( Inizio , Fine , idEstr)
         If ScriptInterrotto Then Exit For

      Next
      Call ScriviResoconto
   Else
      MsgBox "Paramentri mancanti"
   End If

End Sub
Function GetEstrazionePiuCorrelata(idEstr,nRuota,aRuote,nCorrelMin,aRetNum,nRetCorrel,nRetRuotaCorrel,nIdEstrcorrel,TipoRicerca)
   ReDim aNumRuota(0)
   Dim k,r,nCorrel,nCorrelMax
   ReDim aRetNum(0)
   nRetCorrel = 0
   nRetRuotaCorrel = 0
   nIdEstrcorrel = 0
   For k = idEstr - 1 To 1 Step - 1
      For r = 1 To UBound(aRuote)
         nCorrel = Correl(aEstrNumeretti(idEstr,nRuota).aNumeretti,aEstrNumeretti(k,aRuote(r)).aNumeretti,10)
         ' nCorrel = CorrelNumeriInComune (aEstrNumeretti(idEstr,nRuota).aNumeretti,aEstrNumeretti(k,aRuote(r)).aNumeretti,10)


         If nCorrel >= nCorrelMin Then
            If nCorrel > nCorrelMax Then
               Call GetArrayNumeriRuota(k,aRuote(r),aRetNum)
               nRetCorrel = nCorrel
               nRetRuotaCorrel = aRuote(r)
               nIdEstrcorrel = k
               If TipoRicerca = 0 Then Exit For
            End If
         End If
      Next
   Next
   If nRetRuotaCorrel > 0 Then
      GetEstrazionePiuCorrelata = True
   End If
End Function
Sub EstrazioniToNumeretti(Inizio,Fine,aEstrNumeretti)
   Dim idEstr,r
   Dim aNumeri
   ReDim aEstrNumeretti(Fine,12)
   For idEstr = Inizio To Fine
      For r = 1 To 12
         If r <> 11 Then
            Call GetArrayNumeriRuota(idEstr,r,aNumeri)
            Set aEstrNumeretti(idEstr,r) = New clsEstrazioneNumeretti
            Call aEstrNumeretti(idEstr,r).Inizializza(aNumeri)
         End If
      Next
   Next
End Sub
Function Correl(X,Y,Num)
   Dim muX,muY
   Dim Sxx,Sxy,Syy
   Dim sumX,sumY
   Dim sumX2,sumXY,sumY2
   Dim nResult

   Dim l
   sumX = 0
   sumY = 0
   sumX2 = 0
   sumY2 = 0
   sumXY = 0
   For l = 1 To Num
      sumX = sumX + X(l)
      sumY = sumY + Y(l)
      sumX2 = sumX2 +(X(l) * X(l))
      sumY2 = sumY2 +(Y(l) * Y(l))
      sumXY = sumXY +(X(l) * Y(l))
   Next
   muX = sumX / Num
   muY = sumY / Num
   Sxx = sumX2 - Num * muX * muX
   Syy = sumY2 - Num * muY * muY
   Sxy = sumXY - Num * muX * muY

   nResult =  Dividi ( Sxy , Sqr(Sxx * Syy))
   Correl = Round(nResult, 3)
End Function ' Correl

Function CorrelNumeriInComune (X,Y,q)
   ReDim abN(9)
   Dim k , j , nPres  
   ReDim abPos (10)
   nPres=0


   For k = 1 To q
      For j = 1 To q
         If Not abPos (j) Then
            If  X(k) = Y (j) Then
               nPres = nPres +1
               abPos (j) = True
               Exit For
            End If
         End If
      Next
   Next

   CorrelNumeriInComune  =Round( ProporzioneX ( nPres , 10 ,1),3)


End Function
 

zagort

Super Member >GOLD<
grazie grazie grazie..sei unico e insuperabile..........anche se non l avessi fatto(speravo in altri) la mia considerazione nei tuoi riguardi è sempre al massimo..............
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto