osservando le posizioni dei numeri

[genios]

E' possibile fare uno script che mi indichi in out quante volte sono uscite le posizioni in 36 estrazioni .
E che mi converta poi le posizioni in numeri che le occupano alla 36 estrazione .

sotto un out che mi dice quante volte un numero è uscito in 36 estrazioni io vorrei un out cosi fatto ma per le posizioni.

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

Ciao Eugenio

 

[claudio8]

Metti lo script da modificare e qualcuno ti aiuterà

 

[genios]

claudio8 ecco lo script

Sub Main
  


Dim frequenze(90)
Dim n,c
Dim i
Dim ruota
Dim es
Dim s

es = EstrazioneFin
ruota = 12 'QUI PUOI CAMBIARE LA RUOTA IN ESAME; 1=BA, 2=CA, 3=FI, ecc. ecc., 12= NZ


For n = es To es - 35 Step - 1
For i = 1 To 5
e = Estratto(n,ruota,i)
frequenze(e) = frequenze(e) + 1
Next
Next


For n = 0 To 54
s = " numeri sortiti " & CStr(n) & " volte: "
c = 0
For i = 1 To 90
If frequenze(i) = n Then
s = s & CStr(i) & " "
c = c + 1
End If

Next
If c > 0 Then
Scrivi CStr(c) & s
End If

Next

End Sub

 

[claudio8]

Sostituisci for I= 1 to 5
Con
For i = 1 to 1
Per la 1a
Posizione
E così via X le altre

 

[genios]

Non sono posizioni estrazione . Ma posizioni dei 90 numeri . Si dovrebbe forse usare l' archivio L1 .-

 

[genios]

Servirebbe l' intervento di qualche esperto .

 

[salvo50]

Ciao Genios, secondo me gli esperti non hanno capito la tua richiesta, fai un disegnino di come tu vorresti l'output inserendo gli stessi numeri risultati dallo script da te postato.

 

[genios]

Avoglia se gli esperti hanno capito .

 

[Mike58]

Provate cosi.
ciao

Sub Main
   Dim frequenze(90)
   Dim n,c
   Dim i
   Dim ruota
   Dim es
   Dim s
   es = EstrazioneFin
   ruota = InputBox("Ruota",,6)
   Scrivi "Ruota Analizzata.... " & NomeRuota(ruota) & Space(100) & " Script by Mike58",1
   For n = es To es - 35 Step - 1
      For i = 1 To 5
         e = Estratto(n,ruota,i,1)
         frequenze(e) = frequenze(e) + 1
      Next
   Next
   Scrivi String(150,"=")
   For n = 0 To 10
      s = " numeri sortiti " & CStr(n) & " volte nelle posizioni : "
      c = 0
      For i = 1 To 90
         If frequenze(i) = n Then
            s = s & Format2(CStr(i)) & " "
            c = c + 1
            pos = NumeroPosRitTurbo(es,ruota,i)
            ss = ss & Format2(pos) & " "
         End If
      Next
      If c > 0 Then
         Scrivi FormatSpace(CStr(c),2) &(s)
         Scrivi Space(15) & "Numero in Posizione corrente " & ss,1,,,1
         Scrivi String(150,"=")
      End If
      ss = ""
   Next
End Sub

 

[genios]

Mike58 grazie per lo script . Ho controllato ma mi pare faccia il contrario di quello che avrei voluto nel senso che in 36 estrazione dovrebbe darmi in out :

quante volte è uscita la posizione 1
quante volte è uscita la posizione 2
quante volte è uscita la posizione 3
quante volte è uscita la posizione 4
quante volte è uscita la posizione 5

omissis

quante volte è uscita la posizione 87
quante volte è uscita la posizione 88
quante volte è uscita la posizione 89
quante volte è uscita la posizione 90

e quindi mi associ alle posizioni attuali il numero .

Esempio del tuo script :


Ruota Analizzata.... Napoli Script by Mike58
======================================================================================================================================================
8 numeri sortiti 0 volte nelle posizioni : 03 08 22 63 73 77 79 90
== =====Numero in Posizione corrente 73 79 13 59 17 88 36 51

come puoi controllare è il numero 3 che è uscito 0 volte in 36 estrazioni e non la posizione 3 .
Quindi il tuo script associa il numero 73 alla posizione 3 ma quella non è la posizione ma il numero che non è uscito in 36 estrazioni .

spero di essere stato chiaro

Ciao Eugenio

 

[Mike58]

Eugenio, sei sicuro di avere l'archivio L1 aggiornato in quanto io ho contato titti i numeri in Estratto L1 con questo codice
e = Estratto(n,ruota,i,1) , dove il finale 1 allaccia l'archivio L1 e quindi conta e somma le posizioni trovate.
Ti dico questo perchè ho altri dati estrapolati


fai le dovute verifiche
ciao

 

[Mike58]

vedi la controverifica


script di controverifica

Sub Main
   Dim Nu(5)
   Ini = EstrazioneFin - 35
   fin = EstrazioneFin
   r = 6
   For es = Ini To fin
      For p = 1 To 5
         Nu(p) = Estratto(es,r,p,1)
      Next
      Scrivi es & vbTab & StringaNumeri(Nu,,1)
   Next
   Scrivi
   Scrivi "Pos  - Pres ",1
   For n = 1 To 90
      ef = EstrattoFrequenza(r,n,Ini,fin,,,,1)
      Scrivi n & vbTab & ef,1
   Next
End Sub

 

[joe]

Eugenio, ha dell'incredibile che ....

Quante volte è Seriefreq.

Nelle ultime 36 Estrazioni è: EstrazioneFin - 35 , EstrazioneFin.

Le Posizioni da 1 a 90 sono i 90 numeri in archivio L1.

Dunque si tratta di uno script che dovresti sapere scrivere,

o ancora più semplicemente usare uno dei tanti che hai.

Sub Main
'Frequenze Recenti delle Posizioni. Script BY JOE"
   Dim F,R,P,I,N
   R = ScegliRuota : I = EstrazioneFin - 35 : F = EstrazioneFin
   Scrivi "Dal " & DataEstrazione(I,,,"/")  & " al " &  DataEstrazione(F,,,"/"),True
   Scrivi
   For N = 1 To 90
      P = NumeroPosRit(F,R,N)
      Scrivi "Pos " & FormatSpace(N,2,True),0,0
      Scrivi " Pres " & EstrattoFrequenza(R,N,I,F,,,,1),0,0
      Scrivi " N° " & Format2(P),0,0
      Scrivi " Rit. " & RitardoEstratto(P,F,R),0,0
      Scrivi
   Next
   Scrivi : Scrivi Space(5) & "(Script BY JOE)",1,,,1
End Sub

 

[i legend]

Ciao visto ora , che joe ha già risposto. Io avevo capito tutt altro.
Pensavo ad uno storico delle ultime 35 estrazioni
Ciao

 

[joe]

Ilegend ad onore del vero anche Mike ha dato praticamente

la stessa identica e contemporanea risposta.

Con LuigiB si erano sistemati gli archivi paralleli e tutte le istruzioni per la conversione,

dei Numeri con le loro Posizioni e Viceversa.

Dunque con Spaziometria che ha archivi ed istruzioni dedicate è particolarmente facile, passare da un Livello all'altro.

L'unico "neo" rimasto è un piccolo errore nelle primissime Estrazioni degli archivi paralleli ove nelle

veci dei ritardi relativi che dovrebbero esserci, ci sono i ritardi-correnti tra gli estratti.

Ma è problema che può riguardare solo uno storico eventualmente radicatosi nelle prime 100-200 estrazioni, all'inizio di ogni ruota.

Poco più del nulla ... per puri-puristi.

 

[genios]

Bene forse comincio a capire . Forse .
Ora potreste fare uno script ( come i vostri ultimi postati ) che mi indichi quante volte un numero è uscito in 36 estrazioni ?

I numeri non le posizioni .

Ciao Eugenio

 

[joe]

Eugenio c'è una sorta di avvitamento in quello che scrivi.

L'Estratto ENNE è sempre l'estratto ENNE.

Il Numero nella Posizione ENNE ... CAMBIA AD OGNI ESTRAZIONE

Cioè ogni volta che cade Estratta una POSIZIONE >= ENNE.

Dunque ESISTE la Posizione ENNE caduta UN TOT di volte in un TOT di Estrazioni.

MA la Frequenza della posizione è spesso distribuita su più numeri tutti diversi tra loro.

Per fare un esempio semplice ... il "più ritardatario" di una ruota può cadere 2 volte in poche estrazioni.

Ma la frequenza sarà 1 per un numero ed 1 per un altro numero.

Recentemente il più ritardatario di Venezia è caduto 2 volte in 6 Estrazioni.

Il 31 Marzo ed il 12 Aprile 2022

Una prima volta era il 75 mentre la seconda volta era il 40.

Dunque 1 ha frequenza 2 in archivio dinamico L1.

Mentre (molto più che probabilmente) 75 e 40 avranno frequenza 1 in archivio ordinario.

Più che probabilmente perché un numero non può salire di molte posizioni in poche estrazioni.

 

[genios]

Si so che è cosi . Ma se fosse possibile potresti fare lo script che hai fatto per le posizioni con conversione della posizione in numero che attualmente la occupa per la presenza dei numeri in 36 estrazioni . Dovrei fare dei controlli poi vado avanti con la spiegazione .

Ciao Eugenio

 

[genios]

Tutto a posto non avevo aggiornato l' archivio L1 . PROSEGUO PIù TARDI CON LA SPIEGAZIONE .

 

[i legend]

Ciao a tutti, vi auguro buon lavoro


Alla prossima puntata