Chiedo a luigi o a chi lo sa... riguardo la funzione Gioca...

[lotto_tom75]

E' possibile allegerire... la funzione Gioca della ram utilizzata in run time? Se si come...

Lo chiedo perchè talvolta anche per analisi semplici, di coppie vertibili in un range numerico ridotto da 1 a 30 ad esempio, la ram mi sale talvolta a 1 gb e oltre e mi da conseguente errore bloccante di out of memory...

Questa funzione, come molte altre cose di spaziometria, non la conosco molto bene anche perchè utilizzo molto più spesso per i suoi limiti strutturali voluti (max 10 elementi e max 255 colpi) l'altro sistema con verificaesito...

 

[LuigiB]

non è che accodi migliaia di giocate e poio alla fine di tutto esegui gioca ? No tanto per sapere ...

 

[lotto_tom75]

non è che accodi migliaia di giocate e poio alla fine di tutto esegui gioca ? No tanto per sapere ...

Pasticcio in arrivo...

Option Explicit
Sub Main
   Dim estrazione
   Dim grupponumerico(2)
   Dim posta(1)
   Dim ruota(1)
   Dim colpi
   Dim y
   colpi = 35
   'posta(2) = 2
   posta(1) = 1

   ReDim aRighe(0)

   Dim r
   Dim n
   For estrazione = EstrazioneFin - 100 To EstrazioneFin
      For n = 1 To 10
         grupponumerico(1) = n' n
         grupponumerico(2) = Vert(n)
         For r = 1 To 10
            ruota(1) = r 'TT_

            Messaggio estrazione & " - " & NomeRuota(ruota(1)) & " - " & StringaNumeri(grupponumerico)
            ImpostaGiocata 1,grupponumerico,ruota,posta,colpi,1
            Gioca estrazione ',,,0
            If ScriptInterrotto Then Exit For

            Erase ruota
            If ScriptInterrotto Then Exit For
 

         Call AvanzamentoElab(1,10,r)

         Erase grupponumerico
         If ScriptInterrotto Then Exit For ' x n
      Next ' x n
   Next ' x estrazione
   Scrivi
   ScriviResoconto
   Scrivi
   ScriviDistribuzioneCasiInCorso True,"1,2,3"
   Scrivi
   Scrivi TempoTrascorso
End Sub

Se porto da 10 a 20 il termine del for... x n, mi completa l'analisi ma... al limite delle risorse...

 

[LuigiB]

provalo in quest'altra versione e fammi sapere , puo daris che sia arrivata l'ora di cambiare pc ...

Option Explicit
Sub Main
   Dim estrazione
   Dim grupponumerico(2)
   Dim posta(1)
   Dim ruota(1)
   Dim colpi
   Dim y
   dim idGioc
   colpi = 35
   'posta(2) = 2
   posta(1) = 1

   ReDim aRighe(0)

   Dim r
   Dim n
   For estrazione = EstrazioneFin - 100 To EstrazioneFin
      For n = 1 To 50
         grupponumerico(1) = n' n
         grupponumerico(2) = Vert(n)
         For r = 1 To 10
            ruota(1) = r 'TT_

            Messaggio estrazione & " - " & NomeRuota(ruota(1)) & " - " & StringaNumeri(grupponumerico)
            idGioc = idGioc +1
            ImpostaGiocata idGioc,grupponumerico,ruota,posta,colpi,1
            If ScriptInterrotto Then Exit For
          
       
      
         Next ' x n
          Gioca estrazione ',,,0
         Call AvanzamentoElab(EstrazioneFin - 100,EstrazioneFin,estrazione )
      Next
     
   Next ' x estrazione
   Scrivi
   ScriviResoconto
   Scrivi
   ScriviDistribuzioneCasiInCorso True,"1,2,3"
   Scrivi
   Scrivi TempoTrascorso
 
End Sub

 

[lotto_tom75]

provalo in quest'altra versione e fammi sapere , puo daris che sia arrivata l'ora di cambiare pc ...

Option Explicit
Sub Main
   Dim estrazione
   Dim grupponumerico(2)
   Dim posta(1)
   Dim ruota(1)
   Dim colpi
   Dim y
   dim idGioc
   colpi = 35
   'posta(2) = 2
   posta(1) = 1

   ReDim aRighe(0)

   Dim r
   Dim n
   For estrazione = EstrazioneFin - 100 To EstrazioneFin
      For n = 1 To 50
         grupponumerico(1) = n' n
         grupponumerico(2) = Vert(n)
         For r = 1 To 10
            ruota(1) = r 'TT_

            Messaggio estrazione & " - " & NomeRuota(ruota(1)) & " - " & StringaNumeri(grupponumerico)
            idGioc = idGioc +1
            ImpostaGiocata idGioc,grupponumerico,ruota,posta,colpi,1
            If ScriptInterrotto Then Exit For
       
    
   
         Next ' x n
          Gioca estrazione ',,,0
         Call AvanzamentoElab(EstrazioneFin - 100,EstrazioneFin,estrazione )
      Next
  
   Next ' x estrazione
   Scrivi
   ScriviResoconto
   Scrivi
   ScriviDistribuzioneCasiInCorso True,"1,2,3"
   Scrivi
   Scrivi TempoTrascorso
 
End Sub

Leggermente meglio..., perchè credo che con questa tua versione splittando di 30 in 30 si possa con tre impostagiocata esaminare la totalità dei casi vertibili ma... anche con questo lasciando il termine di n a 50...

 

[LuigiB]

non cè molto da fare ...

 

[lotto_tom75]

non cè molto da fare ...

Ok... tanto per fortuna c'è anche l'altra tua funzione molto + elastica... e leggera...