x LuigiB - aiuto script - classifica costanti

[Halmun]

scusami Luigi ma c'è qualcosa che non corrisponde con le effettive %Li.
qui la Output mi restituisce solo il 15,67% - range 300 estraz. - passo 0,01 - 1° estr. di Bari -
ma dal foglio excel, tarato a 9 C. con la stessa costante ( 0,71 ) mi risulta invece il 36,666%
110 casi pos. su 300 compreso quelli in corso, che fra l'altro come costante non è nemmeno la migliore.
non è che x caso lo script lavora sul solo 1° C. ?






Analisi delle costanti da 0 a 30 passo 0.01
Data Da : [08291] [127] 23.10.2010
Data A : [08590] [113] 20.09.2012
Ruota : Bari
Posiz. : 1
TipoOp : Divisione
Costante Vincenti Giocate Percentuale
0,71 47 300 15,67%
1,9 43 300 14,33%
1,32 43 300 14,33%
0,63 43 300 14,33%
6,54 41 300 13,67%
0,43 41 300 13,67%
6,72 40 300 13,33%
6,71 40 300 13,33%
6,7 40 300 13,33%
6,57 40 300 13,33%
6,56 40 300 13,33%
6,55 40 300 13,33%
6,53 40 300 13,33%
5,68 40 300 13,33%
2,72 40 300 13,33%
2,71 40 300 13,33%
0,64 40 300 13,33%
0,47 40 300 13,33%
6,76 39 300 13%
6,75 39 300 13%
6,74 39 300 13%
6,73 39 300 13%
5,67 39 300 13%
5,66 39 300 13%
2,73 39 300 13%
2,41 39 300 13%
1,93 39 300 13%
6,79 38 300 12,67%
6,78 38 300 12,67%
6,77 38 300 12,67%
6,69 38 300 12,67%
6,68 38 300 12,67%
6,67 38 300 12,67%
6,59 38 300 12,67%
6,58 38 300 12,67%
6,52 38 300 12,67%
6,51 38 300 12,67%
6,5 38 300 12,67%
6,49 38 300 12,67%
6,48 38 300 12,67%
5,73 38 300 12,67%
5,72 38 300 12,67%
5,71 38 300 12,67%
5,7 38 300 12,67%
5,69 38 300 12,67%
5,65 38 300 12,67%
5,64 38 300 12,67%
5,63 38 300 12,67%
5,6 38 300 12,67%
5,59 38 300 12,67%
5,58 38 300 12,67%
5,51 38 300 12,67%
5,5 38 300 12,67%
5,49 38 300 12,67%
2,7 38 300 12,67%
2,67 38 300 12,67%
2,54 38 300 12,67%
2,16 38 300 12,67%
1,92 38 300 12,67%
1,33 38 300 12,67%
0,68 38 300 12,67%
14,57 37 300 12,33%
14,56 37 300 12,33%
14,55 37 300 12,33%
14,54 37 300 12,33%
14,53 37 300 12,33%
14,52 37 300 12,33%
14,51 37 300 12,33%
14,5 37 300 12,33%
14,49 37 300 12,33%
14,48 37 300 12,33%
14,47 37 300 12,33%
14,46 37 300 12,33%
14,45 37 300 12,33%
6,8 37 300 12,33%
6,66 37 300 12,33%
6,65 37 300 12,33%
6,64 37 300 12,33%
6,47 37 300 12,33%
6,46 37 300 12,33%
6,45 37 300 12,33%
6,28 37 300 12,33%
6,27 37 300 12,33%
5,76 37 300 12,33%
5,75 37 300 12,33%
5,74 37 300 12,33%
5,62 37 300 12,33%
5,61 37 300 12,33%
5,57 37 300 12,33%
5,56 37 300 12,33%
5,55 37 300 12,33%
5,54 37 300 12,33%
5,48 37 300 12,33%
5,47 37 300 12,33%
2,74 37 300 12,33%
2,68 37 300 12,33%
2,66 37 300 12,33%
2,57 37 300 12,33%
2,42 37 300 12,33%
2,39 37 300 12,33%

 

[Halmun]

nello script ogni estraz. del range analizzato funge da previsione ? quindi range 300 = 300 prev. giusto? o sbaglio io in qualcosa ??!!!



Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1


ka=0.71
'kb=0.550
'kc=5.988
'kd=4.450


ruote(1)=1


For n=8287 To EstrazioneFin
'If IndiceMensile(n+1)=1 Then


numeri1(1)=Fuori90(Int(Estratto(n,1,1)/ka))
'numeri1(2)=Fuori90(Int(Estratto(n,1,4)/kb))
'numeri1(3)=Fuori90(Int(Estratto(n,1,4)*kc))
'numeri1(4)=Fuori90(Int(Estratto(n,1,4)*kd))


ImpostaGiocata 1,numeri1,ruote,poste,9,1


Gioca n
'End If
Next
ScriviResoconto
End Sub

 

[LuigiB]

questa versione dello script mostra nell'output anche gli esiti e si vede chiaramente che gli esiti capitano tra 0 e 9 colpi (almeno dalle prove che ho fatto io )

Option Explicit
Class clsCostante
	Dim C
	Dim Vincenti
	Dim Giocate
End Class
Sub Main
	Dim idEstr,Ruota,Colpi
	Dim Inizio,Fine,nFatte
	Dim Pos,c
	Dim aContenitCostanti(100)
	Dim TipoOp
	Dim NumGiocato
	Dim clsK
	Dim aNumeri(1)
	Dim aRuote(1)
	Dim aPosizioni(1)
	Dim sRetEsito,nRetColpi,sRetEstratti,nRetIdEstr
	
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	Ruota = ScegliRuota
	Pos = Int(InputBox("Posizione estrazionale da 1 a 5 ",,1))
	TipoOp = InputBox("Tipo operazione + - * /",,"/")
	Colpi = 9
	
	c = 0
	Set clsK = New clsCostante
	If Ruota > 0 And GetTipoOp(TipoOp) <> "" Then
		Call InitArrayContenitore(aContenitCostanti)
		c = 0
		Do While c <= 30
			clsK.c = c
			clsK.Vincenti = 0
			clsK.Giocate = 0
			For idEstr = Inizio To Fine
				Call Messaggio("Estrazione : " & idEstr & " C = " & c)
				Select Case TipoOp
				Case "*" ' moltiplicazione
					NumGiocato = Fuori90(Int(Estratto(idEstr,Ruota,Pos)* c))
				Case "/" ' divisione
					
					NumGiocato = Fuori90(Dividi(Estratto(idEstr,Ruota,Pos),c))

				Case "-" ' sottrazione
					NumGiocato = Fuori90(Int(Estratto(idEstr,Ruota,Pos) - c))
				Case "+" ' addizione
					NumGiocato = Fuori90(Int(Estratto(idEstr,Ruota,Pos) + c))
				Case Else
					NumGiocato = 0
				End Select
				If NumGiocato > 0 Then
					clsK.Giocate = clsK.Giocate + 1
					aNumeri(1) = NumGiocato
					aRuote(1) = Ruota
					aPosizioni(1) = Pos
					If VerificaEsito(aNumeri,aRuote,idEstr + 1,1,Colpi,aPosizioni,sRetEsito,nRetColpi,sRetEstratti,nRetIdEstr) Then
						
						Call Scrivi("Estrazione Base : " & GetInfoEstrazione(idEstr) & " - " & StringaEstratti(idEstr,Ruota))
						Call Scrivi("Costante        : " & c)

						Call Scrivi("Numero usato    : " & NumGiocato)
						Call Scrivi("Esito           : " & sRetEsito & " - " & sRetEstratti)
						Call Scrivi("Colpi di gioco  : " & nRetColpi)
						Call Scrivi("Estraz. vinc.   : " & nRetIdEstr & " " & StringaEstratti(nRetIdEstr,Ruota))
						Call Scrivi(String(100,"-"))


						clsK.Vincenti = clsK.Vincenti + 1
					End If
				End If
				If ScriptInterrotto Then Exit For
			Next
			Call MemorizzaNuovaCostanteTraLePrimeX(aContenitCostanti,clsK)
			c = Round(c + 0.001,3)
			If ScriptInterrotto Then Exit Do
			nFatte = nFatte + 1
			Call AvanzamentoElab(0,30000,nFatte)
		Loop
		
		Call GestioneOutput(Inizio,Fine,Pos,Ruota,TipoOp,aContenitCostanti)

	End If
End Sub
Sub InitArrayContenitore(aContenitCostanti)
	Dim k
	For k = 1 To UBound(aContenitCostanti)
		Set aContenitCostanti(k) = New clsCostante
	Next
End Sub
Sub MemorizzaNuovaCostanteTraLePrimeX(aContenitCostanti,clsK)
	Dim k,kk
	
	For k = 1 To UBound(aContenitCostanti)
		If clsK.Vincenti >= aContenitCostanti(k).Vincenti Then
			
				For kk = UBound(aContenitCostanti) To k + 1 Step - 1
					aContenitCostanti(kk).c = aContenitCostanti(kk - 1).c
					aContenitCostanti(kk).Vincenti = aContenitCostanti(kk - 1).Vincenti
					aContenitCostanti(kk).Giocate = aContenitCostanti(kk - 1).Giocate
				Next
				aContenitCostanti(k).c = clsK.c
				aContenitCostanti(k).Vincenti = clsK.Vincenti
				aContenitCostanti(k).Giocate = clsK.Giocate
				Exit For
				
		End If
	Next
End Sub
Sub GestioneOutput(inizio,fine,pos,ruota,tipoOp,aContenitCostanti)
	
	Dim k
	
	Call Scrivi("Analisi delle costanti da 0 a 30 passo 0.001")
	Call Scrivi("Data Da : " & GetInfoEstrazione(inizio))
	Call Scrivi("Data A  : " & GetInfoEstrazione(fine))
	Call Scrivi("Ruota   : " & NomeRuota(ruota))
	Call Scrivi("Posiz.  : " & pos)
	Call Scrivi("TipoOp  : " & GetTipoOp(tipoOp))
	
	
	
	
	ReDim aV(4)
	aV(1) = "Costante"
	aV(2) = "Vincenti"
	aV(3) = "Giocate"
	aV(4) = "Percentuale"
	
	Call InitTabella(aV)
	
	For k = 1 To UBound(aContenitCostanti)
		aV(1) = aContenitCostanti(k).c
		aV(2) = aContenitCostanti(k).vincenti
		aV(3) = aContenitCostanti(k).Giocate
		aV(4) = Round(ProporzioneX(aV(2),aV(3),100),3) & " %"
		Call AddRigaTabella(aV)
	Next
	
	Call CreaTabella
	
End Sub
Function GetTipoOp(tipoOp)
	
	Select Case tipoOp
	Case "*" ' moltiplicazione
		GetTipoOp = "Moltiplicazione"
	Case "/" ' divisione
		GetTipoOp = "Divisione"
	Case "-" ' sottrazione
		GetTipoOp = "Sottrazione"
	Case "+" ' addizione
		GetTipoOp = "Addizione"
	Case Else
		GetTipoOp = ""
		
	End Select
	
End Function

 

[Halmun]

dunque, credo di aver capito dov'è l'errore.
se analizziamo le ultime 100 estraz. di Bari ( 1° estratto, Operatore * ) lo script ci restituisce come miglior costante la 0.074 con una percentuale pari al 24 % ( Vincenti = 24 ).
e fin qui ci siamo, ma nello script noto che la formula utilizzata è la seguente:
Case "*" ' moltiplicazione
NumGiocato = Fuori90(Int(Estratto(idEstr,Ruota,Pos)* c))


mentre con un altro script che ho utilizzato x il confronto abbiamo:
numeri1(1)=Fuori90(90+((Estratto(n,1,1)*(0.074))))
e con questa formula la percentuale risulta esatta ( 61 casi positivi su 100 = 61 % )
in quanto è pienamente confermata anche dalla formula x il controllo in Excel.
=SE(RESTO(INT($H9*M$6);90)=0;90;RESTO(INT($H9*M$6);90))
dove H9 è il 1° estratto di Bari, mentre M6 è la costante 0.074 ( vincenti 61 = 61% )


quindi l'errore che sto riscontrando su tutti e 4 gli operatori credo abbia a che fare proprio con il tipo di algoritmi implementati nello script.
fermo restando che di programmazione non me ne intendo, resta cmq. evidente che classifica costanti e relative %li risultano errate.
se qualcuno puo' eventualmente fare un confronto con quanto sopra gliene sarei molto grato.
ciao.

 

[LuigiB]

scusa se hai capito che l'errore è nella formula che ci vuole a correggerlo ?

NumGiocato = Fuori90(Int(Estratto(idEstr,Ruota,Pos)* c))


mentre con un altro script che ho utilizzato x il confronto abbiamo:

numeri1(1)=Fuori90(90+((Estratto(n,1,1)*(0.074))))

quindi la correzione è da farsi cosi

NumGiocato = Fuori90(90+((Estratto(idEstr,Ruota,Pos)*c)))


l'errore nella formula che ho usato è dovuto al fatto che ho copiato la formula che hai scritto tu nello scriptino di esempio che avevi messo , li non si sommava nessun 90

numeri1(1)=Fuori90(Int(Estratto(n,1,1)/ka))

 

[Halmun]

Si, avevo gia inserito ieri la correzione, esattamente come tu l'hai proposta e il risultato è sempre errato. vedi sotto la classifica delle prime 10 costanti.
al 1° posto c'è la cost. 23,904 con 23 vincenti ( 23 % )
mentre se analizzo la cost. singola 23,904 ottengo 51 vincenti:
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
poste(2)=0
ruote(1)=1
For n=8487 To EstrazioneFin
numeri1(1)=Fuori90(90+((Estratto(n,1,1)*(23.904))))
ImpostaGiocata 1,numeri1,ruote,poste,9,1
Gioca n
Next
ScriviResoconto
End Sub

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

[TABLE="width: 256"]
[TR]
[TD="colspan: 4"]Analisi delle costanti da 0 a 30 passo 0.001[/TD]
[/TR]
[TR]
[TD="colspan: 4"]Data Da : [08491] [ 14] 02.02.2012[/TD]
[/TR]
[TR]
[TD="colspan: 4"]Data A : [08590] [113] 20.09.2012[/TD]
[/TR]
[TR]
[TD="colspan: 2"]Ruota : Bari[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 2"]Posiz. : 1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 4"]TipoOp : Moltiplicazione[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Costante [/TD]
[TD]Vincenti [/TD]
[TD]Giocate [/TD]
[TD]Percentuale [/TD]
[/TR]
[TR]
[TD]23,904[/TD]
[TD]23[/TD]
[TD]100[/TD]
[TD]23%[/TD]
[/TR]
[TR]
[TD]23,903[/TD]
[TD]23[/TD]
[TD]100[/TD]
[TD]23%[/TD]
[/TR]
[TR]
[TD]23,902[/TD]
[TD]23[/TD]
[TD]100[/TD]
[TD]23%[/TD]
[/TR]
[TR]
[TD]23,907[/TD]
[TD]22[/TD]
[TD]100[/TD]
[TD]22%[/TD]
[/TR]
[TR]
[TD]23,906[/TD]
[TD]22[/TD]
[TD]100[/TD]
[TD]22%[/TD]
[/TR]
[TR]
[TD]23,905[/TD]
[TD]22[/TD]
[TD]100[/TD]
[TD]22%[/TD]
[/TR]
[TR]
[TD]07,196[/TD]
[TD]22[/TD]
[TD]100[/TD]
[TD]22%[/TD]
[/TR]
[TR]
[TD]07,195[/TD]
[TD]22[/TD]
[TD]100[/TD]
[TD]22%[/TD]
[/TR]
[TR]
[TD]00,069[/TD]
[TD]22[/TD]
[TD]100[/TD]
[TD]22%[/TD]
[/TR]
[TR]
[TD]00,068[/TD]
[TD]22[/TD]
[TD]100[/TD]
[TD]22%
[/TD]
[/TR]
[/TABLE]

non fa niente Luigi, ti ringrazio lo stesso, lo script che mi hai fatto va bene anche cosi', tutto sommato mi è abb. indicativo x trovare velocemente alcune costanti anche se non sono proprio le migliori, tanto poi le confronto con quelle trovate a occhio in excel, e se sono abb. buone le tengo.
Grazie ancora.

 

[LuigiB]

se il risultato è sempre errato vuol dire che non era quello il problema ....

 

[Halmun]

X Luigi:
ah...x quello non ne ho proprio l'idea di quale possa essere l'errore.


x Rudy:
non male queste costanti, x certi versi migliori della tradiz. sommativa, soprattutto x quanto riguarda un'eventuale copertura ai casi 00 dell'ambata Primaria.
qui di seguito un esempio in 9 C. con 1 caso in corso a partire da stasera: ( 91% su 98 conclusi )

Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
poste(2)=0


ruote(1)=1


For n=7301 To EstrazioneFin
If IndiceMensile=9 Then


KA=5.148
KB=3.612


numeri1(1)=Fuori90(90+((Estratto(n,1,1)*(KA))))
numeri1(2)=Fuori90(90+((Estratto(n,1,1)*(KB))))


ImpostaGiocata 1,numeri1,ruote,poste,9,1
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[rudivall]

Ciao Dario grazie, questi due giorni sono molto impegnato ma poi ti dò una mano nelle ricerche

 

[Halmun]

X Luigi:
ah...x quello non ne ho proprio l'idea di quale possa essere l'errore.


x Rudy:
non male queste costanti, x certi versi migliori della tradiz. sommativa, soprattutto x quanto riguarda un'eventuale copertura ai casi 00 dell'ambata Primaria.
qui di seguito un esempio in 9 C. con 1 caso in corso a partire da stasera: ( 91% su 98 conclusi )

Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
poste(2)=0


ruote(1)=1


For n=7301 To EstrazioneFin
If IndiceMensile=9 Then


KA=5.148
KB=3.612


numeri1(1)=Fuori90(90+((Estratto(n,1,1)*(KA))))
numeri1(2)=Fuori90(90+((Estratto(n,1,1)*(KB))))


ImpostaGiocata 1,numeri1,ruote,poste,9,1
Gioca n
End If
Next
ScriviResoconto
End Sub

x Rudy.

Ottima la risposta dello Script : Esito 03 al 2° C.

 

[berardo]

Buonasera,
Halmun è da poco che sono iscritto in questo forum e mi sono imbattuto in questo post,
i tuoi interventi sono molto interessanti e ti faccio i complimenti x la previsione vincente.
Io non ne capisco moltissimo ma ne sono rimasto affascinato,ho scaricato il tuo script e...
è andata beneeeee. Spero che il grande Luigi possa realizzare quello che gli hai chiesto
perchè sono sicuro che ne vedremo delle belle.
Ora mi leggo un po' il post con il grafico,così di primo acchito non ho capito bene come si fa'
ad individuare i numeri da giocare...ma quello è un altro post e,se non ti scoccia,sicuramente ti chiederò
ragguagli
ciao e...alla prossima

 

[Halmun]

chiedi pure, è sempre un piacere condividere ricerche diverse dal solito.