Ciao Mike58

LOTTOLEON · 25 Luglio 2014

Apro una nuova discussione per la richiesta del listato sulla roulette onde evitare confusione.

Il listato deve poter fare la ricerca per cicli come in formazione super frequenti.

Cioe' devo poter impostare tramite inputbox dimensione ciclo e sorte (1) per forza di cose visto che la rula estrae un numero alla volta.

Quindi una volta che mi sono creato l'archivio in blocco note lancio il listato per vederne i risultati=

RICAVO quali sono i numeri sempre presenti nel ciclo impostato.

per quando riguarda l'archivio basta soltanto L'INDICE ED IL NUMERO.

ESEMPIO

N1 =36
N2 =20
N3 =15
N4 =33
N5 =16
N6 =2
N7 =0
N8 =15
N9 =4
N10 =1
N11 =14
N12 =22
N13 =16
N14 =4
N15 =33
N16 =3
N17 =0
N18 =21

e' cosi via per tutti i numeri che voglio inserire.

Ti ricordo come ne abbiamo gia' parlato nell'altra discussione il 37 sara' il numero ZERO.

Se va bene come spiegazione, altrimenti chiedi pure

a presto LOTTOLEON

Mike58 · 25 Luglio 2014

ok Letto il tutto vedo quello che si può fare.

Mike58 · 25 Luglio 2014

Ciao LottoLeon, è solo una bozza, ma fammi capire se vuoi una cosa del genere.
Dato un archivio con
1 = indice
2 = data obbligatoria ma possiamo bypassarla con 0
3 = numero uscito
quindi si ha ad esempio
1,0,36 ' indice,data,numero
io ottengo su un ipotetico archivio inventato di 36 giri di roulette, questo:

Codice:

================================================================================
Frequenze per cicli 1
Lunghezza ciclo     6
Quantità cicli      6
================================================================================

2   - 7     01 03 11 12 37  [  Numeri usciti... 5 ] 
Frequenze   02 01 01 01 01 
Ritardo     07 03 05 04 19 
--------------------------------------------------------------------------------
8   - 13    02 05 11 14 21 34  [  Numeri usciti... 6 ] 
Frequenze   01 01 01 01 01 01 
Ritardo     02 00 05 21 24 27 
--------------------------------------------------------------------------------
14  - 19    11 14 20 36 37  [  Numeri usciti... 5 ] 
Frequenze   01 01 01 01 02 
Ritardo     05 21 17 01 19 
--------------------------------------------------------------------------------
20  - 25    04 08 09 27 35  [  Numeri usciti... 5 ] 
Frequenze   02 01 01 01 01 
Ritardo     06 14 08 11 12 
--------------------------------------------------------------------------------
26  - 31    01 04 06 07 09  [  Numeri usciti... 5 ] 
Frequenze   01 01 01 01 01 
Ritardo     07 06 10 09 08 
--------------------------------------------------------------------------------
32  - 37    02 03 05 11 12 36  [  Numeri usciti... 6 ] 
Frequenze   01 01 01 01 01 01 
Ritardo     02 03 00 05 04 01 
--------------------------------------------------------------------------------
38  - 43     [  Numeri usciti... 0 ] 
Frequenze   
Ritardo     
--------------------------------------------------------------------------------
Riepilogo Numeri frequenti su 36 Giri di Roulette 
================================================================================
Numeri...   01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37  Q.tà  [ 37 ] 
Frequenze   03 02 02 03 02 01 01 01 02 00 04 02 00 02 00 00 00 00 00 01 01 00 00 00 00 00 01 00 00 00 00 00 00 01 01 02 03 
Ritardo     07 02 03 06 00 10 09 14 08 35 05 04 35 21 35 35 35 35 35 17 24 35 35 35 35 35 11 35 35 35 35 35 35 27 12 01 19

Resta inteso che possiamo scrivere forse molto di più, bisogna capire cosa vogliamo ottenere e quale statistica.

script bozza

Codice:

Sub Main
	Call ApriBaseDatiFT("C:\users\..user proprio....\desktop\roulette.txt",1,",")
	fc = CInt(InputBox("FREQUENZE PER CICLO => a ?",,1))
	periodo = InputBox("Lunghezza periodo",,6)
	periodi = InputBox("quanti cicli",,6)
	aa = Int(fc*periodi)
	ft = CInt(InputBox("FREQUENZE TOTALI",,aa))
	Scrivi String(80,"=")
	Scrivi "Frequenze per cicli " & fc,1
	Tot = periodo * periodi
	Ini = 1
	fin = EstrazioniArchivioFT
	Iz = 1
	fn = EstrazioniArchivioFT
	Scrivi "Lunghezza ciclo     " & periodo,1
	Scrivi "Quantità cicli      " & periodi,1
	Scrivi String(80,"=")
	Scrivi
	For es = Ini To fin Step periodo
		ess = es + periodo
		For x = 0 To 37
			sf = EstrattoFrequenzaFT(x,es + 1,ess)
			sr = EstrattoRitardoFT(x,Ini,fin)
			If sf >= fc Then
				k = k + 1
				riga = riga & Format2(x) & " "
				rigo = rigo & Format2(sf) & " "
				rita = rita & Format2(sr) & " "
				Nulla = String(80,"-")
			End If
		Next
		Scrivi FormatSpace(es + 1,3),1,0
		Scrivi " - " & FormatSpace(ess,4) & "  ",1,0
		Scrivi riga & " [ " & " Numeri usciti... " & k & " ] ",1,1,,2,2
		Scrivi "Frequenze   " & rigo,1,1,,1,2
		Scrivi "Ritardo     " & rita,1,1,,7,2
		Scrivi Nulla
		riga = ""
		rigo = ""
		rita = ""
		k = 0
	Next
	Scrivi "Riepilogo Numeri frequenti su " & periodo*periodi & " Giri di Roulette ",1
	Scrivi String(80,"=")
	For xx = 1 To 37
		sft = EstrattoFrequenzaFT(xx,Iz,fn)
		srt = EstrattoRitardoFT(xx,iz,fn)
		If sft >= 0 Then
			kk = kk + 1
			rigaT = rigaT & Format2(xx) & " "
			rigaF = rigaF & Format2(sft) & " "
			rigaR = rigaR & Format2(srt) & " "
		End If
	Next
	Scrivi "Numeri...   " & rigaT & " Q.tà " & " [ " & kk & " ] ",1,1,,2,3
	Scrivi "Frequenze   " & rigaf,1,1,,1,3
	Scrivi "Ritardo     " & rigaR,1,1,,7,3
	rigaT = ""
	rigaF = ""
	rigaR = ""
	kk = 0
End Sub

LOTTOLEON · 25 Luglio 2014

LOTTOLEON · 25 Luglio 2014

LOTTOLEON · 25 Luglio 2014

LOTTOLEON · 25 Luglio 2014

Ciao Mike58 mi fai vedere come hai inserito i numeri nel blocco note perche' a me mi da questi errori.

LOTTOLEON · 25 Luglio 2014

Ciao MIke58

quardando il risultato del tuo output hai fatto di piu' di quello che ho chiesto (mi sta bene possono servire ai fini statistici)

pero' mancherebbero quali sono i numeri sempre presenti nei cicli

Mike58 · 26 Luglio 2014

Ciao LottoLeon, quando ho fatto questo listato per il lotto, la mia idea era quella di raccogliere i dati Presenze comune per cicli, ma qui non sono riuscito a vedere come fare.
le cosiddette superFrequenze.
Se riesco non ci sono problemi a ripostartelo ma temo che tra varie sperimentazioni ci impiegherò un po' di tempo.
Le indicazioni sono utili anche con il risultato e la raccolta Totale-

Per il 2° quesito dell'errore nel blocco note è giusto come lo hai costruito e penso che l'errore che rilevi lo dia perché magari ti rimane aperto e attivo il blocco note(devi allacciarlo chiuso dalla sua locazione o directory).

se riesco in altro bene....vedrò cosa posso fare.

Ci aggiorniamo

LOTTOLEON · 26 Luglio 2014

Molto bene Mike58

Ti ringrazio molto per quanto stai facendo per la riuscita di questo script.

Ho risolto per quanto riguarda l'archivio, mi aveva deviato la cartella del vinci casa senza accorgermene quando l'ho salvato.

adesso e' tutto ok funziona alla grande.

Resto in attesa di tue buone

supersaluti LOTTOLEON

LOTTOLEON · 26 Luglio 2014

Sub main()

Dim nn(10),ruota(10),estr(90,4)
xx=InputBox("Inserisci cicli, ....",,10)
ne=InputBox("Numero estrazioni:",,160)
perc=InputBox("Percentuale minima (30..100%):",,80)
ncg=InputBox("Numero colpi di gioco",,10)
For nru=1 To 10
Messaggio " Elaboro la ruota : "& NomeRuota(nru)
ruota(1)=eval(nru)
casi=0
ini=EstrazioneFin-ne
fin=EstrazioneFin
For x=1 To 90
estr(x,1)=0 : estr(x,2)=0 : estr(x,3)=0 : estr(x,4)=0
Next
For es=ini To fin Step xx

esncg=es+eval(ncg)

If esncg>EstrazioneFin Then Exit For

casi=casi+1
: co=0
For r=1 To 90
co=co+1 : c=0
nn(1)=r : nn(2)=p

c=SerieFreq(es+1,esncg,nn,ruota,1)
If c>0 Then
estr(co,1)=co
estr(co,2)=r
estr(co,3)=p
estr(co,4)=estr(co,4)+1
End If
Next

Next
ca=0
ColoreTesto 1 : Scrivi : Scrivi "==================================================="
Scrivi "ANALISI Dal "& DataEstrazione(ini)&" al "& DataEstrazione(fin),1
Scrivi

Scrivi "ESTRAZIONE INIZIO CICLO : "& DataEstrazione(ini),1

Scrivi "ESTRAZIONE DI CALCOLO : "& es

Scrivi "RUOTA CONSIDERATA : "& NomeRuota(nru),1
Scrivi "COLPI DI GIOCO : "& ncg,1
Scrivi "CASI ANALIZZATI : "& casi,1
Scrivi : ColoreTesto 0
Scrivi "Estratti in Ruota Usciti nei cicli ",1
Scrivi
per=Int((casi/100)*perc)
For ca=1 To 90
If eval(estr(ca,4))=>per Then
Scrivi eval(estr(ca,2))& "-" & eval(estr(ca,3))& " su "& NomeRuota(nru)&" è uscito "&_
FormatSpace(estr(ca,4),3)&" su "&FormatSpace(casi,3) &" casi"
End If
Next
Next
End Sub

LOTTOLEON · 26 Luglio 2014

Ciao Mike58

Ti ho postato questo script come vedi e' per l'altro programma.ma funziona anche su spaziometria

Se c'e' qualche istruzione che ti puo dare qualche idea!!!!

a presto

Mike58 · 26 Luglio 2014

Ciao LottoLeon, agire su script altrui a volte aiuta a volte aiuta meno.
Ho fatto la modifica del tuo script per il tuo scopo ma non sono sicuro del risultato.

Prova a vedere

Codice:

Sub Main
	Dim nn(10),ruota(10),estr(90,4),sfile
	sfile = "C:\users\Mike58\desktop\roulette.txt"
	Call ApriBaseDatiFT(sfile,1,",",37)
	xx = InputBox("Inserisci cicli, ....",,3)
	ne = InputBox("Numero estrazioni:",,36)
	perc = InputBox("Percentuale minima (30..100%):",,60)
	ncg = InputBox("Numero colpi di gioco",,12)
	casi = 0
	ini = 1'EstrazioniArchivioFT - ne
	fin = EstrazioniArchivioFT
	For x = 1 To 37
		estr(x,1) = 0 : estr(x,2) = 0 : estr(x,3) = 0 : estr(x,4) = 0
	Next
	For es = ini To fin Step xx
		esncg = es + eval(ncg)
		If esncg > EstrazioniArchivioFT Then Exit For
		casi = casi + 1
		: co = 0
		For r = 1 To 37
			co = co + 1 : c = 0
			nn(1) = r : nn(2) = p
			c = SerieFreqFT(es + 1,esncg,nn,1)
			If c > 0 Then
				k = k + 1
				estr(co,1) = co
				estr(co,2) = r
				estr(co,3) = p
				estr(co,4) = estr(co,4) + 1
			End If
		Next
	Next
	ca = 0
	ColoreTesto 1 : Scrivi : Scrivi "================================================= =="
	Scrivi "ANALISI Dal " &(ini) & " al " &(fin),1
	Scrivi
	Scrivi "ESTRAZIONE INIZIO CICLO : " &(ini),1
	Scrivi "ESTRAZIONE DI CALCOLO : " & es
	'Scrivi "RUOTA CONSIDERATA : " & NomeRuota(nru),1
	Scrivi "COLPI DI GIOCO : " & ncg,1
	Scrivi "CASI ANALIZZATI : " & casi,1
	Scrivi : ColoreTesto 0
	Scrivi "Numeri Usciti in Giri Di Roulette nei cicli ",1
	Scrivi
	per = Int((casi/100)*perc)
	For ca = 1 To 37
		If eval(estr(ca,4)) >= per Then
			percc = Int((estr(ca,4)/casi)*100)
			Scrivi FormatSpace (eval(estr(ca,2)),2) & " - " & eval(estr(ca,3)) & " su " & " è uscito " & _
			FormatSpace(estr(ca,4),3) & " su " & FormatSpace(casi,3) & " casi" & " Perc% " & percc & " %",1,1,,7,3
		End If
	Next
End Sub

LOTTOLEON · 26 Luglio 2014

Grandissimo

funziona perfettamente

Ti chiedo un'ultima cortesia se puoi

per raggiungere il 100% per ogni ciclo se si puo' apportare questa modifica

deve trovare 2 o piu' numeri per ciclo fino a raggiungere il 100%

grazie ancora LOTTOLEON

Mike58 · 27 Luglio 2014

Ciao potrebbe bastare la riga
If c > 0 Then ' che sono le frequenze per ciclo = 1
da cambiare con
If c > 1 Then ' tutte le frequenzr > 1 quindi = 2 e superiori

prova non mi da risultati in quanto non ho un archivio sufficiente

ci aggiorniamo

LOTTOLEON · 27 Luglio 2014

Ciao Mike58

non funziona non da risultati.

Inoltre i numeri li deve considerare uniti, quindi o uno o l'altro numero nel caso di 2 numeri ci devono essere all'interno di ciascun ciclo altrimenti

ne prende tre e cosi via fino a raggiungere la percentuale del 100%.

So che sto facendo una richiesta enorme ma se si riuscisse sarebbe una grande vittoria

LOTTOLEON

Mike58 · 27 Luglio 2014

Ciao LottoLeon, ci guardo vedo quello che posso fare.
Periodo di tempo disponibile complicato

Un pò di pazienza e vediamo quello che si può fare.

LOTTOLEON · 27 Luglio 2014

Mike58 · 27 Luglio 2014

Ciao LottoLeon, purtroppo non ho tempo disponibile adesso, ho fatto un altro script ex novo che estrapola le frequenze pari a 2 per ciclo, ma non troverà mai lo stesso numero sempre ripetuto nei cicli.

prova a vedere cosi, ti leggerò domani, devo scappare....

Codice:

Sub Main
	Dim fre,r1,est,da,x,c1,sfile
	sfile = "C:\Users\Mike58\desktop\roulette.txt"
	Call ApriBaseDatiFT(sfile,1,",",37)
	Ini = 1
	fin = EstrazioniArchivioFT
	ReDim at(10)
	at(1) = " Cicli  "
	at(2) = " Numeri Sortiti "
	at(3) = " Freq = 2 "
	at(4) = " Conta Num "
	at(5) = " 1° dozzina "
	at(6) = " 2° dozzina "
	at(7) = " 3° dozzina "
	at(8) = " Zero(37) "
	at(9) = " Pari "
	at(10) = " Dispari "
	Call InitTabella(at,2,,3,5)
	For est = 1 To fin Step 12
		da = est + 12
		ReDim num(90)
		For x = 1 To 37
			fre = EstrattoFrequenzaFT(x,est,da)
			If fre = 2 Then
				c1 = c1 + 1
				num(c1) = x
			End If
		Next
		For es = est To est + 12
			aa = EstrattoFT(es,1)
			riga = riga & Format2(aa) & "  "
			If aa > 0 And aa < 13 Then dc1 = dc1 + 1
			If aa > 12 And aa < 25 Then dc2 = dc2 + 1
			If aa > 24 And aa < 37 Then dc3 = dc3 + 1
			If aa = 37 Then zz = zz + 1
			If pari(aa) Then par = par + 1
			If dispari(aa) Then dis = dis + 1
			
		Next
		
		ReDim av(10)
		av(1) =(est+1) & " - " &(est + 12)
		av(2) = riga
		av(3) = StringaNumeri(num,,1)
		av(4) = c1
		av(5) = dc1
		av(6) = dc2
		av(7) = dc3
		av(8) = zz
		av(9) = par
		av(10) = dis
		Call AddRigaTabella(av,,,3)
		c1 = 0
		riga = ""
		dc1 = 0
		dc2 = 0
		dc3 = 0
		zz = 0
		par = 0
		dis = 0
	Next
	Call CreaTabella()
	
	
	
End Sub

LOTTOLEON · 27 Luglio 2014

grazie Mike58

ciao Lottoleon

Ciao Mike58

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Member

Member

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member