X JOE

[solare]

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.

 

[joe]

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.

 

[solare]

Joe,Grazie comunque della tua collaborazione.
buone feste

 

[joe]

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.

 

[solare]

Ok joe

 

[solare]

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

 

[joe]

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.

 

[solare]

Ok Joe, buonagiornata

 

[joe]

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

 

[solare]

Grazie Joe

 

[solare]

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 ?

 

[Joe91]

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.

 

[joe]

Buon Giorno a tutte/i.

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

relativo alle super-frequenze propongo questo piccolo script.

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

 

[solare]

Grazie Joe