Script - chiedo aiuto x variabile - K
 
Visualizzazione dei risultati da 1 a 7 su 7

Discussione: Script - chiedo aiuto x variabile - K

  1. #1
    Senior Member
    Registrato dal
    Nov 2011
    Messaggi
    352

    Script - chiedo aiuto x variabile - K

    premesso che purtroppo non sono esperto di script chiedo aiuto x inserire nel seguente script un ciclo che mi trovi la migliore variabile K compresa fra 0,01 e 3
    praticamente il ciclo dovrebbe visualizzare, e mettere in gioco la migliore variabile fra le 30000 possibili :
    Sub main()
    Dim ruote(10)
    Dim numeri1(10)
    Dim numeri2(10)
    Dim poste(5)
    Dim posta(5)
    poste(1)=1
    poste(2)=0
    poste(3)=0
    poste(4)=0
    poste(5)=0
    K=0.05
    ruote(1)=1
    For n=7301 To EstrazioneFin
    numeri1(1)=Fuori90(Int(SommaEstratti(n,1)/k))
    ImpostaGiocata 1,numeri1,ruote,poste,9,1
    Gioca n
    Next
    ScriviResoconto
    End Sub
    ---------------------------------------

    esempio : la var.K 0,05 mi restituisce il 38,7% dei ris. positivi, mentre ad es: la var.K 1,943 me ne restituisce il 44,7% decisamente migliore.
    Ŕ possibile riuscire a far fare allo script questo tipo di ricerca selettiva?
    ringrazio anticipatamente chiunque possa aiutarmi.
















     

     

     

     

     

     

     

     

     

     

     

     

  2. #2
    Senior Member
    Registrato dal
    Mar 2010
    Messaggi
    2,079
    codice:
    SubMain()
    Dimruote(10)
    Dimnumeri1(10)
    Dimnumeri2(10)
    Dimposte(5)
    Dimposta(5)
    poste(1) = 1
    poste(2) = 0
    poste(3) = 0
    poste(4) = 0
    poste(5) = 0
    'K = 0.05
    ruote(1) = 1
    For k = 0.01 To 3 Step 0.01
    For n = 8400 ToEstrazioneFin
    numeri1(1) =Fuori90(Int(SommaEstratti(n,1)/k))
    Scrivinumeri1(1) &" con K = " & K 
    ImpostaGiocata 1,numeri1,ruote,poste,9,1
    Gioca n
    Next
    ScriviResoconto
    Next
    'ScriviResoconto
    EndSub
    
    Lo spot che conosciamo dice \"Ti Piace vincere facile ? \" .. io rispondo SI !!!\"

  3. #3
    Senior Member
    Registrato dal
    Nov 2011
    Messaggi
    352
    ciao Claudio, ti ringrazio, e ho sistemato lo script in quanto c'era un errore che era dovuto al copia-incolla,
    ma ho notato cmq. che nella output mi vengono sommati alla fine tutti i ris. dei vari K, mentre sarebbe preferibile avere
    semplicemente una classifica dei 10 o 20 migliori K .
    ti faccio un esempio di risultato nella Output: ( Inventato di sana pianta x rendere comprensibile l'idea )
    casi esaminati 96
    con K 0.01 - % 45,5
    con K 0.055 - % = 44.7
    con K 0.031 - % = 43.3
    con K 0.76 - % = 39.2
    ecc. ecc.
    non importa se non mi evidenzia il resoconto dei vari K e/o la previsione in corso, in quanto lo script Ŕ stato cmq. riprodotto
    in excel, quindi mi servirebbe solo x evidenziare velocemente la classifica delle K migliori, cosa che cmq. gia' faccio attraverso modulo scorrevole-Excel
    ma mi ci vuole parecchio tempo x trovare le 10 o 20 K migliori.
    la visualizzazione delle prev. non Ŕ importante in quanto ci pensa poi il foglio excel.
    ti inserisco questo script da cui prendere eventualmente spunto, decisamente + leggero, in quanto lavora solo su indice mensile
    e non su estrazioni consecutive.
    Sub main()
    Dim ruote(10)
    Dim numeri1(10)
    Dim numeri2(10)
    Dim poste(5)
    Dim posta(5)
    poste(1)=1
    poste(2)=0
    poste(3)=0
    poste(4)=0
    poste(5)=0
    For k = 0.1 To 1 Step 0.1

    ruote(1)=1
    For n=7301 To EstrazioneFin
    If IndiceMensile(n)=1 Then
    numeri1(1)=Fuori90(Int(Fuori90(SommaEstratti(n,1)) *k))
    Scrivi numeri1(1) &" con K = " & K


    ImpostaGiocata 1,numeri1,ruote,poste,9,1
    Gioca n
    End If
    Next
    ScriviResoconto
    next
    End Sub
    ti ringrazio cmq. x l'aiuto e l'interessamento.
    Ultima modifica di Halmun; 25-12-2011 a 01:32

  4. #4
    Senior Member L'avatar di gennaro
    Registrato dal
    Dec 2011
    Messaggi
    121
    Il problema, secondo me, Ŕ risolvibile se LuigiB ci aiuta (o ci fornisce qlk info) a tirare fuori il parametro PERCENTUALE POSITIVA dalla procedura SCRIVIRESOCONTO. In generale sarebbe bello poter interrogare tutti i risultati forniti dalla suddetta procedura. LuigiB, mi sbaglio? C'e' possibilitÓ di sbirciare in queste procedure?

  5. #5
    Senior Member
    Registrato dal
    Mar 2010
    Messaggi
    2,079
    x Gennaro : la procedura ScriviResoconto non fa altro che creare una matrice che contiene tutti i dati ricavati da gioca.
    Visto che hai dimestichezza sugli script, puoi crearla sostituendo il gioca con il Verificaesito.

    Ciao
    Ultima modifica di claudio8; 25-12-2011 a 12:30
    Lo spot che conosciamo dice \"Ti Piace vincere facile ? \" .. io rispondo SI !!!\"

  6. #6
    Senior Member
    Registrato dal
    Nov 2011
    Messaggi
    352
    x i pi¨ interessati, ho trovato alcune variabili x l'ultima del mese. ciao.

    Sub main()
    Dim ruote(10)
    Dim numeri1(10)
    Dim numeri2(10)
    Dim poste(5)
    Dim posta(5)
    poste(1)=1
    'Variabili
    ka=06.725
    kb=10.748
    kc=19.241
    kd=05.988
    ke=23.671
    ruote(1)=1
    For n=7301 To EstrazioneFin
    If IndiceMensile(n+1)=1 Then
    numeri1(1)=Fuori90(Int(Estratto(n,1,1)*ka))
    numeri1(2)=Fuori90(Int(Estratto(n,1,2)*kb))
    numeri1(3)=Fuori90(Int(Estratto(n,1,3)*kc))
    numeri1(4)=Fuori90(Int(Estratto(n,1,4)*kd))
    numeri1(5)=Fuori90(Int(Estratto(n,1,5)*ke))
    ImpostaGiocata 1,numeri1,ruote,poste,9,1
    Gioca n
    End If
    Next
    ScriviResoconto
    End Sub

  7. #7
    Senior Member L'avatar di gennaro
    Registrato dal
    Dec 2011
    Messaggi
    121
    Quote Originariamente inviato da claudio8 Visualizza il messaggio
    x Gennaro : la procedura ScriviResoconto non fa altro che creare una matrice che contiene tutti i dati ricavati da gioca.
    Visto che hai dimestichezza sugli script, puoi crearla sostituendo il gioca con il Verificaesito.

    Ciao
    Mumble...mumble... devo pensare ...

Discussioni simili

  1. Aiuto per script
    Da rabberto nel forum Area Download
    Risposte: 10
    Ultimo messaggio: 15-10-2011, 09:05
  2. Aiuto script
    Da desperaux nel forum Area Download
    Risposte: 4
    Ultimo messaggio: 17-04-2011, 20:15
  3. CHIEDO AIUTO PER UNO SCRIPT
    Da geppofix nel forum METODI
    Risposte: 17
    Ultimo messaggio: 19-01-2008, 16:52
  4. Chiedo aiuto x dare aiuto
    Da rex196125 nel forum Area Download
    Risposte: 2
    Ultimo messaggio: 12-07-2007, 15:06
  5. Bari-Archivio variabile
    Da lottoced nel forum Area Download
    Risposte: 0
    Ultimo messaggio: 31-03-2007, 12:47

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •