Qualcuno mi sa dire.........

[Joe91]

al mio script precdente ...

Ho aggiunto le istruzioni per controllare tutte le 20 terzine (che ho riassunto in tabella).

Questo lo script:

'test x ambo - formazioni originali di milano - by joe
sub main
dim a(20) : Dim ru(1) 
ru(1) = 5 
fin = estrazionefin : Ini = estrazionefin - 120
scrivi nomeruota(ru(1)) ,1,0
scrivi " dal " & dataestrazione (ini) & " al " & dataestrazione (fin) : Scrivi 
a(01) = "35-49-88"
a(02) = "09-35-49"
a(03) = "35-49-80"
a(04) = "09-49-88"
a(05) = "09-35-88"
a(06) = "09-80-88"
a(07) = "49-80-88"
a(08) = "35-80-88"
a(09) = "09-35-80"
a(10) = "09-49-80"
a(11) = "15-34-90"
a(12) = "15-32-90"
a(13) = "14-15-90"
a(14) = "14-32-34"
a(15) = "15-67-90"
a(16) = "14-15-32"
a(17) = "14-32-90"
a(18) = "15-87-90"
a(19) = "05-35-49"
a(20) = "15-32-34"
for n = 1 to 20
nu = split("0-" & a(n),"-")
sf = seriefreq(ini,fin,nu,ru,2) : T = t + sf
scrivi  stringanumeri(nu) & "  " & sf & " ambi"
next 
scrivi 
scrivi "totale   " & t & " ambi in " & fin - ini & " estrazioni.",1
end sub

e... Questo l'output:

milano dal 08.03.2011 al 13.12.2011
35.49.88  6 ambi
09.35.49  5 ambi
35.49.80  5 ambi
09.49.88  5 ambi
09.35.88  4 ambi
09.80.88  4 ambi
49.80.88  4 ambi
35.80.88  3 ambi
09.35.80  3 ambi
09.49.80  3 ambi
15.34.90  4 ambi
15.32.90  4 ambi
14.15.90  4 ambi
14.32.34  5 ambi
15.67.90  5 ambi
14.15.32  4 ambi
14.32.90  4 ambi
15.87.90  6 ambi
05.35.49  6 ambi
15.32.34  3 ambi
totale   87 ambi in 120 estrazioni.

per cui, ora, è noto a tutti, che gli esiti "eccedenti" sono dovuti alle

"giocate multiple" dovute alle presenza della spia

che riappare nel medesimo intervallo di 12 estrazioni.

Bene.

Per me, non è un errore dello script.

Se gioco ... 3 volte ... Gli stessi numeri ... Perchè la spia è uscita 3 volte ... Vinco 3 volte (con gli stessi ambi).

Se gioco una sola volta ... Quando e perchè ... Ho convergenza e ri-conferme della giocata

... Vinco una sola volta. Dov'è l'errore ?!?!

Finalmente ... qualcuno che capisce ...

quello che avevo scritto al #25 ... ed ora è anche chiaro ... perchè era ( ed è ) sbagliato correggere i Parametri di SerieFrequenza.

Il di più ... dipende dalla Spia e non dai "Terni". Bastava leggere, bene, lo script, ed i miei commenti.

Anche se ... leggere gli script ... non è semplice come scriverli.

Bravo Black.

 

[claudio8]

Finalmente ... qualcuno che capisce ... ti riporto testuali parole di Black :

In realtà il terno è uscito una sola volta, è la spia 90 che si è presentata più volte nell'arco delle 12 estrazioni successive
Quindi (ma è solo un modesto parere personale), questo script sulla spia 90 non è attendibile
Ripeto: lo script non è attendibile, non chi l'ha fatto eh! ​

quello che avevo scritto al #25 ... ed ora è anche chiaro ... perchè era ( ed è ) sbagliato correggere i Parametri di SerieFrequenza.

Il di più ... dipende dalla Spia e non dai "Terni". Bastava leggere, bene, lo script, ed i miei commenti.

Anche se ... leggere gli script ... non è semplice come scriverli.

Bravo Black.


------------------------------------------------------------------------------

Adesso ti riscrivo quanto ho affermato nel post n° 11, ben 14 post prima del tuo :

x Mike

terni(co,5) =terni(co,5) +SerieFreq(es + 1,ess,nn,ru,2) = sbagliato


Vi è un errore concettuale sul costrutto condizione della Seriefreq che deve essere calcolata 1 sola volta x caso e non sommata e risommata

if SerieFreq(es + 1,ess,nn,ru,2) > 0 then

terni(co,5) =terni(co,5) + 1


inoltre , in questo caso, la spia 90 su MI è presente diverse volte nel range di ricerca
(12 colpi) questo porta inevitabilmente a quantificare la presenza degli esiti richiesti
tante volte quante volte la spia è presente nel range dei colpi

[TABLE="class: cms_table"]
[TR]
[TD="class: cms_table_xl26, width: 20, bgcolor: transparent"]76[/TD]
[TD="class: cms_table_xl28, width: 20, bgcolor: transparent"]62[/TD]
[TD="class: cms_table_xl28, width: 20, bgcolor: transparent"]21[/TD]
[TD="class: cms_table_xl25, width: 20, bgcolor: transparent"]37[/TD]
[TD="class: cms_table_xl27, width: 20, bgcolor: transparent"]42[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]68[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]21[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]80[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]85[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]64[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]55[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]31[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]84[/TD]
[TD="class: cms_table_xl25"]90[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]38[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]17[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]3[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]53[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]9[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]66[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]77[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]56[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]11[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]59[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]16[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]5[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]49[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]28[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]35[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]2[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]57[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]16[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]79[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]69[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]20[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]70[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]87[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]21[/TD]
[TD="class: cms_table_xl25"]90[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]55[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]26[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]59[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]60[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]27[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]49[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]60[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]71[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]80[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]52[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]89[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]21[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]46[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]88[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]66[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]19[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]15[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]67[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]87[/TD]
[TD="class: cms_table_xl25"]90[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]19[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]15[/TD]
[TD="class: cms_table_xl25"]90[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]34[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]14[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]32[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]49[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]9[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]80[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]88[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]35[/TD]
[/TR]
[/TABLE]

L'ambo 34 14 , se consideriamo i 12 colpi, è presente 3 volte su tre casi , mentre l'ambo 49 35 è presente 2 volte.
indubbiamente non tutto si può considerare alla stessa stregua per cui spesso occorre considerare caso per caso e non affidarsi a script inutilizzbili.

------------------------------------------------------------------------------------------------------------------------------------------------

Adesso vi chiedo cari lettori: che differenza pratica vi è tra il dire " non affidarsi a script inutilizzbili "e " lo script non è attendibile."

ed ancora, ha senso la frase che segue?

Anche se ... leggere gli script ... non è semplice come scriverli.

Io credo che sia + difficile comporlo (o scriverlo come dir si voglia) che leggerlo quindi proprio il contrari della affermazione di Joe.


Bravo Black.

Saluti e pazienza

 

[Joe91]

Finalmente ... qualcuno che capisce ... ti riporto testuali parole di Black :

In realtà il terno è uscito una sola volta, è la spia 90 che si è presentata più volte nell'arco delle 12 estrazioni successive
Quindi (ma è solo un modesto parere personale), questo script sulla spia 90 non è attendibile
Ripeto: lo script non è attendibile, non chi l'ha fatto eh! ​

quello che avevo scritto al #25 ... ed ora è anche chiaro ... perchè era ( ed è ) sbagliato correggere i Parametri di SerieFrequenza.

Il di più ... dipende dalla Spia e non dai "Terni". Bastava leggere, bene, lo script, ed i miei commenti.

Anche se ... leggere gli script ... non è semplice come scriverli.

Bravo Black.


------------------------------------------------------------------------------

Adesso ti riscrivo quanto ho affermato nel post n° 11, ben 14 post prima del tuo :

x Mike

terni(co,5) =terni(co,5) +SerieFreq(es + 1,ess,nn,ru,2) = sbagliato


Vi è un errore concettuale sul costrutto condizione della Seriefreq che deve essere calcolata 1 sola volta x caso e non sommata e risommata

if SerieFreq(es + 1,ess,nn,ru,2) > 0 then

terni(co,5) =terni(co,5) + 1


inoltre , in questo caso, la spia 90 su MI è presente diverse volte nel range di ricerca
(12 colpi) questo porta inevitabilmente a quantificarela presenza degli esiti richiesti
tante volte quante volte la spia è presente nel range dei colpi

[TABLE="class: cms_table"]
[TR]
[TD="class: cms_table_xl26"]76
[/TD]
[TD="class: cms_table_xl28"]62
[/TD]
[TD="class: cms_table_xl28"]21
[/TD]
[TD="class: cms_table_xl25, width: 20, bgcolor: transparent"]37
[/TD]
[TD="class: cms_table_xl27, width: 20, bgcolor: transparent"]42
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]68
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]21
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]80
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]85
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]64
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]55
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]31
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]84
[/TD]
[TD="class: cms_table_xl25"]90
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]38
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]17
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]3
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]53
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]9
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]66
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]77
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]56
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]11
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]59
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]16
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]5
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]49
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]28
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]35
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]2
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]57
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]16
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]79
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]69
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]20
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]70
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]87
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]21
[/TD]
[TD="class: cms_table_xl25"]90
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]55
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]26
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]59
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]60
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]27
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]49
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]60
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]71
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]80
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]52
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]89
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]21
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]46
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]88
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]66
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]19
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]15
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]67
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]87
[/TD]
[TD="class: cms_table_xl25"]90
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]19
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]15
[/TD]
[TD="class: cms_table_xl25"]90
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]34
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]14
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]32
[/TD]
[/TR]
[TR]
[TD="class: cms_table_xl26, bgcolor: transparent"]49
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]9
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]80
[/TD]
[TD="class: cms_table_xl25, bgcolor: transparent"]88
[/TD]
[TD="class: cms_table_xl27, bgcolor: transparent"]35
[/TD]
[/TR]
[/TABLE]

L'ambo 34 14 , se consideriamo i 12 colpi, è presente 3 volte su tre casi , mentre l'ambo 49 35 è presente 2 volte.
indubbiamente non tutto si può considerare alla stessa stregua per cui spesso occorre considerare caso per caso e non affidarsi a script inutilizzbili.

------------------------------------------------------------------------------------------------------------------------------------------------

Adesso vi chiedo cari lettori: che differenza pratica vi è tra il dire " non affidarsi a script inutilizzbili "e " lo script non è attendibile."

ed ancora, ha senso la frase che segue?

Anche se ... leggere gli script ... non è semplice come scriverli.

Io credo che sia + difficile comporlo (o scriverlo come dir si voglia) che leggerlo quindi proprio il contrari della affermazione di Joe.


Bravo Black.

Saluti e pazienza

Vorrò stupirti con effeti speciali ...

Mi hai convinto e sono perfettamente daccordo con te ...

chi non sa leggere gli script ... poi, non sa scriverli,

perchè questa seconda cosa è più difficile.

Buona Giornata.

PS: Hai anche ragione ... mi è veramente difficile capire se nel mio oroscopo... ho l'ascendente ... più in Tommaso, che in Giobbe.

So, che ho resistito ben 10 messaggi prima di scrivere che la tua correzione allo script è sbagliata (Lo ribadisco solo per essere chiaro)

ma ora dovrò dimostrlo anche a tutti gli altri che ancora non si schierano dalla tua parte ... uffa!

Nuovamente ... con stima ed affetto, saluto, questa sorte di virtual-suocera-orchiplastica

che solo un destino cinico e baro in modo assai poco casuale m'ha affibbiato.

 

[Joe91]

Per luigi

Per luigi

Ciao Luigi ...

mi aggiungo al coro dei complimenti e ti ringrazio per lo script ...

che riconosco essere ... di qualità superiore ...

Grazie.

Grazie, anche, per il molto materiale in esso contenuto, cui attingerò, per imparare qualcosa.

Per il confronto con il "mostro" che moltio vorrebbero bruciare ....

l'ho eseguito con parametri simili a quelli, sinora usati, nello script della "vexata quaestio"

per la ruota di Mliano propone il 36 ... (per chi non ne conosce l'output è quello del blocco-note a destra)

mentre, sulla sinistra, quanto produce il mio script ... nella versione a cui sta lavorando ...

(che naturalmente non rilascierò perchè già presente) ... produce anche l'eseguibile ... per una più comoda verifica.

In basso dunque parte dell'eseguibile ... che già conosciete ...

e questi i risultati delle (mie) prime 3 Terzine :

[SIZE=2]17.46.79[/SIZE]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]14.04.2011 MI [/COLOR]88.37.15.84.36 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]03.05.2011 MI [/COLOR][COLOR=#000000]17.79.74.29.46 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]17.46.79 al 8° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]21.04.2011 MI [/COLOR]72.48.20.36.16 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]03.05.2011 MI [/COLOR][COLOR=#000000]17.79.74.29.46 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]17.46.79 al 5° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]23.04.2011 MI [/COLOR]36.68.32.35.49 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]03.05.2011 MI [/COLOR][COLOR=#000000]17.79.74.29.46 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]17.46.79 al 4° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]28.04.2011 MI [/COLOR]66.25.30.33.36 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]03.05.2011 MI [/COLOR][COLOR=#000000]17.79.74.29.46 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]17.46.79 al 2° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]21.05.2011 MI [/COLOR]36.44.37.73.58 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]18.06.2011 MI [/COLOR][COLOR=#000000]25.79.26.17.46 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]17.46.79 al 12° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]14.06.2011 MI [/COLOR]54.36.38.31.26 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]18.06.2011 MI [/COLOR][COLOR=#000000]25.79.26.17.46 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]17.46.79 al 2° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]11.08.2011 MI [/COLOR]90.36.51.75.04 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]08.09.2011 MI [/COLOR]87.36.13.80.22 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]11.10.2011 MI [/COLOR]36.51.20.31.34 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]22.10.2011 MI [/COLOR]77.52.36.81.09 < Spia 36[/COLOR][/SIZE][/FONT]

[FONT=Courier New][SIZE=2][COLOR=#000000]17.29.79[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]14.04.2011 MI [/COLOR]88.37.15.84.36 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]03.05.2011 MI [/COLOR][COLOR=#000000]17.79.74.29.46 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]17.29.79 al 8° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]21.04.2011 MI [/COLOR]72.48.20.36.16 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]03.05.2011 MI [/COLOR][COLOR=#000000]17.79.74.29.46 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]17.29.79 al 5° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]23.04.2011 MI [/COLOR]36.68.32.35.49 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]03.05.2011 MI [/COLOR][COLOR=#000000]17.79.74.29.46 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]17.29.79 al 4° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]28.04.2011 MI [/COLOR]66.25.30.33.36 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]03.05.2011 MI [/COLOR][COLOR=#000000]17.79.74.29.46 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]17.29.79 al 2° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]21.05.2011 MI [/COLOR]36.44.37.73.58 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]14.06.2011 MI [/COLOR]54.36.38.31.26 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]11.08.2011 MI [/COLOR]90.36.51.75.04 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]08.09.2011 MI [/COLOR]87.36.13.80.22 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]11.10.2011 MI [/COLOR]36.51.20.31.34 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]22.10.2011 MI [/COLOR]77.52.36.81.09 < Spia 36[/COLOR][/SIZE][/FONT]

[FONT=Courier New][SIZE=2][COLOR=#000000]34.47.83[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]14.04.2011 MI [/COLOR]88.37.15.84.36 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]30.04.2011 MI [/COLOR][COLOR=#000000]83.47.63.08.34 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]34.47.83 al 7° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]21.04.2011 MI [/COLOR]72.48.20.36.16 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]30.04.2011 MI [/COLOR][COLOR=#000000]83.47.63.08.34 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]34.47.83 al 4° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]23.04.2011 MI [/COLOR]36.68.32.35.49 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]30.04.2011 MI [/COLOR][COLOR=#000000]83.47.63.08.34 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]34.47.83 al 3° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]28.04.2011 MI [/COLOR]66.25.30.33.36 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]30.04.2011 MI [/COLOR][COLOR=#000000]83.47.63.08.34 [/COLOR][COLOR=#000000]<<<<<<<<< Terno [/COLOR]34.47.83 al 1° Colpo [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]21.05.2011 MI [/COLOR]36.44.37.73.58 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]14.06.2011 MI [/COLOR]54.36.38.31.26 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]11.08.2011 MI [/COLOR]90.36.51.75.04 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]08.09.2011 MI [/COLOR]87.36.13.80.22 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]11.10.2011 MI [/COLOR]36.51.20.31.34 < Spia 36[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000]22.10.2011 MI [/COLOR]77.52.36.81.09 < Spia 36[/COLOR][/SIZE][/FONT]

Con gli auguri ... a TUTTI.

 

[barattolo]

ciao ragazzi capito nel bel mezzo della disputa (che spero si risolvera) perche anche io mi sono dilettato in uno script cosi come ho capito la richiesta ...
qualcuno verifichi se funziona per favore ..

Option Explicit
Class ClsTerno
    Public sNumeri
    Public nPresenze
End Class
Class clsSpia
    Public Numero
    Private collTerni
    Public Property Get PresenzeMax
    Dim cTerno
    Dim nMax
    If Not collTerni Is Nothing Then
        For Each cTerno In collTerni
            If cTerno.npresenze > nMax Then
                nMax = cTerno.npresenze
            End If
        Next
    End If
    PresenzeMax = nMax
    End Property
    Sub InitColl
        Set collTerni = GetNewCollection
    End Sub
    Function GetTerno(sKey)
        On Error Resume Next
        Set GetTerno = collTerni(sKey)
        If Err <> 0 Then
            Err.Clear
            Set GetTerno = Nothing
        End If
    End Function
    Sub IncrementaPresenzeTerni(aTerni)
        Dim k,e
        Dim sKey
        Dim cTerno
        For k = 1 To UBound(aTerni)
            sKey = "i"
            For e = 1 To 3
                sKey = sKey & Format2(aTerni(k,e)) & "-"
            Next
            sKey = Left(sKey,Len(sKey) - 1)
            Set cTerno = GetTerno(sKey)
            If cTerno Is Nothing Then
                Set cTerno = New ClsTerno
                cTerno.sNumeri = sKey
                Call collTerni.Add(cTerno,sKey)
                cTerno.nPresenze = 1
            Else
                cTerno.nPresenze = cTerno.nPresenze + 1
            End If
        Next
    End Sub
    Sub CalcolaTerni(Inizio,Fine,ruota)
        Dim k,e
        Dim aTerni
        For k = Inizio To Fine
            ReDim aN(5)
            For e = 1 To 5
                aN(e) = Estratto(k,ruota,e)
            Next
            If aN(1) > 0 Then
                aTerni = SviluppoIntegrale(aN,3)
                Call IncrementaPresenzeTerni(aTerni)
            End If
        Next
    End Sub
    Sub ScriviTerniSpiati
        Dim cTerno
        Call OrdinaItemCollection(collTerni,"nPresenze","sNumeri")
        Call Scrivi("Numero " & Numero)
        Call Scrivi
        For Each cTerno In collTerni
            If cTerno.nPresenze > 1 Then
                Call Scrivi(Mid(cTerno.sNumeri,2) & "---> " & cTerno.nPresenze)
            End If
        Next
        Call Scrivi(String(50,"-"))
    End Sub
End Class
Sub Main
    Dim collSpie
    Dim idEst,e,n
    Dim Inizio,Fine
    Dim nColpi
    Dim nRuota
    Dim cSpia
    nColpi = CInt(InputBox("Quanti colpi ?" ,"Colpi di gioco" , 12))
    nRuota = ScegliRuota
    
    If nRuota =0 Or nColpi <= 0 Then Exit Sub 
    Inizio = EstrazioneIni
    Fine = EstrazioneFin
    Call InitCollSpie(collSpie)
    For idEst = Inizio To Fine
        For e = 1 To 5
            n = Estratto(idEst,nRuota,e)
            If n > 0 Then
                Set cSpia = collSpie("i" & n)
                Call cSpia.CalcolaTerni(idEst + 1,idEst + nColpi,nRuota)
            End If
        Next
        Call AvanzamentoElab(Inizio,Fine,idEst)
        If ScriptInterrotto Then Exit For
    Next
    Call OrdinaItemCollection(collSpie,"PresenzeMax")
    For Each cSpia In collSpie
        Call cSpia.ScriviTerniSpiati
    Next
End Sub
Sub InitCollSpie(coll)
    Dim k
    Dim cSpia
    Set coll = GetNewCollection
    For k = 1 To 90
        Set cSpia = New clsSpia
        cSpia.numero = k
        Call cSpia.InitColl
        coll.Add cSpia,"i" & k
    Next
End Sub

Ciao LuigiB, sei il migliore!
Volevo dirti che il tuo (ottimo) script
(a mio parere) funzionaVA perfettamente.
FUNZIONAVA...perchè lo provai ieri e non mi dava nessun errore.

Invece oggi...lo stesso script mi da quest'errore:



Cioè, mi evidenzia questa riga: Call cSpia.CalcolaTerni(idEst + 1,idEst + nColpi,nRuota)

Nelle impostazioni, cioè quelle all'inizio lascio tutto com'è d default...quanti colpi? 12 - Seleziona ruota...una qualsiasi...è uguale.

Sbaglio io in qualcosa?

 

[claudio8]

Caro joe vorrei che tu fossi + chiaro nel darci i parametri di ricerca perchè dallo script di mike al post n.5 che ti allego

 Sub Main()
 Dim ru(3)
 Dim terni(120000,7)
 Dim nn(3)
 r = InputBox("su quale ruota ? 1-10",,5)
 n1 = InputBox(" Numero Spia - ",,36)
 For i = 1 To 120000
  terni(i,1) = 0
  terni(i,2) = 0
  terni(i,3) = 0
  terni(i,4) = 0
  terni(i,5) = 0
  terni(i,6) = 0
 Next
 casi = 0
 co = 0
 fin = EstrazioneFin
 ini = EstrazioneFin - 120
 For es = ini To fin
  Messaggio " Spia " & CInt(n1) & " est. " & es & " su " & NomeRuota(r) & " dal " & DataEstrazione(ini) & " ad oggi"
  If Posizione(es,r,n1) > 0 Then
   casi = casi + 1
   c = 12
   ess = es + c
   If ess > fin Then ess = fin End If
   co = 0
   For x = 1 To 88
    For y = x + 1 To 89
     For z = y + 1 To 90
      co = co + 1
      terni(co,1) = co
      terni(co,2) = x
      terni(co,3) = y
      terni(co,4) = z
      nn(1) = x
      nn(2) = y
      nn(3) = z
      ru(1) = r
      terni(co,5) = terni(co,5) + SerieFreq(es + 1,ess,nn,ru,2)
      terni(co,6) = SerieRitardo(Ini,fin,nn,ru,2)
     Next
    Next
   Next
  End If
 Next
 OrdinaMatrice terni,- 1,5
 ColoreTesto 1
 Scrivi " Spia " & CInt(n1) & " su " & NomeRuota(r) & " Terzine x ambo + frequenti " & c & " colpi "
 Scrivi CInt(casi) & " casi dal " & DataEstrazione(ini) & " ad oggi "& DataEstrazione(fin)
 Scrivi
 Scrivi " Tezine a ruota"
 ColoreTesto 2
 Scrivi String(10," ") & " Terzine  Frequenza"
 ColoreTesto 0
 For x = 1 To 20
  Scrivi Format2(terni(x,2)) & "-" & Format2(terni(x,3)) & "-" & Format2(terni(x,4)),0,0
  ColoreTesto 2
  Scrivi" - Presenza per ambo " & Format2(terni(x,5)),1,0
  ColoreTesto 7
  Scrivi" - Ritardo per ambo--> " & terni(x,6),1
  ColoreTesto 0
 Next
 Scrivi "********************************************* **** *******"
End Sub
[B][SIZE=2][COLOR=#2828ff][SIZE=2][COLOR=#2828ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B]

otteniamo questo output x le terzine a ambo:


Spia 36 su Milano Terzine x ambo + frequenti 12 colpi
10 casi dal 12.03.2011 ad oggi 17.12.2011

Tezine a ruota
Terzine Frequenza
49-69-82 - Presenza per ambo 20 - Ritardo per ambo--> 56
19-69-82 - Presenza per ambo 18 - Ritardo per ambo--> 25
19-49-82 - Presenza per ambo 18 - Ritardo per ambo--> 25
33-49-82 - Presenza per ambo 18 - Ritardo per ambo--> 17
17-46-79 - Presenza per ambo 18 - Ritardo per ambo--> 78
57-69-82 - Presenza per ambo 17 - Ritardo per ambo--> 9
30-69-82 - Presenza per ambo 17 - Ritardo per ambo--> 47
08-47-83 - Presenza per ambo 17 - Ritardo per ambo--> 23
49-55-82 - Presenza per ambo 16 - Ritardo per ambo--> 94
49-57-82 - Presenza per ambo 16 - Ritardo per ambo--> 94
69-76-82 - Presenza per ambo 16 - Ritardo per ambo--> 30
46-49-82 - Presenza per ambo 16 - Ritardo per ambo--> 94
10-39-74 - Presenza per ambo 16 - Ritardo per ambo--> 21
38-69-82 - Presenza per ambo 16 - Ritardo per ambo--> 56
17-29-79 - Presenza per ambo 15 - Ritardo per ambo--> 16
08-63-83 - Presenza per ambo 15 - Ritardo per ambo--> 99
29-46-79 - Presenza per ambo 15 - Ritardo per ambo--> 16
08-34-83 - Presenza per ambo 15 - Ritardo per ambo--> 65
17-29-46 - Presenza per ambo 14 - Ritardo per ambo--> 78
07-10-74 - Presenza per ambo 14 - Ritardo per ambo--> 79
********************************************* **** *******

ed inoltre, lo script che usi per dimostrarci che i terni o le trezine x ambo sono usciti innumerevoli volte,
servre solo a ricontare le presenze che già diamo per scontato essere uguali a quelle contate dalla
funzione SerieFreq così come impostata nello script di Mike. ( terni(co,5) = terni(co,5) + SerieFreq(es + 1,ess,nn,ru,2).

Mi piacerebbe che tu, usando le terzine che rilevi dallo script di mike ne verificassi l'esito se positivo
o meno dopo l'uscita della ultima spia, premettendo che nello script di mike devi escludere l'ultimo
caso in analisi altrimenti fai l'errore di leggere le terzine presenti dopo l'ultimo caso e poi verificarne l'esito
nelle estrazioni già considerate.
In definitiva se vuoi seguire una procedure corretta devi escludere dall'analisi l'ultimo caso e cioè quello
del 22/10/2011 (usane solo 9) e quindi partendo dalla estrazione successiva alla data del 22/10/2011 (data dell'ultima spia),
fare l'analisi degli esiti relativi ai terni o terzine + frequenti rilevate secondo il tuo modus operandi dalllo script di Mike.

Solo in questo modo possiamo cominciare ad operare correttamente, per poi scoprire o ricercare soluzioni + affidabili o attendibili.

Spero di essere stato chiaro.

Saluti e pazienza

 

[Joe91]

Caro joe vorrei che tu fossi + chiaro nel darci i parametri di ricerca perchè dallo script di mike al post n.5 che ti allego

 Sub Main()
 Dim ru(3)
 Dim terni(120000,7)
 Dim nn(3)
 r = InputBox("su quale ruota ? 1-10",,5)
 n1 = InputBox(" Numero Spia - ",,36)
 For i = 1 To 120000
  terni(i,1) = 0
  terni(i,2) = 0
  terni(i,3) = 0
  terni(i,4) = 0
  terni(i,5) = 0
  terni(i,6) = 0
 Next
 casi = 0
 co = 0
 fin = EstrazioneFin
 ini = EstrazioneFin - 120
 For es = ini To fin
  Messaggio " Spia " & CInt(n1) & " est. " & es & " su " & NomeRuota(r) & " dal " & DataEstrazione(ini) & " ad oggi"
  If Posizione(es,r,n1) > 0 Then
   casi = casi + 1
   c = 12
   ess = es + c
   If ess > fin Then ess = fin End If
   co = 0
   For x = 1 To 88
    For y = x + 1 To 89
     For z = y + 1 To 90
      co = co + 1
      terni(co,1) = co
      terni(co,2) = x
      terni(co,3) = y
      terni(co,4) = z
      nn(1) = x
      nn(2) = y
      nn(3) = z
      ru(1) = r
      terni(co,5) = terni(co,5) +[COLOR=#FF0000][B] SerieFreq(es + 1,ess,nn,ru,2)
[/B][/COLOR]      terni(co,6) = SerieRitardo(Ini,fin,nn,ru,2)
     Next
    Next
   Next
  End If
 Next
 OrdinaMatrice terni,- 1,5
 ColoreTesto 1
 Scrivi " Spia " & CInt(n1) & " su " & NomeRuota(r) & " Terzine x ambo + frequenti " & c & " colpi "
 Scrivi CInt(casi) & " casi dal " & DataEstrazione(ini) & " ad oggi "& DataEstrazione(fin)
 Scrivi
 Scrivi " Tezine a ruota"
 ColoreTesto 2
 Scrivi String(10," ") & " Terzine  Frequenza"
 ColoreTesto 0
 For x = 1 To 20
  Scrivi Format2(terni(x,2)) & "-" & Format2(terni(x,3)) & "-" & Format2(terni(x,4)),0,0
  ColoreTesto 2
  Scrivi" - Presenza per ambo " & Format2(terni(x,5)),1,0
  ColoreTesto 7
  Scrivi" - Ritardo per ambo--> " & terni(x,6),1
  ColoreTesto 0
 Next
 Scrivi "********************************************* **** *******"
End Sub
[B][SIZE=2][COLOR=#2828ff][SIZE=2][COLOR=#2828ff]
[/COLOR][/SIZE][/COLOR][/SIZE][/B]

otteniamo questo output x le terzine a ambo:


Spia 36 su Milano Terzine x ambo + frequenti 12 colpi
10 casi dal 12.03.2011 ad oggi 17.12.2011

Tezine a ruota
Terzine Frequenza
49-69-82 - Presenza per ambo 20 - Ritardo per ambo--> 56
19-69-82 - Presenza per ambo 18 - Ritardo per ambo--> 25
19-49-82 - Presenza per ambo 18 - Ritardo per ambo--> 25
33-49-82 - Presenza per ambo 18 - Ritardo per ambo--> 17
17-46-79 - Presenza per ambo 18 - Ritardo per ambo--> 78
57-69-82 - Presenza per ambo 17 - Ritardo per ambo--> 9
30-69-82 - Presenza per ambo 17 - Ritardo per ambo--> 47
08-47-83 - Presenza per ambo 17 - Ritardo per ambo--> 23
49-55-82 - Presenza per ambo 16 - Ritardo per ambo--> 94
49-57-82 - Presenza per ambo 16 - Ritardo per ambo--> 94
69-76-82 - Presenza per ambo 16 - Ritardo per ambo--> 30
46-49-82 - Presenza per ambo 16 - Ritardo per ambo--> 94
10-39-74 - Presenza per ambo 16 - Ritardo per ambo--> 21
38-69-82 - Presenza per ambo 16 - Ritardo per ambo--> 56
17-29-79 - Presenza per ambo 15 - Ritardo per ambo--> 16
08-63-83 - Presenza per ambo 15 - Ritardo per ambo--> 99
29-46-79 - Presenza per ambo 15 - Ritardo per ambo--> 16
08-34-83 - Presenza per ambo 15 - Ritardo per ambo--> 65
17-29-46 - Presenza per ambo 14 - Ritardo per ambo--> 78
07-10-74 - Presenza per ambo 14 - Ritardo per ambo--> 79
********************************************* **** *******

ed inoltre, lo script che usi per dimostrarci che i terni o le trezine x ambo sono usciti innumerevoli volte,
servre solo a ricontare le presenze che già diamo per scontato essere uguali a quelle contate dalla
funzione SerieFreq così come impostata nello script di Mike. ( terni(co,5) = terni(co,5) + SerieFreq(es + 1,ess,nn,ru,2).

Mi piacerebbe che tu, usando le terzine che rilevi dallo script di mike ne verificassi l'esito se positivo
o meno dopo l'uscita della ultima spia, premettendo che nello script di mike devi escludere l'ultimo
caso in analisi altrimenti fai l'errore di leggere le terzine presenti dopo l'ultimo caso e poi verificarne l'esito
nelle estrazioni già considerate.
In definitiva se vuoi seguire una procedure corretta devi escludere dall'analisi l'ultimo caso e cioè quello
del 22/10/2011 (usane solo 9) e quindi partendo dalla estrazione successiva alla data del 22/10/2011 (data dell'ultima spia),
fare l'analisi degli esiti relativi ai terni o terzine + frequenti rilevate secondo il tuo modus operandi dalllo script di Mike.

Solo in questo modo possiamo cominciare ad operare correttamente, per poi scoprire o ricercare soluzioni + affidabili o attendibili.

Spero di essere stato chiaro.

Saluti e pazienza

Chiarissimo.

Ed altrettanto Chiaramente Mike aveva scritto di aver voluto testare per ambo ... ma questa cosa che riproponi ora è "Fuori Tema" (come al solito)

Inconfrontabile con il resto di cui stiamo trattando.

Preferisco non seguirti ... in queste tue sterili, continue, inutili, inconcludenti provocazioni.

Buona Giornata.

 

[claudio8]

Va bene resta con le tue convinzioni.

Saluti e pazienza

 

[Joe91]

Quanti sono i terni ? / Qual'è il ritardo naturale del Terno.

Quanti sono i terni ? / Qual'è il ritardo naturale del Terno.

Nello script appena proposto da Claudio,

Troviamo scritto ...

" Dim terni(120000,7) "

Lo sappiamo ed allora è meglio scriverlo giusto ...

non lo sappiamo (o non lo ricordiamo) ed allora lo calcoliamo.

Quando passo-passo ho composto lo script per Janez ...

Ho usato il ciclo For-Next per avere dal programma i 10 numeri con cui contraddistinguere le 10 ruote

For R= 1 To 10 

    Scrivi Nomeruota(R)

Next

Poi abbiamo usato 2 cicli nidificati per creare le coppie di ruote ...

ed in modo del tutto simile possiamo generare in modo ottimizzato gli Ambi

ovvero le combinazioni di 2 numeri in una classe di 90

For N1 = to 89 

   For N2=N1+1 to 90 
 
      K=k+1
   
   Next

Next

Scrivi K

E, quanti sono gli Ambi ?

lo chiediamo ad excel ...

in una cella scriviamo " =Combinazione(90;2) " (senza gli apici)

ed il foglio di calcolo istantaneamente ci scrive che le combinazioni di 90 ("Numeri") a gruppi di 2 ("Classe")

sono 4005 coppie che lottologicamente diciamo Ambi.

Lo script (quando eseguito) anch'esso ci scrive k ovvero 4005 ma notiano che impiega una frazione di secondo per farlo.

Notiamo, anche, che l'istruzione "più interna" ai cicli ... e/o più verso destra ed in sintesi la somma k=k+1

viene eseguita 4005 volte (Tante volte appunto quanti sono gli Ambi)

Per i Terni, sempre in una cella vouta scriviamo " =Combinazione(90;3) " (senza gli apici)

ed il foglio di calcolo istantaneamente ci scrive quante sono le combinazioni di 90 ("Numeri") a gruppi di 3 ("Classe")

per cui Combinazione (90;3) = 117480. Centodiciassettemilaquatrocentoottanta.

Scriviamo allora lo script per generare i Terni e verifichiamo se ...

[SIZE=2] Sub [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]()[/SIZE]
[SIZE=2]
    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] N1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 88[/SIZE]
[SIZE=2]
        
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]   For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] N2 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] N1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 89[/SIZE]
[SIZE=2]
            
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]      For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] N3 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] N2 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 90[/SIZE]
[B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]

         k=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1
[/SIZE]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]      Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]    Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]
Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] K[/SIZE]

Ancora una volta otteniamo 117480 ed anche in questo caso ...

l'istruzione più interna k=k+1 viene eseguita 117480 volte.

Quindi OTTIMIZZARE significa dimensionare correttamente la matrice Terni

con il valore appropriato non impegnando inutilmente la memoria del PC.

Anche le colonne (7) sono troppe ... le portiamo a 5.

Quanto al Ritardo Naturale del Terno è naturalmente quanto mediamente (in estrazioni)

ci si attende esso venga estratto. Ne vengono estratti 10 per ogni estrazione in ogni ruota.

Quindi, ogni terno, lo si attende a ruota, una volta ogni 11748 Estrazioni.

 

[Joe91]

Ciao Giulio.

Si, ci sono ... lavori in corso ...

e le "procedure" cambiano continuamente,

ho notato che da oggi ... il server "riconosce" anche

se ci colleghiamo con il Pc o con uno SmartPhone ...

Buona Giornata.

 

[LuigiB]

Per Barattolo

Semplicemente hai usato un range di estrazioni troppo elevato per quello che si puo permettere il tuo pc

Per Joe91

Grazie per l'apprezzamento che hai fatto sul mio script , come molti avranno capito a me di lotto non interessa nulla
pero mi piace pter spiegare agli altri quello che so quindi se hai domande o dubbi riguardanti il mio script sono pronto a dare delucidazioni

Per tutti gli scripter :

Il linguaggio spazioscript è piu evoluto del lottoscript di lottodesk pertanto per sviluppare i terni non è necessario fare un ciclo for nidificato ma si risolve tutto con una riga e un istruzione : SviluppoIntegrale vedetela nell'help .. inoltre è pure piu veloce che fare il ciclo nidificato.
Per sapere quante combinazioni sviluppa un tale sistema di classe K basta usare l'istruzione Combinazioni , vedete nell'help anche questa.

Ciao

 

[Joe91]

Grazie Luigi per tutte le informazioni che hai aggiunto ...

Sto apportando il mio modesto contributo, "facendo fuoco" con la poca legna che ho raccolto

... a fatica ... negli anni e confesso con umiltà di non conoscere, ancora, quasi nulla di questo ambiente di sviluppo ...

che apprezzo sempre più in maniera crescente man mano che ne apprendo le potenzialità.

Quindi "Old Style" (perdonatemi) avevo completato ... lo script precedente

Per dare a tutti la possibilità di valutare cosa significhino ...

"GRANDEZZE" nell'ordine delle 12 MILA ESTRAZIONI

Con un archivio di 8 MILA ...

... ed uno che ti scrive ... ma ... ma ... ma ... esce solo dopo 12 ESTRAZIONI.

Sub Main()
Fin = EstrazioneFin
  For N1 = 1 To 88
     For N2 = N1 + 1 To 89
        For N3 = N2 + 1 To 90
            K = k + 1
        Next
     Next
 Next
 
Scrivi K & " Terni "
 
 RnT = K/10 
 
 Scrivi RnT & " Ritardo Naturale del Terno (a Ruota)"
 
 Ini = Fin - Rnt 
 
 Scrivi DataEstrazione(Ini)  
 
End Sub

Ecco, di cosa stiamo parlando.

del compiliare compulsivamente bollette

con la possibilità concreta che queste "realizzino" qualcosa, tra qualche secolo.

 

[barattolo]

Per Barattolo

Semplicemente hai usato un range di estrazioni troppo elevato per quello che si puo permettere il tuo pc

Ciao

Niente di meno....4G di Ram non bastano?
Ma lo sai che non ricordo quando...mi sembra ieri o lunedì...lo stesso script, lo stesso pc...non mi dava nessun problema.

Poi sto riprovando a ridurre il range di estrazioni (l'archivio)...e se riduco troppo? Come esito, cioè come OUTPUT mi da una pagina bianca.

Mentre, ho provato a ridurre il range di estrazioni (quanti colpi? a 5...poi a 4...poi a 3)...l'esito non cambia sempre una pagina bianca.

Ad ogni modo dopo svariate prove...ho ridotto (quanti colpi?) a 2 estrazioni...ed un esito c'è stato...ma solo per qualche ruota (Bari)...mentre per le altre sempre una pagina bianca.

Ora che ricordo...l'altro ieri (quando lo script funzionava con le impostazioni di default) avevo ancora la versione precedente alla 1.3.16... non centra nulla?

Ciao

 

[LuigiB]

bhe 4 gb di ram sono tanti quindi non dovrebeb essere quello poi io stesso ho provato con 2000 estrazioni e 12 colpi e non ho nessun problema se non quello di dover aspettare circa 3 o 4 minuti prima di vedere l'output...
per la pagina bianca credo che devi solo aspettare che venga caricata tutta, tecnicamente l'output
è un file html , in questo caso molto grande quindi ci vuole tempo per caricarlo.
Per fare in modo di velocizzare almeno il caricamento della pagina si puo intervenire sul codice
che atttualmente prevede di scrivere in output tutti i terni che hanno una presenza maggiore di 1
,si potrebbe cambiare con una condizione piu restrittiva ad esempio tutti i terni con presenze maggiori di 4 ... questa modifica da fare è semplicissima.

 

[Joe91]

REM NEW STYLE 
Sub Main()

KT = Combinazioni (90,3) 'Quanti sono i terni combinabili con 90 numeri
KE = Combinazioni (5,3)  'Quanti sono i terni componibili con i 5 ESTRATTI
RnT = KT/KE 'Calcolo del Ritardo Naturale del Terno a Ruota 
Scrivi RnT & " Ritardo Naturale del Terno (a ruota)"
 
End Sub

Grazie ancora

 

[barattolo]

bhe 4 gb di ram sono tanti quindi non dovrebeb essere quello poi io stesso ho provato con 2000 estrazioni e 12 colpi e non ho nessun problema se non quello di dover aspettare circa 3 o 4 minuti prima di vedere l'output...
per la pagina bianca credo che devi solo aspettare che venga caricata tutta, tecnicamente l'output
è un file html , in questo caso molto grande quindi ci vuole tempo per caricarlo.
Per fare in modo di velocizzare almeno il caricamento della pagina si puo intervenire sul codice
che attualmente prevede di scrivere in output tutti i terni che hanno una presenza maggiore di 1
,si potrebbe cambiare con una condizione piu restrittiva ad esempio tutti i terni con presenze maggiori di 4 ... questa modifica da fare è semplicissima.

Sto riprovando con 2000 estrazioni...è vero...svolge il calcolo molto rapidamente...ma l'esito non cambia.
Ho provato sulla ruota di Bari, Cagliari...ora Napoli...ma l'esito...cioè l'OUTPUT non cambia. Una pagina bianca.
Ed ho atteso un po' di tempo prima di riprovare...per verificare se tardava l'aggiornamento della pagina html. Niente da fare.

Dove e come posso modificare per una condizione più restrittiva? Magari con la possibilità di scegliere, cioè con presenze maggiori di 2...oppure maggiori di 3, 4, 5...ecc....

 

[LuigiB]

forse allora avrai qualche problema col setup.
Fai una cosa lancia la funzione APRI DIRECTORY DATI dal primo menu.
Poi chiudi il programma.
Nella cartella di windows che si era aperta cancella il file Spaziometria.ini
Rilancia il programma e riprova


la modifica va fatta qui

If cTerno.nPresenze > 1 Then

 

[barattolo]

forse allora avrai qualche problema col setup.
Fai una cosa lancia la funzione APRI DIRECTORY DATI dal primo menu.
Poi chiudi il programma.
Nella cartella di windows che si era aperta cancella il file Spaziometria.ini
Rilancia il programma e riprova


la modifica va fatta qui

If cTerno.nPresenze > 1 Then

Ho provato...gira...e non mi da errore fino a 6000 estrazioni.

Vorrei però capire come vado a modificare questa stringa che mi hai fatto notare: If cTerno.nPresenze > 1 Then

Come devo rettificarla? Cioè per una condizione più restrittiva? Magari con la possibilità di scegliere con presenze maggiori di 2...oppure maggiori di 3, 4, 5...ecc....

Grazie

 

[claudio8]

Ciao Luigi ho letto che sei in linea con il Pc e non con lo SmartPhone
volevo chiederti se hai qualche altro giochino tipo SviluppoIntegrale o Combinazioni per usarlo la notte di Natale con i miei nipotini .

Grazie, 117480 volte

Saluti e pazienza

 

[LuigiB]

invece di fare lo spiritoso vai nel post di supertoto che c'è lavoro per te ... mica posso sempre fare tutto io !