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
    venerdì 02 maggio 2025
    Bari
    71
    09
    03
    80
    50
    Cagliari
    32
    75
    30
    70
    40
    Firenze
    72
    16
    32
    70
    90
    Genova
    33
    34
    60
    75
    59
    Milano
    23
    82
    28
    03
    41
    Napoli
    87
    26
    22
    77
    39
    Palermo
    53
    11
    16
    22
    48
    Roma
    20
    31
    84
    79
    40
    Torino
    79
    78
    27
    04
    51
    Venezia
    20
    36
    76
    17
    88
    Nazionale
    15
    22
    51
    27
    18
    Estrazione Simbolotto
    Milano
    20
    11
    41
    05
    04
Indietro
Alto