Novità

Ricerche e sperimentazione

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
DA VENUS - Centro


FIRENZE 80 89 estratto

FIRENZE 89 estratto determinato pos.2°









caricare immagini




dalla situazione Grafica della fascia a 180

nb: media attuale maggiore della maxima


hosting immagini







______________________________________________________________________________________

CONTATORE VINCITE da Novembre 2014

Estratti
Estratti Det.
Ambi Ruota Fissa
Ambi Tutte
Terni

_______________________________________________________________________________________
 
Ultima modifica:
VENUS Nord

GENOVA estratto 13 32 79 posizioni det. 2° 4°



Estratto semplice 32 a Genova



VENUS NORD-CENTRO-SUD
da Venus NORD

TO-VE estratto 78
VENEZIA estratto tra 14 e 78

Estratto semplice 14 Venezia

------------------------------------------------------------------------------------------
CONTATORE VINCITE da Novembre 2014

Estratti 2
Estratti Det.
Ambi Ruota Fissa
Ambi Tutte
Terni
 
ciao rubino
scusa se disturbo e se posto qui
tu che sei pratico di statistiche e script
cerco uno script - esiste in spaziometria- che oltre a tirare fuori i superstar , indichi anche l'ordine di uscita, cioe' con piu' frequenze o meno ma in ordine
grazie mille
e scusa ciao
 
ciao

fanne buon uso, il montepremi è interessante, anche se il gioco è matematicamente impossibile e lascia poche speranze.

ma tentar non nuoce.

basta richiedere se vuoi la frequenza o il ritardo come ordinamento
il secondo prospetto, riepiloga quello vuoi.




Codice:
Sub Main()
	'2009  controllo SUPERENALOTTO
	Dim ss(9999),rit(90),apos(8),an(1),sez(10),sezx(10)
	Dim Inizio,fine,det,t,ritardo,ritardomax,Incrritmax,frequenza,punti,riga,es,y,p1,p2,PU,Ord,k,stella,jjj,u,po,h
	det = InputBox("Vuoi Solo riepilogo STELLA? ",,"SI")
	Inizio = 1
	fine = InputBox("Estrazione Finale...",,EstrazioniArchivioSE)
	Ord = InputBox("Ordina colonna...2=Freq  3=rit.(Nr.Stella)  ",,3)
	po = 8
	apos(8) = True
	ReDim atitoli(5),avalori(5)
	' preimposto i titoli delle colonne
	atitoli(1) = " Conc.n. "
	atitoli(2) = " Numeri        "
	atitoli(3) = " Jolly "
	atitoli(4) = " Super Stella"
	atitoli(5) = " r.STELLA "
	Call InitTabella(atitoli,2,"center",1.45,5,"Cambria")
	Scrivi " da Estrazione n." & Inizio & " - " & DataEstrazioneSE(Inizio) & "   al n." & fine & " - " & DataEstrazioneSE(fine),1
	For es = Inizio To fine
		riga = ""
		For y = 1 To 6
			riga = riga & Format2(EstrattoSE(es,y)) & " "
		Next
		avalori(1) = es & " " & DataEstrazioneSE(es)
		avalori(2) = riga
		avalori(3) = Format2(EstrattoSE(es,7))
		avalori(4) = Format2(EstrattoSE(es,8))
		avalori(5) = rit(avalori(4))
		For t = 1 To 90
			rit(t) = rit(t) + 1
		Next
		rit(avalori(4)) = 0
		ss(avalori(4)) = ss(avalori(4)) + 1
		''calcola ritardo di fascia per numero stella
		For h = 1 To 10
			sez(h) = sez(h) + 1
		Next
		If avalori(5) < 11 Then
			If sez(1) > sezx(1) Then
				sezx(1) = sez(1)
			End If
			sez(1) = 0
		End If
		If avalori(5) > 10 And avalori(5) < 21 Then
			If sez(2) > sezx(2) Then
				sezx(2) = sez(2)
			End If
			sez(2) = 0
		End If
		If avalori(5) > 20 And avalori(5) < 31 Then
			If sez(3) > sezx(3) Then
				sezx(3) = sez(3)
			End If
			sez(3) = 0
		End If
		If avalori(5) > 30 And avalori(5) < 41 Then
			If sez(4) > sezx(4) Then
				sezx(4) = sez(4)
			End If
			sez(4) = 0
		End If
		If avalori(5) > 40 And avalori(5) < 51 Then
			If sez(5) > sezx(5) Then
				sezx(5) = sez(5)
			End If
			sez(5) = 0
		End If
		If avalori(5) > 50 And avalori(5) < 101 Then
			If sez(6) > sezx(6) Then
				sezx(6) = sez(6)
			End If
			sez(6) = 0
		End If
		If avalori(5) > 100 And avalori(5) < 201 Then
			If sez(7) > sezx(7) Then
				sezx(7) = sez(7)
			End If
			sez(7) = 0
		End If
		If avalori(5) > 100 Then
			If sez(8) > sezx(8) Then
				sezx(8) = sez(8)
			End If
			sez(8) = 0
		End If
		Call AddRigaTabella(avalori,Bianco_,"center",1)
		If Int(avalori(5)) > 200 Then
			Call SetColoreCella(5,RGB(255,128,128),vbBlack)
		End If
		If Int(avalori(5)) > 20 And Int(avalori(5)) < 31 Then
			Call SetColoreCella(5,RGB(255,128,128),vbBlack)
		End If
		If Int(avalori(5)) > 0 And Int(avalori(5)) < 11 Then
			Call SetColoreCella(5,RGB(254,223,167),vbBlack)
		End If
	Next
	If det = "SI" Or det = "si" Then
		CreaTabella
	End If
	ReDim atitoli2(4)
	ReDim avalori2(4)
	' preimposto i titoli delle colonne
	atitoli2(1) = " Numero stella "
	atitoli2(2) = " freq "
	atitoli2(3) = "Ritardo"
	atitoli2(4) = " Esito: "
	Call InitTabella(atitoli2,2,"center",1.45,5,"cambria")
	For u = 1 To UBound(ss)
		If ss(u) <> 0 Then
			avalori2(1) = Format2(u)
			avalori2(2) = ss(u)
			avalori2(3) = rit(u)
			avalori2(4) = " "
			'''verifica esiti per il range specificato ed evidenzia numeri stella
			If avalori2(3) > 35 And avalori2(3) < 100 Then
				For k = 1 To 26
					stella = EstrattoSE(fine + k,8)
					If Int(stella) = Int(avalori2(1)) Then
						avalori2(4) = k & "/" & fine + k
						Call AddRigaTabella(avalori2,Bianco_,"center",1)
						For jjj = 1 To 3
							Call SetColoreCella(Int(jjj),RGB(192,255,185),vbBlack)
						Next
						If Int(avalori2(3)) > 200 Then
							Call SetColoreCella(3,RGB(255,128,128),vbBlack)
						End If
					Else
						Call AddRigaTabella(avalori2,Bianco_,"center",1)
						For jjj = 1 To 3
							Call SetColoreCella(Int(jjj),RGB(192,255,185),vbBlack)
						Next
						If Int(avalori2(3)) > 200 Then
							Call SetColoreCella(3,RGB(255,128,128),vbBlack)
						End If
						Exit For
					End If
				Next
			Else
				Call AddRigaTabella(avalori2,Bianco_,"center",1)
			End If
		End If
	Next
	CreaTabella(Ord)
	Scrivi " Fasce di Ritardo  o  Sezioni ",1
	For h = 1 To 8
		Scrivi " Fascia " & h & "   Ratt..." & sez(h) & "   Rmax..." & sezx(h)
	Next
End Sub
 
Ultima modifica:
ciao e grazie
sta girando, lo sto provando
mi chiedeva se troncare i primi 100 ecc
allora, la volta scorsa ho preso il numero 2 come superstar e zero numeri porca miseria
oggi ho preso l'86 e 2 numeri nella colonna in ottina
e' un cruciverba 8x8
oggi avevo preparato un 9x9 ma non e' stato giocato ed ha fatto 3
me lo sentivo che si ripetevano almeno 2 della colonna precedente, volevo giocare, ma avrei escluso proprio il 58 e 88
il fatto e' che non sono uscite le basi ma ho fatto ugualmente 3 e un 2
che poi i tre in novina sono 20 mi pare
 
ecco finito di girare
no rubino, questo non e' cio' che voglio
esiste gia' in spaziometria quasi simile
io vorrei
che lo script elenchi i numeri superstar in oridine di uscite, nn so come spiegarmi
forse una colonna come il ritardo ma con i numeri usciti piu' volte
mi pare se non erro che il 49 e' uscito piu' volte, poi c'e' il 2 0 mi pare ecc ecc
chiedo troppo?
 
infatti il 49 è il più uscito

devi scegliere ordinamento 2=frequenza

devi guardare il secondo prospetto, quello in fondo e ultimo dello script

oppure vuol dire

che hai un archivio con quantità estrazioni diverse dalle mie.

questo è quanto ho elaborato con l'archivio dal 2009 che è l'anno dove ha avuto inizio con la Venus
almeno io la vedo così.




hosting immagini
 
Ultima modifica:
ciao rubino
buongiorno a te e tutto il forum
fatto, mi piace , almeno posso vedere in ordine crescente o decrescente
una curiosita'
sotto vedo fascia 1 ecc
ma come sono suddivise le fasce?
 
Ultima modifica:
DA VENUS - Centro


FIRENZE 80 89 estratto

FIRENZE 89 estratto determinato pos.2°

http://s22.postimg.org/xv2ptap8h/FI89.jpg






caricare immagini




dalla situazione Grafica della fascia a 180

nb: media attuale maggiore della maxima


hosting immagini


89 estratto secco su FIRENZE

peccato la posizione è sbagliata


CONTATORE VINCITE da Novembre 2014

Estratti 3
Estratti Det.
Ambi Ruota Fissa
Ambi Tutte
Terni
 
Ultima modifica:
probabile nei prossimi colpi


NAPOLI - Tutte

estratto ed ambo 29 54
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 settembre 2025
    Bari
    85
    57
    40
    76
    14
    Cagliari
    90
    15
    68
    63
    76
    Firenze
    81
    74
    71
    25
    06
    Genova
    21
    47
    44
    02
    06
    Milano
    83
    39
    31
    84
    55
    Napoli
    74
    41
    24
    47
    38
    Palermo
    54
    25
    61
    22
    68
    Roma
    60
    72
    38
    55
    03
    Torino
    10
    45
    56
    54
    63
    Venezia
    14
    38
    66
    36
    28
    Nazionale
    85
    48
    38
    22
    81
    Estrazione Simbolotto
    Palermo
    08
    42
    27
    30
    20

Ultimi Messaggi

Indietro
Alto