per Luigi ( Sorte " Ambetto " )

[LuigiB]

per ora ho corretto la funzione VerificaAmbetto e ne ho inserita pure un'altra che internamente funziona allo stesso modo ma esternamente richiede parametri diversi.
Infatti è questaqq funzione che ho usato per testare la corretta rilevazione degli ambetti sui casi proposti
dal pdf della lottomatica.
Come vincita torna sempre la vincita minima come da parametri stampati sul retro schedina , gli ambetti coi consecutivi li rileva ma la vincita torna sempre quella minima.
Ecco lo script di esempio (ripeto la funzione TestAmbetto internaente funziona come VerificaAmbetto)

Option Explicit
Sub Main
	ReDim aNumeri(2)
	aNumeri(1) = 20
	aNumeri(2) = 30
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 20
	aNumeriUsciti(2) = 26
	aNumeriUsciti(3) = 78
	aNumeriUsciti(4) = 31
	aNumeriUsciti(5) = 25
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
	ReDim aNumeri(2)
	aNumeri(1) = 50
	aNumeri(2) = 60
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 13
	aNumeriUsciti(2) = 50
	aNumeriUsciti(3) = 78
	aNumeriUsciti(4) = 51
	aNumeriUsciti(5) = 25
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
	ReDim aNumeri(3)
	aNumeri(1) = 40
	aNumeri(2) = 50
	aNumeri(3) = 60
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 20
	aNumeriUsciti(2) = 50
	aNumeriUsciti(3) = 61
	aNumeriUsciti(4) = 49
	aNumeriUsciti(5) = 39
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
	ReDim aNumeri(2)
	aNumeri(1) = 40
	aNumeri(2) = 41
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 40
	aNumeriUsciti(2) = 50
	aNumeriUsciti(3) = 61
	aNumeriUsciti(4) = 42
	aNumeriUsciti(5) = 39
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
	ReDim aNumeri(2)
	aNumeri(1) = 12
	aNumeri(2) = 14
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 13
	aNumeriUsciti(2) = 50
	aNumeriUsciti(3) = 12
	aNumeriUsciti(4) = 42
	aNumeriUsciti(5) = 39
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
	ReDim aNumeri(3)
	aNumeri(1) = 20
	aNumeri(2) = 28
	aNumeri(3) = 30
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 20
	aNumeriUsciti(2) = 50
	aNumeriUsciti(3) = 29
	aNumeriUsciti(4) = 42
	aNumeriUsciti(5) = 39
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
End Sub
Sub ScriviRisultato(aNumeri,aNumeriUsciti)
	Dim sRetNumeri
	Dim nAmbetti
	Dim nRetVincita
	nAmbetti = TestAmbetto(aNumeri,aNumeriUsciti,sRetNumeri,nRetVincita)
	Call Scrivi("Numeri in gioco    : " & StringaNumeri(aNumeri))
	Call Scrivi("Numeri usciti      : " & StringaNumeri(aNumeriUsciti))
	Call Scrivi("Ambetti realizzati : " & nAmbetti)
	Call Scrivi("Con i numeri       : " & sRetNumeri)
	Call Scrivi("Vincita            : " & nRetVincita)
	Call Scrivi(String(50,"-"))
End Sub

 

[Mike58]

Ciao Luigi, l'ho provata è sembra tutto ok sia il testAmbetto che il VerificaAmbetto.
Debbo dirti che nel verificaAmbetto la scrittura la preferivo senza il test +/-1, però capisco che ognuno di noi vorrebbe le cose ad ok per sé.
Ti rinnovo la richiesta(non ho ancora verificato) anche per il nRetVincita anche per il verifica esito normale.

Per ora ancora un grazie e un salutissimo

 

[fillotto]

Utilizzando lo script di Mike di cui sopra tutte le volte che esce un numero pronosticato per l'ambetto unitamente al num 1 la tabella indica la presenza di ambetti che si formano con un numero pronosticato con 5 volte il numero 1 ?? che cosa non ho capito ?

 Estratti ID Estraz.    Comb in gioco    Esito    Colpo    Estratti    Info ID Estraz.    ambetti    Ambetti    Vincita    Estrazioni   71.51.16.59.03  27.7.67.18.77     1        0     0  41.51.20.02.73  78.11.76.59.37  27.7.67.18.77     2        0     0  13.22.19.10.54  48.46.87.25.01  27.7.67.18.77     3        0     0  02.43.56.26.60  37.69.82.38.79  27.7.67.18.77     4        0     0  64.19.47.23.62  48.64.36.33.20  27.7.67.18.77     5        0     0  39.17.04.86.34  56.40.90.86.53  27.7.67.18.77     6        0     0  49.08.19.89.06  14.02.58.57.71  27.7.67.18.77  Estratto  7  CA .. .. .. 18 ..  [08705] [ 73] 18.06.2013  0     0  15.53.57.18.35  15.67.48.09.12  27.7.67.18.77     8        0     0  12.30.58.70.64  18.75.01.30.28  27.7.67.18.77     9        0     0  87.80.64.88.40  32.56.22.29.28  27.7.67.18.77     10        0     0  70.66.79.21.90  76.35.15.82.16  27.7.67.18.77     11        0     0  15.25.04.12.31  58.26.41.59.86  27.7.67.18.77     12        0     0  79.09.73.19.47  15.55.24.27.49  27.7.67.18.77  Estratto  13  CA .. .. 77 .. ..  [08711] [ 79] 02.07.2013  6  [COLOR="#FF0000"][/COLOR][B][/B][B][SIZE=4][COLOR="#FF0000"]77.01/77.01/77.01/77.01/77.01/77.01[/COLOR][/SIZE][/B]  36,66  89.51.77.56.01  34.67.01.56.51  27.7.67.18.77     14        0     0  57.63.05.42.85  34.77.41.05.55  27.7.67.18.77     15        0     0  57.78.82.28.01  14.04.07.78.51  27.7.67.18.77  Estratto  16  CA .. .. 67 .. ..  [08714] [ 82] 09.07.2013  0     0  21.50.67.38.48  54.38.48.12.65  27.7.67.18.77     17        0     0  32.81.36.53.88  15.28.58.80.26  27.7.67.18.77     18        0     0  63.28.44.34.45  31.05.75.44.89  27.7.67.18.77     19        0     0  04.06.83.57.65  28.20.14.80.32  27.7.67.18.77     20        0     0  76.39.60.73.01  14.51.71.30.82  27.7.67.18.77     21        0     0  03.54.06.55.31  49.56.29.70.78  27.7.67.18.77     22        0     0  47.34.02.46.32  82.43.66.06.75  27.7.67.18.77     23        0     0  38.90.73.72.50  18.01.32.39.04  27.7.67.18.77     24        0     0  47.09.79.56.15  50.73.09.33.11  27.7.67.18.77  Estratto  25  CA .. .. 18 .. ..  [08723] [ 91] 30.07.2013  1  18.78  6,11  14.78.18.56.58  35.21.32.83.29  27.7.67.18.77     26        0     0  70.46.48.02.87  30.10.51.86.21  27.7.67.18.77     27        0     0  49.02.73.66.20  22.54.19.20.01  27.7.67.18.77     28        0     0  14.09.88.89.40  39.64.47.81.76  27.7.67.18.77     29        0     0  24.74.28.82.40  52.58.59.25.49  27.7.67.18.77     30        0     0  63.90.54.60.88  80.87.03.50.54  27.7.67.18.77     31        0     0  23.63.46.09.73  37.17.39.59.49  27.7.67.18.77     32        0     0  48.34.08.83.54  31.62.32.25.75  27.7.67.18.77     33        0     0  86.02.30.40.75  47.20.29.26.55  27.7.67.18.77  Estratto  34  CA 27 .. .. .. ..  [08732] [100] 20.08.2013  0     0  27.90.51.85.21  16.89.33.42.08  27.7.67.18.77     35        0     0  88.68.46.71.01  87.41.42.19.16  27.7.67.18.77     36        0     0  56.01.68.17.87  64.02.07.08.29  27.7.67.18.77  Estratto  37  CA .. .. 27 .. ..  [08735] [103] 27.08.2013  1  27.66  6,11  66.11.27.72.30  84.10.50.56.17  27.7.67.18.77     38        0     0  28.79.14.86.24  85.88.18.56.50  27.7.67.18.77     39        0     0  43.20.19.73.55  32.55.39.47.34  27.7.67.18.77     40        0     0  04.58.21.62.48  55.71.16.15.46  27.7.67.18.77  Estratto  41  CA .. 77 .. .. ..  [08739] [107] 05.09.2013  1  77.28  6,11  56.77.90.87.28  79.24.14.88.78  27.7.67.18.77     42        0     0  68.66.21.24.90  61.10.41.25.33  27.7.67.18.77     43        0     0  24.16.80.58.55  61.25.43.47.22  27.7.67.18.77     44        0     0  90.02.76.83.31  16.60.30.34.55  27.7.67.18.77     45        0     0  08.64.43.32.56  48.54.29.07.40  27.7.67.18.77  Estratto  46  CA .. 07 .. .. ..  [08744] [112] 17.09.2013  1  07.17  6,11  15.07.80.17.52  38.49.25.86.79  27.7.67.18.77     47        0     0  60.50.24.47.13  59.06.63.32.15  27.7.67.18.77  Estratto  48  CA .. .. 27 .. ..  [08746] [114] 21.09.2013  1  27.08  6,11  38.08.27.58.74  48.09.51.68.15  27.7.67.18.77     49        0     0  48.25.14.76.06  68.82.41.58.22  27.7.67.18.77     50        0     0  82.60.51.17.86  67.18.88.31.84  27.7.67.18.77     51        0     0  13.70.39.06.41  

Casi totali di gioco 51
Casi Positivi di esito 9
Totali Cinquine....

con l'aggiornamento 1.4.55 non c'è più il problema ...

 

[LuigiB]

Mike purtroppo se modificassi quella funzione l'effetto collaterale è che doovrei ricompilare tutte le plugin perche ogni volta che si modificano parametri a funzioni gia esistenti cambia la firma del componente e tutti gli eseguibili che lo usano vanno ricompilati , dato che ricompilare tutte le plugin è una discreta rottura di p. non posso farlo ..
ciao

 

[antonino]

Caro Luigi, volevo chiederti avendo installato la versione 1-4-55, se avevi aggiornato con la ricerca sull'ambetto. Io non l'ho trovato.
Grazie per la risposta,
nino

 

[LuigiB]

puoi sempre scrivere una funzione che cxhiami lei il verificaambetto e che contemporaneamente rimuova dalla stringa dei numeri usciti il +1 -1

 

[LuigiB]

Caro Luigi, volevo chiederti avendo installato la versione 1-4-55, se avevi aggiornato con la ricerca sull'ambetto. Io non l'ho trovato.
Grazie per la risposta,
nino

l'ambeto vien gestito esclusivamente negli script con le funzioni che ho spiegato. Ciao

 

[antonino]

ok. grazie e salutoni,
nino

 

[LuigiB]

Antonino forse quest script potra soddisfare la tua esigenza almeno in parte
consente di fare la statistica per ambetto sulle formazioni registrate
ciao

Option Explicit
Sub Main
	Dim idEstr,Ruota
	Dim Inizio,Fine
	Dim nClasseFrz
	Dim id,k
	Dim nElemFrz
	Dim nQAmbetti
	Dim nEstrTot
	Dim nFrqMedia
	Dim sNomeFrz
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	Ruota = ScegliRuota
	nEstrTot =(Fine + 1) - Inizio
	ReDim aElemFormazione(0)
	Call RichiediFormazione(aElemFormazione,nClasseFrz,sNomeFrz)
	nElemFrz = UBound(aElemFormazione)
	ReDim aValStat(nElemFrz,4)
	' indice 0 il ritardo
	'        1 freq
	'        2 ritmax
	'        3 incr rit max
	'        4 presenze
	
	If Ruota > 0 And nClasseFrz > 1 Then
		For id = 1 To nElemFrz
			ReDim aNumInGioco(0)
			Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
			For idEstr = Inizio To Fine
				' inserire qui il codice che analizza l'estrazione corrente
				nQAmbetti = VerificaAmbetto(aNumInGioco,Ruota,idEstr,"",0)
				If nQAmbetti > 0 Then
					aValStat(id,0) = 0
					aValStat(id,1) = aValStat(id,1) + nQAmbetti
					aValStat(id,3) = 0
					aValStat(id,4) = aValStat(id,4) + 1
				Else
					aValStat(id,0) = aValStat(id,0) + 1
					If aValStat(id,0) > aValStat(id,2) Then
						aValStat(id,2) = aValStat(id,0)
						aValStat(id,3) = aValStat(id,3) + 1
					End If
				End If
				If ScriptInterrotto Then Exit For
			Next
			Call AvanzamentoElab(1,nElemFrz,id)
			If ScriptInterrotto Then Exit For
		Next
		Dim aV
		aV = Array("","Formazione","Ritardo","Frequenza","RitardoMax","IncrRitMax","Presenze","I.C.")
		Call InitTabella(aV)
		For id = 1 To nElemFrz
			ReDim aNumInGioco(0)
			Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
			aV(1) = StringaNumeri(aNumInGioco)
			aV(2) = aValStat(id,0)
			aV(3) = aValStat(id,1)
			aV(4) = aValStat(id,2)
			aV(5) = aValStat(id,3)
			aV(6) = aValStat(id,4)
			nFrqMedia = Dividi(nEstrTot,aValStat(id,4))
			aV(7) = Round(Dividi(aValStat(id,0),nFrqMedia),3)
			Call AddRigaTabella(aV)
		Next
		
		Call Scrivi("StatisticaAmbetto" )
		Call Scrivi("Analisi su formazione : " & sNomeFrz)
		Call Scrivi("Sulla ruota           : " & NomeRuota(Ruota))
		Call Scrivi("Da                    : " & GetInfoEstrazione(Inizio))
		Call Scrivi("A                     : " & GetInfoEstrazione(Fine))
		Call Scrivi("Totali range          : " & nEstrTot)
		Call Scrivi
		Call CreaTabella(2)
	End If
End Sub
Sub GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
	Dim k
	ReDim aNumInGioco(nClasseFrz)
	For k = 1 To nClasseFrz
		aNumInGioco(k) = aElemFormazione(id,k)
	Next
End Sub
Sub RichiediFormazione(aElemFormazione,nClasseFrz,sNome)
	Dim s
	Dim n
	Dim id
	ReDim aNomiForm(0)
	Call ElencoFileInDirectory(GetDirectoryAppData & "formazioni\",aNomiForm,".frz")
	id = ScegliOpzioneMenu(aNomiForm,1,"Selezione formazione")
	If GetElementiFormazione(aNomiForm(id),aElemFormazione) Then
		nClasseFrz = GetClasseFormazione(aNomiForm(id))
		sNome = aNomiForm(id)
	End If
End Sub

 

[Mike58]

Mike purtroppo se modificassi quella funzione l'effetto collaterale è che doovrei ricompilare tutte le plugin perche ogni volta che si modificano parametri a funzioni gia esistenti cambia la firma del componente e tutti gli eseguibili che lo usano vanno ricompilati , dato che ricompilare tutte le plugin è una discreta rottura di p. non posso farlo ..
ciao

Si Luigi, questo lo capisco solo per questa tipologia creare una nuova funzione che simulasse e raccogliesse la vincita come in verificaAmbetto in questo modo il tutto non andrebbe ad impattare con i vecchi codici già compilati.

Tranquillo se comporta troppo lavoro non devi preoccuparti, esistono sempre gli escamotage per le simulazioni.

Ciao

 

[LuigiB]

ho aggiunto la funzione VerificaEsitoConGuadagno

 

[Mike58]

scaricata nuova versione e testata nuova funzione VerificaEsitoConGuadagno, ottimo.


Grazie Luigi, sempre Bravissimo e sempre Super.