Richiesta di script per previsioni con cruciverba.

[micro__]

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 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

 

[micro__]

porto su...grazie se lo potete fare,

saluti,
micro

 

[joe]

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__]

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]

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.

 

[i legend]

Scusa joe non avevo visto il tuo intervento.
Chiedo scusa anche a te micro.

 

[micro__]

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]

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:




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

 

[i legend]

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]

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

 

[micro__]

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

 

[i legend]

Cancellato la funzione
Quella postata da Salvo è migliore

 

[micro__]

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]

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]

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

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

 

[i legend]

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

Grande Luigi

 

[joe]

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.

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.

 

[salvo50]

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]

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]

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