MassimoStorico *Nuovo Topic*

[MassimoStorico]

BARI PREVISIONE PER AMBO E TERNO PER IL 05/12/13 E 07/12/13
79.49.30.33.26
17.86.28.35.81
22.86.62.57.83
60.76.20.46.39
MassimoStorico
FIRENZE PREVISIONE PER AMBO E TERNO PER IL 05/12/13 E 07/12/13
32.69.61.59.20
69.40.74.14.45
12.79.04.30.67
59.49.12.86.90 "CHIUSA"
MassimoStorico Un Saluto a Tutti

 

[lotto_tom75]

BARI PREVISIONE PER AMBO E TERNO PER IL 10/12/13 E 12/12/13
68.26.73.22.12
06.56.75.32.29
51.31.40.82.54
51.83.60.59.90
MassimoStorico
FIRENZE PREVISIONE PER AMBO E TERNO PER IL 10/11/13 E 12/12/13
57.73.17.09.50
68.32.33.67.46
56.69.07.11.44
70.66.38.81.34 "NUOVA"
MassimoStorico Un Saluto a Tutti

AUGURI! GRANDISSIMO MAX!!!

Now... un piccolo pensierino per il tuo comple!!!

Ps1: Se non erro... ne hai 10 + di me ma sembri un giovanottooooo! Complimentiiiiii!!!

Ps2: A che punto stanno i brevetti? Mica sarà qualcosa a che vedere con l'eterna giovinezza visto i risultati eh?

Ps3: Il regalino-convergenza spero ti serva almeno per vincere cospicuamente a colpo sull'altra ruota come l'altra volta con il terno su firenze quando io ti avevo indicato bari !!! ahahah Ciao!!! e Auguri di nuovo!

 

[MassimoStorico]

AUGURI! GRANDISSIMO MAX!!!

Now... un piccolo pensierino per il tuo comple!!!

Ps1: Se non erro... ne hai 10 + di me ma sembri un giovanottooooo! Complimentiiiiii!!!

Ps2: A che punto stanno i brevetti? Mica sarà qualcosa a che vedere con l'eterna giovinezza visto i risultati eh?

Ps3: Il regalino-convergenza spero ti serva almeno per vincere cospicuamente a colpo sull'altra ruota come l'altra volta con il terno su firenze quando io ti avevo indicato bari !!! ahahah Ciao!!! e Auguri di nuovo!

Grazie Carissimo Amico TOM, sei sempre GENTILISSIMO si i miei anni non li nascondo sono 48 passati molto in fretta, ma questo vuol dire che non mi sono mai annoiato, i Brevetti sono al rush finale, anno nuovo verranno commercializzati, poi con piu' calma ti svelero' di cosa si tratta una cosa molto utile e di largo consumo. Venendo al lotto, questa sera cerchero' di farmi fare un bel regalino hahahaha!!!! lo sappiamo tutti che non e' facile ma ce la mettermo tutta, Ciao GRANDE ci sentiamo Questa sera da vincitori!!!!

 

[MassimoStorico]

REGALO DI COMPLEANNO!!!!!!!!

 

[lotto_tom75]

REGALO DI COMPLEANNO!!!!!!!!Vedi l'allegato 8876

Visto solo ora! WOW Bellissimo regalo direiii! Ma non l'avevi postato per scaramanzia? Comunque a giudicare dal risultato SUPERLATIVO hai fatto benissimooo a non postarlo e a godertelo per il tuo compleanooo! Complimenti anche per l'ambo che hai centrato nella gara gestita da magic pluto!

 

[MassimoStorico]

Ciao TOM, L'Ambo 14-80 viene da una serie di ambi secchi capogioco 14 con abbinamenti a rotazione che non fanno parte delle cinquine, ma gioco spesso con ottimi Risultati, il 14 preso sia in gara ambate 14-49 e lancio la sfida gestita da walner altro ambo e 49 in posizione determinata, Ciao Carissimo Buona Notte

 

[MassimoStorico]

BARI PREVISIONE PER AMBO E TERNO PER IL 12/12/13 E 14/12/13
68.26.73.22.12
06.56.75.32.29
51.31.40.82.54
51.83.60.59.90
MassimoStorico
FIRENZE PREVISIONE PER AMBO E TERNO PER IL 12/12/13 E 14/12/13
57.73.17.09.50
68.32.33.67.46 AMBO 68-32 IL 14/12/13 "AMBO DI CAPOGIOCHI"
56.69.07.11.44
70.66.38.81.34
MassimoStorico Un Saluto a Tutti

 

[lotto_tom75]

FIRENZE PREVISIONE PER AMBO E TERNO PER IL 12/11/13 E 14/12/13
68.32.33.67.46 AMBO 68-32 IL 14/12/13 "DI CAPOGIOCHI"

Ottimo max!

Proverò a far collimare un mio ultimo studio su lunghettone proibitive x C con le tue due ruote predilette unite BAFI e le tue super cinquine e vediamo cosa ne esce... All'insegna di un 2014 dorato... Good Sunday Friend

 

[MassimoStorico]

Ottimo max!

Proverò a far collimare un mio ultimo studio su lunghettone proibitive x C con le tue due ruote predilette unite BAFI e le tue super cinquine e vediamo cosa ne esce... All'insegna di un 2014 dorato... Good Sunday Friend

Perfetto TOM mi piace la tua idea delle lunghettone, proviamo, il gioco di squadra non guasta mai Ciao e Good Sunday Friend TOM

 

[MassimoStorico]

FIRENZE PREVISIONE PER AMBO E TERNO PER IL 12/12/13 E 14/12/13
68.32.33.67.46 AMBO 68-32 IL 14/12/13 "AMBO DI CAPOGIOCHI"

 

[lotto_tom75]

Perfetto TOM mi piace la tua idea delle lunghettone, proviamo, il gioco di squadra non guasta mai Ciao e Good Sunday Friend TOM

Ho pronto x TE un regalino "script" per le tue cinquine $uper finito proprio adesso... che mi ha dato una soddisfazione dal punto di vista di programmazione... di vb (x il magnifico programma di luigi spaziometria) che non ti dicooo Pensavo proprio di non riuscirci... invece... In sostanza ci consentirà di valutare le tue 8 cinquine e i relativi numeri componenti non sulle due ruote separate ma unite aumentando di gran lunga la possibilità di intercettare interessanti diff contenute con la presenza (speriamo...) di ridotti o nulli incmax non solo per cinquine x A ma anche per qualsiasi tipo di lunghetta andremo a costruire!

Non vedo l'ora di TESTARLO... con le tue nuove 8 cinquine oro

Buona serata MAX e a presto...

 

[lotto_tom75]

Testando il mio nuovo script con i tuoi 33 nuovi numeri facenti parte delle tue nuove 8 $uper cinquine
Ho generato 100.000 27ine random sperando di rilevare una qualche stabilità di incrmax per A rilevando per il momento questo:

Ruota: BA + FI Colonna: 6347 01.05.06.07.09.18.22.24.25.31.34.43.47.50.52.55.69.70.71.72.75.77.81.84.86.88.90 RA 7 RS 7 INCMAX 1 FQ 9019 Diff 0
Ruota: BA + FI Colonna: 25255 01.05.06.07.09.18.22.24.25.30.31.34.39.43.47.50.52.55.69.70.71.72.75.77.86.88.90 RA 7 RS 7 INCMAX 1 FQ 8896 Diff 0
Ruota: BA + FI Colonna: 38156 01.05.06.07.09.18.22.24.25.30.31.34.43.47.50.52.55.69.70.72.75.77.81.84.86.88.90 RA 7 RS 7 INCMAX 1 FQ 9096 Diff 0
Ruota: BA + FI Colonna: 40774 01.05.06.07.09.18.22.24.25.30.34.39.43.47.50.52.55.69.70.71.72.75.77.81.86.88.90 RA 7 RS 7 INCMAX 1 FQ 8911 Diff 0
Ruota: BA + FI Colonna: 56704 01.05.06.07.09.14.18.22.24.25.31.34.39.43.47.50.52.55.69.70.71.72.77.81.86.88.90 RA 7 RS 7 INCMAX 1 FQ 8881 Diff 0
Ruota: BA + FI Colonna: 61188 01.06.07.09.18.22.24.25.30.31.34.39.43.47.50.52.55.69.70.71.72.75.77.81.86.88.90 RA 7 RS 7 INCMAX 1 FQ 8935 Diff 0
Ruota: BA + FI Colonna: 73810 01.05.06.07.09.14.18.22.24.25.30.31.34.39.43.47.50.55.69.70.71.72.77.81.86.88.90 RA 7 RS 7 INCMAX 1 FQ 8980 Diff 0
Ruota: BA + FI Colonna: 77871 01.05.06.07.09.14.18.22.24.25.30.31.34.39.43.47.50.55.69.70.71.72.77.81.86.88.90 RA 7 RS 7 INCMAX 1 FQ 8980 Diff 0
Ruota: BA + FI Colonna: 90238 01.05.06.07.09.14.22.24.25.30.31.34.43.47.50.52.55.69.70.71.72.77.81.84.86.88.90 RA 7 RS 7 INCMAX 1 FQ 8948 Diff 0

Analizzando l'incmax di una di queste sulle due ruote unite...

Sulla ruota di : BA FI
Formazione analizzata : 01.05.06.07.09.18.22.24.25.31.34.43.47.50.52.55.69.70.71.72.75.77.81.84.86.88.90
Da Estrazione : [03575] [ 27] 08.07.1939
A Estrazione : [08782] [150] 14.12.2013

Ritardo : 7
RitardoMax : 7
Frequenza : 3740

Dettaglio evoluzione RitMax
Estrazione : 3575 RitMax : 1 InccrRitMax : 1
Estrazione : 3594 RitMax : 2 InccrRitMax : 1
Estrazione : 3601 RitMax : 3 InccrRitMax : 1
Estrazione : 3680 RitMax : 4 InccrRitMax : 1
Estrazione : 3758 RitMax : 5 InccrRitMax : 1
Estrazione : 6258 RitMax : 6 InccrRitMax : 1
Estrazione : 8782 RitMax : 7 InccrRitMax : 1

Essendo apparentemente... stabile dal 1939 al valore massimo = 1 la 27ina si dovrebbe
presumibilmente sfaldare per A a colpo su BA e/o FI.

01.05.06.07.09.18.22.24.25.31.34.43.47.50.52.55.69.70.71.72.75.77.81.84.86.88.90


80.25.50.75.39 -> 25.50.75.39
06.55.05.71.90 -> 6.55.5.71.90
07.31.34.24.06 -> 7.31.34.24.6
09.22.43.77.20 -> 9.22.43.77
07.69.88.14.52 -> 7.69.88.52
71.72.84.01.47 -> 71.72.84.1.47
30.70.18.86.59 -> 70.18.86
47.50.71.81.30 -> 47.50.71.81

la 27 ina per Q è + ritardata su FI

la 27 ina per T + è ritardata su FI con un'interessante diff 2 -> teorici 3 colpi di realizzo in TERNO su questa ruota

x A e x E sono entrambe a 0 e diff 4 -> quindi nessuna rilevanza particolare...

Provando a "SCREMARE" riducendo sempre più la massa "cuscinetto" in BASE AL PARAMETRO FREQUENZA
valutando l'aspetto MINORE e MAGGIORE rispetto alle formazioni "TERZINA" e "QUARTINA" per la sorte di A

Con FQ < 20

----------------------------------------------------------------
Le ruote sottostanti nella ricerca vengono considerate SEPARATE!
----------------------------------------------------------------
Scelta ruota Bari - BA
Scelta ruota Firenze - FI
00715 6.24.43 RA: 354 RS: 583 INCMAX: 0 FQ: 19 RUOTA: Bari DIFF 229
00721 6.24.70 RA: 52 RS: 626 INCMAX: 0 FQ: 19 RUOTA: Bari DIFF 574

con FQ > 60

----------------------------------------------------------------
Le ruote sottostanti nella ricerca vengono considerate SEPARATE!
----------------------------------------------------------------
Scelta ruota Bari - BA
Scelta ruota Firenze - FI
00106 1.18.70 RA: 215 RS: 384 INCMAX: 0 FQ: 66 RUOTA: Bari DIFF 169
00202 1.34.84 RA: 31 RS: 762 INCMAX: 0 FQ: 63 RUOTA: Bari DIFF 731
01262 9.34.84 RA: 30 RS: 352 INCMAX: 0 FQ: 63 RUOTA: Bari DIFF 322
01662 22.34.84 RA: 128 RS: 616 INCMAX: 0 FQ: 64 RUOTA: Bari DIFF 488

con FQ > 115

risultando nelle minor e maggior frequenza il 70 sembrerebbe il favorito

----------------------------------------------------------------
Le ruote sottostanti nella ricerca vengono considerate SEPARATE!
----------------------------------------------------------------
Scelta ruota Bari - BA
Scelta ruota Firenze - FI
01147 1.18.34.84 RA: 31 RS: 294 INCMAX: 0 FQ: 119 RUOTA: Bari DIFF 263
01231 1.18.70.84 RA: 31 RS: 250 INCMAX: 0 FQ: 118 RUOTA: Bari DIFF 219
01234 1.18.70.90 RA: 181 RS: 264 INCMAX: 0 FQ: 118 RUOTA: Bari DIFF 83
09666 9.34.81.84 RA: 16 RS: 352 INCMAX: 0 FQ: 119 RUOTA: Bari DIFF 336

con FQ < 47

----------------------------------------------------------------
Le ruote sottostanti nella ricerca vengono considerate SEPARATE!
----------------------------------------------------------------
Scelta ruota Bari - BA
Scelta ruota Firenze - FI
02696 5.6.24.70 RA: 52 RS: 435 INCMAX: 0 FQ: 46 RUOTA: Bari DIFF 383
05838 6.24.43.52 RA: 54 RS: 561 INCMAX: 0 FQ: 44 RUOTA: Bari DIFF 507


risultando nelle minor e maggior frequenza il 70 sembrerebbe il favorito

ambi vertibili laterali presenti nella ricerca:

6.70
24.43
24.52

Anche il 18.70 essendo presente + volte nei risultati non lo vedrei male...

Questo è il mio ennesimo forse ultimo tentativo... (scherzo ) di
regalarti un ambo a colpo su una delle tue ruote preferite! Se esce un ambuzzo
in almeno una delle previsioni qui sopra evidenziate (contando ache le terzine e le quartine)
ti regalerò anche lo script alla base di tutta la ricerca che in teoria dovrebbe
consentirti di trasformare il tuo studio nella modalità " A COLPO " anziche in 2 o 3 colpi come
è adesso

Ciao Grande Max e a domani come dici te VINCENTI!

 

[MassimoStorico]

Ciao TOM con tutti questi numeri mi hai fatto girare la testa nel senso buono della cosa, i tuoi magici Script che mi vuoi regalare li accetto di Quore, ma ho qualche dubbio a metterli in pratica e riuscire a farli funzionare, non sono un mago della tecnologia come gia' sai, mi ci devi allegare anche un corso accellerato di informatica Questi tuoi numeri scremati minuziosamente mi danno una buona sensazione, ma conosciamo bene il gioco, non resta che darci i Migliori AUGURI DI BUONA FORTUNA, a presto da Vincitori, Ciao TOM, e un Saluto a Tutto il Forum

 

[lotto_tom75]

Ciao TOM con tutti questi numeri mi hai fatto girare la testa nel senso buono della cosa, i tuoi magici Script che mi vuoi regalare li accetto di Quore, ma ho qualche dubbio a metterli in pratica e riuscire a farli funzionare, non sono un mago della tecnologia come gia' sai, mi ci devi allegare anche un corso accellerato di informatica Questi tuoi numeri scremati minuziosamente mi danno una buona sensazione, ma conosciamo bene il gioco, non resta che darci i Migliori AUGURI DI BUONA FORTUNA, a presto da Vincitori, Ciao TOM, e un Saluto a Tutto il Forum

Per quanto riguarda i troppi numeri... se li vuoi provare quelli "distillati" al massimo x BAFI unite sono gli ultimi 6 in fondo Per quanto riguarda la presunta difficoltà di riuscire ad utilizzare lo script no problem... sto pensando di fare sia per quello che per altre sezioni di spaziometria dei piccoli video tutorials quindi credo che dopo aver guardato il video dopo pochissimo tempo sarai in grado di utilizzarlo senza nessuna difficoltà Ciao Max

 

[MassimoStorico]

Si Si avevo capito TOM che erano i 6 in fondo li ho gia' passati su carta, Spaziometria lo conosco abbastanza bene ma con gli script mi trovo un po in affanno, Grazie comunque per il GRANDE lavoro che c'è dietro al distillato, Ciao e Buona Serata.

 

[MassimoStorico]

BARI PREVISIONE PER AMBO E TERNO PER IL 17/12/13 E 19/12/13
80.25.50.75.39
06.55.05.71.90
07.31.34.24.06
09.22.43.77.20
MassimoStorico
FIRENZE PREVISIONE PER AMBO E TERNO PER IL 17/12/13 E 19/12/13
07.69.88.14.52
71.72.84.01.47 Ambo di laterali 72-85
30.70.18.86.59 Ambo di laterali 31-85
47.50.71.81.30 Pali e traverse terno di laterali:72-82-31
MassimoStorico Un Saluto a Tutti

 

[lotto_tom75]

Ciao Max ecco lo script promessoti per cercare di ottimizzare i tuoi numeri fenomenali su BAeFI per un eventuale esito a colpo! + quello per rilevare l'incremento max di 2° livello su più ruote (realizzato dal mitico luigib a suo tempo su mia richiesta). I due script sono poi accompagnati da due brevi... video tutorial per cercare di farteli "suonare" + "amichevoli" possibili... Ad ogni modo per qualunque cosa non chiara al riguardo non esitare a domandarmi... Nel limite del possibile cercherò di chiarirtela nel più breve tempo. L'obiettivo finale di entrambi dovrà essere l'unire le forze per DISTILLARE A COLPO dai tuoi NUMERI VINCENTI su BA e FI con i miei SCRIPT creati per lo straordinario SPAZIOMETRIA di LUIGI e per le tue MIRABILI CINQUINE almeno un AMBO in CINQUINA ad estrazione... e possibilmente secco...! Ci stai? ahahahah

SCRIPT X gestire tutti i tipi di lunghette per qualunque numero di colonne e per qualunque sorte su UNA O PIU' RUOTE (unite) Nel nostro caso : BA e FI

Option Explicit
Sub Main


Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel  ,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,  Inizio
Dim ColTot,aRetcol
Dim valoreInizioelaborazione,valorefineelaborazione

Dim aRuoteTmp


ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)
ReDim aRuoteSel(12)

' Script by lotto_tom75 per spaziometria dalla versione 1.4.32 x la generazione di lunghette senza limite di 'estensione per quantita' di colonne volute e per qualunque sorte ricercata su una o piu' ruote (UNITE) 


Call Scrivi(" ---------------------------------------------------------------- ")
Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
Call Scrivi(" ---------------------------------------------------------------- ")

valoreInizioelaborazione = 1
valorefineelaborazione = 1000

Classe = 10


ReDim aRuote(2)
aRuote(1) = BA_
aRuote(2) = FI_


For i = valoreInizioelaborazione To valorefineelaborazione

Call GetColonnaCasuale(Classe,aRetcol,aNum)

Call StatisticaFormazioneTurbo(aRetcol,aRuote,nSorte,Re  tRit1,RetRitMax,RetIncrRitMax,RetFreq)

Call AvanzamentoElab(1,valorefineelaborazione,i)


Call Messaggio("Colonna " & i)

nSorte = 2


Dim Diff
Diff = RetRitMax - RetRit1


If(RetRit1 >= 0 And Diff < 1) Then

Call Scrivi("Ruota: " & SiglaRuota(aRuote(1)) & " + " & SiglaRuota(aRuote(2)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)

End If


If ScriptInterrotto Then Exit For

Next

End Sub

Script per calcolare l'INCMAX di 2° livello ovvero l'incmax di incmax interessante per cercare una qualche stabilità negli incmax rilevati nei vari tipi di analisi. Questo script realizzato in passato dal grandissimo mago della programmazione LuigiB, su mia richiesta, consente di valutare l'incmax di incmax anche su piu' ruote unite per qualsiasi tipo di lunghetta e per qualsiasi sorte.

Option Explicit
Class clsParStat
	Dim idEstr
	Dim RitMax
	Dim IncrRitMax
End Class
Sub Main
	Dim idEstr,Ruota,Sorte
	Dim Inizio,Fine
	Dim k,p,i,r,pMax
	Dim Rit,RitMax,IncRitMax,Fre
	Dim collStoria
	Dim cParStat
	Dim bEstrValida
	Set collStoria = GetNewCollection
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	ReDim aN(90)
	If ScegliFormazione(aN) Then
		ReDim aRuoteSel(12)
		Ruota = ScegliRuotaEx(aRuoteSel)
		Sorte = ScegliEsito
		If Ruota > 0 And Sorte > 0 Then
			For idEstr = Inizio To Fine
				If Ruota = 11 Then
					bEstrValida = False
					pMax = 0
					For r = 1 To 10
						If Estratto(idEstr,r,1) > 0 Then bEstrValida = True
						p = 0
						For k = 1 To 5
							If aN(Estratto(idEstr,r,k)) Then
								p = p + 1
							End If
						Next
						If p > pMax Then pMax = p
					Next
					If bEstrValida Then
						If pMax >= Sorte Then
							If IncRitMax > 0 Then
								Set cParStat = New clsParStat
								cParStat.IdEstr = idEstr - 1
								cParStat.RitMax = RitMax
								cParStat.IncrRitMax = IncRitMax
								collStoria.add cParStat
							End If
							Rit = 0
							Fre = Fre + 1
							IncRitMax = 0
						Else
							Rit = Rit + 1
							If Rit > RitMax Then
								IncRitMax = IncRitMax + 1
								RitMax = Rit
							End If
						End If
					End If
					
				ElseIf Ruota = 13 Then
					bEstrValida = False
					pMax = 0
					For r = 1 To 12
						If aRuoteSel(r) Then
							If Estratto(idEstr,r,1) > 0 Then bEstrValida = True
							p = 0
							For k = 1 To 5
								If aN(Estratto(idEstr,r,k)) Then
									p = p + 1
								End If
							Next
							If p > pMax Then pMax = p
						End If
					Next
					If bEstrValida Then
						If pMax >= Sorte Then
							If IncRitMax > 0 Then
								Set cParStat = New clsParStat
								cParStat.IdEstr = idEstr - 1
								cParStat.RitMax = RitMax
								cParStat.IncrRitMax = IncRitMax
								collStoria.add cParStat
							End If
							Rit = 0
							Fre = Fre + 1
							IncRitMax = 0
						Else
							Rit = Rit + 1
							If Rit > RitMax Then
								IncRitMax = IncRitMax + 1
								RitMax = Rit
							End If
						End If
					End If

				Else
					If Estratto(idEstr,Ruota,1) > 0 Then
						p = 0
						For k = 1 To 5
							If aN(Estratto(idEstr,Ruota,k)) Then
								p = p + 1
							End If
						Next
						If p >= Sorte Then
							If IncRitMax > 0 Then
								Set cParStat = New clsParStat
								cParStat.IdEstr = idEstr - 1
								cParStat.RitMax = RitMax
								cParStat.IncrRitMax = IncRitMax
								collStoria.add cParStat
							End If
							Rit = 0
							Fre = Fre + 1
							IncRitMax = 0
						Else
							Rit = Rit + 1
							If Rit > RitMax Then
								IncRitMax = IncRitMax + 1
								RitMax = Rit
							End If
						End If
					End If
				End If
				Call AvanzamentoElab(Inizio,Fine,idEstr)
				If ScriptInterrotto Then Exit For
			Next
			If IncRitMax > 0 Then
				Set cParStat = New clsParStat
				cParStat.IdEstr = idEstr - 1
				cParStat.RitMax = RitMax
				cParStat.IncrRitMax = IncRitMax
				collStoria.add cParStat
			End If
			Call GestioneOutput(collStoria,RitMax,aN,Sorte,Inizio,F  ine,Ruota,Rit,Fre,aRuoteSel)
		Else
			MsgBox "Ruota non valida"
		End If
	End If
End Sub
Function ScegliFormazione(aN)
	Dim sFormazione
	Dim k,i
	sFormazione = InputBox("Inserire la formazione da analizzare separando i numeri che la compongono con il punto",,"1.10.20")
	ReDim aV(0)
	Call SplitByChar(sFormazione,".",aV)
	For k = 0 To UBound(aV)
		If Int(aV(k)) > 0 And Int(aV(k)) <= 90 Then
			aN(Int(aV(k))) = True
			i = i + 1
		End If
	Next
	If i > 0 Then ScegliFormazione = True
End Function
Sub GestioneOutput(coll,RitMax,aN,Sorte,Inizio,Fine,Ru  ota,Rit,Fre,aRuoteSel)
	Dim x,y,k
	Dim sFrz
	Dim clsP
	For k = 1 To 90
		If aN(k) Then
			sFrz = sFrz & Format2(k) & "."
		End If
	Next
	sFrz = Left(sFrz,Len(sFrz) - 1)
	If Ruota = 13 Then
		Call Scrivi("Sulla ruota di        : " & GetStringaRuote(aRuoteSel))

	Else
		Call Scrivi("Sulla ruota di        : " & NomeRuota(Ruota))
	End If
	Call Scrivi("Formazione analizzata : " & sFrz)
	Call Scrivi("Da Estrazione         : " & GetInfoEstrazione(Inizio))
	Call Scrivi("A  Estrazione         : " & GetInfoEstrazione(Fine))
	Call Scrivi
	Call Scrivi("Ritardo              : " & Rit)
	Call Scrivi("RitardoMax           : " & RitMax)
	Call Scrivi("Frequenza            : " & Fre)
	Call Scrivi
	Call Scrivi("Dettaglio evoluzione RitMax",True)
	For Each clsP In coll
		Call Scrivi("Estrazione : " & FormatSpace(clsP.idEstr,5,True) & _
		" RitMax : " & FormatSpace(clsP.RitMax,5,True) & _
		" InccrRitMax : " & FormatSpace(clsP.IncrRitMax,5,True))
	Next
	Call Scrivi
	Call Scrivi("Grafico di confronto RitMax / IncRitMax",True)
	Call PreparaGrafico("",0,coll.count,0,RitMax,1,5)
	' prima riga
	ReDim aV(coll.count,2)
	For Each clsP In coll
		x = x + 1
		aV(x,1) = x
		aV(x,2) = clsP.RitMax
	Next
	Call DisegnaLineaGrafico(aV,vbBlue,"RitMax")
	x = 0
	ReDim aV(coll.count,2)
	For Each clsP In coll
		x = x + 1
		aV(x,1) = x
		aV(x,2) = clsP.IncrRitMax
	Next
	Call DisegnaLineaGrafico(aV,vbRed,"IncRitMax")
	' scrive grafico nell'output
	Call InserisciGrafico
End Sub
Function GetStringaRuote(aRuoteSel)
	Dim k
	Dim s
	
	For k = 1 To 12
		If aRuoteSel(k) Then
			s = s & SiglaRuota(k) & " "
		End If
	Next
	GetStringaRuote = s
End Function
Function ScegliRuotaEx(aRuoteSel)

	Dim k
	
	If MsgBox("Vuoi elaborare su piu ruote ?",vbQuestion + vbYesNo) = vbYes Then
		ReDim aV(10)
		ReDim aVociSel(10)
		
		For k = 1 To 10
			aV(k - 1) = NomeRuota(k)
		Next
		aV(10) = "Nazionale"
		
		Call ScegliDaLista(aV,aVociSel,"Selezione ruote")
		For k = 0 To 9
			aRuoteSel(k + 1) = aVociSel(k)
		Next
		aRuoteSel(12) = aVociSel(10)
		ScegliRuotaEx = 13
	Else
		ReDim aV(12)
		For k = 1 To 12
			aV(k) = NomeRuota(k)
		Next
		ScegliRuotaEx = ScegliOpzioneMenu(aV)
	End If
End Function

1° Video tutorial relativo (prima parte)

In questo breve video si vede e si modifica i parametri Classe (=numero di elementi della lunghetta) e valorefineelaborazione (numero di colonne elaborate volute) fino ad ottenere una 27ina interessante per il suo incmax = 2 (maggiore rispetto tutti i 100.000 calcolati alla fine) e quindi teoricamente + interessante per A a colpo su BAFI unite.

2° Video tutorial relativo (seconda parte) (te lo devo postare sotto perchè sembra che nello stesso post non possano coesistere piu' di due immagini o video...)

 

[lotto_tom75]

2° Video tutorial relativo (seconda parte)

In quest altro breve secondo video si vede e si modifica i parametri Classe (=numero di elementi della lunghetta) e valorefineelaborazione (numero di colonne elaborate volute) fino ad ottenere quartine e sestine interessanti (ma non certe) per il loro incmax = 0 (rispetto tutti quelli calcolati) e quindi teoricamente + interessanti per A a colpo su BAFI unite. Inoltre cerco di evidenziarvi anche due soli numeri che facendo parte di entrambi i calcoli potrebbero essere per questo caso preso ad esempio i piu' probabili dei 27 scelti...

Concludendo ti dico che questi due esempi sia di script che di video relativi sono solo la base di partenza da cui, dopo che avrai digerito la "novità", potrai partire divertendoti a cambiare classe, sorte e valorefineelaborazione a tuo piacimento con la speranza di riuscire a MIXARE (anche con il sottoscritto) prima o poi... meglio prima che poi... dei risultati a dir poco esplosivi sulle ruote analizzate!

 

[MassimoStorico]

Grazie!! Sei Veramente Bravissimo TOM Complimenti forse riusciro' a cavarci le gambe nel 2018, ma meglio tardi che Mai ahahahahahah Ciao Ciao questa sera Sbanchiamo!!!!!!

 

[MassimoStorico]

FIRENZE PREVISIONE PER AMBO E TERNO PER IL 17/12/13 E 19/12/13
07.69.88.14.52
71.72.84.01.47 Ambo di laterali 72-85
30.70.18.86.59 Ambo di laterali 31-85
47.50.71.81.30 Pali e traverse :72-82-31 "TERNO DI LATERALI"
MassimoStorico Un Saluto a Tutti