come trasformare in numeri romani alcuni numeri arabi di una sotto stringa... ?

[BaffoBlù]

Ciao
Personalmente, visto che si conoscono, utilizzerei un array con memorizzati i valori trasformati come stringhe.
A(1)÷"stringa1"
A(2)="stringa2"
.......
A(90)="stringa90"
.......
asep=array("","*","*","*","*","")
For p=1 to 5
E= estratto (id,r,p)
scrivi A(e)&sep,,0
Next
Scrivi
Ciao è solo un esempio,

Non serve calcolare ad ogni estrazione tutto.
Se non si conoscono i numeri si calcolano solo una volta per caricare l array.
Credo sia più veloce, ma bon riesco a provare.





 

si si anche questa è una via

 

[BaffoBlù]

GRAZIE A TUTTI

 

[BaffoBlù]

grazie mi avete tolto uno sfizio di osservare le estrazioni da un punto di vista spaziometrico,
ma con una visione totalmente inaspettata, però...

 

[joe]

Sicuramente con 8 bit

si è nel più classico del classici,

8 per 90 numeri sono in eccesso, ma è più che legittimo che lo siano.

Sicuramente ha ragione Ilegend.

Calcoalre la tabella delle corrispondenze Una Volta per Tutte, riduce il tempo di elaborazione.

Se tuttavia se si tratta di visioni spaziometriche ... da far rientrare nel breve delle 30/40/50 estrazioni,

questo convertitore che le crea in un attimo.

Lo propongo perchè fornito dall' IA soprattutto perchè utilzza una istruzione per riversare la stringa

COMPATIBILE A SPAZIOMETRIA, che non ricordo di aver visto utilizzata in nessun altro script.

Sub Main()
'DecToBin By Joe & IA V.1.0 del 07/02/2024.
   Dim Ini,Fin,Es,R,P,E
   Ini = EstrazioneFin - 17 : Fin = EstrazioneFin
   R = ScegliRuota : If R = 11 Then R = 1
   Scrivi NomeRuota(R),True
   For Es = Ini To Fin
      Scrivi Es,0,0
      Scrivi "*",0,0,,2
      Scrivi  DataEstrazione(Es,,,"/") ,0,0
      Scrivi "*",0,0,,2
      For P = 1 To 5
         E = Estratto(Es,R,P)
         Scrivi FormattaStringa(DecToBin(E),"00000000"),0,0
         If P < 5 Then Scrivi "*",0,0,,2
      Next
      Scrivi
   Next
End Sub
Function DecToBin(Dec)
   Dim Temp,I
   If(Dec = 0) Then
      DecToBin = 0
   Else
      Temp = ""
      While(Dec <> 0)
      Temp = Temp &(Dec Mod 2)
      Dec = Dec \ 2
   Wend
   DecToBin = StrReverse(Temp)
End If
End Function

 

[i legend]

Ciao joe
NON SONO SICURO CHE POSSA ANDARE BENE
Hai provato a fare
Temp= ( dec mod 2) & temp
Anziché
Temp=temp& (dec mod 2)?



Non dovrebbe servire utilizzare la funzione reverse, ma non ne sono sicuro , proverò a lanciare le due funzioni , e l archivio ottenuto, in un foglio di calcolo l per trovare le differenze se ci sono.
vedo se domani sono più in gamba👍, oggi non è giornata, sono stanco .

.
Complimenti per l algoritmo🙂👍
Anche il mio è simile
Ma ho utilizzato do while

Ho provato a caricare l array prima di scrivere l archivio
Su tutto guadagna un' po' come ipotizzato

Ciao.

 

[joe]

Ilgend,

avevo utilizzato un mio vecchio script che ha tutt'altro metodo di calcolo.

Come detto ... mi ha incuriosito la soluzione dell' IA e l'ho applicata alla richiesta.

Poi essendomi sconosciuta quell'istruzione, avevo già preso in cosdiderazione di doverla redigere ... exnovo.

Però trovandola funzionante, si è dimostrata efficace e direttamente applicabile.

Per il resto il grosso del tempo-esecuzione è nella formazione del codice html.

Dunque non sono riuscito ad aumentare più di tanto (circa 1/100 di secondo su 0.35)

la velocità di calcolo di 1000 estrazioni.

 

[BaffoBlù]

Sicuramente con 8 bit

si è nel più classico del classici,

8 per 90 numeri sono in eccesso, ma è più che legittimo che lo siano.

Sicuramente ha ragione Ilegend.

Calcoalre la tabella delle corrispondenze Una Volta per Tutte, riduce il tempo di elaborazione.

Se tuttavia se si tratta di visioni spaziometriche ... da far rientrare nel breve delle 30/40/50 estrazioni,

questo convertitore che le crea in un attimo.

Lo propongo perchè fornito dall' IA soprattutto perchè utilzza una istruzione per riversare la stringa

COMPATIBILE A SPAZIOMETRIA, che non ricordo di aver visto utilizzata in nessun altro script.

Sub Main()
'DecToBin By Joe & IA V.1.0 del l07/0/2024.
   Dim Ini,Fin,Es,R,P,E
   Ini = EstrazioneFin - 17 : Fin = EstrazioneFin
   R = ScegliRuota : If R = 11 Then R = 1
   Scrivi NomeRuota(R),True
   For Es = Ini To Fin
      Scrivi Es,0,0
      Scrivi "*",0,0,,2
      Scrivi  DataEstrazione(Es,,,"/") ,0,0
      Scrivi "*",0,0,,2
      For P = 1 To 5
         E = Estratto(Es,R,P)
         Scrivi FormattaStringa(DecToBin(E),"00000000"),0,0
         If P < 5 Then Scrivi "*",0,0,,2
      Next
      Scrivi
   Next
End Sub
Function DecToBin(Dec)
   Dim Temp,I
   If(Dec = 0) Then
      DecToBin = 0
   Else
      Temp = ""
      While(Dec <> 0)
      Temp = Temp &(Dec Mod 2)
      Dec = Dec \ 2
   Wend
   DecToBin = StrReverse(Temp)
End If
End Function

Interessante, efficace.

perché mi riporta a bari se scelgo tutte?

pensavo che si potessero vedere tutte le ruote come un archivio classico
niente di strano (voglio solo osservare gli spazi e i vuoti che si creano visionando in questo modo,
diciamo ritornando al primordiale...

mi interessa visionare tutto l'archivio dal 1871

 

[joe]

Non sono sicuro, che faccia bene alla vista.

Forse ho letto o ho inteso che si considerasse una ruota alla volta.

In ogni caso per aver-le "tutte" ci vuole un ciclo for-next in più per alimentare la tabella in orizzontale.

Sub Main()
'DecToBin By Joe & IA V.1.1 del 9/02/2024.
Dim Ini,Fin,Es,R,P,E,D
Ini = 1 : Fin = EstrazioneFin : D = 1 'Dimensione carattere
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
   Scrivi Es,0,0,,,D
   Scrivi ".",0,0,,2,D
   Scrivi DataEstrazione(Es,,,"/"),0,0,,,D
   Scrivi "|",1,0, ,2,D
   For R = 1 To 12 : If R = 11 Then R = 12
      For P = 1 To 5
         E = Estratto(Es,R,P)
         Scrivi FormattaStringa(DecToBin(E),"00000000"),0,0,,,D
         If P < 5 Then Scrivi ".",0,0,,2,D
      Next
      Scrivi "|",1,0,,2,D
   Next
   Scrivi
Next
End Sub
Function DecToBin(Dec)
   Dim Temp,I
   If(Dec = 0) Then
      DecToBin = 0
   Else
      Temp = ""
      While(Dec <> 0)
      Temp = Temp &(Dec Mod 2)
      Dec = Dec \ 2
   Wend
   DecToBin = StrReverse(Temp)
End If
End Function

Dovendo creare un archivio completo ... impiega un pò di tempo.

Se necessario si dovranno aggiungere i titoli alle varie colonne.

In ogni caso ogni ruota va da tratto-verticale a tratto-verticale (rosso).

I 5 estratti di ogni ruota sono separati da un puntino (rosso)

 

[BaffoBlù]

Non sono sicuro, che faccia bene alla vista.

Forse ho letto o ho inteso che si considerasse una ruota alla volta.

In ogni caso per aver-le "tutte" ci vuole un ciclo for-next in più per alimentare la tabella in orizzontale.

Sub Main()
'DecToBin By Joe & IA V.1.1 del 9/02/2024.
Dim Ini,Fin,Es,R,P,E,D
Ini = 1 : Fin = EstrazioneFin : D = 1 'Dimensione carattere
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
   Scrivi Es,0,0,,,D
   Scrivi ".",0,0,,2,D
   Scrivi DataEstrazione(Es,,,"/"),0,0,,,D
   Scrivi "|",1,0, ,2,D
   For R = 1 To 12 : If R = 11 Then R = 12
      For P = 1 To 5
         E = Estratto(Es,R,P)
         Scrivi FormattaStringa(DecToBin(E),"00000000"),0,0,,,D
         If P < 5 Then Scrivi ".",0,0,,2,D
      Next
      Scrivi "|",1,0,,2,D
   Next
   Scrivi
Next
End Sub
Function DecToBin(Dec)
   Dim Temp,I
   If(Dec = 0) Then
      DecToBin = 0
   Else
      Temp = ""
      While(Dec <> 0)
      Temp = Temp &(Dec Mod 2)
      Dec = Dec \ 2
   Wend
   DecToBin = StrReverse(Temp)
End If
End Function

Dovendo creare un archivio completo ... impiega un pò di tempo.

Se necessario si dovranno aggiungere i titoli alle varie colonne.

In ogni caso ogni ruota va da tratto-verticale a tratto-verticale (rosso).

I 5 estratti di ogni ruota sono separati da un puntino (rosso)

Accidenti è bellissimo grazie!

Capirai, gira in un fulmine.

io ho miei script personali che anche se ottimizzati al massimo che uno scripter poteva fare
alcuni girano in 40 minuti, ma fanno delle ricercone immense da spavento.

vedo se cambio qualche separatore scegliendo qualcuno più grosso o visibile, ma non invadente, poi vedo...

i nomi delle ruote non sono proprio necessarie, magari solo sopra come intestazione.

...mi sta frullando di crearmi un file e andare in tipografia...

hi hi hi mi stampo i rotoli del mar morto a grandezza adeguata e poi me lo srotolo e lo Riarrotolo come voglio...

lo so sono un pazzo visionario...

lo messo nella firma ...

 

[joe]

Il carattere può essere facilmente aumentato.

Dipende dalla variabile numerica della lettera D nelle prime righe dello script.

Mi sono anche mantenuto libero di poter apportare modifiche successive,

senza doverci impazzire.

Personalmente più che da un tipografo, utilizzerei lo stesso budget in un monitor,

più grande e con maggiore risoluzione (se la sceda grafica lo permette).

Quanto ti propongo qui di seguito è ottenuto con semplici modifiche.

Dovrebbe essere visibile con una acutezza visiva di circa 5 decimi o superiore,

già con un monitor di 19 pollici o poco più grande.

In presenza di deficit visivo, molto conta anche la luminosità,

il colore, il contrasto cromatico tra fondo e carattere.

Per esempio forse sarebbero più distinguibili, come Bianco o Nero, Giallo o Blu,

Rosso e Verde ... Ma molto dipende dalla condizioni visive presenti.



Come dici ... è da sottoporre a prove nel tentativo di trovare una buona soluzione.

 

[BaffoBlù]

Il carattere può essere facilmente aumentato.

Dipende dalla variabile numerica della lettera D nelle prime righe dello script.

Mi sono anche mantenuto libero di poter apportare modifiche successive,

senza doverci impazzire.

Personalmente più che da un tipografo, utilizzerei lo stesso budget in un monitor,

più grande e con maggiore risoluzione (se la sceda grafica lo permette).

Quanto ti propongo qui di seguito è ottenuto con semplici modifiche.

Dovrebbe essere visibile con una acutezza visiva di circa 5 decimi o superiore,

già con un monitor di 19 pollici o poco più grande.

In presenza di deficit visivo, molto conta anche la luminosità,

il colore, il contrasto cromatico tra fondo e carattere.

Per esempio forse sarebbero più distinguibili, come Bianco o Nero, Giallo o Blu,

Rosso e Verde ... Ma molto dipende dalla condizioni visive presenti.

Vedi l'allegato 2278011

Come dici ... è da sottoporre a prove nel tentativo di trovare una buona soluzione.

Grazie joe

anch'io avevo pensato a quelle modifiche estetiche a cui poi ci penserò.

il fatto è che già sto con 50 pollici (uso la tv come monitor)

Stampare tutto su supporto adeguato che sia largo almeno 4 metri se non di più
e far fare il meccanismo arrotola srotola...

Solo un pazzo visionario come me le può pensare ste cose astratte...

 

[joe]

Nelle prove ho notato che a Genova ...

se di Spaziometria si tratta qualcosa si è fatto notare.

 

[BaffoBlù]

Nelle prove ho notato che a Genova ...

se di Spaziometria si tratta qualcosa si è fatto notare.Vedi l'allegato 2278065

Bellissimo

ma i pallini rossi sono gli "uno" ?

 

[joe]

Ebbene si ...

... assomiglia alle vecchie schede perforate.

I numeri erano il classico dei classici 30 poi 30 poi 60 poi ancora 30.

Genova.

Interssante il terno, subito realizzato da questo suggerimento spaziometrico.

Mentre tutto intorno era burrasca!

 

[BaffoBlù]

Ebbene si ...

... assomiglia alle vecchie schede perforate.

I numeri erano il classico dei classici 30 poi 30 poi 60 poi ancora 30.

Genova.

Interssante il terno, subito realizzato da questo suggerimento spaziometrico.

Mentre tutto intorno era burrasca!

cioè, ma la trasformazione in pallini la fai anche per gli zeri?

mi sa che sti stai addentrando in qualcosa di totalmente mai visto.

complimenti

 

[joe]

cioè, ma la trasformazione in pallini la fai anche per gli zeri?

mi sa che sti stai addentrando in qualcosa di totalmente mai visto.

complimenti

Si puoi immaginare i singoli bit come altrettante lampadine.

Ognuna può essere accesa o spenta.

Tuttavia sia accesa che spenta è pur sempre una lampadina (bianca o rossa che sia).

Nella posizione che essa ha nei confronti delle altre e relativamente all'universo- numeri.

Che sia PRESERVATA l'integrità posizionale rende necessario che ci sianod ei bit-zero.

Sono necessari per poter consentire la conversione

costante e biunivoca tra i sistemi numerici differenti.

Da binario a decimale e viceversa.

 

[BaffoBlù]

Si puoi immaginare i singoli bit come altrettante lampadine.

Ognuna può essere accesa o spenta.

Tuttavia sia accesa che spenta è pur sempre una lampadina (bianca o rossa che sia).

Nella posizione che essa ha nei confronti delle altre e relativamente all'universo- numeri.

Che sia PRESERVATA l'integrità posizionale rende necessaria

la presenza di bit-zerati, è necessaria per poter consentire la conversione

costante e biunivoca tra i sistemi numerici binario e decimale.

per la miseria mi gira la testa solo al pensiero di quello che si potrebbe fare

sto diventando scemo, fra metodi, script, analisi, e fra un po' avrò bisogno io di analisi...

sono solo 2 settimane che scrivo e non so quanto grossa diventerà quella sezione
e quanti 3D si accumuleranno,.mi sa che o scoppia la sezione o scoppio Io...

Accidenti non mi son reso conto di quanto ho scritto
ma avete visto mai fare una cosa del genere o sono io che sono anormale?

Ogni ora sembra che sto per tirare le cuoia e poi...

nemmeno io mi capisco

mi conosco a fondo ma rimango un grande mistero che ancora non riesco a capire..

 

[joe]

Non ti devi preouccupare.

Molti di noi potrebbero istruire una squadra di appassionati, dipendenti, collaboratori, subordinati, programmatori, giocatori ...

incaricandoli di 1000 compiti diversi da svolgere.

Dosandoli, appena un pò, ce ne sarebbe per secoli.

Se pensi che un ciarlatano riesce a farsi pagare ANCORA dopo almeno un decennio vendendo libricini con decine frottole ...

E' spiegato perchè arrivano, chiedono, scopiazzano qualche mezza idea ... spariscono nei loro traffici e non tornano che a distanza.

Mezza ... perchè, tutta non la capiscono e pertanto, non sanno come continuare i loro businnes.

Venditti sciverebbe: "Fanno dei giri immensi e poi ritornano".

Per dare invece un senso compiuto a quanto avevo scritto ti allego sulla destra la tabella dei pesi-binari per convertire

i numeri 30.60 da binario a decimale. (ed anche per evidenziare in analogia gli "uno" accesi di rosso e gli Zero ... in bianco.

Nell'immagine avevo tracciato una linea verticale che abbracciava i 4 numeri PARI 30.30.60.30.

Abbastanza prevedibile che dovesse seguire un DISPARI ... ovvero accendersi un "PuntoRosso" in ultima colonna.

Appartiene però allo stesso 53 ... già a far, da spalla a quella formazione verticale.

90 ... va da sè che anch'esso è ampiamente evidente in Spaziometria tra Bari e Cagliari

a completare le 2 classiche diagonali :



Dunque 30.53.60.90 hanno dato il Terno 30.53.90 a Firenze ... a colpo.

 

[BaffoBlù]

Non ti devi preouccupare.

Molti di noi potrebbero istruire una squadra di appassionati, dipendenti, collaboratori, subordinati, programmatori, giocatori ...

incaricandoli di 1000 compiti diversi da svolgere.

Dosandoli, appena un pò, ce ne sarebbe per secoli.

Se pensi che un ciarlatano riesce a farsi pagare ANCORA dopo almeno un decennio vendendo libricini con decine frottole ...

E' spiegato perchè arrivano, chiedono, scopiazzano qualche mezza idea ... spariscono nei loro traffici e non tornano che a distanza.

Mezza ... perchè, tutta non la capiscono e pertanto, non sanno come continuare i loro businnes.

Venditti sciverebbe: "Fanno dei giri immensi e poi ritornano".

Per dare invece un senso compiuto a quanto avevo scritto ti allego sulla destra la tabella dei pesi-binari per convertire

i numeri 30.60 da binario a decimale. (ed anche per evidenziare in analogia gli "uno" accesi di rosso e gli Zero ... in bianco.

Nell'immagine avevo tracciato una linea verticale che abbracciava i 4 numeri PARI 30.30.60.30.

Abbastanza prevedibile che dovesse seguire un DISPARI ... ovvero accendersi un "PuntoRosso" in ultima colonna.

Appartiene però allo stesso 53 ... già a far, da spalla a quella formazione verticale.

90 ... va da sè che anch'esso è ampiamente evidente in Spaziometria tra Bari e Cagliari

a completare le 2 classiche diagonali :

Vedi l'allegato 2278301

Dunque 30.53.60.90 hanno dato il Terno 30.53.90 a Firenze ... a colpo.

La mia faccia è come questa faccina

53-30=23
90-23=-------------------67
53+30=83
83+23=16
83-23=------------60
83-16=-------------------67
60+30=------------------90
83+67=-----------60
67+23=------------------90
60-23=37
83+37=------------------30
23+37=----------60
37+16=------------------53
37+37= 74
74-16=------------------58

se continuo vado sempre con quei 5 numeri


58.53.30.90.67

Abbiamo fatto Cinquina JOE !!!

 

[BaffoBlù]

Cinquina con la neonata e battezzata da me medesimo Messer BaffoBlù



"Spaziometria Binaria"...



Grazie a Joe, sennò nisba...