Per Joe o altri esperti

[joe]

Cinzia, la Sub che ti ho proposto è uno degli esempi fatti da Luigi.

Riduce a 66 gruppi di 10 elementi I 12 iniziali.

Dunque sarà sufficiente passargli le lunghette da ridurre.

Appena ho il PC sotto mano provo aggiungerla al tuo esempio.

Buona giornata a tutte/i.

 

[joe]

Come detto ho accodato il tuo script presente al messaggio #4 e quello che ti avevo proposto.

Option Explicit
Sub Main
   Dim n(12),st,cc,w,num1,num2,num3,num4,num5,num6,num7,num8,num9,num10,num11,num12
   Dim y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,at,fr
   Dim a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12
   Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,ru(11)
   r1 = 1:r2 = 2:r3 = 3:r4 = 4:r5 = 5:r6 = 6:r7 = 7:r8 = 8:r9 = 9:r10 = 10:r11 = 12
   ru(1) = r1:ru(2) = r2:ru(3) = r3:ru(4) = r4:ru(5) = r5:ru(6) = r6:ru(7) = r7:ru(8) = r8:ru(9) = r9:ru(10) = r10:ru(11) = r11
   w = 2
   num1 = Array(38)
   num2 = Array(74)
   num3 = Array(55,77,79)
   num4 = Array(65,87,89)
   num5 = Array(01,03,21)
   num6 = Array(05,25,27,45)
   num7 = Array(11,33)
   num8 = Array(15,35)
   num9 = Array(61,81)
   num10 = Array(51,71)
   num11 = Array(29,47,49)
   num12 = Array(19,39)
   'y1 = UBound(num1)
   'y2 = UBound(num2)
   y3 = UBound(num3)
   y4 = UBound(num4)
   y5 = UBound(num5)
   y6 = UBound(num6)
   y7 = UBound(num7)
   y8 = UBound(num8)
   y9 = UBound(num9)
   y10 = UBound(num10)
   y11 = UBound(num11)
   y12 = UBound(num12)
   'For a1 = 0 To y1
   'If ScriptInterrotto Then Exit For
   'For a2 = 0 To y2
   'If ScriptInterrotto Then Exit For
   For a3 = 0 To y3
      If ScriptInterrotto Then Exit For
      For a4 = 0 To y4
         If ScriptInterrotto Then Exit For
         For a5 = 0 To y5
            If ScriptInterrotto Then Exit For
            For a6 = 0 To y6
               If ScriptInterrotto Then Exit For
               For a7 = 0 To y7
                  If ScriptInterrotto Then Exit For
                  For a8 = 0 To y8
                     If ScriptInterrotto Then Exit For
                     For a9 = 0 To y9
                        If ScriptInterrotto Then Exit For
                        For a10 = 0 To y10
                           If ScriptInterrotto Then Exit For
                           For a11 = 0 To y11
                              If ScriptInterrotto Then Exit For
                              For a12 = 0 To y12
                                 If ScriptInterrotto Then Exit For
                                 n(1) = num1(a1)
                                 n(2) = num2(a2)
                                 n(3) = num3(a3)
                                 n(4) = num4(a4)
                                 n(5) = num5(a5)
                                 n(6) = num6(a6)
                                 n(7) = num7(a7)
                                 n(8) = num8(a8)
                                 n(9) = num9(a9)
                                 n(10) = num10(a10)
                                 n(11) = num11(a11)
                                 n(12) = num12(a12)
                                 at = SerieRitardoTurbo(EstrazioneFin - 10,EstrazioneFin,n,ru,w)'7440
                                 If at < 4 Then
                                    st = SerieStoricoTurbo(7440,EstrazioneFin,n,ru,w)
                                    If st < 4 Then
                                       fr = SerieFreqTurbo(7440,EstrazioneFin,n,ru,w)
                                       cc = cc + 1
                                       Messaggio FormatSpace(cc,5,1) & " " & StringaNumeri(n,",",True) & " st " & FormatSpace(st,3,1) & " at " & FormatSpace(at,3,1) & " fr " & FormatSpace(fr,3,1)
                                       'Scrivi FormatSpace(cc,5,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,3,1)
                                       Scrivi "aa(" &(FormattaStringa (cc,"0000")) & ") = Array(0," & StringaNumeri(n,",",True) & ") 'st " & st & " at " & FormatSpace(at,3,1) & "  fr " & FormatSpace(fr,3,1)
                                       ColoreTesto 2
                                       Riduci (n)
                                       ColoreTesto 0
                                    End If
                                 End If
                              Next
                           Next
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub

Sub Riduci (numeri)
   Dim K,J
   Dim Colonne

   Dim classe
   Dim sColonna
   classe = 10

   Colonne = SviluppoIntegrale(numeri,classe)
   For K = 1 To UBound(Colonne)
      sColonna = ""
      For J = 1 To classe
         sColonna = sColonna & Format2(Colonne(K,J)) & " "
      Next
      Call Scrivi(sColonna)
   Next
End Sub

Lascio a te, che sai meglio di chiunque altro, controllare se è giusto quello che calcola.

 

[Nikor]

Ciao Cinzia, come promesso ieri ti ho sviluppato le Decine estrapolate da queste tue Array:

num1 = Array(38)
num2 = Array(74)
num3 = Array(55,77,79)
num4 = Array(65,87,89)
num5 = Array(01,03,21)
num6 = Array(05,25,27,45)
num7 = Array(11,33)
num8 = Array(15,35)
num9 = Array(61,81)
num10 = Array(51,71)
num11 = Array(29,47,49)
num12 = Array(19,39)

Per velocizzare ho scelto solo il parametro che ti inressa, ovvero il ( Minimo_Storico )
Le decine sono formattate in ( Txt ) in modo che tu le potrai caricare in Spazio e fare tutte le analisi del caso.
Non emergono valori al di sotto dello Storico = a ( 4 ) le 34 formazioni sono tutte a ( St = 4 ):
***************************
01.11.15.39.45.47.51.79.81.89
01.11.15.39.45.47.51.65.79.81
01.15.25.38.39.55.61.71.74.87
01.15.27.33.38.47.51.74.79.87
03.05.15.33.38.39.49.65.74.79
03.11.19.25.29.35.38.65.79.81
03.33.35.38.39.45.47.65.74.81
03.33.35.38.45.47.65.71.74.81
03.27.33.35.38.47.51.55.65.74
05.21.35.38.39.47.55.71.81.89
11.15.19.21.25.38.49.55.61.87
05.21.33.35.39.51.74.77.81.87
11.15.19.21.25.38.49.55.61.74
05.15.33.38.39.49.65.71.74.79
11.15.19.21.25.38.49.61.74.77
11.15.29.38.39.45.74.79.81.89
11.29.35.38.39.45.51.79.81.87
15.19.21.33.38.45.47.51.74.81
15.19.25.29.33.38.61.71.74.89
15.19.21.27.29.33.38.61.65.74
15.19.21.27.33.38.49.74.79.81
15.19.21.27.33.38.49.61.74.79
15.19.21.27.29.33.38.74.77.89
15.21.29.33.38.45.51.61.74.77
15.21.27.29.33.38.39.61.74.87
15.21.27.29.33.38.51.61.74.87
15.21.27.33.38.47.51.74.79.87
15.33.38.39.45.49.71.74.79.89
19.21.33.35.38.45.51.74.79.81
19.27.33.35.38.47.51.74.79.89
19.33.38.45.47.55.71.74.81.89
21.35.38.39.45.51.74.77.81.87
21.27.29.33.35.38.39.55.74.89
27.29.33.38.39.61.71.74.77.87
**************************
Con lo stesso iter si può scendere fino alle terzine x Ambo per il minimo valore, ed anche inserire tutti gli altri parametri conosciuti come i ( Max. _ Min. _ Presenze _ Frequenze ) sia per le Array che per il gruppo completo...
Ciao.
Nikor

 

[Cinzia27]

Ciao, Joe.
Ci siamo quasi.

Al posto di questo
aa(0001) = Array(0,38,74,55,65,01,05,11,15,81,51,49,19) 'st 3 at 0 fr 5327
38 74 55 65 01 05 11 15 81 51
38 74 55 65 01 05 11 15 81 49
ecc.

Vorrei che non mi riportasse la lunghetta principale di 12 numeri ma direttamente tutte
le decine ricavabili dalle 12ine ad es. con max st <a 5, risultato ottenuto da Nikor che ringrazio.

38.74.55.65.01.05.11.15.81.51'st 7 at 0 fr 2868 ' quindi questa si può eliminare
38.74.55.65.01.05.11.15.81.49 'st 5 at 0 fr 2846 ' questa anche
ecc.

 

[i legend]

Ciao da che concordo parte la ricerca?
Magari posso provare s fare uno script in vb.net se riesco a velocizzare.
La stringa è composta da 28 nu.eri a storico zero x ambo su tt+nz
E vorresti scendere a storico 3 per decina?

Sino in che classe sei arrivata ad 1?
Si potrebbe partire da lì.

 

[Nikor]

Ciao I_Legend e ben risentito.
Credo che ti siano sfuggiti i contenuti della precedente pagina dove Cinzia chiedeva la scomposizione in Decine non sul gruppo di 28 numeri, ma divisi.
Questo significa che non si dovrà passare dall'integrale inteso come scomposizione dei 28 numeri, ma da tutte quelle Dodicine che rispettano le 12 array che Cinzia aveva citato o meglio queste:

num1 = Array(38)
num2 = Array(74)
num3 = Array(55,77,79)
num4 = Array(65,87,89)
num5 = Array(01,03,21)
num6 = Array(05,25,27,45)
num7 = Array(11,33)
num8 = Array(15,35)
num9 = Array(61,81)
num10 = Array(51,71)
num11 = Array(29,47,49)
num12 = Array(19,39)

Per il momento la sua richiesta era strutturata così, in effetti avevo postato l'analisi richiesta in Decine menzionando le uniche 34 che rispettavano il valore di ( St 4 ) perchè sotto al valore ( 4 ) non ce ne sono.
Comunque sono certo che sarà lei a risponderti, se poi ci sarà bisogno di un ulterior aiuto , da parte mia ben vengano chi si aggiunge ...
Buona serata, da Nikor

 

[Cinzia27]

Per Nikor.
Hai perfettamente inteso come vanno formate le decine.
Grazie alla tua analisi, sappiamo che per il max storico per ambo si è arrivati a 4.

Prese tutte e 34. Il massimo storico PER TERNO è 5, raggiunto solo 3 volte ( i parametri li sappiamo, 8117 estr. iniz. tutte e Nz)
Per Ilegend, Nikor ti ha già dato i giusti suggerimenti, andando indietro e leggendo
anche le sue deduzioni ti sarà tutto chiaro.

 

[i legend]

Ciao,
Il fatto è che le decine a storico 4 sono tantissime anche senza partire dalla tua lunghetta.
Ora stavo provando a cercarne a 3.
Ma se Nokor dice che non c è trippa per gatti , lascio perdere

 

[Nikor]

Ciao Cinzia, non mi trovo sull'ultimo tuo scritto Questo:

Prese tutte e 34. Il massimo storico è 5, raggiunto solo 3 volte ( i parametri li sappiamo, 8117 estr. iniz. tutte e Nz)

Sicuramente sarà stata una mia svista, ma ci stà che per alcuni tipi di elaborazioni un po' fuori della norma si incappi in qualche banale errore; ma andiamo per gradi:

i parametri li sappiamo, 8117 estr. iniz. tutte e Nz

Quì c'è il primo inghippo, io nel tuo script avevo letto che il range era dalla ( 7440 ) , dove ho sbagliato? io da quella ero partito.
Secondo:

Prese tutte e 34. Il massimo storico è 5,

Se hai inserito le mie 34 Decine in Spazio, il massimo storico non può essere a valore ( 5 ) perchè tutte e 34 sono a ( St=4 )
****************
Aggiungo che se il range partiva dalla ( 8117 ) le Decine a ( St = 4 ) sarebbero molte ma molte di più di 34.
Fai con calma e dammi lumi.
Ciao.

 

[Cinzia27]

Scusami, Nikor, 5 era per terno, ho corretto il post.
Non ho ancora aggiornato l'estrazione stasera.
Siamo a ritardo 2 per terno.
Si, i parametri sono quelli che conosciamo.
Complimenti per le decine.
Se posso chiedertelo, come le hai elaborate?
Se puoi rispondermi altrimenti nessun problema.

 

[Cinzia27]

Ciao, Ilegend. E' una semplice ricerca, ove i numeri possono cambiare.
Può dare qualche risultato o deludere, come tutte le ricerche.
Aspetto una gradita risposta da Joe e da Nikor.

 

[i legend]

Ciao a tutti,
Ho provato a spostare l inizio archivio dalla 7440,
Anche qui ci sono moltissime decine
Provo a raccoglierne qualcuna e poi tra queste vedo di rintracciare quella con storico per terno più basso,
Ma è pesca a strascico, non è pensato per il terno dove prendo prendo.
Dopo posto i risultati.
Mi manca l ultima estrazione, forse è troppo presto per aggiornare.

 

[Nikor]

Bene , in un solo colpo abbiamo risolto entrambi gli inghippi, mi fa piacere che il tutto collimi alla perfezione Bravissima.
Per le elaborazioni mi avvalgo di vari linguaggi dove per ogni esigenza uso quello che mi sembra il più veloce ed appropriato .
A volte bisogna usare un connubbio o meglio una miscellanea tra Sistemistica ed informatica e solo in questo modo si costruiscono le matrici da processare, un esempio:
Hai 12 array con massimo un numero per array che dovrebbero sviluppare una lunghetta da 12 numeri ; come posso svilupparne solo 10?
Semplice , molto semplice entra in campo il valore ( Zero ) perchè chiederò allalgoritmo che che per ogni sezione Array siano presenti [ Ø, 1 ] numeri. ( altro che lo zero non esiste)....
altrimenti non sarei mai stato in grado di trovare le Decine al 10 & Lotto che tardano per 6 Punti ma che non posto più per i motivi che sappiamo e che mi erano costati il Bann per colpa dell'ignobile personaggio che si aggira sul forum e che mi aveva dato del miserabile , Pazzesco vedere che al chiacchierone narratore alcuni gli vanno ancora appresso... incredibile.
Ciao Cinzia, un saluto ai pertecipanti.
Nikor

 

[joe]

Cinzia, ho modificato lo script che potrebbe e dovrebbe fare quanto chiedi,

Purtroppo ho poco tempo per poter controllare e non intendo inserirlo qui per evitare di dare strumenti (possibilmente) sbagliati.

Se mi mandi una mail o mi contatti direttamente, te lo faccio avere così lo puoi usare e controllare.

 

[i legend]

Ciao allora,
Da 7440 a 10350
Decine a sto=4 su tt+nz ne ho trovato a migliaia.
Adesso provo a rilanciare lo script è filtro tra queste, quelle xhe hanno storico per terno inferiore a 40
Credo che possa essere un limite accettabile , per un algoritmo non pensato per questo risultato.
altrimenti bisogna pensare qualcosa di apposito.

vediamo se pesco qualche formazione.
Vi tengo aggiornati.

 

[Nikor]

Ciao I_Legend scusa una domanda , stai usando i 28 numeri di Cinzia? in questo caso le iterazioni sono poco più di 13 Milioni ; non ho fatto analisi perchè mi manca il tempo ma vado a spanne sul teorico:
Prova ad abbassare a valore ( = < 32 ) in questo modo elimini tutte quelle con il valore superiore...
Poi domani se trovo un attimo ci guardo.
Notte.
Nikor

 

[Cinzia27]

Joe, ti ho scritto.
Grazie

 

[Cinzia27]

Ciao, Ilegend.
Gia in quelle di Nikor ne troviamo una a 39 di ritardo per terno però ( interessante) con ritardo attuale pari a 41.
05.15.33.38.39.49.65.71.74.79 st 39 at 41

 

[i legend]

Ciao nikor , ho sviluppato una routine senza tener conto dei numeri di Cinzia, così magari si riesce a pescare altro oltre quello che abbiamo.
13000000 milioni sono troppa roba per me .
Sto usando spaziometria, non vb.net.
Niente thread o calcolo parallelo.
Ho buttato giù uno script veloce,e, se è valido ci provo in vb.net.
Uno storico <=32 devo avere parecchia fortuna per Pescarlo.
Pensavo che 40 fosse un buon limite.
Cmq un 35 l ho trovato , in un flash a video.

Tra un po stoppo tutto. E vi aggiorno.
Il bello è che lmasticella diventa sempre più alta

 

[Cinzia27]

aa(2 ) = Array(0,4.8.14.17.21.32.39.53.54.80)' st 30