Irrisolvibile (per me)

[Marcorun]

Partendo da questo sript come esempio......

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 0
posta(3) = 0
posta(4) = 0
posta(1) = 1
ruote(1) = 1 ' cambia ruota
For n = EstrazioneFin - 100 To EstrazioneFin
numeri1(1) = Fuori90((Estratto(n,4,1) + 1))
numeri1(2) = Fuori90((Estratto(n,6,2) + 2))
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,10,1
Scrivi "---------------------------------------------------------------------------------------"
Gioca n
Next
ScriviResoconto
End Sub

Vediamo che ha un rendimento del -50 %.....questo perchè mette in gioco tutti i pronostici in corso.
Ma se qualcuno riuscisse a modificare lo script in modo che mettesse in gioco(di volta in volta) SOLO il pronostico più vecchio(ritardato) in corso,
si potrebbe avere un rendimento migliore?
Se qualcuno sa come modificarlo..........GRAZIE!

 

[Sakti]

L' 81% ti basta?

Anticipazione (Spoiler)

Sub Main()
Dim ruote(10),num(5)
Dim numeri1(10)
Dim posta(5)
posta(2) = 0
posta(3) = 0
posta(4) = 0
posta(1) = 1
ruote(1) = 1 ' cambia ruota
For n = EstrazioneFin - 100 To EstrazioneFin
'---
numeri1(1) = Fuori90((Estratto(n,4,1) + 1))
numeri1(2) = Fuori90((Estratto(n,6,2) + 2))
'---
num(1) = 90 - numeri1(1)
num(2) = numeri1(1)
EliminaRipetuti num
ImpostaGiocata 1,num,ruote,posta,10',1
Scrivi "---------------------------------------------------------------------------------------"
Gioca n,1
Next
ScriviResoconto
End Sub

 

[Sakti]

Così all' 82%... all' ultima estrazione del mese..

Anticipazione (Spoiler)

Sub Main()
Dim ruote(10),num(5)
Dim numeri1(10),Ini
Dim posta(5),fin
posta(1) = 1
ruote(1) = 1 ' cambia ruota
'---
Ini = EstrazioneFin - 300
fin = EstrazioneFin
Scrivi ". Ambata BARI di Marcorun ",1,,,1,3,,1
For n = Ini To fin
If IsUltimaDelMese Then
' If IndiceMensile = 1 Then
'---
numeri1(1) = Fuori90((Estratto(n,4,1) + 1))
numeri1(2) = Fuori90((Estratto(n,6,2) + 2))
'---
num(1) = 90 - numeri1(1)
num(3) = numeri1(1)
EliminaRipetuti num
ImpostaGiocata 1,num,ruote,posta,10',1
Scrivi "---------------------------------------------------------------------------------------"
Gioca n,1
End If
Next
ScriviResoconto
End Sub

 

[Marcorun]

Ciao...grazie x la risposta,
chiedo consigli agli esperti apposta perchè ci capisco poco di script (anche se mi piacciono tanto),
quindi capendoci poco non riesco a capire se i tuoi sono giochi di prestigio o io che non so interpretarli
GRAZIE.....

 

[Sakti]

Non sono granchè neppure io, mi limito a modificare gli esistenti..

 

[claudio8]

3 Ambate a 10 copli....... Giocate in perdita? e meno male che ci sono gli script .... investi i tuoi soldi altrove

 

[Sakti]

Risultati con ambata semplice, con quella determinata il risultato cambia, di molto...

 

[Marcorun]

Quindi non c'è qualcuno che sappia modificare lo script iniziale,mettendo in gioco solo il pronostico più vecchio, per poi confrontare il rendimento?........
Per qualcuno dovrebbe essere facile....

 

[Marcorun]

Quindi non c'è qualcuno che sappia modificare lo script iniziale,mettendo in gioco solo il pronostico più vecchio, per poi confrontare il rendimento?........
Per qualcuno dovrebbe essere facile....

Per qualcuno dovrebbe essere facile........

 

[claudio8]

Essere sempre esliciti con esempi, renderete il compito di chi vi può/vuole aiutare più semplice e non interpretabile.

 

[claudio8]

Spero di aver intrerpretato correttamente altrimenti fai un esempio esplicito.

Sub Main()
     Dim ruote(10)
     Dim numeri1(10)
     Dim posta(5)
     Dim n, aRetColpi,clp,clpGioco
     posta(2) = 0
     posta(3) = 0
     posta(4) = 0
     posta(1) = 1
     ruote(1) = 1 ' cambia ruota
 
      clpGioco = 10
     For n = EstrazioneFin - 100 To EstrazioneFin
          numeri1(1) = Fuori90((Estratto(n,4,1) + 1))
          numeri1(2) = Fuori90((Estratto(n,6,2) + 2))
          EliminaRipetuti numeri1
                 
          ImpostaGiocata  1,numeri1,ruote,posta,clpGioco,1
          Scrivi "---------------------------------------------------------------------------------------"
          Gioca n,True,,1
          If VerificaEsito(numeri1,ruote,n+1,1,clpGioco,,,aRetColpi) Then
          clp= aRetColpi
          Else
          clp = clpGioco      
           End If
          n = n + (clp -1)
         ' Scrivi "Previsione giocata per colpi " & clp
     Next
     ScriviResoconto ,False
End Sub

saluti

 

[Marcorun]

Grazie Claudio8,era proprio quello che ho chiesto.....
GRAZIE!