Idee per nuovi eventuali futuri script...

lotto_tom75 · 16 Gennaio 2014

Chiunque abbia un'idea che ritenga valida per poter ampliare la potenza del già potentissimo spettacolare programma del mitico inimitabile e quasi non umano per bravura e gentilezza luigib può provare a postare la sua proposta di creazione del relativo script-plugin o progetto anche in questo thread. Avrei pensato a questo piccolo espediente per facilitare la vita a tutti gli scripters (m e f) bravissimi/e ed esperti/e che desiderassero dare un contributo in tal senso. Mi ci metto anche io come neofita scripter che nel limite bassissimo delle mie possibilità proverò a cimentarmi nel crearne qualcuno...

Inizio intanto col proporre un altro script (se già non ce n'è uno o una funzione che faccia questo...). In quest ultimo caso indicatemela please

Uno script che calcoli per un gruppo voluto di colonne (anche solo random - non in modalità integrale) e per il tipo di lunghette desiderato (dalla decina alla 89ina) il ritardo medio... ovvero la somma dei ritardi dei singoli ambi componibili dalla lunghetta (es 45 ambi da una decina) e divida questo valore per il numero di ambi generati (nell'es. 45) . Meglio sarebbe riuscisse a calcolare il ritardo medio per qualunque sorte ma mi rendo conto di chiedere davvero troppo... quindi andrebbe benissimo anche solo xA

Breve spiegazione dell'importanza... (forse) del ritardo medio...

Dire che una lunghetta (es. decina) per ambo ha un ritardo di 90 estrazioni, significa dire che la vincita ritarda da 90 colpi e cioe’ che l'ambo meno ritardato dei 45 ambi che compongono la decina ha un ritardo di 90 tentativi. Tale parametro forse non e’ in grado, da solo, di rappresentare la probabilita’ della decina di sortire a breve termine. L'errore potrebbe essere quello di non tener conto delle sotto-configurazioni...ovvero dei 45 ambi che compongono la decina e dei loro rispettivi ritardi. Se sommiamo i ritardi dei singoli ambi che compongono la decina e dividiamo per 45 otteniamo infatti una sorta di ritardo medio. Il ritardo medio forse è molto piu’ significativo del ritardo calcolato in maniera tradizionale poiche’ tiene conto del ritardo di tutti i 45 ambi che compongono la decina e non solo dell'ambo con meno ritardo. Esempio pratico: Puo’ accadere che due decine abbiano entrambe lo stesso ritardo attuale per cui si penserebbe che siano equiprobabili le possibilita’ di una loro sortita. Se invece si considerasse il ritardo medio dei 45 ambi si potrebbe scoprire che una delle due ha maggiori probabilita’ di sortita... Quella che ha il maggior ritardo medio potrebbe essere infatti la preferibile. Guardando un altro esempio... potrebbe accadere anche che una decina abbia un ritardo attuale inferiore ad un'altra ma un ritardo medio maggiore e che sia pertanto per questo ancora una volta da preferire per il gioco.

Io per adesso non ci riesco

ma sono sicuro che senza scomodare il deus ex machina

i grandissimi disaronno, mike58 o joe91 ci riuscirebbero ad occhi chiusi...

LuigiB · 16 Gennaio 2014

non so se ho capito ma credo sia una buona basedi partenza.
Ciao

Codice:

Option Explicit
Dim collColonne
Sub Main
	Dim idCol,RuoteSel
	Dim Inizio,Fine
	Dim QColonne,nClasse,nSorte
	ReDim aRuote(0)
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	RuoteSel = ScegliRuote(aRuote)
	nClasse = Int(InputBox("Classe di sviluppo da 10 a 89","Scegli calsse lunghetta",10))
	QColonne = Int(InputBox("Quante colonne casuali generare ?","Scegli quantita colonne",1000))
	nSorte = ScegliEsito(2)
	If VerificaCoerenza(nClasse,nSorte,RuoteSel,QColonne) Then
		Set collColonne = GetNewCollection
		ReDim aV(2)
		aV(1) = "Lunghetta"
		aV(2) = "Rit Medio"
		Call InitTabella(aV)
		For idCol = 1 To QColonne
			' inserire qui il codice che analizza l'estrazione corrente
			ReDim aColonna(nClasse)
			Call GetColonna(aColonna)
			Call CalcoloRitMedio(aColonna,nSorte,aRuote,Fine)
			Call AvanzamentoElab(Inizio,Fine,idCol)
			If ScriptInterrotto Then Exit For
		Next
		Call CreaTabella(2)
	End If
End Sub
Function VerificaCoerenza(nClasse,nSorte,RuoteSel,QColonne)
	Dim sMsg
	sMsg = ""
	If nClasse < 10 Or nClasse > 89 Then sMsg = "Classe da 10 a 89 valore non valido"
	If nSorte < 1 Or nSorte > 5 Then sMsg = "Sorte su cui calcolare il ritardo medio non valida da 1 a 5  valore non valido"
	If RuoteSel < 1 Then sMsg = "Selezionare le ruote da analizzare"
	If QColonne < 1 Or QColonne > 10000 Then sMsg = "Quantita di colonne non valida valore da 1 a 10000"
	If Combinazioni(nClasse,nSorte) > 2000 Then sMsg = "Lo sviluppo della lunghetta per la sorte voluta richiede toppe combinazioni " & Combinazioni(nClasse,nSorte)
	If sMsg <> "" Then
		MsgBox sMsg,vbCritical
		VerificaCoerenza = False
	Else
		VerificaCoerenza = True
	End If
End Function
Sub GetColonna(aColonna)
	Dim k
	Dim n
	ReDim aNumUsati(90)
	Dim sColonna
	Do
		Err.Clear
		For k = 1 To UBound(aColonna)
			Do
				n = NumeroCasuale(1,90)
				If ScriptInterrotto Then Exit Do
			Loop While aNumUsati(n) = True
			aNumUsati(n) = True
			aColonna(k) = n
		Next
		Call OrdinaMatrice(aColonna,1)
		sColonna = StringaNumeri(aColonna,,True)
		On Error Resume Next
		Call collColonne.Add(sColonna,sColonna)
		If ScriptInterrotto Then Exit Do
	Loop While Err <> 0
End Sub
Sub CalcoloRitMedio(aNumeri,nSorte,aRuote,Fine)
	Dim k,e
	Dim aColonne
	Dim nQColonne
	Dim nRitardo
	Dim nSommaRit
	nSommaRit = 0
	aColonne = SviluppoIntegrale(aNumeri,nSorte)
	nQColonne = UBound(aColonne)
	For k = 1 To nQColonne
		ReDim aNum(nSorte)
		For e = 1 To nSorte
			aNum(e) = aColonne(k,e)
		Next
		nRitardo = RitardoCombinazioneTurbo(aRuote,aNum,nSorte,Fine)
		nSommaRit = nSommaRit + nRitardo
	Next
	ReDim aV(2)
	aV(1) = StringaNumeri(aNumeri,,True)
	aV(2) = Round( Dividi(nSommaRit,nQColonne) , 4)
	Call AddRigaTabella(aV)
End Sub

Mike58 · 16 Gennaio 2014

Ciao Tom,per precisazione Luigi ha già creato tanti script che se letti e con un po di voglia si possono rielaboare e riadattare al proprio scopo.
Io utilizzando un suo lavoro negli esempi avevo riadattato per le mie necessità uno sviluppo con capogioco ma chi ne ha voglia può riadattarselo come crede.
Comunque raccogliendo un tuo invito ho calcolato il ritardo globale e il relativo ritardo medio.
Vedi se è in qualche modo utile quello che sostieni.

Ciao e buon studio, e mi auguro che con il tuo e mio intervento svegli in qualcun altro la voglia di imparare a scriptare.

Codice:

Sub Main
	Dim k
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim ruota(1)
	r = InputBox("Quale ruota ",,3)
	cl = InputBox("Quale classe di sviluppo",,2)
	sorte = InputBox("Quale sorte esito analizzo ",,2)
	capog = InputBox("Quale capogioco ",,38)
	
	ruota(1) = r
	ScegliNumeri(aNum)
	Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1
	Scrivi " Sulla ruota di..." & NomeRuota(r),1
	Scrivi " In sviluppo di classe..." & cl,1
	ColoreTesto 2
	Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1
	
	ColoreTesto 0
	For k = 1 To UBound(aNum)
	aNum(0) = capog
		aNum(k) = aNum(k)
	Next
	Classe = cl
	ReDim atitoli(6)
	atitoli(1) = " Contatore "
	atitoli(2) = " Sviluppo comb. "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Ritardo Max "
	atitoli(5) = " Frequenza "
	atitoli(6) = " Incrmax "
	Call InitTabella(atitoli,1,,3,5)
	If InitSviluppoIntegrale(aNum,Classe) > 0 Then
		Do While GetCombSviluppo(aCol) = True
			i = i + 1
			Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
			'sr = SerieRitardo(EstrazioneIni,EstrazioneFin,aCol,ruota,sorte)
			'sf = SerieFreq(EstrazioneIni,EstrazioneFin,aCol,ruota,sorte)
			'st = SerieStorico(EstrazioneIni,EstrazioneFin,aCol,ruota,sorte)
			ReDim avalori(6)
			avalori(1) = FormattaStringa(i,"00")
			avalori(2) = StringaNumeri(aCol)
			avalori(3) = sr
			avalori(4) = st
			avalori(5) = sf
			avalori(6) = Incr
			rmedio = rmedio+avalori(3)
			If i >= 0 And i < k Then Call AddRigaTabella(avalori,4,,3)
			If i >= k Then Call AddRigaTabella(avalori,,,3)
		Loop
		
	End If
	
	
	CreaTabella()
	ReDim atitoli1(8)
	atitoli1(1) = " Contatore "
	atitoli1(2) = " Sviluppo comb. "
	atitoli1(3) = " Ritardo "
	atitoli1(4) = " Ritardo Max "
	atitoli1(5) = " Frequenza "
	atitoli1(6) = " Incrmax "
	atitoli1(7) = " Rit.Globale "
	atitoli1(8) = " Rit.Medio "
Call InitTabella(atitoli1,1,,3,5)
Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
Scrivi"Statistica Globale ",1
			ReDim avalori1(8)
			avalori1(1) = FormattaStringa(i,"0")
			avalori1(2) = StringaNumeri(aNum)
			avalori1(3) = sr
			avalori1(4) = st
			avalori1(5) = sf
			avalori1(6) = Incr
			avalori1(7) = rmedio
			avalori1(8) = Round (rmedio/avalori1(1),2)

Call AddRigaTabella(avalori1,4,,3)
	CreaTabella()
	Scrivi
	Scrivi "Tabella Scripted by Mike58 ",1,- 1,3
End Sub

Alien. · 16 Gennaio 2014

Mike58 ha scritto:

Ciao Tom,per precisazione Luigi ha già creato tanti script che se letti e con un po di voglia si possono rielaboare e riadattare al proprio scopo.
Io utilizzando un suo lavoro negli esempi avevo riadattato per le mie necessità uno sviluppo con capogioco ma chi ne ha voglia può riadattarselo come crede.
Comunque raccogliendo un tuo invito ho calcolato il ritardo globale e il relativo ritardo medio.
Vedi se è in qualche modo utile quello che sostieni.

Ciao e buon studio, e mi auguro che con il tuo e mio intervento svegli in qualcun altro la voglia di imparare a scriptare.

Codice:

Sub Main
	Dim k
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim ruota(1)
	r = InputBox("Quale ruota ",,3)
	cl = InputBox("Quale classe di sviluppo",,2)
	sorte = InputBox("Quale sorte esito analizzo ",,2)
	capog = InputBox("Quale capogioco ",,38)
	
	ruota(1) = r
	ScegliNumeri(aNum)
	Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1
	Scrivi " Sulla ruota di..." & NomeRuota(r),1
	Scrivi " In sviluppo di classe..." & cl,1
	ColoreTesto 2
	Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1
	
	ColoreTesto 0
	For k = 1 To UBound(aNum)
	aNum(0) = capog
		aNum(k) = aNum(k)
	Next
	Classe = cl
	ReDim atitoli(6)
	atitoli(1) = " Contatore "
	atitoli(2) = " Sviluppo comb. "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Ritardo Max "
	atitoli(5) = " Frequenza "
	atitoli(6) = " Incrmax "
	Call InitTabella(atitoli,1,,3,5)
	If InitSviluppoIntegrale(aNum,Classe) > 0 Then
		Do While GetCombSviluppo(aCol) = True
			i = i + 1
			Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
			'sr = SerieRitardo(EstrazioneIni,EstrazioneFin,aCol,ruota,sorte)
			'sf = SerieFreq(EstrazioneIni,EstrazioneFin,aCol,ruota,sorte)
			'st = SerieStorico(EstrazioneIni,EstrazioneFin,aCol,ruota,sorte)
			ReDim avalori(6)
			avalori(1) = FormattaStringa(i,"00")
			avalori(2) = StringaNumeri(aCol)
			avalori(3) = sr
			avalori(4) = st
			avalori(5) = sf
			avalori(6) = Incr
			rmedio = rmedio+avalori(3)
			If i >= 0 And i < k Then Call AddRigaTabella(avalori,4,,3)
			If i >= k Then Call AddRigaTabella(avalori,,,3)
		Loop
		
	End If
	
	
	CreaTabella()
	ReDim atitoli1(8)
	atitoli1(1) = " Contatore "
	atitoli1(2) = " Sviluppo comb. "
	atitoli1(3) = " Ritardo "
	atitoli1(4) = " Ritardo Max "
	atitoli1(5) = " Frequenza "
	atitoli1(6) = " Incrmax "
	atitoli1(7) = " Rit.Globale "
	atitoli1(8) = " Rit.Medio "
Call InitTabella(atitoli1,1,,3,5)
Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
Scrivi"Statistica Globale ",1
			ReDim avalori1(8)
			avalori1(1) = FormattaStringa(i,"0")
			avalori1(2) = StringaNumeri(aNum)
			avalori1(3) = sr
			avalori1(4) = st
			avalori1(5) = sf
			avalori1(6) = Incr
			avalori1(7) = rmedio
			avalori1(8) = Round (rmedio/avalori1(1),2)

Call AddRigaTabella(avalori1,4,,3)
	CreaTabella()
	Scrivi
	Scrivi "Tabella Scripted by Mike58 ",1,- 1,3
End Sub

ciao Mike,presente:ecco come si fa ad imparare,circa 10 anni fà sapevo il gbasic ma oggi non mi ricordo un tubo....so che vi èrano dei video o cose del genere.....help

lotto_tom75 · 17 Gennaio 2014

LuigiB ha scritto:

non so se ho capito ma credo sia una buona basedi partenza.
Ciao

Codice:

Option Explicit
Dim collColonne
Sub Main
	Dim idCol,RuoteSel
	Dim Inizio,Fine
	Dim QColonne,nClasse,nSorte
	ReDim aRuote(0)
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	RuoteSel = ScegliRuote(aRuote)
	nClasse = Int(InputBox("Classe di sviluppo da 10 a 89","Scegli calsse lunghetta",10))
	QColonne = Int(InputBox("Quante colonne casuali generare ?","Scegli quantita colonne",1000))
	nSorte = ScegliEsito(2)
	If VerificaCoerenza(nClasse,nSorte,RuoteSel,QColonne) Then
		Set collColonne = GetNewCollection
		ReDim aV(2)
		aV(1) = "Lunghetta"
		aV(2) = "Rit Medio"
		Call InitTabella(aV)
		For idCol = 1 To QColonne
			' inserire qui il codice che analizza l'estrazione corrente
			ReDim aColonna(nClasse)
			Call GetColonna(aColonna)
			Call CalcoloRitMedio(aColonna,nSorte,aRuote,Fine)
			Call AvanzamentoElab(Inizio,Fine,idCol)
			If ScriptInterrotto Then Exit For
		Next
		Call CreaTabella(2)
	End If
End Sub
Function VerificaCoerenza(nClasse,nSorte,RuoteSel,QColonne)
	Dim sMsg
	sMsg = ""
	If nClasse < 10 Or nClasse > 89 Then sMsg = "Classe da 10 a 89 valore non valido"
	If nSorte < 1 Or nSorte > 5 Then sMsg = "Sorte su cui calcolare il ritardo medio non valida da 1 a 5  valore non valido"
	If RuoteSel < 1 Then sMsg = "Selezionare le ruote da analizzare"
	If QColonne < 1 Or QColonne > 10000 Then sMsg = "Quantita di colonne non valida valore da 1 a 10000"
	If Combinazioni(nClasse,nSorte) > 2000 Then sMsg = "Lo sviluppo della lunghetta per la sorte voluta richiede toppe combinazioni " & Combinazioni(nClasse,nSorte)
	If sMsg <> "" Then
		MsgBox sMsg,vbCritical
		VerificaCoerenza = False
	Else
		VerificaCoerenza = True
	End If
End Function
Sub GetColonna(aColonna)
	Dim k
	Dim n
	ReDim aNumUsati(90)
	Dim sColonna
	Do
		Err.Clear
		For k = 1 To UBound(aColonna)
			Do
				n = NumeroCasuale(1,90)
				If ScriptInterrotto Then Exit Do
			Loop While aNumUsati(n) = True
			aNumUsati(n) = True
			aColonna(k) = n
		Next
		Call OrdinaMatrice(aColonna,1)
		sColonna = StringaNumeri(aColonna,,True)
		On Error Resume Next
		Call collColonne.Add(sColonna,sColonna)
		If ScriptInterrotto Then Exit Do
	Loop While Err <> 0
End Sub
Sub CalcoloRitMedio(aNumeri,nSorte,aRuote,Fine)
	Dim k,e
	Dim aColonne
	Dim nQColonne
	Dim nRitardo
	Dim nSommaRit
	nSommaRit = 0
	aColonne = SviluppoIntegrale(aNumeri,nSorte)
	nQColonne = UBound(aColonne)
	For k = 1 To nQColonne
		ReDim aNum(nSorte)
		For e = 1 To nSorte
			aNum(e) = aColonne(k,e)
		Next
		nRitardo = RitardoCombinazioneTurbo(aRuote,aNum,nSorte,Fine)
		nSommaRit = nSommaRit + nRitardo
	Next
	ReDim aV(2)
	aV(1) = StringaNumeri(aNumeri,,True)
	aV(2) = Round( Dividi(nSommaRit,nQColonne) , 4)
	Call AddRigaTabella(aV)
End Sub

Va bene che sei un ALIENO (nel senso di bravura) ma ora carissimo luigib esageri...

nemmeno 2 ore dalla domanda... e mi posti questa chicca eccezionale costituita da tutte queste righe di codice? MITIKOOOOOOOOOOOO il DYNAMO della programmazione applicata al lotto e non solo ne sono ultra convinto!

GRAZIE INFINITE

lotto_tom75 · 17 Gennaio 2014

Mike58 ha scritto:

Ciao Tom,per precisazione Luigi ha già creato tanti script che se letti e con un po di voglia si possono rielaboare e riadattare al proprio scopo.
Io utilizzando un suo lavoro negli esempi avevo riadattato per le mie necessità uno sviluppo con capogioco ma chi ne ha voglia può riadattarselo come crede.
Comunque raccogliendo un tuo invito ho calcolato il ritardo globale e il relativo ritardo medio.
Vedi se è in qualche modo utile quello che sostieni.

Ciao e buon studio, e mi auguro che con il tuo e mio intervento svegli in qualcun altro la voglia di imparare a scriptare.

Codice:

Sub Main
	Dim k
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i
	Dim ruota(1)
	r = InputBox("Quale ruota ",,3)
	cl = InputBox("Quale classe di sviluppo",,2)
	sorte = InputBox("Quale sorte esito analizzo ",,2)
	capog = InputBox("Quale capogioco ",,38)
	
	ruota(1) = r
	ScegliNumeri(aNum)
	Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1
	Scrivi " Sulla ruota di..." & NomeRuota(r),1
	Scrivi " In sviluppo di classe..." & cl,1
	ColoreTesto 2
	Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1
	
	ColoreTesto 0
	For k = 1 To UBound(aNum)
	aNum(0) = capog
		aNum(k) = aNum(k)
	Next
	Classe = cl
	ReDim atitoli(6)
	atitoli(1) = " Contatore "
	atitoli(2) = " Sviluppo comb. "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Ritardo Max "
	atitoli(5) = " Frequenza "
	atitoli(6) = " Incrmax "
	Call InitTabella(atitoli,1,,3,5)
	If InitSviluppoIntegrale(aNum,Classe) > 0 Then
		Do While GetCombSviluppo(aCol) = True
			i = i + 1
			Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
			'sr = SerieRitardo(EstrazioneIni,EstrazioneFin,aCol,ruota,sorte)
			'sf = SerieFreq(EstrazioneIni,EstrazioneFin,aCol,ruota,sorte)
			'st = SerieStorico(EstrazioneIni,EstrazioneFin,aCol,ruota,sorte)
			ReDim avalori(6)
			avalori(1) = FormattaStringa(i,"00")
			avalori(2) = StringaNumeri(aCol)
			avalori(3) = sr
			avalori(4) = st
			avalori(5) = sf
			avalori(6) = Incr
			rmedio = rmedio+avalori(3)
			If i >= 0 And i < k Then Call AddRigaTabella(avalori,4,,3)
			If i >= k Then Call AddRigaTabella(avalori,,,3)
		Loop
		
	End If
	
	
	CreaTabella()
	ReDim atitoli1(8)
	atitoli1(1) = " Contatore "
	atitoli1(2) = " Sviluppo comb. "
	atitoli1(3) = " Ritardo "
	atitoli1(4) = " Ritardo Max "
	atitoli1(5) = " Frequenza "
	atitoli1(6) = " Incrmax "
	atitoli1(7) = " Rit.Globale "
	atitoli1(8) = " Rit.Medio "
Call InitTabella(atitoli1,1,,3,5)
Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
Scrivi"Statistica Globale ",1
			ReDim avalori1(8)
			avalori1(1) = FormattaStringa(i,"0")
			avalori1(2) = StringaNumeri(aNum)
			avalori1(3) = sr
			avalori1(4) = st
			avalori1(5) = sf
			avalori1(6) = Incr
			avalori1(7) = rmedio
			avalori1(8) = Round (rmedio/avalori1(1),2)

Call AddRigaTabella(avalori1,4,,3)
	CreaTabella()
	Scrivi
	Scrivi "Tabella Scripted by Mike58 ",1,- 1,3
End Sub

Ciao Mike grazie mille anche a te

Bravissimo!
Però per classe superiore a 2 a me da errore... e per classe = 2 non riesco a visualizzare il ritardo medio che comunque mi servirebbe per classi superiori. Dove pensi possa essere il piccolo problema? tnx!

LuigiB · 17 Gennaio 2014

lotto_tom75 ha scritto:
Va bene che sei un ALIENO (nel senso di bravura) ma ora carissimo luigib esageri... nemmeno 2 ore dalla domanda... e mi posti questa chicca eccezionale costituita da tutte queste righe di codice? MITIKOOOOOOOOOOOO il DYNAMO della programmazione applicata al lotto e non solo ne sono ultra convinto! GRAZIE INFINITE

eheh grazie ma anche io sbaglio , per esempio in questo caso avendo usato lo scheletro di un altro script è sbagliata la
riga che gestisce l'avanzamento elaborazione, va sostituita con

Call AvanzamentoElab(1,QColonne,idCol)

ciao

vincenzo4221 · 17 Gennaio 2014

questa riga va messa al posto di quale?
per favore indicare la riga da sostituire , grazie vincenzo

Mike58 · 17 Gennaio 2014

Ciao Tom,lo sviluppo a me non da nessun errore si può sviluppare fino alla classe 5 cioè in cinquine.
Poi come dicevo sopra scopiazzando o meglio copiando i migliori di noi (Luigi, è sempre un piacere imparare

ciao) ho capito cosa mi mancava per far fare il calcolo medio ad ogni riga e cosi ho aggiunto il rit.Medio per ritardo.

Comunque ti riposto lo script con le aggiunte, restando della stessa opinione che questo debba servire per arrivare a fare dei calcoli fai da te !!!.

Codice:

Sub Main
	Dim k
	Dim Classe
	Dim aCol
	ReDim aNum(90)
	Dim i,nCol,aColonne
	Dim ruota(1)
	r = InputBox("Quale ruota ",,3)
	cl = InputBox("Quale classe di sviluppo",,2)
	sorte = InputBox("Quale sorte esito analizzo ",,2)
	capog = InputBox("Quale capogioco ",,38)
	
	ruota(1) = r
	ScegliNumeri(aNum)
	Scrivi " Sviluppo combinazione " & StringaNumeri(aNum) & " Con Capogioco > " & capog,1
	Scrivi " Sulla ruota di..." & NomeRuota(r),1
	Scrivi " In sviluppo di classe..." & cl,1
	ColoreTesto 2
	Scrivi " Verifica statistica per sorte di... " & NomeSorte(sorte),1
	
	ColoreTesto 0
	For k = 1 To UBound(aNum)
	aNum(0) = capog
		aNum(k) = aNum(k)
	Next
	Classe = cl
	ReDim atitoli(7)
	atitoli(1) = " Contatore "
	atitoli(2) = " Sviluppo comb. "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Ritardo Max "
	atitoli(5) = " Frequenza "
	atitoli(6) = " Incrmax "
	atitoli(7) = " Rit.Medio "
	Call InitTabella(atitoli,1,,3,5)
	aColonne = InitSviluppoIntegrale(aNum,Classe)
	If InitSviluppoIntegrale(aNum,Classe) > 0 Then
	
		Do While GetCombSviluppo(aCol) = True
			i = i + 1
			'nCol = UBound(aCol)
			Call StatisticaFormazioneTurbo(aCol,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
			
			ReDim avalori(7)
			avalori(1) = FormattaStringa(i,"00")
			avalori(2) = StringaNumeri(aCol)
			avalori(3) = sr
			avalori(4) = st
			avalori(5) = sf
			avalori(6) = Incr
			avalori(7) = Round (sr / aColonne,2)
			'--------- calcoli medi ------------
			MedRit = Medrit+avalori(3)/aColonne
			MedMax = MedMax+avalori(4)/aColonne
			MedSf = MedSf+avalori(5)/aColonne
			rmed = rmed+avalori(7)/aColonne
			rmedio = rmedio+avalori(3)
			
			If i >= 0 And i <= k Then Call AddRigaTabella(avalori,4,,3)
			If i > k Then Call AddRigaTabella(avalori,,,3)
		Loop
		
	End If
	
	ReDim av(7)
	av(1) = " Media "
	av(3) = Round(Medrit,2)
	av(4) = Round(MedMax,2)
	av(5) = Round(MedSf,2)
	av(7) = Round(rmed,2)
	Call AddRigaTabella(av,3,,3)
	
	
	CreaTabella()
	ReDim atitoli1(8)
	atitoli1(1) = " Contatore "
	atitoli1(2) = " Sviluppo comb. "
	atitoli1(3) = " Ritardo "
	atitoli1(4) = " Ritardo Max "
	atitoli1(5) = " Frequenza "
	atitoli1(6) = " Incrmax "
	atitoli1(7) = " Rit.Globale "
	atitoli1(8) = " Rit.Medio "
Call InitTabella(atitoli1,1,,3,5)
Call StatisticaFormazioneTurbo(aNum,ruota,sorte,sr,st,Incr,sf,EstrazioneIni,EstrazioneFin)
Scrivi"Statistica Globale ",1
			ReDim avalori1(8)
			avalori1(1) = FormattaStringa(i,"0")
			avalori1(2) = StringaNumeri(aNum)
			avalori1(3) = sr
			avalori1(4) = st
			avalori1(5) = sf
			avalori1(6) = Incr
			avalori1(7) = rmedio
			avalori1(8) = Round (rmedio/aColonne,2)

Call AddRigaTabella(avalori1,4,,3)
	CreaTabella()
	Scrivi
	Scrivi "Tabella Scripted by Mike58 ",1,- 1,3
End Sub

LuigiB · 17 Gennaio 2014

vincenzo4221 ha scritto:
questa riga va messa al posto di quale?
per favore indicare la riga da sostituire , grazie vincenzo

nell'unico posto dove vedi scritto AvanzamentoElab ...

ad ogni modo l'erroe non impatta sui risultati dello script semplicemente non si vede la barra di scorrimento

Ciao Mike ...

vincenzo4221 · 17 Gennaio 2014

grazie luigi , ciao vincenzo

lotto_tom75 · 23 Gennaio 2014

Altra proposta: Sarebbe interessante uno script per generare combinazioni integrali o random in decina diversa.
Sarebbe pratico si potesse incollare qualsiasi gruppo numerico (di base) nell'apposita tabella colorata, come avviene già per altri script attuali, scegliere la classe (magari attraverso una finestra popup) , la sorte (altra finestra popup) e nella terza e ultima finestra popup il numero di combinazioni volute (in caso di script random e non integrale...).

Es. pratico esplicativo...

copiando e incollando questo gruppo di 60 elementi nell tabella colorata... di inserimento numeri
(con un semplice copia incolla)

2 3 5 7 8 10 11 12 14 18
19 20 21 22 24 25 26 27 29 30
31 32 33 34 35 36 39 41 42 43
44 48 49 50 51 52 53 54 56 58
59 60 61 62 63 64 67 69 70 71
74 76 77 78 79 80 81 83 89 90

e cliccando su OK

ci viene poi (o prima) chiesto dallo script:

Classe? (numero di elementi della lunghetta in decina diversa)
Sorte? (sorte ricercata)
Combinazioni? (solo nel caso lo script non sia integrale e calcoli quindi tutte le combinazioni generabili...)

e poi cliccando su OK si ha l'elaborazione delle combinazioni volute di classe voluta analizzandone i vari parametri (RA , RS , INCMAX FRQ ecc..) per la sorte voluta in decina diversa... (ovvero tutti gli elementi delle lunghette generate dovranno essere necessariamente appartenenti ad una decina diversa...)

It's possible uno script di questo genere? TNX!

giorgio1960 · 26 Gennaio 2014

Option Explicit
Sub Main
Dim sFile
Dim k,y
Dim nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq

' script by lotto_tom75 analisi di qualsiasi numero di combinazioni "salvate" su un .txt
' le combinazioni di ciascun file caricato dovranno avere numero di elementi uguali
' (es. tutte decine, o 'tutte novine ecc...
' gli elementi di ciascuna lunghetta dovranno essere separati da un (.)
' (comunque sia il carattere 'separatore si puo' cambiare nel codice
' l'elaborazione è di tipo "integrale" e quindi soggetto a limiti di elaborazione
' dipendente da numero di 'elementi nelle lunghette e numero di
' combinazioni volute (non determionabile a priori)
' Dovuta precisazione: TUTTI GLI SCRIPT e la LA LORO ESECUZIONE esistono solo grazie al mitico
' creatore di Spaziometria. Il grandissimo LUIGIB
' Script testato sulla versione 1.4.32 e probabilmente funzionante anche
' con le versioni superiori...

sFile = ScegliFile("c:\temp",".txt","lunghette.txt") ' percorso dove viene caricato il txt (ovviamente si puo' cambiare in toto...
'Inizio = 1
'Fine = 8647
ReDim aRuote(2)
aRuote(1) = TU_
'aRuote(2) = NZ_
'aRuote(3) = FI_
'aRuote(4) = GE_

nSorte = 4 ' sorte ricercata

Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFile,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
ReDim aNum(0)
Call SplitByChar("." & aRighe(k),".",aNum)
Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)
'Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine)

RetRit = RitardoCombinazioneTurbo(aRuote,aNum,nSorte,Fine)

Dim Diff
Diff = RetRitMax - RetRit

If(RetRit > 0 And Diff < 2 And RetIncrRitMax = 0) Then ' riga condizionale mutevole a piacere...

Call Scrivi(aRighe(k) & " ra : " & RetRit & " rs: " & RetRitMax & " incmax: " & RetIncrRitMax & " diff: " & Diff)
End If
End If
If k Mod 100 = 0 Then
Call Messaggio("Colonna : " & k)
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(0,UBound(aRighe),k)
End If
Next
End Sub

Buona sera a tutti, è possibile implementare il seguente script facendo in modo che di ogni combinazione venga calcolato anche il ritardo medio? Anticipatamente ringrazio

lotto_tom75 · 25 Settembre 2014

Un'altra ideuzza...

SCRIPT che controlli per una ruota (ma magari anche per tutte quelle che si vuole...) i numeri usciti... e dica, in base ai numeri immessi da tabella colorata..., quanti ne abbiamo o meno azzeccati... sulla/e ruota/e oggetto della nostra verifica... una volta che si esegue... premendo un tasto "verifica" o similare...

Credo che sarebbe utilissimo... se qualcuno/a riuscisse a realizzarlo...

Un saluto a tutti/e scripters e non

sergio1954 · 2 Ottobre 2014

Salve,

Volevo proporre la seguente procedura di gioco:

Dato un qualsiasi metodo di ricerca di numeri da mettere in gioco, fare in modo che il denaro delle giocate perse, venga recuperato da giocate ancora in corso.
Il metodo va impostato chiaramente con un grande numero di giocate in modo da avere sempre a disposizione delle giocate disponibili per il recupero.
Faccio un esempio banale:
Mettiamo il caso che una giocata non vince .
Supponiamo che la perdita sia di 20 euro.
Dividiamo per esempio questa perdita per 10 attenendo un risultato di 2euro.
Si tratta ora di individuare 10 giocate in corso che oltre a puntare la somma prevista punti anche la somma che serve per recuperare i 2 euro.
Questa procedura è chiaramente da perfezionare .

Ciao

sergio1954

ppaaoolloo · 2 Ottobre 2014

ciao
dato che i numeri del 10elotto serale vengono presi dalle ruote del lotto,
io proporrei di confrontare i numeri in ritardo e con indice di convenienza su tutte
e trovare similitudini con numeri in ritardo dal tabellone analitico del 10elotto
per poi giocarli al 10elotto

spero di essermi spiegato bene

vi ringrazio per l'attenzione e spero che qualcuno riesca a farmelo
è parecchio tempo che ce l'ho in testa e vorrei tanto vederlo realizzato

ciao

Cerca

Cerca

Idee per nuovi eventuali futuri script...

lotto_tom75

Advanced Premium Member

LuigiB

Guest

Mike58

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

lotto_tom75

Advanced Premium Member

lotto_tom75

Advanced Premium Member

LuigiB

Guest

vincenzo4221

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

vincenzo4221

Advanced Member >PLATINUM<

lotto_tom75

Advanced Premium Member

giorgio1960

Super Member >GOLD<

lotto_tom75

Advanced Premium Member

sergio1954

Member

ppaaoolloo

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi