Novità

Richiesta di script per previsioni con cruciverba.

micro__

Advanced Member >GOLD<
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 >GOLD<
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 >GOLD<
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 >GOLD<
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 >GOLD<
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
    sabato 03 dicembre 2022
    Bari
    21
    01
    70
    90
    81
    Cagliari
    63
    58
    54
    32
    18
    Firenze
    66
    77
    04
    29
    37
    Genova
    89
    50
    67
    68
    27
    Milano
    78
    49
    64
    58
    89
    Napoli
    79
    06
    22
    77
    25
    Palermo
    39
    64
    65
    10
    71
    Roma
    09
    39
    31
    54
    58
    Torino
    41
    37
    88
    33
    61
    Venezia
    43
    40
    58
    66
    23
    Nazionale
    38
    23
    65
    66
    60
    Estrazione Simbolotto
    Venezia
    34
    37
    26
    23
    41

Ultimi Messaggi

Alto