X joe, quando puoi

[Joe91]

Ciao Lucio ...

non mi risulta quanto hai pubblicato:

3950 BA Sp 68.22.78.60.58 3954 BA Es 81.26.61.06.53Sto 4 Att ---
3954 BA Sp 81.26.61.06.53 3983 BA Es 76.01.48.45.23Sto 29 Att ---
3956 BA Sp 74.82.23.34.05 3983 BA Es 76.01.48.45.23Sto 27 Att ---
3957 BA Sp 04.73.25.51.21 3983 BA Es 76.01.48.45.23Sto 26 Att ---
3968 BA Sp 65.03.64.78.47 3983 BA Es 76.01.48.45.23Sto 15 Att ---
3970 BA Sp 06.49.04.82.69 3983 BA Es 76.01.48.45.23Sto 13 Att ---
... omesse ...
8621 BA Sp 67.04.42.27.29 8630 BA Es 81.27.61.60.83Sto 9 Att ---
8630 BA Sp 81.27.61.60.83 8636 BA Es 48.54.67.76.61Sto 6 Att ---
8632 BA Sp 71.37.17.04.49 8636 BA Es 48.54.67.76.61Sto 4 Att ---
8636 BA Sp 48.54.67.76.61 8637 BA Es 66.61.07.37.48Sto 1 Att ---
8637 BA Sp 66.61.07.37.48 8667 BA Es 90.26.28.60.69Sto --- Att 30
8642 BA Sp 30.88.04.35.05 8667 BA Es 90.26.28.60.69Sto --- Att 25
8646 BA Sp 04.36.29.83.15 8667 BA Es 90.26.28.60.69Sto --- Att 21
8652 BA Sp 33.05.69.77.04 8667 BA Es 90.26.28.60.69Sto --- Att 15
8654 BA Sp 17.34.22.21.35 8667 BA Es 90.26.28.60.69Sto --- Att 13
8657 BA Sp 50.51.28.53.34 8667 BA Es 90.26.28.60.69Sto --- Att 10

Bari, dal 14.09.1946 al 21.03.2013.

1463 Casi.
6 Attuali.
51 1° Sto +
49 2° Sto +
42 3° Sto +
143 Somma
1023 % Casi/Somma

 

[Lucio P.]

Hai ragione!
Non capisco il perché dei risultati che avevo postato. Ho ricopiato lo script e rifatta l'analisi che è risultata giusta (come la tua); chiedo scusa.

I tempi comunque sono più lunghi, ovviamente deve scrivere di più rispetto al precedente output e, poiché come spiegavo nel post precedente devo sondare dieci coppie di aggregati, se non ti secca molto preferirei l'output precedente che era molto più rapido.

Infatti, poiché tale ricerca è piuttosto laboriosa e lunga per sondare più eventi spia e coppie di aggregati, la rapidità diventa un fattore primario.

Ad ogni modo grazie di cuore per la disponibilità.
Ciao


PICCOLA DIMENTICANZA:

La colonna finale si potrebbe anche eliminare del tutto, basterebbe spostare gli attuali come vedi sotto.
Grazie anche per questa aggiunta della dicitura Sto e Att

8593 Ba Sp 51.81.02.08.67 8604 Ba Es 34.79.81.20.12 Sto 11 8596 Ba Sp 34.01.74.61.89 8604 Ba Es 34.79.81.20.12 Sto 8
8600 Ba Sp 25.34.22.84.07 8604 Ba Es 34.79.81.20.12 Sto 4
8604 Ba Sp 34.79.81.20.12 8614 Ba Es 81.45.69.38.72 Sto 10
8612 Ba Sp 34.77.80.53.33 8614 Ba Es 81.45.69.38.72 Sto 2
8614 Ba Sp 81.45.69.38.72 8630 Ba Es 81.27.61.60.83 Sto 16
8621 Ba Sp 67.04.42.27.29 8630 Ba Es 81.27.61.60.83 Sto 9
8630 Ba Sp 81.27.61.60.83 8636 Ba Es 48.54.67.76.61 Sto 6
8632 Ba Sp 71.37.17.04.49 8636 Ba Es 48.54.67.76.61 Sto 4
8636 Ba Sp 48.54.67.76.61 8637 Ba Es 66.61.07.37.48 Sto 1
8637 Ba Sp 66.61.07.37.48 8666 Ba Es 26.46.38.16.83 Att 29
8642 Ba Sp 30.88.04.35.05 8666 Ba Es 26.46.38.16.83 Att 24
8646 Ba Sp 04.36.29.83.15 8666 Ba Es 26.46.38.16.83 Att 20
8652 Ba Sp 33.05.69.77.04 8666 Ba Es 26.46.38.16.83 Att 14
8654 Ba Sp 17.34.22.21.35 8666 Ba Es 26.46.38.16.83 Att 12
8657 Ba Sp 50.51.28.53.34 8666 Ba Es 26.46.38.16.83 Att 9

Ciao

 

[Joe91]

Ciao Lucio,

Ti consiglio di usare Spaziometria ... che produce gli stessi identici risultati in una frazione del tempo necessario ad L8.

Eventualmente ... ora che funziona, potrei anche "alleggerire" l'output ... ma facendolo prima d'ora, non avrei trovato gli errori dello script e,

potuto confrontare i risultati evidenziando i malfunzionamenti.

Cordiali saluti.

PS: Per correttezza ... nel frattempo avevo aggiornato alla versione 8.1 aggiungendo "Sto/Att" dalla 8.0 che tuttavia mi risultava funzionante.

 

[Lucio P.]

E' vero, posso anche adoperare Spaziometria anzi ci provo subito. Tuttavia se allinei le due diciture Sto-Att si elimina già una colonna. Poi, per altri alleggerimenti sai tu come fare.
Grazie

 

[Joe91]

Ciao Lucio,

lo script è sicuramente migliorabile, tuttavia una ricerca piuttosto complessa, come questa, viene eseguita

in un archivio di 5000 estrazioni in una manciata di secondi.

Dunque non c'è "la sostanza" per ridurre i tempi ... quando il totale di questi è nell'ordine di 4 o 5 secondi.

I tempi-lunghi dipendono dall'istruzione "scrivi" che, fuori da Spaziometria, è molto lenta.

Pertanto il tempo è dipendente dalla quantità delle linee scritte, piuttosto che, da quanto è scritto in esse

contenuto che, evidentemente può essere calcolato, nei pochi secondi suddetti.

In sintesi, non sono propenso a rifare lo script ex-novo cercando di ottimizzare il codice.

Cordiali saluti e buona Buona Domenica.

 

[Lucio P.]

Ciao Joe, in effetti non c'è alcun bisogno di migliorare; adoperando lo script con Spaziometria i tempi sono decisamente accettabili. Del resto non sapevo che bisognava rifare il codice per velocizzare ancor più i tempi.
Chiedo: avere le due diciture Sto/Att su unica colonna comporta molto lavoro e trasformazione di codice? Se così fosse, ok! Ti ringrazio moltissimo per quanto hai fatto.

Buona giornata e grazie

 

[Joe91]

Ciao Lucio,

No, non è complicato, personalmente, ritengo sia sbagliato riportare "i titoli delle colonne" dentro le "celle, assieme ai risultati".

Peggio ancora mescolare Attuali e Storici, ma naturalmente, ognuno, ha giustamente le sue preferenze. Obbedisco.

'Cadute di Lunghetta a seguito di (N)Spie. Script By Joe. V.8.2 del 23/03/2013
'Per Lucio http://forum.lottoced.com/f12/x-joe-quando-puoi-103155/index2.html
Sub Main()
 Dim Ru(1)
 Ru(1) = ScegliRuota : So = 1
 Ini = 3950 : Fin = EstrazioneFin
 Fo = InputBox("Inserisci NumeroSpia","SCELTA SPIA","77.80")
 Sp = Split("0." & Fo,".") : L = UBound(Sp)
 Lu = InputBox("Inserisci Lunghetta","GRUPPO NUMERICO","76.84")
 Nu = Split("0." & Lu,".") : Lnu = UBound(Nu)
 For Es = Ini To Fin : ColoreTesto 0 : Messaggio Fin - Es : T = 0
  For E = 1 To L : If Posizione(Es,Ru(1),CInt(Sp(E))) > 0 Then T = 1 : End If : Next
  If T = 1 Then
   Scrivi FormatSpace(Es,4,1) & " " & SiglaRuota(Ru(1)) & " " & Po,0,0
   Scrivi "Sp" & " ",0,0
   For P = 1 To 5
    For E = 1 To L : If CInt(Sp(E)) = Estratto(Es,Ru(1),P) Then ColoreTesto 2 : C = C + 1 : GR = 1 : End If : Next
     Scrivi Format2(Estratto(Es,Ru(1),P)),Gr,0 : ColoreTesto 0 : GR = 0
    If p < 5 Then Scrivi ".",0,0
   Next
   S = SeriePrima(Es + 1,Fin,Nu,Ru,So)
   If S > 0 Then Tr = S Else Tr = Fin
   Scrivi "  " & Tr & " " & SiglaRuota(Ru(1)) & " Es ",0,0
   For P = 1 To 5
    For E = 1 To Lnu : If CInt(Nu(E)) = Estratto(S,Ru(1),P) Then ColoreTesto 1 : GR = 1 : End If : Next
    Scrivi Format2(Estratto(Tr,Ru(1),P)),Gr,0 : ColoreTesto 0 : GR = 0
    If p < 5 Then Scrivi ".",0,0
   Next
   Scrivi "  ",0,0
   If S > 0 Then
    Rt = S - Es : Scrivi "Sto " & FormatSpace(Rt,3,1) 
    kSt = kSt + 1 : ReDim Preserve Sto(kst) : Sto(kst) = Rt
   Else
    Rt = Fin - Es : Scrivi "Att " & FormatSpace(Rt,3,1)
    kAt = kAt + 1 : ReDim Preserve Att(kAt) : Att(kAt) = Rt
   End If
  End If
 Next
 Scrivi : Scrivi NomeRuota(Ru(1)) & ", dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin) & ".",1
 Scrivi : Scrivi C & " Casi."
 Scrivi FormatSpace(CInt(kAt),3,1) & " Attuali."
 OrdinaMatrice Sto,- 1
 For k = 1 To 3 : Scrivi FormatSpace(Sto(k),3,1) & " " & K & "° Sto +" : So = So + Sto(k) : Next
 Scrivi So & " Somma "'& K-1 & " Masssimi Storici"
 Scrivi FormatSpace((Round(C * 100/ So)),3,1) & " % Casi/Somma"
End Sub

Buon-Week-End

 

[Lucio P.]

Grazie Joe

No, non è complicato, personalmente, ritengo sia sbagliato riportare "i titoli delle colonne" dentro le "celle, assieme ai risultati".

Sarà come dici ma quando i risultati sono in Excel, con i filtri fai di tutto. Giustamente è una questione di punti di vista.

Grazie infinite e buona domenica

 

[Lucio P.]

Ciao Joe, stavo valutando e facendo la ricerca con l’ultimo script che hai fatto (quello che permette d’inserire più numeri Spia) per poter inserire nel Forum la statistica completa di tutte le ruote e purtroppo mi sono accorto di una mia svista che, in qualche modo, falsifica la ricerca stessa.

Riguarda la % che è posta in ultimo; essa è ricavata dagli eventi-casi di tutti i numeri spia inseriti e operando per l’appunto Casi/Somma (tre storici ultimi). Questo andava bene fintanto che si trattavano i (determinati).

Nella fattispecie, laddove ho inserito cinque numeri Spia e trattiamo l’estratto semplice, i casi e quindi la percentuale devono essere quelli di uscita reale e non quelli dei numeri Spia.

Infatti, esempio sulla ruota di Bari:

[TABLE="width: 377"]
[TR]
[TD]Numeri Spie[/TD]
[TD="colspan: 2"]04.34.48.78.81[/TD]
[TD]Aggr. più Freq.[/TD]
[TD]81.85[/TD]
[/TR]
[TR]
[TD="colspan: 5"]Dalla 3950 alla 8670[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Freq. Tot.[/TD]
[TD="colspan: 2"]Estr. di Presenza[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1464[/TD]
[TD="colspan: 2"]1334[/TD]
[TD]<<<< CASI REALI[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]<<<<<<<< [/TD]
[TD]Attuali[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]39[/TD]
[TD]1[/TD]
[TD]Sto[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]39[/TD]
[TD]2[/TD]
[TD]Sto[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]38[/TD]
[TD]3[/TD]
[TD]Sto[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]117[/TD]
[TD]<<<<<<<< [/TD]
[TD]Somma[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1251[/TD]
[TD]<<< %[/TD]
[TD]Fre/Som[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]


La divisione operata quindi, andrebbe fatta sui casi realmente sfaldati cioè quelli che contengono i numeri aggregati (colonna H) vedi foto.

Puoi e con il tempo dovuto fare questa correzione?

Grazie infinite e buona Pasqua, ciao

https://dl.dropbox.com/u/18220462/IMMAGINI/PERCENTUALE SPIE.jpg


Piccola rettifica a quanto su esposto:

In realtà, che si trattino i determinati o le semplici ambate non cambierebbero i risultati sulla quantità dei casi fintanto che si rimane con un solo numero di inizio. Il problema sorge per l'appunto quando i numeri iniziali sono più d'uno.
Questa è la ragione per la quale avendo due o più numeri iniziali siano essi determinati o non, questi eventi devono essere calcolati sugli sfaldamenti reali ottenuti colonna "H" come da foto; oppure: seconda colonna dello script (sfaldamenti).

Buona giornata e grazie ancora per l'attenzione che vorrai porre al quesito illustrato; ciao.