-
Halmun.
User deleted
se non disturbo volevo chiedere ai + esperti di script come modificare, oppure un aiuto, x il seguente listato in base ad un mio procedimento x doppia ambata.
io purtroppo ne capisco poco, quindi perdonatemi se faro' qualche domanda x capire meglio l'eventuale iter operativo nel qual caso si possa fare.
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
-----------------------------------
il procedimento di fatto molto semplice nella sua struttura prende pero' in considerazione 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 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 di poter condividere con tutti i futuri ris. di questo listato RINGRAZIO anticipatamente chiunque voglia o possa darmi una mano x realizzarlo.
un saluto.
.