Novità

X JOE

Ciao Joe, questi numeri (15), non sono ovviamente tutti da giocare insieme ma si prendono in considerazione quei numeri della decina più probabile magari selezionata attraverso l'alta frequenza nelle ultime 18 estrazioni o altri metodi.
Quindi si seleziona una decina "Quella che secondo la frequenza delle 18 estrazioni ha più frequenza" ed infine si fa una ulteriore
selezione considerando non solo l'intera decina che abbiamo scelto ma anche una ristretta della stessa decina dove si può optare per quei numeri che abbiano maggior frequenza. Infatti i numeri della decina 61...70 ed esattamente il 61-69 avevano frequenza 2 rispetto ai restanti della stessa decina che aveva frequenza 1.
Comunque vanno poi seguiti per almeno 6 colpi.
 
Ultima modifica:
Ok, grazie per la risposta. Terremo presenti queste tue considerazioni per le ulteriori estrazioni. Anche in questo ultimo messaggio utilizzi la descrizione di "più probabile" questo contrasta con le regole del gioco in cui ad ogni estrazione ogni numero ha SEMPRE la stessa probabilità di tutti gli altri e di se stesso. Comunque si capisce cosa intendevi rappresentare e non è il caso di addentrarsi in sofismi. Vedo primeggiare, una simpatia, per il 6, anche questa cosa non mi sembra particolarmente efficace ... ma ... Ma è tempo di verificare, se vi saranno risultati al cospetto di questi si trarranno ... le somme. :)
 
Intanto ...

alcune considerazioni sul 6.

6 è un minimo.

Minimo che spesso è superato.

9 sono le decine.

6 per 9 uguale 54 (come mimimo ... quasi impossibile).

54 dunque, molto improbabile.

Mentre è sicuro che si considereranno, sempre,

più della metà dei numeri. (e ... più di 54)

Secondo me, troppi.

Dunque non avendo voglia di contare manualmente,

per ogni ruota e per ogni concorso ...

per questo scopo introdurrò alcuni totalizzatori, nello script.

Parallelamente, controllerò, anche con "meno numeri" (5 o anche meno)

quali possano essere i risultati residui e comparativamente.

:) Cordiali saluti.
 
Ciao Joe, ti rinnovo gli auguri di buon Natale.
Volevo chiederti se puoi mettere il listato da te fatto in modo da poter fare delle prove.
Grazie
 
Ciao Solare.

E' pasticciato pertanto lo devo ripulire un pò.

Poi, è su un computer cui potrò accedere solo tra un paio di giorni.

Ma con queste premesse, ve ne farò avere la copia.

:)
 
Codice:
Option Explicit
Sub Main
'6 Cadenze della Stessa Decina x Solare V.0.4 x Prove By Joe
	Dim R,Fin,D,K,T,CD,Es,P,E,CN
	Dim RC,Ub,Rm
	Fin = EstrazioneFin
	For R = 1 To 11 : If R = 11 Then R = 12
		Scrivi String(78,"="),True
		Scrivi
		Scrivi UCase(NomeRuota(R)),True
		Scrivi
		T = 0
		For D = 0 To 8
			K = 0 : RC = 0 : CD = 0 : ReDim C(9)
			For Es = Fin To 1 Step - 1
				For P = 5 To 1 Step - 1
					E = Estratto(Es,R,P)
					If DecinaNaturale(E) = D Then
						K = K + 1 : ReDim Preserve N(K) : N(K) = E
						CN = Cadenza(E)
						If C(CN) = "" Then CD = CD + 1 : C(CN) = True
					End If
				Next
				If CD >= 6 Then Exit For
				RC = RC + 1
			Next
			Scrivi FormatSpace(RC,2,True) & " Es.",True,False
			Scrivi Space(2) & "D" & D & ") ",True,False
			Scrivi StringaNumeri(N,"-",True),False,False
			Ub = UBound(N) : T = T + Ub
			Scrivi " [" & FormatSpace(Ub,2,True) & "] " & String(55 - 3*Ub,".") & FormatSpace(Round(Ub*100/RC),5,True) & " %",True
			Scrivi String(77,"-")
		Next
		Scrivi "Totale [" & T & "] Numeri.",True
		Scrivi
	Next
	Scrivi String(78,"="),True
	Scrivi
	Scrivi "Aggiornato al " & DataEstrazione(Fin),True
End Sub
 
Altra cosa Joe, essendo che si fa difficoltà a capire e vedere i doppioni dei numeri che compongono le decine, sarebbe possibile fare in modo che vengano evidenziati con colori differenti ?
 
Ciao.

"questa parte" di quanto mi hai richiesto riguarda "la ricerca".

Quella relativa all' output dei risultati cioè quella "con gli asterischi", per intenderci,

non l'ho ancora presa in considerazione.

Dicevo nella prima risposta che "il complicato"

era ottenere un output che risultasse ancora leggibile.

Dunque utile.

Ma non essendo chiaro quale fosse lo scopo dell script ...

... ho preferito, per prima cosa, racogliere, i risultati, e solo successivamente

predisporre la loro visualizzazione.


:)
 
Ultima modifica:
Buon Giorno a tutte/i.

In alternativa, per chi cerca qualcosa di semplice e pratico,

relativo alle super-frequenze propongo questo piccolo script.

Codice:
Option Explicit
Sub Main
Dim Ini,Fin,R,N,F,V
'SuperFrequenze Recenti. Script By Joe V.1.0 del 29/12/2016
Scrivi "Super Frequenze Recenti  (Script By Joe)",True
Scrivi
Ini = EstrazioneFin - 11
Fin = EstrazioneFin
Scrivi String(10,"-")
For R = 1 To 12
V = 3 : If R = 11 Then V = 12
Scrivi UCase (NomeRuota(R)),True
For N = 1 To 90
F = EstrattoFrequenza(R,N,Ini,Fin)
If F >= V Then Scrivi Format2(N) & " (" & F & ")"
Next
Scrivi String(9,"-")
Next
End Sub

:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 ottobre 2025
    Bari
    09
    10
    42
    73
    59
    Cagliari
    14
    65
    66
    79
    83
    Firenze
    71
    15
    32
    04
    61
    Genova
    08
    02
    18
    87
    84
    Milano
    33
    08
    84
    80
    41
    Napoli
    29
    81
    50
    17
    83
    Palermo
    14
    28
    74
    19
    60
    Roma
    76
    32
    55
    67
    90
    Torino
    07
    02
    66
    15
    70
    Venezia
    34
    73
    70
    40
    09
    Nazionale
    87
    79
    36
    46
    02
    Estrazione Simbolotto
    25
    07
    23
    17
    30

Ultimi Messaggi

Indietro
Alto