Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
Si può realizzare almeno per ambata un listato seguendo quanto spiega Ennio Caperna in questo articolo:
Ma come si ottiene il valore del Kcritico? Semplice, dividendo la quantità delle sortite con la frequenza si ottiene un valore, per esempio se un numero è sortito 10 volte in 100 concorsi ...
Joe è vero ma per non apparire molto pignolo mi andava bene anche così. Se lo hai migliorate allora grazie e resto in attesa di testarlo.
Buona serata.
Girando ho visto questo script che hai corretto tu Joe ,
07.08.13.33.51.60.61.67
Numeri Sortiti 20
Si potrebbe realizzare a ruota leggendo le famose 18 estrazioni? Avrei a occhio gli ambi e terni verificatesi con i numeri sortiti > 1. Non voglio scocciarti se hai voglia e tempo...
Perfetta e giusta analisi. Sapessi quanti dolori per errori del genere commessi per distrazione. La legge del terzo non perdona, ricerca sbagliata pronostico sbagliato. Si vince solo con una attenta analisi di tanti fattori. Certo con l'evento della programmazione e tutto più semplificato a...
Giusto. Infatti ho rilevato l'errore comparando il tutto con gli estratti a 18 estrazioni e non mi trovavo con le date dell'ultima estrazione. Grazie Joe.
Joe da controllo mi accorgo che qualcosa non và nell'orndinamento.
ho impostato il listato a 18 estrazioni e a ruota singola.
dist 1 = 7 no 8
dist 2 = 3 no 7
dist 3 = 1 no 7
controlla per favore dove sta l'errore grazie.
Option Explicit
Sub Main
Dim Ini,Fin,Es,R,S,P,Q,D,Dst(45)
S =...
Buonasera a tutti. Avrei bisogno di uno script che mi scriva le dieci distanze ciclometriche presenti nei cinque estratti di una ruota e di poter andando a ritroso per n estrazione sapere in ordine di frequenza le distanze più frequenti. esempio
Ba
78
53
71
66
50
BA
25
7
12
28
18...
Buongiorno a tutti. Questo è lo script in questione
Option Explicit
Sub Main
Dim IdEstr,Ini,Fin,r,rt
Dim K,x
Dim aNumFreq(90,2),aNum
rt = FI_
r = rt
Ini = EstrazioneFin - 18
Fin = EstrazioneFin
For IdEstr = Ini To Fin
'If IsUltimaDelMese(IdEstr) Then
K =...