Novità

osservando le posizioni dei numeri

...ho smanettato sullo script di joe (spero non me ne vorrà, se ho compilato cretinate..)
cercando di capire ciò che Eugenio richiedeva...
Magari una cosa simile può andare...

Codice: 
Sub Main
'Frequenze Recenti delle Posizioni Script BY JOE
   Dim F,R,P,I,N,PP,es,Nu(5),NN(5),xf,E,PF(90),cc,Valorefr,x   
   R = ScegliRuota : I = EstrazioneFin - 35 : F = EstrazioneFin
   Scrivi "RUOTA "& NomeRuota(R)
   Scrivi "Dal " & DataEstrazione(I,,,"/")  & " al " &  DataEstrazione(F,,,"/"),True
   Scrivi "Quantità estrazioni rilevate/calcolate "& ((F-I)+1)
   Scrivi
   For N = 1 To 90
      P = NumeroPosRit(F,R,N)
      Scrivi "Pos " & FormatSpace(N,2,True),0,0
      xf = EstrattoFrequenza(R,N,I,F,,,,1)
      Scrivi " Pres " & xf,0,0
      Scrivi " (Rit. Pos. = ",0,0
      Scrivi Format2(RitardoEstratto(N,F,R,,,1))&")",0,0
      Scrivi " N° attuale corrispondente " & Format2(P),0,0
      Scrivi " Rit. " & RitardoEstratto(P,F,R),0,0
      Scrivi
   Next
   Scrivi
   Scrivi "ID estraz. -  Estrazione espressa       Estrazione con ",True
   Scrivi "             in numeri di POSIZIONE      Numeri REALI",True
   co=0
   For es = I To F
      co=co+1
      For PP = 1 To 5
         Nu(PP) = Estratto(es,R,PP,1)
         NN(PP) = Estratto(es,R,PP)
         E = Estratto(es,R,PP,1)
         PF(E)=PF(E)+1
      Next
      Scrivi Format2(co)&") "& es & vbTab & StringaNumeri(Nu,,1)& Space(10) & StringaNumeri(NN,,1)
   Next
   Scrivi
   For j=0 To 20
      Valorefr = " Num. di Posizione Sortiti " & CStr(j) & " volte = "
      cc=0
      For x=1 To 90
         If PF(x)=j Then
            Valorefr = Valorefr & CStr(x) &" "
            cc=cc+1
         End If             
      Next
      If cc > 0 Then
         Scrivi FormatSpace(cc,2,True) & Valorefr
      End If
   Next
    
End Sub

...spero di essere stato di aiuto...
PS. non chiedetemi di fare modifiche/aggiunte, che non so nemmeno come ho compilato questo... (fuori fase completamente) :ROFLMAO:
 
Ciao , ma qual è la funzione che trasforma il numero di un archivio l1 ,L2, ecc.. in un numero dell archivio lotto reale?
 
Grazie a Mike58 a Joe e a Ramco.

Ilegend xf = EstrattoFrequenza(R,N,I,F,,,,1) e il numero uno tra parentesi.
 
i legend ha scritto:
Ciao , ma qual è la funzione che trasforma il numero di un archivio l1 ,L2, ecc.. in un numero dell archivio lotto reale?
Clicca per espandere...
questa

Codice: 
Sub Main
  For n = 1 To 90
  r = 6
  a = NumParToNumPadre(n,r,EstrazioneFin,1)
  b = NumParToNumReale(n,r,EstrazioneFin,1)
  Scrivi n & vbTab & a & vbTab & b
  Next 
  
End Sub
 
Ciao eugenio , non ho capito la tua risposta perché non conosco l algoritmo di calcolo della archivio l1 .
Grazie mike, non ricordavo quella funzione 1😉👍
 
i legend ha scritto:
Ciao eugenio , non ho capito la tua risposta perché non conosco l algoritmo di calcolo della archivio l1 .
Grazie mike, non ricordavo quella funzione 1😉👍
Clicca per espandere...

L'Archivio dinamico si può pensare che contenga le cadute delle Posizioni.

Le posizioni si enumerano su ogni Tabellone Analitico di ogni ruota.

E' evidente che generare 100 mila tabelloni analitici numerare le posizioni, controllarne le cadute

e farne un archivio, è lavoro impegnativo sia per l'uomo (cioè per il codice da scrivere) che per il PC (nell'eseguirlo).

Dunque l'Algoritmo che ne ho fatto doveva anche essere piuttosto efficiente.

Per non impiegare giorni di calcolo nel terminare il lavoro.

Cercando: Ambolotto 68245380 t=45 dovresti trovare la pagina dove spiegavo ad Eugenio

come si numerano le posizioni per poi farne discendere l'Archivio.

In alternativa a quanto ha scritto Mike normalmente genero da me il Tabellone Analitico,

e preferisco le istruzioni NumeroPosRit & PosNumeroRit che trovo più intuitive (o forse solo per abitudine).

NON funzionano troppo bene nelle vecchie versioni di L8 che gestisco solo "un archivio".

Mentre Luigi le ha rese ben funzionanti con Spaziometria, che può gestire più archivi contemporaneamente.

Codice: 
'Test NumeroPosRit / Numero / PosNumeroRit By Joe
Sub Main()
   R = BA_
   Es = EstrazioneFin
   Scrivi NomeRuota(R) & " " & DataEstrazione(Es),1
   Scrivi
   Scrivi "Pos Nu  Pos  Ritardo"
   For P = 1 To 90
      NPR = NumeroPosRit(Es,R,P)
      PNR = PosNumeroRit(Es,R,NPR)
      RIT = RitardoEstratto(NPR,es,r)
      sRecord = Format2(P) & "  " & Format2(NPR) & "  " & Format2(PNR) & "  " & FormatSpace(Rit,8,True)
      Scrivi sRecord
   Next
   Scrivi NomeRuota(R) & " " & DataEstrazione(Es),1
   Scrivi
   Scrivi "Pos Nu  Pos  Ritardo"
   For P = 1 To 90
      NPR = NumeroPosRitTurbo(Es,R,P)
      PNR = PosNumeroRitTurbo(Es,R,NPR)
      RIT = RitardoEstrattoTurbo(NPR,es,r)
      sRecord = Format2(P) & "  " & Format2(NPR) & "  " & Format2(PNR) & "  " & FormatSpace(Rit,8,True)
      Scrivi sRecord
   Next
End Sub

Esistono anche script fatti da Rosanna e da Gaspare, con i quali furono create le prime versioni dell'archivio dinamico.

:)
 
Ultima modifica:
Posto che siano giusti gli archivi delle posizioni

e ben fatto TUTTO quanto ha fatto Ramco ...

Il businnes dell'archivio dinamico è quello di avere tutti i calcoli già fatti,

senza doverli eseguire in tempo reale con dispendio di codice e di tempo

Riportando una parte dell'output ottenuto a fatica : ...

33) 10064 72.62.70.33.53 28.48.17.46.07
34) 10065 27.77.23.38.59 85.29.78.75.87
35) 10066 23.01.43.18.38 25.34.68.90.66
36) 10067 59.41.70.72.54 61.44.50.41.30

8 Num. di Posizione Sortiti 0 volte = 5 10 32 37 42 49 56 79

lo si può "produrre" con uno script molto più semplice e molto più veloce:

Codice: 
Sub Main
   For Es = 10064 To 10067
   Scrivi Es &Space(3) ,0,0
      For P = 1 To 5
         Scrivi Format2(Estratto(es,1,P,1)) & " ",0,0
      Next
      Scrivi Space(3),0,0
      For P = 1 To 5
         Scrivi Format2(Estratto(es,1,P)) & " ",0,0
      Next
      Scrivi
   Next
   Scrivi "Numeri usciti 0 volte",True
   For N = 1 To 90
      If EstrattoFrequenza(1,n,EstrazioneFin - 35,EstrazioneFin,,,,1) = 0 Then Scrivi Format2(N) & " ",0,0
   Next
   Scrivi
End Sub

:)
 
ruota 12
31.03.2022 10062

9 numeri sortiti 0 volte: 5 34 42 57 65 74 81 82 90
33 numeri sortiti 1 volte: 1 4 8 9 12 13 17 18 19 23 24 26 29 32 37 38 41 46 48 49 52 55 59 60 61 67 68 75 76 78 83 87 88
13 numeri sortiti 2 volte: 2 21 30 33 40 53 64 66 70 73 84 85 89
22 numeri sortiti 3 volte: 3 6 11 14 22 25 27 36 43 44 45 50 51 56 58 69 71 72 77 79 80 86
10 numeri sortiti 4 volte: 7 10 15 16 20 31 35 39 47 63
3 numeri sortiti 5 volte: 28 54 62

Ricerca dall'estrazione del 31.03.2022/10062 su Ruota di Nz Num. P1 P2 P3 P4 P5 Tot 01 -- 1 -- -- -- 1 02 1 -- -- 1 -- 2 03 -- 2 -- 1 -- 3 04 1 -- -- -- -- 1 05 -- -- -- -- -- 0 06 1 -- 1 1 -- 3 07 -- -- 1 3 -- 4 08 -- -- 1 -- -- 1 09 -- 1 -- -- -- 1 10 1 -- 2 -- 1 4 11 -- 1 1 -- 1 3 12 -- -- -- -- 1 1 13 -- -- 1 -- -- 1 14 1 -- -- 1 1 3 15 2 1 1 -- -- 4 16 1 -- 2 1 -- 4 17 1 -- -- -- -- 1 18 -- 1 -- -- -- 1 19 -- -- -- -- 1 1 20 1 1 2 -- -- 4 21 1 -- -- 1 -- 2 22 1 -- 2 -- -- 3 23 -- -- -- -- 1 1 24 1 -- -- -- -- 1 25 1 -- -- 2 -- 3 26 -- -- 1 -- -- 1 27 -- 1 -- 1 1 3 28 1 -- 4 -- -- 5 29 1 -- -- -- -- 1 30 -- -- -- -- 2 2 31 2 1 -- -- 1 4 32 -- -- -- 1 -- 1 33 -- 1 1 -- -- 2 34 -- -- -- -- -- 0 35 1 -- -- 1 2 4 36 1 -- -- 2 -- 3 37 -- -- 1 -- -- 1 38 -- -- -- -- 1 1 39 1 1 2 -- -- 4 40 -- 1 -- -- 1 2 41 -- -- -- -- 1 1 42 -- -- -- -- -- 0 43 -- 1 -- 1 1 3 44 1 1 -- 1 -- 3 45 1 1 -- -- 1 3 46 -- -- 1 -- -- 1 47 -- 1 -- 1 2 4 48 -- -- -- 1 -- 1 49 1 -- -- -- -- 1 50 1 1 -- 1 -- 3 51 1 2 -- -- -- 3 52 1 -- -- -- -- 1 53 -- -- -- 1 1 2 54 1 -- 3 -- 1 5 55 -- -- 1 -- -- 1 56 1 1 -- 1 -- 3 57 -- -- -- -- -- 0 58 -- 1 1 -- 1 3 59 -- -- -- 1 -- 1 60 -- 1 -- -- -- 1 61 -- -- -- -- 1 1 62 1 1 -- 2 1 5 63 1 -- 1 -- 2 4 64 -- -- -- 1 1 2 65 -- -- -- -- -- 0 66 -- 2 -- -- -- 2 67 -- -- -- -- 1 1 68 -- -- -- -- 1 1 69 -- 1 -- 1 1 3 70 1 1 -- -- -- 2 71 1 2 -- -- -- 3 72 -- 1 1 1 -- 3 73 -- -- 1 1 -- 2 74 -- -- -- -- -- 0 75 -- 1 -- -- -- 1 76 -- -- -- 1 -- 1 77 -- -- 1 1 1 3 78 -- -- -- -- 1 1 79 -- 2 -- 1 -- 3 80 1 -- 1 -- 1 3 81 -- -- -- -- -- 0 82 -- -- -- -- -- 0 83 -- -- -- 1 -- 1 84 -- -- -- 1 1 2 85 -- 1 -- -- 1 2 86 1 -- 1 1 -- 3 87 1 -- -- -- -- 1 88 -- -- -- -- 1 1 89 -- 1 1 -- -- 2 90 -- -- -- -- -- 0 [ICODE] Enplein.
 
Il mio modesto parere è che 36 Estrazioni sia un numero, abbastanza grande e tale da scoraggiare,

ed abbastanza piccolo da non permettere la più parte delle possibili considerazioni.

Secondo la "Legge del diciottesimo", che è 6 volte più precisa della legge del terzo,

in 12 estrazioni sono estratti il 50% dei numeri ... in 18 il 60% in 36 il numero di numeri è quasi-quasi ... tutto.

Senza essere tutto.

Dicevo secondo me o si considera tutto un tabellone o è meglio concentrare l'attenzione

in un gruppo molto più limitato di estrazioni.

Cioè è meglio che stare nel limbo del quasi tutto ... dimenticando qualcosa.

In pratica secondo me sono meglio le urne di Silop.

Dai Tabelloni Analitici a confronto si può facilmente ricavare le ruote più veloci a completarsi.

Ricavare i numeri con una discreta frequenza e sperare che si combinino in Ambo,

o che rompano l'equilibrio instabile (tentando di superarsi vicendevolmente nell'essere Estratto.

Ciò detto il confronto delle Ruote che fa scegliere Genova.

Genova perché in meno di 50 estrazioni concentra tutto il suo tabellone analitico.

Nel medesimo periodo propone 3 numeri con 5 presenze ed altri 3 numeri con 6 presenze.

Ci si può fare una lunghetta per Ambo & oltre.

Dunque in pratica vi manca solo un esempio ed uno script ... per controllare.


Immagine.jpg
Codice: 
Option Explicit
Sub Main
   Dim Ini,Fin,Es,Nu,Ru(1),Po(3)
   Dim L
   Ini = EstrazioneFin - 47 : Fin = EstrazioneFin
   L = "43.59.03.74.75.76" : Ru(1) = GE_ : Po(2) = 0.8 : Po(3) = 0.2
   Nu = Split("0." & L,".")
   For Es = Ini To Fin
      ImpostaGiocata 1,Nu,Ru,Po,1,2
      Gioca Es,True
   Next
   ScriviResoconto
End Sub

:) AUGURI
 
Ultima modifica:
Ciao Eugenio,

purtroppo l'unico consiglio che posso darti è quello di rileggere con attenzione.

Il Tabellone Analitico che termina con la caduta del 90° Estratto ...

... si sviluppa e completa "SEMPRE" in un numero di Estrazioni maggiore di 36.

Se non erro in 36 Estrazioni invece cadono Estratti circa 79 numeri su 90.

Penso sia corretto considerare che lo siano, "quasi tutti" senza che siano "tutti".

:)
 
Buonasera, mi ha incuriosito il discorso sulle urne virtuali. Chi ne è a conoscenza potrebbe aprire una dedicata discussione?
 
mirapep ha scritto:
Buonasera, mi ha incuriosito il discorso sulle urne virtuali. Chi ne è a conoscenza potrebbe aprire una dedicata discussione?
Clicca per espandere...
===================================================
LOGOSILOP.gif
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 mirapep ,
======================
le URNE NATURALI di Silop ( non Virtuali)
era una mia idea di quanto era giovanotto
che nell'ottobre 2013 lo resa pubblica chiedendo alla bravissima scripter Rosanna
di creare uno script per vedere nelle varie lotterie (lotto su ruota e Tutte e superenalotto)
i dati statistici dell'idea.
Puoi leggere il tutto sul forum di Enplein (il quale anche lui mi fece delle modifiche)
e successivamente anche l'amico Joe implementò altri parametri.
Sul forum di Enplein nella sezione "NUOVE RICERCHE"
dal titolo : "OSSERVAZIONI dei 90 numeri dentro l'urna ( tombola-Venus)"
e anche : "un piccolo aiuto"
e ancora se cerchi sul mio sito : "La storia delle urne di Silop"
Buona lettura.
======================
Buon mercoledì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
Ciao Silop

chiedo scusa per il refuso.

Spero in futuro di ricordare meglio la definizione peraltro più adatta.

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto