Novità

Richiesta di script per previsioni con cruciverba.

micro__

Advanced Member >PLATINUM<
Vi chiedo cortesemente, se possibile, di fare uno script utilizzando ogni singola estrazione (che distingua ogni ruota + Nazionale) per definire poi un cruciverba (con 4*5) totali 20 numeri.

Il cruciverba risponde alla formula dei frattali (vedi wikipedia alla voce "Frattale") del tipo di Mandelbrot 1667384875311.png per la costituzione del frattale pentagonale (ripeto la formula z= z^6+c)

Lo script si può (per rendere il tutto meno caotico) anche fermare al primo risultato utile, sia per ambo che per terno, nei rispettivi incroci.
Fuori 90 chiaramente necessario e 0=90.

Vi faccio subito un esempio che riprendo dal mio foglio excel.

estrazione di BAri-10150-
-24-79-23-59-40-

Le formule dovranno seguire l'ordine per definire una griglia chiaramente ordinata.
quindi 24^6+79 segue 24^6+23..etc per costituire la prima riga composta da 4 numeri
25-59-5-76
la seconda riga della griglia sarà 79^6+24 a cui segue 79^6+23 etc...
25-24-60-41 seguono
43-8-78-59-
25-80-24-41-
34-89-33-69-

risultato finale:
25-59-5-76
25-24-60-41
43-8-78-59
25-80-24-41
34-89-33-69

col doppio incrocio al 2° colpo.

Grazie a tutti,
saluti

micro
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Micro_

penso sia difficile con un semplice script, ma considerato che con excel ci sei riuscito ...

una soluzione ... la si ricava.

Volevo però chiederti come fare per controllare i risultati.

L'esempio che hai riportato è chiaro e ben visibile ma

se non erro sono 20 numeri qualche indicazione più dettagliata

è praticamente indispensabile per individuare quale percorso seguire.

:)
 

micro__

Advanced Member >PLATINUM<
Ciao Joe,
grazie per la tua risposta, so che i numeri sono molti, ma gli esiti da controllare sono soltanto i numeri posti in verticale e in orizzontale cioè gli esiti sulle quattro cinquine in verticale e sulle cinque quartine poste in verticale. A volte ci sono esiti che, incrociandosi sia per le uscite orizzontali che in verticale portano anche al terno. Poichè si produce una griglia tipo cruciverba con 20 numeri ad ogni estrazione e per ciascuna ruota ritengo che questo studio sia ottimo per le convergenze.
Se possibile ho pensato che sarebbe meglio che lo script ci dica soltanto l'esito avvenuto al primo colpo utile (es. ambo al 3° colpo, oppure al 4° colpo etc.) evidenziando (nella griglia del cruciverba, se si può fare) l'ambo o il possibile terno uscito, dopodichè si procede con l'osservazione di un'altra estrazione.

Ti ringrazio Joe, sono qui per altre spiegazioni se servono,
saluti
micro
 

i legend

Premium Member
Ciao micro lo script non è proprio semplice da fare.
Mi spiego.
Purtroppo gli script vengono sempre modificati e poi vanno in errore. (Magari si aumenta la potenza)
Allora dico i passi che bisognerebbe fare secondo me.

1)Spaziometria ,legge i numeri come numeri, quindi se il numero è grande non riesce a fare il fuori 90
Quindi bisognerebbe scrivere una funzione che trasforma il numero se scritto in nota esponenziale in un numero formato stringa.
(Basta verificare che al secondo posto non ci sia una virgola)
2) scrivere una nuova funzione fuori 90
che prende la stringa e fa la somma di ogni cifra esclusa l ultima che resta sempre uguale sino ad ottenere un numeretto
Numeretto & ultima cifra saranno il nuovo numero

3 ) una volta che si ottiene un numero valido
Si fanno due cicli per ottenere le 5 quartine
For p=1 to 5
K=0
For p1=1 to 5
If p<>p1 then
K=k+1
Amat(p1,k)= operazione
End
next
Next

4)Poi bisogna costruire 4 cinquina dalle colonne ottenute.
Ci saranno anche molti numeri ripetuti, credo .
Poi utilizzando verificaesitoturbo si dovranno controllare 9 formazioni e l la ricerca si ferma al primo esito.


Non ho fatto lo script, perche sono senza pc , credo che questi siano i passi da seguire, ma non ho modo di verificare, e potrei aver scritto sciocchezze .


Sicuramente ci sarà un modo migliore, ma questo è il primo che mi è venuto in mente.
 

micro__

Advanced Member >PLATINUM<
Grazie anche a te Ilegend, non c'è nulla di cui scusarti, e grazie delle spiegazioni sullo script (purtroppo sono proprio analfabeta sugli script).
In alternativa ho dato comunque le spiegazioni e con excel si possono fare i calcoli che non sono difficili, resta il problema della verifica degli esiti che non so fare comunque con excel.
saluti e grazie ancora I legend
micro
 

joe

Advanced Member >PLATINUM PLUS<
Ilegend,

non so se quali tentativi hai approcciato ma evidentemente 90^6 è difficile da riportare nei rango dei 90 numeri.

Alcune istruzioni del tipo do while loop lo calcolano ma impiegano decine di minuti.

Altre danno direttamente un errore di overflow altre riportano 90.

Questa dunque è, esperienza comune.

Ho risolto creando una con una tabella ad hoc, che peraltro "annulla" i tempi di calcolo riassumendoli in se stessa.

La versione dello script che sto provando riproduce lo schema proposto ad esempio in questo modo:


Beta.jpg

Si tratterà semplicemente di formare le quartine da sottoporre a controllo.

:)
 

i legend

Premium Member
Ciao ,joe in realtà avevo pensato ad utilizzare una stringa.
Function getstring(m)
For I = 1 to len ( m)-1
C=c+mid(m,i,1)
Next
C=figur(c)
If c=9 then c=0
Getstring=c&right (m,1)
End function
Joe qualcosa del genere.
In questo modo dovrebbe fare anche numeri più grandi
Però se sono scritti in notazione esponenziale bisogna convertirli.
Se stasera vado da mio fratello provo a scriverlo da PC e verificare.
 

i legend

Premium Member
Come immaginavo ci sono numeri ripetuti.
Il do while impuegherebbe troppo tempo effettivamente e anche il mod forse da errore di ower
 

micro__

Advanced Member >PLATINUM<
In effetti ci sono numeri ripetuti, devo dire che possono anche ritardare l'esito, non so se non lo danno affatto.

CAGLIARI-10145-11/10/2022
Estratti:

38​
56​
34​
66​
60​

Cruciverba:

-30-08-40-34-
-84-80-22-16-
-84-12-22-16-
-74-02-70-06-
-38-56-34-66-

AMBO AL 6°COLPO
AMBO AL 9°COLPO



:)
saluti
micro
 

micro__

Advanced Member >PLATINUM<
Ilegend,

non so se quali tentativi hai approcciato ma evidentemente 90^6 è difficile da riportare nei rango dei 90 numeri.

Alcune istruzioni del tipo do while loop lo calcolano ma impiegano decine di minuti.

Altre danno direttamente un errore di overflow altre riportano 90.

Questa dunque è, esperienza comune.

Ho risolto creando una con una tabella ad hoc, che peraltro "annulla" i tempi di calcolo riassumendoli in se stessa.

La versione dello script che sto provando riproduce lo schema proposto ad esempio in questo modo:


Vedi l'allegato 2245579

Si tratterà semplicemente di formare le quartine da sottoporre a controllo.

:)
Si scorge un 17 --23 nell' allineamento del 25 ottobre!!
 

i legend

Premium Member
Domani inserisco la funzione che converte i numeri in formato esponenziale in numeri scritti per intero.
Se ricordo bene ad ogni modo.
restituirebbero uno zerato pertanto sarebbero anche inutili.

Servirebbe solo per rendere più flessibile lo script è permettere un calcolo al volo.
Per potenze diverse e non precostituite
Come ha fatto joe, che le ha scritte in tabella è più veloce . Le calcola solo 1 volta
Buona notte a tutti :)
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao ILegend
Qualche tempo fa ebbi lo stesso problema e chiesi aiuto, me lo risolse LuigiB
in questo modo, fino a 17 cifre funziona, con 18 cifre va in ower

Codice:
Option Explicit
Sub Main()
   Dim A,X
   A = InputBox("Inserisci il numero ",,76543210126784)
   X = ModX(A,90)
   Scrivi Format2(A)
   Scrivi
   Scrivi Format2(X)
End Sub
Function ModX(n,m)
   ModX = n -(Fix(n/m) * m)
End Function
 
Ultima modifica:

i legend

Premium Member
Ciao Salvo , grazie
LuigiB ha scritto proprio il codice della funzione mod
Cancello la mia funzione lasciamo quella più bella

Grande Luigi :)
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
Avevo dimenticato di provate con FIX .

Ringrazio per il promemoria.

Diciamo che non dovendo utilizzare numeri negativi, si può anche utilizzare INT.

Ho semplificato il calcolo per ricondurre il numero al giocabile.

Codice:
Option Explicit
Sub Main()
   Dim A,X
   For X = 1 To 90
   A = X^6 'sesta potenza
   Scrivi Format2(X) & "  " & Resto(A)
  Next
  
End Sub
Function Resto(A)
   Resto = Fuori90 (A -(Int(A/90) * 90))
End Function

Confrontando i suoi risultati, con la tabella che avevo prodotto, sono uguali.

TAB_FRATT.jpg

:)
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Salvo , grazie
LuigiB ha scritto proprio il codice della funzione mod
La differenza sta che con le stringhe basta fare una semplice somma ed è meno impegnativo per il pc.
Ovviamente la mia è la soluzione meno elegante e matematicamente non ortodossa , l unico vantaggio è che le stringhe possono essere più lunghe dei numeri, per i PC.
Poi alla fine utilizzo la funzione fuori90
Ma basterebbe fare un ciclo finché non Ottengo un numero da 1 cifra.

Grande Luigi :)

Ciao a Tutti

Nel mio computer, sia quello di ILegend che quello di Joe e naturalmente anche quello di Luigi dato che l'ho menzionato, mi danno risultati giusti fino a 17 cifre se ne metto di più o non danno nessun risultato oppure vanno in ower oppure danno 90 anche se il finale per esempio sia 3, quindi dato che ILegend ha detto che il suo script elabora più numeri ne deduco che probabilmente sia una questione di Sistema Operativo oppure di CPU

Il mio computer Ha 4 Giga di Ram, il Sistema Operativo è Win 7
 

i legend

Premium Member
Ciao Salvo , la mia funzione va rivista
Se il numero è inferiore a 90 non serve scrivere niente.
Purtroppo ho ritoccato la funzione scritta ieri e oggi mi da errore , e non mi rendo conto dove sbaglio.
Con elevazioni superiori a 100 da errore.
Anche se non servono.

Credo sia un problema di formattazione, numeri superiori alle 10 cifre il mio pc li scrive in notazione scientifica. :(
Per questo ho fatto la conversione
Cmq stasera ho il PC e mi ci dedico.
Anche perché fatto così il calcolo è come lo faccio a vista.
 

i legend

Premium Member
Salvo se tu scrivi il numero come string ed è più lungo di 18 caratteri la mia funzione restituisce ugualmente errore?
Potresti verificare per favore?
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto