per i programmatori

[genios]

Tant'è che di decine ne esistono 5'720'645'481'903 con appena 90 numeri.

Certo che sono

5'720'645'481'903

tra tutte queste decine che si formano con 90 numeri quali sono quelle che hanno raggiunto ritardi massimi minimi ?

cosa vecchia e ritrita.

Ho usato le decina 1-10 per esempio infatti nell' inizio del post parlavo di stringa di 10 numeri

vabbe usero' il principio Wei wu Wei

 

[joe]

Per me,

è, e continua ad essere materia di studio destituita di ogni fondamento logico.

 

[genios]

l ho interrogata :

Secondo te in un urna contenenti sfere numerate di numero finito dopo un certo tempo il sistema puo' raggiungere la situazione di equilibrio caratterizzato dal fatto che i valori , relativi a ogni singola sfera , sono distribuiti secondo la massima probabilità ?


Sì, la situazione che hai descritto è correlata al concetto di equilibrio termodinamico e alla legge dei grandi numeri in statistica. Se hai un numero finito di sfere numerate all'interno di un'urna e stai eseguendo un processo casuale di estrazione e rimessa delle sfere, nel corso del tempo il sistema può evolvere verso una distribuzione delle sfere che si avvicina alla distribuzione di massima probabilità.

La legge dei grandi numeri suggerisce che, con un numero sufficientemente grande di estrazioni, la frequenza relativa di ogni sfera si avvicina alla probabilità teorica associata a quella sfera. Questo è il concetto chiave dell'equilibrio statistico.

È importante notare che il concetto di equilibrio qui è statistico e non implica necessariamente che il sistema raggiunga uno stato di quiete totale. Invece, significa che le proprietà macroscopiche del sistema, come la distribuzione delle sfere, diventano più stabili e predittibili nel tempo.

Questo principio è alla base di molte leggi statistiche e termodinamiche che descrivono il comportamento di sistemi con un gran numero di componenti, come i gas ideali o le popolazioni di particelle.

 

[genios]

A questa domanda :

tutto ciò ci permette di determinare la probabilità di certi stati finali, ossia di raggiungere un certo grado di certezza ?

risposta

Sì, esattamente. La teoria della probabilità e la legge dei grandi numeri consentono di determinare la probabilità di certi stati finali o di eventi all'interno di un sistema. Quando hai un gran numero di eventi casuali o estrazioni da un insieme finito, la probabilità di un certo risultato può essere determinata sulla base della frequenza relativa di quel risultato rispetto al numero totale di eventi.

Ad esempio, se hai un'urna con sfere numerate e stai eseguendo un grande numero di estrazioni, la probabilità di estrarre una sfera specifica può essere approssimata dalla frazione del numero totale di estrazioni in cui hai ottenuto quella sfera.

In termini più generali, la teoria della probabilità fornisce strumenti matematici per modellare e comprendere il comportamento casuale di sistemi. Questi strumenti consentono di quantificare l'incertezza e di stimare la probabilità di vari risultati, rendendo possibile una previsione statistica su come il sistema evolverà nel tempo.

 

[Codicebinario]

Eu ...

... come ti ho già scritto tante volte dovresti esercitarti con il "fai da te",

invece di dare il tormento a sta gentil pulzella.

Sub Main()
   'Per Genios: somma ritardi e ritardi attuali - n. da 1 a 10
   'Script
   For r = 1 To 12
      If r = 11 Then r = 12
      T = 0
      Scrivi NomeRuota(R)
      For i = 1 To 10
         E = EstrattoRitardo(R,I)
         Scrivi i & " Rit " & E
         T = T + E
      Next
      Scrivi String(10,"=") & "  tot " & T
   Next
End Sub

JOE,"gentil pulzella" mi fa sorridere,e' bellissimo..grande ! mi fa' venire in mente "l'opera" lirica,il teatro,un linguaggio ormai dimenticato....

 

[genios]

che cosa provoca alle 90 sfere nell' urna la differenza di densità?

La differenza di densità tra gli intervalli nello spazio delle fasi influenzerà la distribuzione delle 90 sfere nell'urna e il loro comportamento nel tempo. Se ci sono differenze di densità tra gli intervalli, si verificherà uno scambio netto di particelle tra di essi. Questo può portare a una redistribuzione delle sfere in modo tale da raggiungere uno stato di equilibrio, dove le densità di probabilità diventano costanti nel tempo.

Supponiamo che ci siano due intervalli nello spazio delle fasi, \(A\) e \(B\), con densità di probabilità rispettivamente \(P_A\) e \(P_B\). Se la densità di probabilità in \(A\) è maggiore di quella in \(B\), ci si aspetta che le sfere si spostino da \(A\) a \(B\) più frequentemente rispetto al moto opposto. Questo processo continuerà finché si raggiungerà uno stato in cui la distribuzione di probabilità si stabilizza e la differenza di densità tra \(A\) e \(B\) tende a zero.

Matematicamente, questo processo può essere descritto dalle equazioni differenziali stocastiche, come indicate nelle risposte precedenti, che modellano l'evoluzione temporale delle densità di probabilità.

In generale, la differenza di densità tra gli intervalli è una delle forze guida che determinano il comportamento del sistema nel tempo. Questo concetto è centrale nella comprensione della meccanica statistica e della termodinamica dei sistemi complessi.

 

[genios]

Tutto cio' per raggiungere una parte del finale e cercare di farmi fare lo script richiesto il quale e anche molto facile da fare per ello . Parte del finale : anche nel lotto le differenze di densita di frequenza di una qualsiasi decina di singoli numeri qualunque ( altrimenti ello si irrita ) si riequilibria con l' uscita dell' ambo .

Ciao Eugenio

 

[genios]

jOE come dovrei fare per scrivere la variabile I in orizzontale anziche in verticale ?

Ciao Eugenio

 

[joe]

jOE come dovrei fare per scrivere la variabile I in orizzontale anziche in verticale ?

Ciao Eugenio

Perdonami ma non capisco la domanda.
comunque "scrivi" è "scrivi" ... come e cosa ... lo decidi tu.

Call Scrivi ("Pippo") ' scrive Pippo in orizzontale'

Scrivi "P"
Scrivi "I"
Scrivi "P"
Scrivi "P"
Scrivi "O"


Scrive PIPPO in verticale una lettera per ogni riga.

 

[genios]

NO AL CONTRARIO DEVE SCRIVERE PIPPO IN ORIZZONTALE.
non ridpondere scrivi " PIPPO"

A=P
I=I
P=P
P1=P
O=O

SCRIVI A
SCRIVI I
SCRIVI P
SCRIVIP1
SCRIVI O

 

[joe]

Non devi usare una variabile per ogni lettera dell'alfabeto.

Scrivi ... scrive da sè in orizzontale la stringa o più genericamente ... quello che fornisci per l'utput.

Semmai devi comporre il testo da scrivere ... ma se hai una variabile diversa per ogni lettera,

non puoi far altro che scriverle ad una ad una.

Nel 2024 ... pero queste cose dovresti vedertele da te, altrimenti non ruiscirai mai fare nulla.

Option Explicit
Sub Main
   Dim Indice,Lettera(5),Stringa
   Lettera(1) = "P"
   Lettera(2) = "I"
   Lettera(3) = "P"
   Lettera(4) = "P"
   Lettera(5) = "O"
   REM Questo scrive una lettera per ogni riga
   For Indice = 1 To 5
      Scrivi Lettera(Indice)
   Next
   Rem Questo scrive una riga vuota
   Call Scrivi("")
   REM Questo prepara una Stringa per la scrittura
   For Indice = 1 To 5
      Stringa = Stringa & Lettera(Indice)
   Next
   REM Questo scrive una Stringa composta di 5 caratteri contatenati. Cioè "PIPPO"
   Call Scrivi(Stringa)
   Rem Questo scrive una riga vuota
   Call Scrivi("")
   REM  Questo Scrive Pippo
   Call Scrivi("Pippo")
   REM  Questo Scrive Stringa
   Call Scrivi("Stringa")
   Rem Questo scrive una riga composta di 9 caratteri "-"
   Call Scrivi(String(9,"-"))
   '
   REM  Questo Scrive Pippo
   REM Questo codice scrive "Pippo" in grassetto,sottolineato, su fondo blu, in Giallo, più grande (5),Barrrato
   '
   '' REM ITILIZZANDO I PARAMETRI DISPONIBILI PER IL COMANDO SCRIVI DI SPAZIOMETRIA
   '
   REM NOTA BENE: SENZA USARE UNA STRINGA CONTENITORE PER L'OUTPUT.
   '
   For Indice = 1 To 5
      Scrivi Lettera(Indice),1,0,1,4,5,,1,1
   Next
   Call Scrivi ("")
End Sub

 

[genios]

Bene . Mi rimproveri sempre .

e quando abbiamo la funzione scrivi su due righe diverse e voglio scrivere sulla stessa riga ?

 

[joe]

DEVI STUDIARE!

Ti ho scritto che se hai

Scrivi "P"

e poi

Scrivi "ippo"

non puoi mettere assieme le 2 scritte su righe diverse.

Perchè passata la linea di programma ... dopo Scrivi "P" ... è scritto ... e si va a capo!

Non si può tornare indietro alla linea precedente.

Devi prevederlo tu ... come programmatore ... da programma ... come e cosa scrivere.

Devi togliere gli scrivi ... raccogliendo ... i contenuti ... man mano che ci sono.

Raccogliere e concatenate le varie parti ... in una stringa e poi avere un solo "Scrivi Stringa" con tutto quello che vuoi.

Solo che ... non ti applichi, non studi gli esempi che ti ho fatto.

ERA SEMPLICE dedurre che dovevi fare (ed era già spiegato ... con tanto ... di molti esempi):

Stringa = "P"

Stringa = Stringa & "ippo"

Scrivi Stringa.

 

[genios]

Proff sto studiando ma mi trovo in difficolta con la funzione verificaesito .

ho fatto un piccolo script dove trovata una condizione su una ruota mi trova un ambo ambo da verificare a tutte come applicare la funzione verifica esito ?

 

[joe]

Anche per quella ci sono gli esempi sul come usarla.

Oppure ti studi qualche script di Mike che ne fa spesso uso.

E' simile a quanto fa "Gioca" nel richiedere i valori in array per i numeri le ruote e poi ... sorte, colpi, ecc ecc.

In output richiede delle variabili e/o contenitori per i molti risultati che fornisce.

 

[genios]

dove è l' errore ?


Option Explicit

Sub Main
' CalcolaRitardoStoricoNumero90
Dim InizioRange
Dim FineRange
Dim VetNumeri(1)
Dim VetRuote(1)
Dim Sorte
Dim ritardoStorico
Dim idEstrazione

' Imposta i parametri
InizioRange = EstrazioneIni
FineRange = EstrazioneFin
VetNumeri(1) = 90
VetRuote(1) = BA_
Sorte = 1 ' Puoi cambiare questo valore a seconda della sorte specifica

' Itera attraverso le estrazioni nell'intervallo specificato
For idEstrazione = InizioRange To FineRange
' Chiama la funzione SerieEstrazioneStorico per ogni estrazione
ritardoStorico = SerieEstrazioneStorico(idEstrazione, FineRange, VetNumeri, VetRuote, Sorte, 0)

' Verifica se la funzione ha restituito un valore
If ritardoStorico <> 0 Then
' Stampa il risultato solo se è diverso da zero
Scrivi "Il ritardo storico del numero 90 sulla ruota 1 per la sorte " & Sorte & " all'estratto " & idEstrazione & " è: " & ritardoStorico
End If
Next
End Sub

 

[joe]

Secondo me è sbagliato nella sua logica.

Lo storico (e/o la sua data) è un numero che coincide con quello dell'estrazione in cui avviene.

Lo "scorrere" le Estrazioni per trovarlo ... è "Dentro" l'istruzione stessa.

Tu l'hai messo anche "Fuori" spostandolo di estrazione in estrazione

e restringendo via-via il numero di estrazioni in cui viene cercato.

In questo momento non posso utilizzare il Pc per la verifica ... ma, mi sembra

di poter interpretare (eseguire a mente) questo script trovando questo errore.

 

[joe]

Come vedi ...

Option Explicit

Sub Main
' CalcolaRitardoStoricoNumero90
Dim InizioRange
Dim FineRange
Dim VetNumeri(1)
Dim VetRuote(1)
Dim Sorte
Dim ritardoStorico
Dim idEstrazione

' Imposta i parametri
InizioRange = EstrazioneIni
FineRange = EstrazioneFin
VetNumeri(1) = 90
VetRuote(1) = BA_
Sorte = 1 ' Puoi cambiare questo valore a seconda della sorte specifica

' Itera attraverso le estrazioni nell'intervallo specificato
'For idEstrazione = InizioRange To FineRange
' Chiama la funzione SerieEstrazioneStorico per ogni estrazione
ritardoStorico = SerieEstrazioneStorico(InizioRange, FineRange, VetNumeri, VetRuote, Sorte, 0)

' Verifica se la funzione ha restituito un valore
'If ritardoStorico <> 0 Then
' Stampa il risultato solo se è diverso da zero
Scrivi "Il ritardo storico del numero 90 sulla ruota 1 per la sorte " & Sorte & " all'estratto " & idEstrazione & " è: " & ritardoStorico
'End If
'Next
ScriviEstrazione  (ritardoStorico)
End Sub

chiudendo tutti i cicli e fornendo InizioRange (UNA SOLA VOLTA) all'istruzione.

Trova il numero di estrazione coincidente con quello della data dello "Storico"

che vede appunto estratto il 90 a Bari.

In sintesi ... hai utilizzato quella istruzione in modo non corretto.

 

[genios]

ok grazie avevo interpretato male la funzione . non restituisce il riatrdo storico ma bensi l 'estrazione in cui si è verificato il riatrdo storico .

Ciao Grazie
Eugenio

 

[genios]

come modificare questo script

Sub Main()
   For es = EstrazioniArchivioSE - 1000 To EstrazioniArchivioSE
      For p = 1 To 6
         a = EstrattoSE(es,p)
         b = EstrattoSE(es + 1,p)
         If(a = b) Then
            Scrivi DataEstrazioneSE(es) & "-" & FormatSpace(es,4,1) & "-" & StringaEstrattiSE(es)
            Scrivi DataEstrazioneSE(es + 1) & "-" & FormatSpace(es + 1,4,1) & "-" & StringaEstrattiSE(es + 1)
            Scrivi  Format2(a)
            Scrivi  Format2(b)
            Scrivi
         End If
      Next
   Next
End Sub

in modo che funzioni con un file di txt

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