Halmun
Advanced Member >PLATINUM<
ciao Luigi,
se non ti disturbo volevo chiedereti una modifica del seguente script che vorrei affiancare solo a titolo visivo al discorso dei Picchi, in quanto i pronostici del procedimento-Picchi, si prestano decisamente meglio ad osservazione visiva tramite i grafici e non statistica, quindi questo script mi servirebbe di supporto x eventuali convergenze o altro.
--------------------------------------------------
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
ka=0.167 '1° costante
kb=0.550 '2° costante
ruote(1)=1
For n=7301 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
numeri1(1)=Fuori90(Int(Estratto(n,1,4)/ka))
numeri1(2)=Fuori90(Int(Estratto(n,1,4)/kb))
ImpostaGiocata 1,numeri1,ruote,poste,9,1
Gioca n
End If
Next
ScriviResoconto
End Sub
-----------------------------------
come vedi il procedimento è estremamente semplice, ma prende in considerazione anche 2 Costanti ( ka e kb ) che qui riportano un valore fisso, mentre nella modifica che vorrei effettuare questi 2 valori devono variare in automatico a seconda della miglior percentuale finale.
mi spiego:
ogni costante deve lavorare da 0,001 a 30 aumentando a passo 0,001 in modo da poter ottenere alla fine del range analizzato una classifica delle 10 migliori coppie di costanti, con a fianco la percentuale d'esito, x ogni singola coppia.
esempio - Classifica - inventato al momento x capirci:
01° -- ka = 0,167 kb = 0,550 -- 86,127 %
02° -- ka = 0,131 kb = 0,871 -- 84,060 %
03° -- ka = 0,885 kb = 0,315 -- 82,757 %
04° -- ka = 1,789 kb = 1,316 -- 81,286 %
05° -- ka = 2,904 kb = 0,452 -- 79,458 %
06° -- ka = 0,247 kb = 2,057 -- 78,147 %
07° -- ka = 0,391 kb = 0,620 -- 76,744 %
08° -- ka = 2,347 kb = 0,338 -- 74,866 %
09° -- ka = 0,417 kb = 0,370 -- 73,506 %
10° -- ka = 0,099 kb = 0,495 -- 71,938 %
inserendo i parametri di ricerca come:
scelta ruota.
scelta colonna estratto.
scelta range.
scelta tipo di analisi. ( opzione 1- indice mensile, opzione 2- a passo con sub-scelta ( passo-1, passo-2, passo-3, ecc. ecc, )
sperando che la cosa possa esser fattibile ti ringrazio x l'eventuale attenzione.
un saluto.
se non ti disturbo volevo chiedereti una modifica del seguente script che vorrei affiancare solo a titolo visivo al discorso dei Picchi, in quanto i pronostici del procedimento-Picchi, si prestano decisamente meglio ad osservazione visiva tramite i grafici e non statistica, quindi questo script mi servirebbe di supporto x eventuali convergenze o altro.
--------------------------------------------------
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
ka=0.167 '1° costante
kb=0.550 '2° costante
ruote(1)=1
For n=7301 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
numeri1(1)=Fuori90(Int(Estratto(n,1,4)/ka))
numeri1(2)=Fuori90(Int(Estratto(n,1,4)/kb))
ImpostaGiocata 1,numeri1,ruote,poste,9,1
Gioca n
End If
Next
ScriviResoconto
End Sub
-----------------------------------
come vedi il procedimento è estremamente semplice, ma prende in considerazione anche 2 Costanti ( ka e kb ) che qui riportano un valore fisso, mentre nella modifica che vorrei effettuare questi 2 valori devono variare in automatico a seconda della miglior percentuale finale.
mi spiego:
ogni costante deve lavorare da 0,001 a 30 aumentando a passo 0,001 in modo da poter ottenere alla fine del range analizzato una classifica delle 10 migliori coppie di costanti, con a fianco la percentuale d'esito, x ogni singola coppia.
esempio - Classifica - inventato al momento x capirci:
01° -- ka = 0,167 kb = 0,550 -- 86,127 %
02° -- ka = 0,131 kb = 0,871 -- 84,060 %
03° -- ka = 0,885 kb = 0,315 -- 82,757 %
04° -- ka = 1,789 kb = 1,316 -- 81,286 %
05° -- ka = 2,904 kb = 0,452 -- 79,458 %
06° -- ka = 0,247 kb = 2,057 -- 78,147 %
07° -- ka = 0,391 kb = 0,620 -- 76,744 %
08° -- ka = 2,347 kb = 0,338 -- 74,866 %
09° -- ka = 0,417 kb = 0,370 -- 73,506 %
10° -- ka = 0,099 kb = 0,495 -- 71,938 %
inserendo i parametri di ricerca come:
scelta ruota.
scelta colonna estratto.
scelta range.
scelta tipo di analisi. ( opzione 1- indice mensile, opzione 2- a passo con sub-scelta ( passo-1, passo-2, passo-3, ecc. ecc, )
sperando che la cosa possa esser fattibile ti ringrazio x l'eventuale attenzione.
un saluto.