La Legge del Terzo Baffo

[lotto_tom75]

Baffo siamo quattro... contro uno... fattene una ragione... ps: anzi 5 se contiamo anche l'IA...

 

[Cinzia27]

Ciao Cinzia, io convergo con tornado per quanto riguarda il primo ciclo con 106 estrazioni. Probabilmente la tua apparente differenza dipende solo dal fatto che io sono partito dal 2/5/1874 e tu dal 10/5/1874. Quindi Io te e tornado convergiamo alla grande...

Grazie, Tom.
Ho corretto l'imprecisione.

1) 1 - 05.07.1874 183
2) 2 - 10.05.1874 175
3) 3 - 03.05.1874 174
4) 4 - 04.10.1874 196
5) 5 - 28.06.1874 182
6) 6 - 17.05.1874 176
7) 7 - 09.05.1875 227
8) 8 - 21.06.1874 181
9) 9 - 28.06.1874 182
10) 10 - 18.10.1874 198
11) 11 - 17.05.1874 176
12) 12 - 10.05.1874 175
13) 13 - 18.10.1874 198
14) 14 - 03.05.1874 174
15) 15 - 09.08.1874 188
16) 16 - 24.05.1874 177
17) 17 - 02.08.1874 187
18) 18 - 07.05.1876 279
19) 19 - 08.11.1874 201
20) 20 - 21.06.1874 181
21) 21 - 22.11.1874 203
22) 22 - 27.09.1874 195
23) 23 - 20.09.1874 194
24) 24 - 12.07.1874 184
25) 25 - 03.05.1874 174
26) 26 - 02.08.1874 187
27) 27 - 29.11.1874 204
28) 28 - 24.01.1875 212
29) 29 - 31.05.1874 178
30) 30 - 10.05.1874 175
31) 31 - 02.01.1876 261
32) 32 - 08.11.1874 201
33) 33 - 14.06.1874 180
34) 34 - 29.11.1874 204
35) 35 - 20.12.1874 207
36) 36 - 17.05.1874 176
37) 37 - 06.09.1874 192
38) 38 - 17.01.1875 211
39) 39 - 27.12.1874 208
40) 40 - 17.05.1874 176
41) 41 - 18.04.1875 224
42) 42 - 30.08.1874 191
43) 43 - 24.05.1874 177
44) 44 - 24.05.1874 177
45) 45 - 28.03.1875 221
46) 46 - 21.06.1874 181
47) 47 - 26.07.1874 186
48) 48 - 10.05.1874 175
49) 49 - 15.11.1874 202
50) 50 - 21.02.1875 216
51) 51 - 26.07.1874 186
52) 52 - 05.07.1874 183
53) 53 - 30.08.1874 191
54) 54 - 12.07.1874 184
55) 55 - 13.09.1874 193
56) 56 - 05.07.1874 183
57) 57 - 07.06.1874 179
58) 58 - 01.11.1874 200
59) 59 - 13.12.1874 206
60) 60 - 15.11.1874 202
61) 61 - 12.07.1874 184
62) 62 - 07.05.1876 279
63) 63 - 22.11.1874 203
64) 64 - 14.06.1874 180
65) 65 - 16.08.1874 189
66) 66 - 28.06.1874 182
67) 67 - 05.07.1874 183
68) 68 - 19.07.1874 185
69) 69 - 03.05.1874 174
70) 70 - 15.11.1874 202
71) 71 - 24.05.1874 177
72) 72 - 20.09.1874 194
73) 73 - 24.05.1874 177
74) 74 - 01.11.1874 200
75) 75 - 22.11.1874 203
76) 76 - 17.05.1874 176
77) 77 - 09.08.1874 188
78) 78 - 31.05.1874 178
79) 79 - 28.06.1874 182
80) 80 - 13.09.1874 193
81) 81 - 07.06.1874 179
82) 82 - 31.01.1875 213
83) 83 - 10.05.1874 175
84) 84 - 20.09.1874 194
85) 85 - 05.07.1874 183
86) 86 - 23.08.1874 190
87) 87 - 02.08.1874 187
88) 88 - 26.07.1874 186
89) 89 - 17.01.1875 211
90) 90 - 03.05.1874 174

Da 174 03.05.1874 a 279 07.05.1876 ciclo completo 106 estrazioni

 

[tornado]

se baffoblu gli interessa lo script lo metto a disposizione visto che è una sua idea

 

[claudio8]

Ragazzi, la prima riga di questo tread cita: " Urge script per fare regalo a tutti voi."
Postate liberamente

 

[lotto_tom75]

Ragazzi, la prima riga di questo tread cita: " Urge script per fare regalo a tutti voi."
Postate liberamente

Ciao claudio, io l'ho postato #12 solo che il grande Baffo o chi vuole dovrà installare python (totalmente free) per poterlo usare.

 

[tornado]

Urge script per fare regalo a tutti voi


Nel 1998 mi venne questa idea, cominciai a farla a mano e poi con il pc, ma poi mi persi nelle nuove cose che scoprivo...

Allora, hai presente la legge del terzo? e quello che dice?
Ciclo teorico di 18 estrazioni e bla bla bla...

Quale è stato invece il ciclo reale fino adesso? voglio saperlo! (in parte lo so già, ma non completo, va finito...)

Un lavoro da fare una ruota alla volta, ed una volta finito ti assicuro che sarà utilissimo per fare certe analisi.
ma anche per ricavare numeri da giocare...
Va aggiornato facilmente ad ogni estrazione altrimenti non ti serve a nulla.

Quando ci sarà lo script svelo altre cose...
chi farà lo script inevitabilmente si accorgerà di qualcosa di bizzarro...

Io non ho tempoooooo
vi sto postando ogni giorno roba nuova e ci vuole tempo per prepararvela.


procedutra :

Partendo dalla primissima estrazione in archivio di una ruota : scegliamo Bari

In pratica voglio sapere (realmente) quante estrazioni (nei cicli reali) devono passare per far uscire uno ad uno tutti i numeri da 1 a 90.
Quando anche l'ultimo numero in lista sarà uscito, quell'estrazione in cui è uscito quest'ultimo numero, sarà anche l'estrazione di fine ciclo reale.
i cicli sono ovviamente tutti variabili in numero di estrazioni.

La prossima estrazione diventa automaticamente la prima estrazione di inizio del secondo ciclo e finirà quando tutti i numeri da 1 a 90 saranno usciti.
Stessa solfa, l'ultimo numero uscito decreterà la fine del 2° ciclo e l'estrazione successiva sarà la prima del 3° ciclo e così via fino a fine cicli ed estrazioni in archivio.
E' ovvio che l'ultimo ciclo è quello più interessante da monitorare.

Insomma il lavoro iniziale è ricostruire l'archivio di una ruota e disporlo a video in modo che tutti i cicli siano disposti uno a fianco all'altro (con separatore ovvio),
In orizzontale affiancati come se ogni ciclo fosse una ruota diversa solo che sopra non c'è il nome della ruota ma 1° ciclo, 2° ciclo, 3° ciclo, ecc...

una volta fatto questo devi evidenziare con colore ecc.., nell'estrazione di ogni fine ciclo l'ultimo numero sortito (come spiegato sopra).
In modo che quando scorro i cicli con le estrazioni ("risistemate") li vedo fisicamente davanti agli occhi.

Prossimo passaggio "Importantissimo !!!"

Devi anche evidenziare in modo diverso, con colore ecc.., ("IL penultimo numero uscito "),. "che sarà ANCHE una specie di spia di avvertimento.

Poi devi inserire sotto ad ogni fine ciclo (spaziando di un paio di righe) il blocco di 9 estrazioni che susseguono quel ciclo.
esempio reale : dopo il primo ciclo, prendi le prime 9 estrazioni del secondo ciclo e le replichi sotto alla fine del primo ciclo.
devo vedere tutto fisicamente.

Oltre la parte visiva per me importantissima devi elaborare alcuni risultati :

La lunghezza in estrazioni di ogni singolo ciclo
Evidenzia di quante estrazioni è quello più lungo, quello più corto, e la media. (con lista completa a parte)

Elabora quante estrazioni intercorrono fra il penultimo numero e l'ultimo numero di ogni singolo ciclo.
Evidenzia di quante estrazioni è il ritardo più lungo, quello più corto, e la media. (con lista completa a parte)

Questa è la base di partenza, senza questo non si va avanti.

esempio reale:

BARI Primissima estrazione (l'origine)

02/05/1874 * 69 - 90 - 03 - 14 - 25

Questa è l'estrazione numero "1" del primo ciclo !!!

Questo 1° ciclo è durato 48 estrazioni

Il penultimo numero è " 82 " e sortisce in data :

30/01/1875 * 03-47-82-87-04

Dopo 8 estrazioni esce l'ultimo numero che ancora mancava dalla lista 1 - 90. (il numero " 89 " )

27/03/1875 * 45-19-58-49-89 ( si conclude il 1° ciclo)

********************************

il 03/04/1875 è la prossima estrazione in successione e sarà la prima estrazione del 2° ciclo.
e si ricomincia fino a esaurire i cicli.

*****************************

riporto qui x bari il primo ciclo integralmente (48 estrazioni)

02/05/1874--69--90--03--14--25
09/05/1874--48--30--12--83--02
16/05/1874--11--06--76--40--36
23/05/1874--73--16--71--43--44
30/05/1874--29--11--06--78--43
06/06/1874--76--81--02--57--12
13/06/1874--25--90--03--33--64
20/06/1874--46--33--14--20--08
27/06/1874--64--09--79--05--66
04/07/1874--56--67--01--52--85
11/07/1874--67--24--61--11--54
18/07/1874--57--40--78--52--68
25/07/1874--47--88--36--30--51
01/08/1874--16--17--61--87--26
08/08/1874--33--77--15--90--76
15/08/1874--85--16--09--29--65
22/08/1874--56--85--73--86--12
29/08/1874--48--42--53--09--88
05/09/1874--68--65--61--37--90
12/09/1874--80--71--11--16--55
19/09/1874--23--72--85--84--47
26/09/1874--43--05--22--67--76
03/10/1874--15--43--25--83--04
10/10/1874--64--06--85--25--05
17/10/1874--10--67--66--13--65
24/10/1874--08--16--66--26--71
31/10/1874--58--74--02--84--88
07/11/1874--09--05--47--19--32
14/11/1874--49--60--02--14--70
21/11/1874--21--23--75--13--63
28/11/1874--27--29--46--24--34
05/12/1874--63--72--09--60--11
12/12/1874--59--27--86--05--83
19/12/1874--34--49--35--70--63
26/12/1874--65--32--39--46--68
02/01/1875--54--67--36--72--04
09/01/1875--08--26--17--16--27
16/01/1875--89--38--74--75--08
23/01/1875--28--81--26--56--76
30/01/1875--03--47--(82)--87--04 -------------------> "82" penultimo numero uscito da lista 1-90
06/02/1875--15--11--83--37--25
13/02/1875--17--29--77--40--32
20/02/1875--50--13--44--71--90
27/02/1875--52--78--04--40--21
06/03/1875--19--90--53--83--80
13/03/1875--21--36--25--64--73
20/03/1875--58--64--03--65--32
27/03/1875--45--19--58--49--(89) -------------------> "89" ultimo numero uscito dalla lista 1-90 (fine 1° ciclo)


questo è il blocco da 9 estrazioni che dicevo sopra (da ricopiare sotto ogni fine ciclo,)

03/04/1875--65--38--74--53--04 ----------------------> questa è ovviamente l'estrazione di inizio del ciclo successivo, (in questo caso è il 2° )
10/04/1875--65--84--21--19--90
17/04/1875--16--90--26--78--41
24/04/1875--71--74--24--83--76
01/05/1875--86--68--16--13--26
08/05/1875--51--50--07--24--71
15/05/1875--07--54--65--72--08
22/05/1875--53--15--52--76--48
29/05/1875--07--36--27--73--49

Vedi l'allegato 2276957


**********************************

se non mi son sbagliato a contare iniziando dal 02/05/1874 questi sono i primi 13 cicli.


48 estrazioni 1° ciclo

42 estrazioni 2° ciclo

60 estrazioni 3° ciclo

48 estrazioni 4° ciclo

79 estrazioni 5° ciclo

55 estrazioni 6 ° ciclo

115 estrazioni 7° ciclo

51 estrazioni 8° ciclo

48 estrazioni 9° ciclo

29 estrazioni 10° ciclo

53 estrazioni 11° ciclo

73 estrazioni 12° ciclo

40 estrazioni 13° ciclo


****************************************

Ecco lo script non sono un grande programmatore probabilmente si puo' fare meglio aspettiamo i suggerimenti di Baffoblù come utilizzarlo al meglio


Sub Main()
Dim ci(12,90),nci(90)
fin = EstrazioneFin
ini = 10178
rem ini=174
ciclo = 0
numciclo = 1
estrciclo = 0
maxciclo = 0
minciclo = 0
totciclo = 0
estpen = 0
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
Scrivi Space(30) & NomeRuota(r1) & Space(50),1,1,1,4,6,"courier New",0,0
For es = ini To fin
estrazione = DataEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,r1):estrciclo = estrciclo + 1
For p1 = 1 To 5
If ci(r1,Estratto(es,r1,p1)) = 0 Then ciclo = ciclo + 1:ci(r1,Estratto(es,r1,p1)) = 1
If ciclo > 88 Then
If ciclo = 89 And flagpenultimo = 0 Then
penultimo = DataEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " (" & Estratto(es,r1,p1) & ")":flagpenultimo = 1
estrazione = estrazione & " Penultimo Estratto ->> " & Estratto(es,r1,p1):estpen = es
End If
If ciclo = 90 And flagultimo = 0 Then
Ultimo = DataEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " (" & Estratto(es,r1,p1) & ")":flagultimo = 1
estrazione = estrazione & " Ultimo Estratto ->> " & Estratto(es,r1,p1)
estpen = es - estpen
End If
End If
If p1 = 5 Then Scrivi estrazione
If ciclo = 90 Then
If p1 <> 5 Then Scrivi estrazione1 = 5
AL POSTO DELLA FACCINA METTETE P1=5
Scrivi
Scrivi "==============================================================================================================",1,1,1,4,4,"courier New",0,0:ciclo = 0

Scrivi "Ciclo Numero " & numciclo & " Num. estrazione totali Ciclo " & estrciclo & " ",1,1,1,4,4,"courier New",0,0
Scrivi "Penultimo num ciclo " & penultimo,1,1,1,4,4,"courier New",0,0
Scrivi "Ultimo num ciclo " & ultimo,1,1,1,4,4,"courier New",0,0
Scrivi "Differenza estrazioni tra P/U (" & estpen&")",1,1,1,4,4,"courier New",0,0
Scrivi "==============================================================================================================",1,1,1,4,4,"courier New",0,0
For i = 1 To 9
Scrivi DataEstrazione(es + i) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es + i,r1),1,1,0,3,4,"courier new",0,0
Next
Scrivi "==============================================================================================================",1,1,1,4,4,"courier New",0,0
If minciclo = 0 Then minciclo = estrciclo
If maxciclo < estrciclo Then maxciclo = estrciclo
If minciclo > estrciclo Then minciclo = estrciclo
Totciclo = numciclo

For x = 1 To 90
ci(r1,x) = 0
Next
ciclo = 0:numciclo = numciclo + 1:estrciclo = 0:flagultimo = 0:flagpenultimo = 0

End If


Next
Next
Totc = Int((fin - Ini)/Totciclo)
Scrivi
Scrivi "Ciclo Minimo " & minciclo & " Ciclo Massimo " & maxciclo & " Ciclo Medio " & Totc & " Ultimo Ciclo " & ciclo,1,1,1,4,4,"courier New",0,0
For x = 1 To 90
ci(r1,x) = 0
Next
ciclo = 0:numciclo = numciclo + 1:estrciclo = 0:flagultimo = 0:flagpenultimo = 0
numciclo = 1
estrciclo = 0
maxciclo = 0
minciclo = 0
Scrivi
Scrivi

Next
End Sub

 

[BaffoBlù]

mi sa che ho problemi di archivio (proprio io..)

Avrò installato e disinstallato spaziometria una decina di volte.

avrò fatto confusione senza accorgemene con gli archivi giusti.

forse quello giusto lo cancellato...


silop!!! mi serve un archivio di quelli corretti per favore!

 

[silop2005]

mi sa che ho problemi di archivio (proprio io..)

Avrò installato e disinstallato spaziometria una decina di volte.

avrò fatto confusione senza accorgemene con gli archivi giusti.

forse quello giusto lo cancellato...


silop!!! mi serve un archivio di quelli corretti per favore!

======================================

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38

======================

Ciao BaffoBlù ,

======================

ecco in allegato il file dell'archivio intero del lotto classico (11 ruote)

aggiornato alla sera del 27/01/2024 con 10.378 estrazioni (comprensive anche dei venerdì).

Il file originale da mettere sotto la dir di SPMT è :

BaseDati.dat

per poterlo caricare su questo forum ho dovuto aggiungere, al file, l'estensione .txt

che tu, una volta scaricato, dovrai togliere (.txt)

per poi inserirlo in SPMT.

======================

Ti consiglio per i prossimi esempi dimostrativi delle estrazioni, se possibile,

di farli dalla data del 14/09/1946 indice la 3950, così andiamo sul sicuro.

====================== Ringrazio per i mi piace : Claudio8, LottoTom e deriaL9

Buona continuazione.

======================

Buon lunedì a tutto il forum.

======================

A presto

Silop

 

[geronimo]

non ho capito sto numero 7 da dove salta fuori

vorrei sapere se le estrazioni che ho messo sono giuste o no.

ciao Baffo Blu in effetti ho controllato sul mio archivio di Spaziometria e ...
e come vedi il 7 esce dopo l'89 che erroneamente viene evidenziato come ultimo numero mancante .. era già uscito qualche estrazione prima e il 7 non era ancora uscito ... quindi è sicuro che hai un archivio non corretto

ho controllato ma l'archivio che hai è in linea con il mio ... quindi il problema è un altro

 

[geronimo]

fatto lavoro a mano ... carta e penna ... ho spuntato tutti i numeri e gli ultimi 2 mancanti sono usciti in coppia come vedi sotto il 06 05 1876 e quindi alla estrazione n° 279 ... Bari parte dalla 174a estrazione quindi i conti tornano con 1° ciclo di 106

p.s. interessante segnalare come alla data della caduta della coppia sincrona, decisamente longeva, 18 62 ci fossero numeri in fuga con 10 estrazioni a testa e precisamente

65 76 90 ... giusto per la cronaca

 

[lottoLuke]

Ciao claudio, io l'ho postato #12 solo che il grande Baffo o chi vuole dovrà installare python (totalmente free) per poterlo usare.

@lotto_tom75 potresti girarmi l'archivio python che utilizzi con lo script sopra postato. lo sta generando ma è un po lentuccio

 

[genios]

Non so se ho capito bene e se il mio pensiero è un po riduttivo e forse anche un po' precipitoso .
Ma da quanto ho capito una volta usciti 89 numeri su 90 occorre mettere in gioco il 90° numero rimasto in piedi ?

Ciao a tutti

eugenio

 

[claudio8]

fatto lavoro a mano ... carta e penna ... ho spuntato tutti i numeri e gli ultimi 2 mancanti sono usciti in coppia come vedi sotto il 06 05 1876 e quindi alla estrazione n° 279 ... Bari parte dalla 174a estrazione quindi i conti tornano con 1° ciclo di 106

p.s. interessante segnalare come alla data della caduta della coppia sincrona, decisamente longeva, 18 62 ci fossero numeri in fuga con 10 estrazioni a testa e precisamente

65 76 90 ... giusto per la cronaca

Vedi l'allegato 2277055

...... presenze 10 i numeri sono il 64 e 65 a me il 90 ha 9 presenze, il 2 ne ha 11

controlla.
Grazie

 

[lotto_tom75]

@lotto_tom75 potresti girarmi l'archivio python che utilizzi con lo script sopra postato. lo sta generando ma è un po lentuccio

ciao lottoluke, farò di meglio...

Option Explicit
Sub Main
   Dim es
   Dim ruota
   Dim Inizio
   Dim ruotavoluta
   Dim tempo
   ruotavoluta = ScegliRuota
   Inizio = EstrazioneIni
   For es = Inizio To EstrazioneFin
      'Scrivi
      'Scrivi "Estrazione del " & GetInfoEstrazione(es)
      'Scrivi
      For ruota = ruotavoluta To ruotavoluta
         If ruota = 11 Then
            ruota = 12
         End If
         'Scrivi "ruota " & NomeRuota(ruota) & "-" & StringaEstratti(es,ruota,".")
         Scrivi StringaEstratti(es,ruota," ")
         If ScriptInterrotto Then Exit For
      Next 'x ruota
      If ScriptInterrotto Then Exit For
   Next ' x es
End Sub

Con questo script ognuno può rigenerarsi l'archivio per la ruota voluta gestibile dallo script python in oggetto e non solo.
L'ampiezza del range temporale la si imposta tramite la barra relativa del programma che corrisponde per la sua parte sinistra ad (EstrazioneIni) del codice.

 

[BaffoBlù]

Accidenti grazie silop

è capitato anche a me!

non ci posso credere...

vado a controllare...

poi vedo se passo a provare i vari script.

Grazie di cuore a tutti.

Guardate che qui c'è un segreto bizzarro da scoprire...

io notai delle cose strane nei comportamenti numerici.

Bisogna approfondire...

dai gIà che vedo che qualcuno sta facendo SNIFF SNIFFF...

 

[Codicebinario]

Accidenti grazie silop

è capitato anche a me!

non ci posso credere...

vado a controllare...

poi vedo se passo a provare i vari script.

Grazie di cuore a tutti.

Guardate che qui c'è un segreto bizzarro da scoprire...

io notai delle cose strane nei comportamenti numerici.

Bisogna approfondire...

dai gIà che vedo che qualcuno sta facendo SNIFF SNIFFF...

Ma te lo ricordi "LOTTOREI "? io si.....Adriano gia' sapeva e scopri'..... Un abbraccio fraterno ....mi defilo da questa discussione... cose gia' viste e trite e ritrite....Ciao baffone ,e comunque grazie per quello che stai facendo.Ciao e grazie.

 

[geronimo]

...... presenze 10 i numeri sono il 64 e 65 a me il 90 ha 9 presenze, il 2 ne ha 11
Vedi l'allegato 2277058
controlla.
Grazie

ho controllato meglio in effetti il 2 ha 11 sortite il 64 65 ne ha 10 ma anche il 76 che invece nella tabella che hai allegato riporta 7 ...
il 90 invece 9 e si li devo averne segnato uno doppio ma sai com'è a fare tutto a mano scorrendo la tabella è facile sbagliarsi ... grazie comunque

 

[BaffoBlù]

Ma te lo ricordi "LOTTOREI "? io si.....Adriano gia' sapeva e scopri'..... Un abbraccio fraterno ....mi defilo da questa discussione... cose gia' viste e trite e ritrite....Ciao baffone ,e comunque grazie per quello che stai facendo.Ciao e grazie.

Dici che hai visto cose già trite e ritrite.

Sta cosa mi stupisce, io non ho ancora detto un bel niente di nulla...

...e tu già lo sai???

non credi di scrivere assurdità incredibili per la fretta?....

ok defilati, ma non è che qualcuno ti abbia forzato ad entrare d'altronde...

-------------------------------------------------------------------------
*********************************************
-------------------------------------------------------------------------

x i pruriginosi frettolosi futuri :

io all'inizio di quanto ho ricominciato a scrivere qui ho scritto queste parole:
forse dovrei inserirle nella firma :

si badi che sono già diversi giorni che sono li scritte!!!
si badi che sono già diversi giorni che sono li scritte!!!
si badi che sono già diversi giorni che sono li scritte!!!
(per non udenti di cervello)

"chi vuole segue, insomma fate come vi pare...

Se sarete interessati io sono qui, non obbligo nessuno, non interverrò da altre parti a meno che non mi interessi qualcosa

Se piace, gli interessati leggono con avida curiosità...

Se piace e incuriosisce, Il serio appassionato fa domande con criterio...

Se non si capisce, I frettolosi di esporsi, d'impulso si precipitano a sputare sentenze insensate,

su qualcosa che "Palesemente" non hanno chiaro nella loro mente...

Se non piace quello che si legge o si guarda, i saggi semplicemente cambiano canale...

(poi si è liberi di spaccare la tv, tanto non è mia...)

 

[Navigator]

Ecco lo script non sono un grande programmatore probabilmente si puo' fare meglio aspettiamo i suggerimenti di Baffoblù come utilizzarlo al meglio


Sub Main()
Dim ci(12,90),nci(90)
fin = EstrazioneFin
ini = 10178
rem ini=174
ciclo = 0
numciclo = 1
estrciclo = 0
maxciclo = 0
minciclo = 0
totciclo = 0
estpen = 0
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
Scrivi Space(30) & NomeRuota(r1) & Space(50),1,1,1,4,6,"courier New",0,0
For es = ini To fin
estrazione = DataEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,r1):estrciclo = estrciclo + 1
For p1 = 1 To 5
If ci(r1,Estratto(es,r1,p1)) = 0 Then ciclo = ciclo + 1:ci(r1,Estratto(es,r1,p1)) = 1
If ciclo > 88 Then
If ciclo = 89 And flagpenultimo = 0 Then
penultimo = DataEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " (" & Estratto(es,r1,p1) & ")":flagpenultimo = 1
estrazione = estrazione & " Penultimo Estratto ->> " & Estratto(es,r1,p1):estpen = es
End If
If ciclo = 90 And flagultimo = 0 Then
Ultimo = DataEstrazione(es) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " (" & Estratto(es,r1,p1) & ")":flagultimo = 1
estrazione = estrazione & " Ultimo Estratto ->> " & Estratto(es,r1,p1)
estpen = es - estpen
End If
End If
If p1 = 5 Then Scrivi estrazione
If ciclo = 90 Then
If p1 <> 5 Then Scrivi estrazione1 = 5
AL POSTO DELLA FACCINA METTETE P1=5
Scrivi
Scrivi "==============================================================================================================",1,1,1,4,4,"courier New",0,0:ciclo = 0

Scrivi "Ciclo Numero " & numciclo & " Num. estrazione totali Ciclo " & estrciclo & " ",1,1,1,4,4,"courier New",0,0
Scrivi "Penultimo num ciclo " & penultimo,1,1,1,4,4,"courier New",0,0
Scrivi "Ultimo num ciclo " & ultimo,1,1,1,4,4,"courier New",0,0
Scrivi "Differenza estrazioni tra P/U (" & estpen&")",1,1,1,4,4,"courier New",0,0
Scrivi "==============================================================================================================",1,1,1,4,4,"courier New",0,0
For i = 1 To 9
Scrivi DataEstrazione(es + i) & " - " & SiglaRuota(r1) & " " & StringaEstratti(es + i,r1),1,1,0,3,4,"courier new",0,0
Next
Scrivi "==============================================================================================================",1,1,1,4,4,"courier New",0,0
If minciclo = 0 Then minciclo = estrciclo
If maxciclo < estrciclo Then maxciclo = estrciclo
If minciclo > estrciclo Then minciclo = estrciclo
Totciclo = numciclo

For x = 1 To 90
ci(r1,x) = 0
Next
ciclo = 0:numciclo = numciclo + 1:estrciclo = 0:flagultimo = 0:flagpenultimo = 0

End If


Next
Next
Totc = Int((fin - Ini)/Totciclo)
Scrivi
Scrivi "Ciclo Minimo " & minciclo & " Ciclo Massimo " & maxciclo & " Ciclo Medio " & Totc & " Ultimo Ciclo " & ciclo,1,1,1,4,4,"courier New",0,0
For x = 1 To 90
ci(r1,x) = 0
Next
ciclo = 0:numciclo = numciclo + 1:estrciclo = 0:flagultimo = 0:flagpenultimo = 0
numciclo = 1
estrciclo = 0
maxciclo = 0
minciclo = 0
Scrivi
Scrivi

Next
End Sub

Grazie Tornado.
Ho inserito un apostrofo di commento all'inizio della riga:
AL POSTO DELLA FACCINA METTETE P1=5
così, altrimenti dava errore:
'AL POSTO DELLA FACCINA METTETE P1=5

 

[BaffoBlù]

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38

======================

Ciao BaffoBlù ,

======================

vedi se ti può essere d'aiuto la mia idea di tanti anni fa quando ero giovanotto…

Le urne naturali by Silop​

che grazie ai bravi scripter Rosanna (all'inizio) e poi Enplein e poi Joe

mi crearono uno script in modo che potessi vedere visivamente

quello che avevo immaginato.

Idea resa pubblica nel 2013 sul forum di Enplein "OSSERVAZIONI dei 90 numeri dentro l'urna ( tombola-Venus)"

Questo è l'elaborazione dei cicli ovvero URNE NATURALI

del tuo periodo estrazionale sulla ruota di BARI.

Voglio precisare che i dati totali non sono uguali ai tuoi forse perché abbiamo estrazioni differenti iniziali.

L'archivio corretto che costruimmo all'epoca partiva dalla 3950 del 14/09/1946.

Ecco le urne naturali relative al tuo periodo estrazionale:

======================

------------------------------------------------------------------------------------------

RICERCA URNE NATURALI by Silop sulla ruota : BA DAL 02.05.1874(174)

----------------------------------------------------------------------- all'estrazione 1346 del 17.10.1896

-L'archivio delle 11 ruote del lotto classico le carica in automatico con il prg. SPMT ---

|-------------- quantità numeri per frequenza ------------------|

Pr.| 0| 1| 2| 3| 4| 5| 6| 7| 8| 9|10|11|12|13|14|15|16|17|18|19|20|Estraz | Inizio| Fine

------------------------------------------------------------------------------------------

1°| | 2| 6| 4|15|12|15|16| 9| 4| 4| 2| 1| | | | | | | | | 106 | 174 | 279

2°| |11|12|19|20|17| 6| 3| 2| | | | | | | | | | | | | 66 | 280 | 345

3°| | 5| 7| 9| 9|21|14| 8| 6| 5| 2| 3| 1| | | | | | | | | 97 | 346 | 442

4°| | 8|11|15|18|18|12| 5| 1| 2| | | | | | | | | | | | 74 | 443 | 516

5°| | 3| 5| 8|13|15|19|13| 7| 4| 1| 1| | 1| | | | | | | | 99 | 517 | 615

6°| | 2| 4| 9|15|20|13|11| 9| 5| 1| 1| | | | | | | | | | 98 | 616 | 713

7°| | 3| 8|15|19|15|14|10| 5| | | 1| | | | | | | | | | 84 | 714 | 797

8°| | 2| | 4| 8|13|13|12|11|15| 4| 4| 3| | 1| | | | | | | 126 | 798 | 923

9°| | 4| 3| 8|15|23|17|10| 7| 2| 1| | | | | | | | | | | 93 | 924 | 1016

10°| | 6| 7|13|16|14|14|14| 5| | 1| | | | | | | | | | | 85 | 1017 | 1101

11°| | 4|19|18|17|13| 9| 5| 4| | 1| | | | | | | | | | | 72 | 1102 | 1173

12°| |18|30|23|12| 5| 1| | | 1| | | | | | | | | | | | 47 | 1174 | 1220

13°| 1| 1| | 2|10|10|13|21|12| 7| 2| 4| 6| 1| | | | | | | | 126 | 1221 | in corso all'indice 1346 del 17.10.1896

La ruota di : BA analisi sui 5p estratti

Num in attesa di sortita SETTORE 0 [13° Urna ] N. 1 : 39

Num in attesa di sortita SETTORE 1 [13° Urna ] N. 1 : 45

Num in attesa di sortita SETTORE 2 [13° Urna ] N. 0 :

Num in attesa di sortita SETTORE 3 [13° Urna ] N. 2 : 59 82

Num in attesa di sortita SETTORE 4 [13° Urna ] N. 10 : 09 26 29 43 46 60 64 72 77 87

Num in attesa di sortita SETTORE 5 [13° Urna ] N. 10 : 04 06 19 31 41 42 44 51 54 57

Num in attesa di sortita SETTORE 6 [13° Urna ] N. 13 : 01 07 22 33 40 53 55 61 67 73 74 79 85

Num in attesa di sortita SETTORE 7 [13° Urna ] N. 21 : 10 15 20 35 36 38 52 56 58 62 65 66 68 75 76 80 81 83 86 88 90

Num in attesa di sortita SETTORE 8 [13° Urna ] N. 12 : 03 05 14 16 21 24 25 27 28 37 47 89

Num in attesa di sortita SETTORE 9 [13° Urna ] N. 7 : 02 13 17 32 34 49 71

Num in attesa di sortita SETTORE 10 [13° Urna ] N. 2 : 18 50

Num in attesa di sortita SETTORE 11 [13° Urna ] N. 4 : 08 11 12 78

Num in attesa di sortita SETTORE 12 [13° Urna ] N. 6 : 23 30 48 63 69 84

Num in attesa di sortita SETTORE 13 [13° Urna ] N. 1 : 70

Num in attesa di sortita SETTORE 14 [13° Urna ] N. 0 :

Num in attesa di sortita SETTORE 15 [13° Urna ] N. 0 :

Num in attesa di sortita SETTORE 16 [13° Urna ] N. 0 :

Num in attesa di sortita SETTORE 17 [13° Urna ] N. 0 :

Num in attesa di sortita SETTORE 18 [13° Urna ] N. 0 :

Num in attesa di sortita SETTORE 19 [13° Urna ] N. 0 :

Num in attesa di sortita SETTORE 20 [13° Urna ] N. 0 :

======================

Come puoi vedere l'urna/ciclo 13° ultimo estratto n. 39 alla successiva estrazione 1397 del 24/10/1897

uscirà/chiuderà la 13^ urna/ciclo NATURALE (cioè dove tutti i numeri da 1 a 90 sono usciti ALMENO una volta).

Fammi sapere se ti può interessare.

======================

Buona domenica a tutto il forum.

======================

A presto

Silop

siiiii
adesso che ho l'archivio corretto

si è così!

come hai fatto?