combinazioni quartine in decina naturale

Settenario · 16 Marzo 2015

...si mike58 il 26 quando è diventato capolista era sincrono al 39.

Mike58 · 16 Marzo 2015

Si confermo questa era la situazione di 84 estrazioni fa.

[TD="bgcolor: #0000ff, align: center"] RUOTA [/TD]
[TD="bgcolor: #0000ff, align: center"] 1° RIT [/TD]
[TD="bgcolor: #0000ff, align: center"] 2° RIT [/TD]
[TD="bgcolor: #0000ff, align: center"] 3° RIT [/TD]
[TD="bgcolor: #0000ff, align: center"] 4° RIT [/TD]
[TD="bgcolor: #0000ff, align: center"] 5° RIT [/TD]
[TD="bgcolor: #0000ff, align: center"] 1° RP [/TD]
[TD="bgcolor: #0000ff, align: center"] 2* RP [/TD]
[TD="bgcolor: #0000ff, align: center"] 3° RP [/TD]
[TD="bgcolor: #0000ff, align: center"] 4° RP [/TD]
[TD="bgcolor: #0000ff, align: center"] 5° RP [/TD]

[TD="bgcolor: #ffffff, align: center"] Bari [/TD]
[TD="bgcolor: #ffffff, align: center"] 88 [/TD]
[TD="bgcolor: #ffffff, align: center"] 17 [/TD]
[TD="bgcolor: #ffffff, align: center"] 30 [/TD]
[TD="bgcolor: #00ff00, align: center"] 90 [/TD]
[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 71 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ffffff, align: center"] 76 -86 - 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 62 - 124 - 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 52 - 86 - 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 48 - 116 - 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] 47 - 125 - 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 60 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Cagliari [/TD]
[TD="bgcolor: #ffffff, align: center"] 80 [/TD]
[TD="bgcolor: #ffffff, align: center"] 14 [/TD]
[TD="bgcolor: #ffffff, align: center"] 77 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 17 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ff0000, align: center"] 118 -129 - 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 64 - 141 - 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 60 - 103 - 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 54 - 105 - 7 [/TD]
[TD="bgcolor: #ffffff, align: center"] 54 - 167 - 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Firenze [/TD]
[TD="bgcolor: #ffffff, align: center"] 39 [/TD]
[TD="bgcolor: #ffffff, align: center"] 26 [/TD]
[TD="bgcolor: #ffffff, align: center"] 32 [/TD]
[TD="bgcolor: #ffffff, align: center"] 18 [/TD]
[TD="bgcolor: #ffffff, align: center"] 16 [/TD]
[TD="bgcolor: #ffffff, align: center"] 85 [/TD]
[TD="bgcolor: #ffffff, align: center"] 21 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ffffff, align: center"] 52 -105 - 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 52 - 132 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 51 - 106 - 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 43 - 135 - 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 41 - 94 - 13 [/TD]
[TD="bgcolor: #ffffff, align: center"] 59 [/TD]
[TD="bgcolor: #ffffff, align: center"] 53 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Genova [/TD]
[TD="bgcolor: #ffffff, align: center"] 61 [/TD]
[TD="bgcolor: #ffffff, align: center"] 32 [/TD]
[TD="bgcolor: #ffffff, align: center"] 22 [/TD]
[TD="bgcolor: #ffffff, align: center"] 36 [/TD]
[TD="bgcolor: #ffffff, align: center"] 49 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ffff00, align: center"] 81 -114 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 45 - 96 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 41 - 85 - 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 40 - 127 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 40 - 97 - 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Milano [/TD]
[TD="bgcolor: #ffffff, align: center"] 88 [/TD]
[TD="bgcolor: #ffffff, align: center"] 37 [/TD]
[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 76 [/TD]
[TD="bgcolor: #ffffff, align: center"] 38 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 33 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ff0000, align: center"] 118 -120 - 0 [/TD]
[TD="bgcolor: #ffffff, align: center"] 76 - 127 - 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 72 - 115 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 71 - 108 - 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 47 - 99 - 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 84 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Napoli [/TD]
[TD="bgcolor: #ffffff, align: center"] 35 [/TD]
[TD="bgcolor: #ffffff, align: center"] 46 [/TD]
[TD="bgcolor: #ffffff, align: center"] 25 [/TD]
[TD="bgcolor: #ffffff, align: center"] 44 [/TD]
[TD="bgcolor: #ffffff, align: center"] 11 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ffffff, align: center"] 58 -121 - 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] 48 - 88 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 45 - 144 - 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] 41 - 88 - 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 39 - 117 - 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Palermo [/TD]
[TD="bgcolor: #ffffff, align: center"] 58 [/TD]
[TD="bgcolor: #ffffff, align: center"] 53 [/TD]
[TD="bgcolor: #ffffff, align: center"] 15 [/TD]
[TD="bgcolor: #ffffff, align: center"] 39 [/TD]
[TD="bgcolor: #ffffff, align: center"] 37 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ffffff, align: center"] 59 -98 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 59 - 131 - 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 56 - 108 - 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 48 - 107 - 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 48 - 133 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Roma [/TD]
[TD="bgcolor: #ffffff, align: center"] 60 [/TD]
[TD="bgcolor: #ffffff, align: center"] 84 [/TD]
[TD="bgcolor: #ffffff, align: center"] 56 [/TD]
[TD="bgcolor: #ffffff, align: center"] 16 [/TD]
[TD="bgcolor: #ffffff, align: center"] 74 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ff0000, align: center"] 101 -117 - 4 [/TD]
[TD="bgcolor: #ffff00, align: center"] 90 - 110 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 74 - 116 - 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 73 - 143 - 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] 63 - 124 - 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Torino [/TD]
[TD="bgcolor: #ffffff, align: center"] 18 [/TD]
[TD="bgcolor: #ffffff, align: center"] 78 [/TD]
[TD="bgcolor: #ffffff, align: center"] 72 [/TD]
[TD="bgcolor: #ffffff, align: center"] 47 [/TD]
[TD="bgcolor: #ffffff, align: center"] 48 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ffff00, align: center"] 87 -110 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 61 - 119 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 60 - 112 - 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] 59 - 109 - 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 46 - 137 - 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Venezia [/TD]
[TD="bgcolor: #ffffff, align: center"] 60 [/TD]
[TD="bgcolor: #ffffff, align: center"] 64 [/TD]
[TD="bgcolor: #ffffff, align: center"] 26 [/TD]
[TD="bgcolor: #ffffff, align: center"] 21 [/TD]
[TD="bgcolor: #ffffff, align: center"] 85 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ff0000, align: center"] 117 -117 - 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 70 - 121 - 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 65 - 123 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 52 - 161 - 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] 51 - 111 - 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Nazionale [/TD]
[TD="bgcolor: #ffffff, align: center"] 71 [/TD]
[TD="bgcolor: #ffffff, align: center"] 64 [/TD]
[TD="bgcolor: #ffffff, align: center"] 72 [/TD]
[TD="bgcolor: #ffffff, align: center"] 30 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] Ritardo-Storico-frequenza [/TD]
[TD="bgcolor: #ffff00, align: center"] 89 -89 - 1 [/TD]
[TD="bgcolor: #ffff00, align: center"] 80 - 117 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 77 - 93 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 66 - 84 - 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] 54 - 111 - 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

Mike58 · 16 Marzo 2015

script di rilevamento ritardi.

Codice:

Sub Main
	Dim ru(1),nu(1),rp(5),srp(5),i
	ab = InputBox("Quante estrazioni controllo fin- ? ",,0)
	Ini = EstrazioneFin - 200
	fin = EstrazioneFin - ab
	Tot = fin - Ini
	spia = CInt(InputBox("QUALE NUMERO VUOI SPIARE",,90))
	Scrivi" ***** TABELLA 5 RITARDATARI ****** Listed by Mike58 ***** Forum LottoCed **** ",True,True,3,0,3
	Scrivi "Analisi frequenza su " & Tot & " Estrazioni ",True,True,,1,2
	ReDim AT(11)
	AT(1) = " RUOTA "
	AT(2) = " 1° RIT "
	AT(3) = " 2° RIT "
	AT(4) = " 3° RIT "
	AT(5) = " 4° RIT "
	AT(6) = " 5° RIT "
	AT(7) = " 1° RP "
	AT(8) = " 2* RP "
	AT(9) = " 3° RP "
	AT(10) = " 4° RP "
	AT(11) = " 5° RP "
	Call InitTabella(AT,1,,4,5)
	For r = 1 To 12
		If r = 11 Then r = 12
		ru(1) = r
		rit = NumeroPosRit(fin,r,1)
		rit2 = NumeroPosRit(fin,r,2)
		rit3 = NumeroPosRit(fin,r,3)
		rit4 = NumeroPosRit(fin,r,4)
		rit5 = NumeroPosRit(fin,r,5)
		sf = EstrattoRitardo(r,rit,Ini,fin)
		sf2 = EstrattoRitardo(r,rit2,Ini,fin)
		sf3 = EstrattoRitardo(r,rit3,Ini,fin)
		sf4 = EstrattoRitardo(r,rit4,Ini,fin)
		sf5 = EstrattoRitardo(r,rit5,Ini,fin)
		rip1 = NumeroPosRit(fin - 1,r,1)
		rip2 = NumeroPosRit(fin - 1,r,2)
		rip3 = NumeroPosRit(fin - 1,r,3)
		rip4 = NumeroPosRit(fin - 1,r,4)
		rip5 = NumeroPosRit(fin - 1,r,5)
		sp1 = EstrattoRitardo(r,rip1,Ini,fin - 1)
		sp2 = EstrattoRitardo(r,rip2,Ini,fin - 1)
		sp3 = EstrattoRitardo(r,rip3,Ini,fin - 1)
		sp4 = EstrattoRitardo(r,rip4,Ini,fin - 1)
		sp5 = EstrattoRitardo(r,rip5,Ini,fin - 1)
		f1 = EstrattoStorico(r,rit,EstrazioneIni,fin)
		ff1 = EstrattoFrequenza(r,rit,Ini,fin)
		f2 = EstrattoStorico(r,rit2,EstrazioneIni,fin)
		ff2 = EstrattoFrequenza(r,rit2,Ini,fin)
		f3 = EstrattoStorico(r,rit3,EstrazioneIni,fin)
		ff3 = EstrattoFrequenza(r,rit3,Ini,fin)
		f4 = EstrattoStorico(r,rit4,EstrazioneIni,fin)
		ff4 = EstrattoFrequenza(r,rit4,Ini,fin)
		f5 = EstrattoStorico(r,rit5,EstrazioneIni,fin)
		ff5 = EstrattoFrequenza(r,rit5,Ini,fin)
		ReDim AV(11)
		ReDim avv(11)
		AV(1) = NomeRuota(r)
		avv(1) = "Ritardo-Storico-frequenza"
		AV(2) = rit
		avv(2) = sf & " -" & f1 & " - " & ff1
		AV(3) = rit2
		avv(3) = sf2 & " - " & f2 & " - " & ff2
		AV(4) = rit3
		avv(4) = sf3 & " - " & f3 & " - " & ff3
		AV(5) = rit4
		avv(5) = sf4 & " - " & f4 & " - " & ff4
		AV(6) = rit5
		avv(6) = sf5 & " - " & f5 & " - " & ff5
		If EstrattoFrequenza(r,rip1,fin,fin) = 1 Then AV(7) = rip1
		If AV(7) > 0 Then avv(7) = sp1
		If EstrattoFrequenza(r,rip2,fin,fin) = 1 Then AV(8) = rip2
		If AV(8) > 0 Then avv(8) = sp2
		If EstrattoFrequenza(r,rip3,fin,fin) = 1 Then AV(9) = rip3
		If AV(9) > 0 Then avv(9) = sp3
		If EstrattoFrequenza(r,rip4,fin,fin) = 1 Then AV(10) = rip4
		If AV(10) > 0 Then avv(10) = sp4
		If EstrattoFrequenza(r,rip5,fin,fin) = 1 Then AV(11) = rip5
		If AV(11) > 0 Then avv(11) = sp5
		Call AddRigaTabella(AV,,,4)
		If rit = spia Then Call SetColoreCella(2,3,0)
		If rit2 = spia Then Call SetColoreCella(3,3,0)
		If rit3 = spia Then Call SetColoreCella(4,3,0)
		If rit4 = spia Then Call SetColoreCella(5,3,0)
		If rit5 = spia Then Call SetColoreCella(6,3,0)
		Call AddRigaTabella(avv,,,2,1)
		If sf >= 100 Then Call SetColoreCella(2,2,4)
		If sf2 >= 100 Then Call SetColoreCella(3,2,4)
		If sf > 79 And sf < 100 Then Call SetColoreCella(2,4,2)
		If sf2 > 79 And sf2 < 100 Then Call SetColoreCella(3,4,2)
	Next
	Call SetTableWidth("80%")
	CreaTabella
End Sub

genios · 16 Marzo 2015

i legend sai dirmi il ritardo attuale di questi tre ambi 51 52 - 51 53 - 52 53 sulla ruota di GE.
Cosi ti faccio vedere come si calcola il ritardo medio.
Postami pure il ritardo attuale di questi tre ambi sulla ruota di GE.

ciao Eugenio

i legend · 16 Marzo 2015

Ciao Mike , grazie x le belle parole, e per i tuoi script

Tu e Joe siete le mie fonti di studio

x Genios ti posto ricerche di script + ricerca di spaziometria i valori coincidono

ora posto dati script:

Freq e RitMedio Coincidono
Eugenio tu che dati hai?
notte a tutti

genios · 17 Marzo 2015

51 52 Rit.A 741
51 53 Rit.A 354
52 53 Rit.A 459

QUINDI Rit. Globale 1554 somma dei singoli ritardi di ciascun ambo che forma la terzina 51 52 53

il ritardo medio si ottiene dividendo il ritardo GLOBALE cioè 1554 per 3 che sono tutti gli ambi che formano la terzina 51 52 53 quindi

Rit.Medio = 1554 : 3 = 518

Il ritardo medio del tuo script se ho intuito bene fa la media di tutti i ritardi verificatosi nella terzina in questione . Ed è anche logico che la frequenza e la media dei ritardi considerando una grande massa estrazionale quasi coincidono . E quindi secondo me non è un parametro che puo' indicare quale formazione giocare. Mentre il rit.medio da me considerato è un parametro sull attualità della formazione . Come attuale è il parametro Rit(A+P) cioè il ritardo Attuale + il Ritardo Precedente mentre la presenza della formazione in 10 cicli teorici ci indica se la formazione nella storia recente si trova in scompenso . Perché se consideriamo la presenza della formazione su tutte le estrazioni sicuramente la presenza teorica coinciderà con la presenza statistica .

Ciao Eugenio

i legend · 17 Marzo 2015

Ciao a tutti

Ciao Eugenio e Condor ho cercato di modificare lo script in base alle vostre richieste,
purtroppo la velocita di esecuzione è rallentata,
ora posto lo script completo e vi chiedo cortesemente in base ai parametri di ricerca da me postati, vedi immagine
che previsione mettereste in evidenza.
Usate le mie stesse modalita

Ecco lo script:

Codice:

Option Explicit
Sub Main
    'Controllare eventuali Bugs:)
    ' lo script non esegue la ricerca su tutte e Nazionale
    ' SE ci dovessero essere bugs segnalateli vediamo di risolverli se possibile
    ' script ampliato in base a idee di Genios e Condor
    Dim k,s,i,nRuote,j,StrArray
    Dim nClasse,nColonneTot
    ReDim aNumeri(90)
    ReDim aStudio(9)
    ReDim aRu(12)
    ReDim aCol(0)
    Dim Dec,nSorte,sRuote
    Dim ritardo,ritardomax,IncrRitMax,Frequenza,Ini,Fin
    Dim aTitolo,Freq,RitA,RitS,Scarto,IncrRit
    Dim cTeorico,nEstrazioni,FreqTeor,ScaFreq
    Dim a,aVoci,aRis
    Dim aTitTab1,KK
    Dim Form,FormStud,aArrayStudio
    Dim aRetRitardi,aRetIdEstr,RitMedio
    Dim aRit1,iRit1,iRit1L,n1,conta1,RR,z,nR,r,r1
    Dim FreqComb,FreqTeo270E,ScartoFreq270E
    If ImpostaParametri(nClasse,nSorte,Form,FormStud,aStudio,nRuote,aRu) = False Then
        MsgBox" I Parametri inseriri sono erratti",vbCritical
        Exit Sub
    End If
    'costruisco intestazione tabella
    aTitolo = Array("","ID","Comb","Fr.R","Fr.R-Fr.T","Fr.R(270)","(Fr.R-Frt)270_E","RitA","RitP","Rit(a+P)","Rit.L","RitSto","RitMedio","Scarto","IncRitMax")
    InitTabella aTitolo,RGB(223,224,243),,3,vbBlack
    'Data Inizio Archivio
    Ini = 3914
    Fin = EstrazioneFin
    nEstrazioni = ContaEstrazioni(Ini,Fin,aRu,nRuote)
    For k = LBound(aStudio) To UBound(aStudio)
        aStudio(k) = aStudio(k)
        StrArray = StringaNumeri(aStudio,,True)
    Next
    For i = UBound(aRu) To 1 Step - 1
        sRuote = SiglaRuota(aRu(i)) & "." & sRuote
    Next
    sRuote = RimuoviLastChr(sRuote,".")
    'inizializza lo sviluppo
    cTeorico = Round(CicloTeorico(nClasse,nSorte,CInt(nRuote)),2)
    FreqTeor = Round(Dividi(nEstrazioni,cTeorico),2)
    FreqTeo270E = Round(Dividi(269,cTeorico),2)
    nColonneTot = InitSviluppoIntegrale(aStudio,nClasse)
    k = 0
    'a=ContaEstrazioni(Ini,Fin,aRu,nRuote)
    Do While GetCombSviluppo(aStudio)
        k = k + 1 ' conteggio colonna corrente
        Messaggio "Elaborazione in corso id sviluppo: " & k
        AvanzamentoElab 1,nColonneTot,k
        If ScriptInterrotto Then Exit Do
        ' costruisco la stringa che contiene la colonna
        s = StringaNumeri(aStudio,,True)
        Call StatisticaFormazioneTurbo(aStudio,aRu,nSorte,ritardo,ritardomax,IncrRitMax,Frequenza,Ini,Fin)
        Freq = Frequenza
        RitA = ritardo
        RitS = ritardomax
        IncrRit = IncrRitMax
        ScaFreq = Round((Freq - FreqTeor),2)
        FreqComb = SerieFreqTurbo(EstrazioneFin - 269,EstrazioneFin,aStudio,aRu,nSorte)
        ScartoFreq270E = Round((FreqComb - FreqTeo270E),2)
        Call ElencoRitardiTurbo(aStudio,aRu,nSorte,Ini,Fin,aRetRitardi,aRetIdEstr)
        RitMedio = RitardoMedio(aRetRitardi)
        iRit1 = ""
        conta1 = 0
        For r = 1 To UBound(aRu)
            r1 = aRu(r)
            For z = 1 To UBound(aStudio)
                nR = aStudio(z)
                RR = RitPos(nR,r1,Fin)
                'RaRr = Round(Dividi(RR,RitA),2)
            Next
        Next
        For n1 = UBound(aRetRitardi) - 1 To LBound(aRetRitardi) Step - 1
            conta1 = conta1 + 1
            If conta1 <= 1 Then
                iRit1 = FormattaStringa(aRetRitardi(n1),"000")
                iRit1L = RitA + iRit1
            Else
                Exit For
            End If
        Next
        ReDim aRisultato(14)
        Call AlimentaArrayCombinazioni(aRisultato,k,s,Freq,ScaFreq,FreqComb,ScartoFreq270E,RitA,iRit1,iRit1L,RR,RitS,RitMedio,Scarto,IncrRit)
        Call AddRigaTabella(aRisultato,,,3,RGB(0,0,0))
        Call SetColoreCella(2,RGB(255,236,255),2)
    Loop
    Scrivi FormatSpace("script By I Legend per lottoCed's amici",10,- 1),1,,,1
    Scrivi
    Scrivi "           Tabella Statistica per formazioni registrate          " & " ",1,,RGB(253,245,189),,5
    Scrivi
    Scrivi "Range Estr Esaminate :   " & "Inizio: [" & DataEstrazione(Ini) & "]" & "    " & "Fine: [" & DataEstrazione(Fin) & "]",1,,,,3
    Scrivi "Num Estrazioni       :   " & nEstrazioni,1,,,,3
    Scrivi "Formazione Ricerca   :   " & ScriviArrayStudio(Form,FormStud),1,,,,3
    Scrivi "Array Ricerca        :   " & "{" & StrArray & " }",1,,,,3
    Scrivi "Sviluppo in          :   " & ScriviClasse(nClasse),1,,,,3
    Scrivi "Ricerca per          :   " & ScriviEsito(nSorte),1,,,,3
    Scrivi "Ciclo Teorico        :   " & cTeorico,1,,,,3
    Scrivi "Freq Teorica         :   " & FreqTeor,1,,,,3
    Scrivi
    Scrivi "Range Estr Esaminate :   " & "Inizio: [" & DataEstrazione(EstrazioneFin - 269) & "]" & "    " & "Fine: [" & DataEstrazione(Fin) & "]",1,,,,3
    Scrivi "Freq Teorica 270 E   :   " & FreqTeo270E,1,,,,3
    Scrivi "Ruote di ricerca     :   " & sRuote,1,,,,3
    Scrivi
    Scrivi
    Call SetTableWidth("75%")
    Call CreaTabellaOrdinabile
End Sub
Sub AlimentaArrayCombinazioni(aRisultato,k,s,Freq,ScaFreq,FreqComb,ScartoFreq270E,RitA,iRit1,iRit1L,RR,RitS,RitMedio,Scarto,IncrRit)
    aRisultato(1) = k
    aRisultato(2) = s
    aRisultato(3) = Freq
    aRisultato(4) = ScaFreq
    aRisultato(5) = FreqComb
    aRisultato(6) = ScartoFreq270E
    aRisultato(7) = RitA
    aRisultato(8) = iRit1
    aRisultato(9) = iRit1L
    aRisultato(10) = RR
    aRisultato(11) = RitS
    aRisultato(12) = RitMedio
    aRisultato(13) = RitS - RitA
    aRisultato(14) = IncrRit
End Sub
Function ImpostaParametri(nClasse,nSorte,Form,FormStud,aStudio,nRuote,aRu)
    Dim bRet,i
    nClasse = ScegliClasse ' sviluppo in ambi
    If nClasse > 0 Then
        nSorte = SelEsito
        If nSorte > 0 Then
            Do While nClasse < nSorte
                MsgBox "hai inserito Un Valore errato riscrivi ": nSorte = CInt(SelEsito)
                If nSorte = - 1 Then Exit Do
            Loop
            Form = GetFormazione
            If Form > 0 Then
                FormStud = GetFormazioneStudio(Form)
                If FormStud >= 0 Then
                    Call GetArrayStudio(Form,FormStud,aStudio)
                    If IsArray(aStudio) Then
                        nRuote = ScegliRuote(aRu)
                        For i = 1 To UBound(aRu)
                            Do While aRu(i) > 10
                                If aRu(i) > 10 Then
                                    MsgBox"Non Puoi Inserire La Voce Tutte o Nazionale ai Fini Statistici"
                                    nRuote = ScegliRuote(aRu)
                                Else
                                    Exit Do
                                End If
                            Loop
                        Next
                        If IsArray(aRu) Then
                            bRet = True
                        End If
                    End If
                End If
            End If
        End If
    End If
    ImpostaParametri = bRet
End Function
Function ScegliClasse
    Dim aVoci,bRet
    aVoci = Array("","Estratti","Ambi","Terzina","Quartina","Cinquina","Sestina",_
    "Settina","Ottina","Novina","Decina")
    bRet = ScegliOpzioneMenu(aVoci,1,"Seleziona Classe di Sviluppo")
    ScegliClasse = bRet
End Function
Function ScriviClasse(sceCla)
    Dim aVoci,bRet
    aVoci = Array("","Estratti","Ambi","Terzina","Quartina","Cinquina","Sestina",_
    "Settina","Ottina","Novina","Decina")
    For bRet = 1 To UBound(aVoci)
        aVoci(bRet) = aVoci(bRet)
    Next
    ScriviClasse = aVoci(sceCla)
End Function
Function SelEsito
    Dim bRet
    Dim aVoci
    ' gli array partono sempre da 0
    aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina")
    bRet = ScegliOpzioneMenu(aVoci,1," Analesi per Sorte di : ")
    SelEsito = bRet
End Function
Function ScriviEsito(Ind)
    Dim bRet,i
    Dim aVoci
    ' gli array partono sempre da 0
    aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina")
    For i = 1 To UBound(aVoci)
        aVoci(i) = aVoci(i)
    Next
    ScriviEsito = aVoci(Ind)
End Function
Function ContaEstrazioni(Ini,Fin,aRU(),nRuote)
    Dim Conta,es,i
    For es = Ini To Fin
        For i = 1 To UBound(aRU)
            If SommaEstratti(es,aRU(i)) >= 15 Then Conta = Conta + 1
        Next
    Next
    ContaEstrazioni = Round(Dividi(Conta,nRuote),0)
End Function
Function GetFormazione
    Dim aVoci,bRet
    aVoci = Array("","Decina Naturale","Decina Cabalistica","Figura","ControFigura","Cadenza")
    bRet = ScegliOpzioneMenu(aVoci,1,"SelezionaFormazione")
    GetFormazione = bRet
End Function
Function GetFormazioneStudio(IndForm)
    ReDim aNum(9)
    Dim K,m
    Dim bRet
    For K = LBound(aNum) To UBound(aNum) - 1
        If IndForm = 1 Then aNum(K) = "DecinaNaturale." & K
    Next
    For K = 1 To UBound(aNum)
        If IndForm = 2 Then
            aNum(K) = "DecinaCabalistica." & K
        ElseIf IndForm = 3 Then
            aNum(K) = "Figura." & K
        ElseIf IndForm = 4 Then
            aNum(K) = "ControFigura." & K
        End If
    Next
    For K = LBound(aNum) To UBound(aNum)
        If IndForm = 5 Then aNum(K) = "Cadenza." & K
    Next
    bRet = ScegliOpzioneMenu(aNum,1,"SelezionaInformazione")
    GetFormazioneStudio = bRet
End Function
Function GetArrayStudio(IndFor,IndStudio,aArray)
    Dim k,m
    Dim aNumeri(90)
    m = 1
    For k = 1 To 90
        If IndFor = 1 And DecinaNaturale(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 2 And DecinaCabalistica(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 3 And Figura(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 4 And ControFigura(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        ElseIf IndFor = 5 And Cadenza(k) = IndStudio Then
            m = m + 1
            ReDim Preserve aArray(m)
            aArray(m) = k
        End If
    Next
End Function
Function ScriviArrayStudio(IndFor,IndStudio)
    Dim bRet
    If IndFor = 1 Then
        bRet = "Decina Naturale: " & IndStudio
    ElseIf IndFor = 2 Then
        bRet = "Decina Cabalistica: " & IndStudio
    ElseIf IndFor = 3 Then
        bRet = "Figura: " & IndStudio
    ElseIf IndFor = 4 Then
        bRet = "Controfigura: " & IndStudio
    ElseIf IndFor = 5 Then
        bRet = "Cadenza: " & IndStudio
    End If
    ScriviArrayStudio = bRet
End Function
Function RitardoMedio(aRitardi())
    Dim k
    Dim nElementi
    Dim nMedia
    nElementi = 0
    nMedia = 0
    For k = 1 To UBound(aRitardi) - 1
        nElementi = nElementi + 1
        nMedia = nMedia + aRitardi(k)
    Next
    nMedia = Round(Dividi(nMedia,nElementi),2)
    RitardoMedio = nMedia
End Function

X Genios, Mi spiace ma il calcolo del RitMedio, resta quello usuale, ma puoi sempre modificare lo script senza problemi, ed aggiungere una colonna in più

X condor mi piacerebbe fare uno script a parte per la tua richiesta, appena capisco cosa bisogna fare

X tutti, per favore controllate se i dati in output sono corretti

genios · 17 Marzo 2015

per il pronostico non so consigliarti perche il tuo script mi da il solito errore .

io stasera gioco 4 quartine della decina naturale 5 e precisamente

GE 52 56 57 59 RC. 523 RIT.MEDIO 1028
GE 52 53 56 57 RC. 451 RIT.MEDIO 808
GE 51 52 57 59 RC. 370 RIT.MEDIO 663
GE 51 55 57 59 RC. 370 RIT.MEDIO 786

Aggiornato al 24 02 2015

per ambo terno quaterna .

i legend · 17 Marzo 2015

Ciao Genios ,Grazie per la previsione

Hai l'ultima versione di spazio?
Le vostre previsioni mi servivano per far capire a tutti a cosa servono le icerche e le funzioni che vengono implementate negli script...
Uno script serve se è utile a tutti

Ciao adesso aspettiamo Kondor

genios · 17 Marzo 2015

Dovrebbe essere l' ultma versione .

Comunque riscontro un anomalia come puoi vedere dalla foto allegata . Lo script mi da errorre nella riga sRuote = RimuoviLastChr(sRuote,".") e ho notato come potrai vedere nella foto allegata che il carattere di RimuoviLastChr risultano in colore nero è forse da cio che lo script non gira ?

ciao Eugenio

genios · 17 Marzo 2015

Dovrebbe essere l' ultma versione .

Comunque riscontro un anomalia come puoi vedere dalla foto allegata . Lo script mi da errorre nella riga sRuote = RimuoviLastChr(sRuote,".") e ho notato come potrai vedere nella foto allegata che il carattere di RimuoviLastChr risultano in colore nero è forse da cio che lo script non gira ?

ciao Eugenio
Vedi l'allegato 14911

i legend · 17 Marzo 2015

Ciao genios cerca nel punto interrogativo degli script la voce Rimuovilastchr ,se non c'è devi fare un aggiornaamento

Fammi sapere

Joe91 · 18 Marzo 2015

Ciao Eugenio.

Quella nuova istruzione è comoda ... ma non indispensabile.

potresti provare a sostituire nelle linee immediatamente precedenti ...

la fonte dello pseudo-errore con:

Codice:

    For i = 1 To UBound(aRu) 
	sRuote = sRuote & SiglaRuota(aRu(i))  
	If i <  UBound(aRu) Then sRuote =  sRuote &"."
    Next

E poi, avendo risolto il problema "a monte" ...

... puoi (nel senso che devi) cancellare la linea di comando che ti genera l'errore.

Ovvero cancellare: sRuote = RimuoviLastChr(sRuote,".")

Naturalmente il consiglio di aggiornare il basic è soluzione di maggiore compatibilità, con tutti gli script più nuovi.

Quindi durante l'installazione di Spaziometria, quando richiesto, devi fornire il tuo consenso all'installazione del Basic.

Cordiali saluti.

genios · 18 Marzo 2015

Quindi RimuoviLastChr è un comando di VB.

Grazie Joe91 provo se riesco . Hai poi dato uno sguardo al post #46 sulla Redim Conserve ?

ciao Joe91 . grazie di tutto

genios · 18 Marzo 2015

Grande Joe91 la modifica che tu mi hai fatto apportare funziona pero' ora lo script mi da errore sull' istruzione

Call CreaTabellaOrdinabile e tale istruzione è sempre in neretto come appariva prima RimuoviLastChr.

Quindi dovrei disinstallare spaziometria e riinstallarla ed aggiornare visual basic.?

Ciao Eugenio

Joe91 · 18 Marzo 2015

Bhe ...

sul primo problema ... l'aiuto (ed una soluzione alternativa) ci poteva stare.

Su questo ... mantenere una vecchia versione del basic è definibile autolesionismo.

Comunque sia, si, la possibilità di ordinare le tabelle, è una delle ultime, novità che Luigi

ha aggiunto al corredo di istruzioni. Quindi anche qui ti basterebbe cancellare "ordinabile"

ed usare solo l'istruzione precedende "CreaTabella" e dovrebbe funzionare.

La versione attuale di Spaziometria, mi risulta essere la 1.5.15.

Durante l'installazione ... viene chiesto, se installare anche la parte relativa alla gestione basic degli script.

In pratica, per installarla, si deve sempre rispondere si alle rishieste specifiche

e, più in generale "Si" a tutti i quesiti che ci vengono rivolti dal programma di installazione.

genios · 18 Marzo 2015

Grazie Joe91 come ho un attimo provo la tua soluzione . e poi reinstallo anche spaziometria .

ciao Eugenio

genios · 18 Marzo 2015

Joe con le tue modifiche lo script funziona .

Ciao Eugenio

genios · 18 Marzo 2015

i legend con l aiuto di Joe91 sono riuscito a far girare finalmente lo script . Ora voglio chiederti per capire meglio cosa fa lo script in questione alcune cose riguardanti l' out.

1 colonna Freq. che cosa restituisce questo dato e come viene calcolato ? +++++++++++++++++++++
2 colonna ScaFreq che cosa restituisce questo dato e come è calcolato ? +++++++++++++++++++++
3 colonna Ra = ritardo attuale
4 colonna Rp = ritardo precedente al ritardo attuale
5 colonna R (Ra+ Rp) = Ritardo attuale + Ritardo precedente al ritardo attuale
6 colonna RitSto = Ritardo storico della quartina
7 colonna RitMedio come viene calcolato ? ++++++++++++++++++++++++++++++
8 colonna Scarto come viene calcolato ? +++++++++++++++++++++++++++++++
9 colonna IncRitMax

Ciao Eugenio

mpisticchia · 18 Marzo 2015

Scusate se mi intrometto di nuovo ma mi piace molto seguirvi, già detto, volevo chiedere a ILegend se è possibile apportare modifiche per utilizzare il suo ultimo script solo per la Nz... sto lavorando solo su quella ora e questo script è fantastico...
Grazie mille in anticipo e comunque
Ciao!

combinazioni quartine in decina naturale

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Member