Richiesta di script per previsioni con cruciverba.

[joe]

Sul mio PC accetta numeri tipo

• Double
  Contiene un numero in virgola mobile e precisione doppia compreso
  tra -1,79769313486232E308 e 1,79769313486232E308

Penso dipenda dal microprocessore, dal sistema operativo e dal VBScript.
So che alcuni Pc hanno co-processore matematico che forse permette precisioni limiti e velocità maggiori.

 

[salvo50]

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

No, ho fatto la prova fino a 50 cifre e non da errore e col fuori 90 da un risultato compatibile con la cadenza impostata, invece come numero al massimo arriva a 15 cifre e dopo si blocca in questa riga

 s = s + Mid(sNum,I,1)

Comunque sei in gamba, un mito

 

[salvo50]

quelle 50 cifre le ho portate a 150 nessun errore

 

[i legend]

Grazie mille Salvo .
Nella speranza che non faccia errori.
So che la procedura di LuigiB è quella corretta, ma cercherò di sviluppare anche questa, più che altro perché è il modo che faccio a mente.
Grazie mille, per le prove e le belle parole.

 

[i legend]

Ciao Micro, ho provato a fare lo script, stamattina ho avuto il pc tutto per me
tempo a disposizione, e gli ossi hanno fatto meno male del solito

per favore controllate i dati perchè , gli errori sono sempre possibili
Mi sono occupato piu che altro di fare il fuori 90 con numeri molto grandi, o per lo meno ci ho provato.
all inizio dello script viene costruita una tabella sommativa, ossia viene associato al numero la sua potenza + il fisso
in pratica fa tutti i calcoli una volta per tutte senza ripeterli di volta in volta
ha senso se si analizzano molte estrazioni,pero, se sono poche conviene fare il calcolo al volo
puoi cambiare potenza a tua scelta
potenze grandi restituiscono numeri in notazione scientifica , pertanto restituiranno sempre uno zerato

puoi verificare potenze che vanno da 2 a 6 o 7 , anche di piu ma non le trovo utili
non mi sono concentrato sulla colorazione della matrice , ma comunque ho impostato la verifica in modo che tu possa capire R (riga) e C colonna
oggi ho da fare, se serve anche quella Joe ha gia fatto lo script, sicuramente lo postera anche lui.

sarebbe importante che venissero confrontati i risultati con le stesse impostazioni, per fare le verifiche.
almeno se ci sono errori si possono rilevare ed aggiyustare
ecco lo script

Option Explicit
' Non si garantisce che i calcoli eseguiti siano esatti
' le operazioni di conversione sono adattate per il calcolo  del lotto
' lo script è regalato cosi com è , l utente finale è responsabile dell utilizzo di tale script
' script su richiesta utente micro su sito Lottoced
'
'https://forum.lottoced.com/threads/richiesta-di-script-per-previsioni-con-cruciverba.2206864/
Sub Main
    Dim aMat(90,90)
    Dim Potenza:Potenza = 6 ' si puo modificare, non inserire potenze superiori al 7 sarebbe inutile
    Call CaricaLeSomme(aMat,Potenza)
    Dim iDestr,Ini,Fin
    Dim R,P1,p2,k,p,sEstr
    Dim colpo,nClp:nClp = 9
    Dim aForm(5,4),aCol(4,5),aLung(9,5),aN(5),aR(1)
    For p=1 To 4
    aForm(0,p)="C"&p
    Next
    For p=1 To 5
    aForm(p,0)="R"&p
    Next
    Fin = EstrazioneFin
    Ini = Fin - 99
    For iDestr = Ini To Fin
        For R = 1 To 12
            If R = 11 Then R = 12
            aR(1) = R
            ReDim aE(0): Call GetArrayNumeriRuota(iDestr,R,aE)
            Scrivi DataEstrazione(iDestr) & " | " & SiglaRuota(R) & " | " & StringaEstratti(iDestr,R) & " | ",,,RGB(236,239,245)
            ' Carico i numeri nellaMatrice di raccolta 5*4
            For P1 = 1 To 5
                k = 0
                For p2 = 1 To 5
                    If P1 <> p2 Then
                        k = k + 1
                        aForm(P1,k) = aMat(aE(P1),aE(p2))
                        aLung(P1,k) = aMat(aE(P1),aE(p2))
                        aLung(k + 5,P1) = aMat(aE(P1),aE(p2))
                    End If
                Next
            Next
            ScriviMatrice(aForm)
            Scrivi String(48,"-") & "+"
            Dim s:s="R"
            Dim cor:cor=0
            For P1 = 1 To UBound(aLung)
            cor=cor+1
            If P1> 5 Then s="C" :cor =P1-5
                For p2 = 1 To UBound(aLung,2)
                    aN(p2) = aLung(P1,p2)
                Next
                Call VerificaEsitoTurbo(aN,aR,iDestr + 1,2,nClp,,,colpo,sEstr)
               
                Scrivi s&cor& " | " &FormatSpace(StringaNumeri(aN,,True),15) & "  | " & FormatSpace(colpo,3) & " | " & FormatSpace(sEstr,17) & " | "
            Next
            Scrivi String(48,"-") & "+"
        Next
    Next
End Sub
' Metodo non matematico per il calcolo del fuori90
' Non se ne garantisce la correttezza :(
Function GetF90(n)
    Dim i,sum
    If n > 90 Then
        Dim sNum: sNum = CStr(n)
        If Mid(n,2,1) = "," Then
            Dim aV: aV = Split(n,"E+")
            'per la conversione corretta della Notazione esponenenziale bisogna calcolare il numero di zeri
            'per eseguirne il Calcolo   , bisogna sottrarre al numero esponenziale la quantita dei numeri Dopo la virgola
            'hai fini di un calcolo fuori 90 non serve perche l ultima cifra sara sempre uno Zeo pertanto per velocizzare il calcolo
            'aggiungeremo uno zero alla cifra che precede la Lettera E+
            'Dim nZeri: nZeri = aV(1) -(Len(aV(0)) - 2) ' Calcolo  per il numero di zeri da aggiungere che non useremo
            'Dim sZeri:sZeri = String(nZeri,"0") ' scrivo gli zeri da aggiungere
            'Scrivi Replace(aV(0)&sZeri,",","")  ' questo se non ho fatto errori dovrebbe essere il numero convertito in formato stringa
            sNum = Replace(aV(0),",","") ' questa è la stringa con l aggiunta di uno zero finale , ai fini della ricerca il risultato non cambia per il fuori 90
            Do While Len(sNum) > 1
                sum = 0
                For i = 1 To Len(sNum)
                    sum = sum + Mid(sNum,i,1)
                Next
                sNum = sum
                If ScriptInterrotto Then Exit Do
                DoEventsEx
            Loop
            sNum = sNum & "0"
        Else
            Dim UltCifra:UltCifra = Right(sNum,1)
            sNum = Left(sNum,Len(sNum) - 1)
            Do While Len(sNum) > 1
                sum = 0
                For i = 1 To Len(sNum)
                    sum = sum + Mid(sNum,i,1)
                Next
                sNum = sum
                If ScriptInterrotto Then Exit Do
                DoEventsEx
            Loop
            If sNum = 9 Then sNum = ""
            sNum = sNum & UltCifra
        End If
    Else
        sNum = n
    End If
    GetF90 = sNum
    If GetF90 = 0 Then GetF90 = 90
End Function
Sub CaricaLeSomme(aMat,Potenza)
    Dim a,b,N
    For a = 1 To 90
        N = GetF90(a^Potenza)
        For b = 1 To 90
            aMat(a,b) = Fuori90(N + b)
        Next
    Next
End Sub

p.s : ho tentato con la funzione modX e anche modificata , ma mi si era impallato il pc
, solo per calcolare la potenza 6
il mio pc ormai comincia ad essere datato

 

[micro__]

ILegend ti ringrazio di tutto, lo proverò stasera al mio ritorno.
Stai bene che è la cosa più importante!!
micro

 

[i legend]

Grazie

Stai bene che è la cosa più importante

Ci sto lavorando.
Grazie mille

 

[i legend]

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 Vedi l'allegato 2245497 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

Ciao questi casi coincidono
Sarebbe utile verificare anche con altre date.
La cosa più importante è vedere i dati ricavati.
Gli esiti li trova la funzione di spaziometria e quella è sicuramente esatta.
Grazie

 

[joe]

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

Ciao Micro_

Buon WeekEnd a tutte/i.

Ringrazio per la risposta.

Seguendo le direttive principali cioè quella di cercare gli ambi

nelle righe e nelle colonne ho tentato di ottenere un output sia compatto che ordinato e ... di facile lettura.

Lo script invece si è complicato perché nel tentativo di ottenere questi risultati ha subito parecchi stravolgimenti.

Attualmente ha output simile a questo, tuttavia è orientato alla ricerca in una singola ruota:

 

[i legend]

Grazie per i pollicioni mike e micro

 

[joe]

Saluto e ringrazio.

Ho controllato nelle ultime estrazioni.

Risultati e calcoli mi risultano uguali.

 

[Mike58]

per la conversione corretta della Notazione esponenenziale bisogna calcolare il numero di zeri
'per eseguirne il Calcolo , bisogna sottrarre al numero esponenziale la quantita dei numeri Dopo la virgola
'hai fini di un calcolo fuori 90 non serve perche l ultima cifra sara sempre uno Zeo pertanto per velocizzare il calcolo
'aggiungeremo uno zero alla cifra che precede la Lettera E+

Complimenti ad ILegend per il ragionamento e l'escamotage adoperata.
Per Joe se metti il tuo script possiamo valutare anche il tuo di algoritmo adoperato.

Io purtroppo non sono riuscito e mia attengo alle soluzioni trovate.

Ciao con un saluto a tutti i partecipanti.

 

[joe]

Mike devi tenere presente che lo script non contiene, una soluzione per i calcoli,

perché essi sono contenuti nella tabella che li contiene.

Mentre per la costruzione della tabella ho già pubblicato qualche giorno fa lo script per poterla creare.

Essendo un pigro ... ho demandato questo lavoro del crearla ad un terzo script.

Per il resto non ho problemi a pubblicare il mio script ... anche se poi ...

Option Explicit
'Frattale ^6 x Micro_ V.2.0 By Joe del 06/11/2022
Sub Main
   Dim N
   Dim Es,G,R,P,Q,E,I,Nu(5,5),C,K,X,Y
   Dim Ru(1),Co,Ris
   N = 6 'Frattale x N <= 12
   C = 3 'Colpi della verifica

   For Es = EstrazioneFin - 20 To EstrazioneFin
      For R = 1 To 1'2 : If R = 11 Then R = 12
         Ru(1) = R
         ReDim Colora(90)
         Scrivi DataEstrazione(Es) & " " & NomeRuota(R) & " ",True
         'Matrice Traslati
         For P = 1 To 5
            I = 0
            E = Estratto(Es,R,P)
            For Q = 1 To 5
               If P <> Q Then
                  I = I + 1
                  Nu(P,I) = Fuori90(Fuori90(E^N -(Int(E^N/90) * 90)) + Estratto(Es,R,Q))
               End If
            Next
            'Scrivi
         Next
         Scrivi
         'Scompone le Righe della Matrice
         Scrivi "Righe",True
         For X = 1 To 5
            ReDim TMP(4)
            K = 0
            For Y = 1 To 4
               K = K + 1
               TMP(K) = Nu(X,Y)
            Next
            Call TogliRipetuti(TMP)
            Scrivi StringaNumeri(TMP,,True) & Space(16 - Len(StringaNumeri(TMP,,True))),0,0
            Call VerificaEsito(TMP,Ru,Es + 1,AMBO_,C,,,Co,Ris)
            If Ris <> "" Then Call Matrice(Colora,Ris,Co): Scrivi Co & "° Colpo " & Ris,1,,,Co - 1 Else Scrivi
         Next
         Scrivi
         'Scompone le Colonne della Matrice
         Scrivi "Colonne",True
         For X = 1 To 4
            ReDim TMP(5)
            K = 0
            For Y = 1 To 5
               K = K + 1
               TMP(K) = Nu(Y,X)
            Next
            Call TogliRipetuti(TMP)          
            Scrivi StringaNumeri(TMP,,True) & Space(16 - Len(StringaNumeri(TMP,,True))),0,0
            Call VerificaEsito(TMP,Ru,Es + 1,AMBO_,C,,,Co,Ris)
            If Ris <> "" Then Call Matrice(Colora,Ris,Co): Scrivi Co & "° Colpo " & Ris,1,,,Co - 1 Else Scrivi
         Next
         Scrivi
         Scrivi "Cruciverba Ambi",True
         ColoreTesto 0
         For P = 1 To 5
            I = 0
            E = Estratto(Es,R,P)
            ColoreTesto 5
            For Q = 1 To 5
               If P <> Q Then
                  I = I + 1
                  Nu(P,I) = Fuori90(Fuori90(E^N -(Int(E^N/90) * 90)) + Estratto(Es,R,Q))
                  If Colora(Nu(P,I)) > 0 Then G = 1 : ColoreTesto 0 '
                  Scrivi Format2(Nu(P,I)) & Space(1),G,0, RGB (200,200,200),Colora(Nu(P,I)) - 1
                  G = 0 : ColoreTesto 5
               End If
            Next
            Scrivi
         Next
         Scrivi
         ColoreTesto 0
         Scrivi String(43,"=")
      Next
   Next
End Sub


Sub Matrice(Colora,Ris,Co)
   Dim X,N
   N = Split(Ris," ")
   For X = 1 To UBound(N)
      If N(X) <> ".." Then N(X) = Int(N(X)) : Colora(N(X)) = Co
   Next
End Sub


Function TogliRipetuti(N)
   Dim Nu(90)
   Dim I,U,K
   U = UBound(N)
   ReDim tmp(0)
   For I = 1 To U
      If CInt(N(I)) <> CInt(Nu(N(I))) Then
         K = K + 1
         ReDim Preserve tmp(K)
         tmp(K) = CInt(N(I))
         Nu(N(I)) = CInt(N(I))
      End If
   Next
   ReDim N(K)
   For I = 1 To K
      N(I) = tmp(I)
   Next
   TogliRipetuti = N
End Function

 

[Mike58]

Grazie tantissimo, Joe per lo script.
Effettivamente è un pochetto articolato, cercherò leggendo il costrutto di capirne le varie simulazioni.

Purtroppo sono diventato un pò pigro anch'io.
Anche se siamo rimasti in pochi ad operarsi, non manca mai l'ingegno per raggiungere scopi di difficile realizzazione.

Un saluto a tutti.

 

[micro__]

Grazie a tutti per il lavoro svolto, bravissimi tutti! devo dire che adesso c'è, con i vostri script, uno strumento in più per vedere in altro modo convergenze su ruota. Vedo che Genova ha già risposto positivamente al 1° colpo come anche Milano in precedenza...sempre procedendo indietro di estrazione in estrazione vedo Venezia Torino e poi Cagliari al 2° colpo...insomma a me sembra un ottimo script per consultazione e per aggiungere un tassello in più ai tanti studi prodotti dai previsionisti.


Grazie ancora a tutti avete fatto un lavoro superbo!
Buon w.e. a tutti
micro

 

[micro__]

Mike devi tenere presente che lo script non contiene, una soluzione per i calcoli,

perché essi sono contenuti nella tabella che li contiene.

Mentre per la costruzione della tabella ho già pubblicato qualche giorno fa lo script per poterla creare.

Essendo un pigro ... ho demandato questo lavoro del crearla ad un terzo script.

Per il resto non ho problemi a pubblicare il mio script ... anche se poi ...

Option Explicit
'Frattale ^6 x Micro_ V.1.0 By Joe del 05/11/2022
Sub Main
   Dim N(90)
   Dim Es,G,R,P,Q,E,I,Nu(5,5),C,K,X,Y
   Dim Ru(1),Co,Ris
   C = 3 'Colpi della verifica
   'Tabella N^6
   N(01) = 01 : N(02) = 64 : N(03) = 09 : N(04) = 46 : N(05) = 55 : N(06) = 36 : N(07) = 19 : N(08) = 64 : N(09) = 81 : N(10) = 10
   N(11) = 01 : N(12) = 54 : N(13) = 19 : N(14) = 46 : N(15) = 45 : N(16) = 46 : N(17) = 19 : N(18) = 54 : N(19) = 01 : N(20) = 10
   N(21) = 81 : N(22) = 64 : N(23) = 19 : N(24) = 36 : N(25) = 55 : N(26) = 46 : N(27) = 09 : N(28) = 64 : N(29) = 01 : N(30) = 90
   N(31) = 01 : N(32) = 64 : N(33) = 09 : N(34) = 46 : N(35) = 55 : N(36) = 36 : N(37) = 19 : N(38) = 64 : N(39) = 81 : N(40) = 10
   N(41) = 01 : N(42) = 54 : N(43) = 19 : N(44) = 46 : N(45) = 45 : N(46) = 46 : N(47) = 19 : N(48) = 54 : N(49) = 01 : N(50) = 10
   N(51) = 81 : N(52) = 64 : N(53) = 19 : N(54) = 36 : N(55) = 55 : N(56) = 46 : N(57) = 09 : N(58) = 64 : N(59) = 01 : N(60) = 90
   N(61) = 01 : N(62) = 64 : N(63) = 09 : N(64) = 46 : N(65) = 55 : N(66) = 36 : N(67) = 19 : N(68) = 64 : N(69) = 81 : N(70) = 10
   N(71) = 01 : N(72) = 54 : N(73) = 19 : N(74) = 46 : N(75) = 45 : N(76) = 46 : N(77) = 19 : N(78) = 54 : N(79) = 01 : N(80) = 10
   N(81) = 81 : N(82) = 64 : N(83) = 19 : N(84) = 36 : N(85) = 55 : N(86) = 46 : N(87) = 09 : N(88) = 64 : N(89) = 01 : N(90) = 90
   For Es = EstrazioneFin - 3 To EstrazioneFin
      For R = 1 To 12 : If R = 11 Then R = 12
         Ru(1) = R
         ReDim Colora(90)
         Scrivi DataEstrazione(Es) & " " & NomeRuota(R) & " ",True
         'Matrice Traslati
         For P = 1 To 5
            I = 0
            E = Estratto(Es,R,P)
            For Q = 1 To 5
               If P <> Q Then
                  I = I + 1
                  Nu(P,I) = Fuori90(N(E) + Estratto(Es,R,Q))
               End If
            Next
            'Scrivi
         Next
         Scrivi
         'Scompone le Righe della Matrice
         Scrivi "Righe",True
         For X = 1 To 5
            ReDim TMP(4)
            K = 0
            For Y = 1 To 4
               K = K + 1
               TMP(K) = Nu(X,Y)
            Next
            Call EliminaRipetuti(TMP,True)
            Scrivi StringaNumeri(TMP,,True) & Space(16 - Len(StringaNumeri(TMP,,True))),0,0
            Call VerificaEsito(TMP,Ru,Es + 1,AMBO_,C,,,Co,Ris)
            If Ris <> "" Then Call Matrice(Colora,Ris,Co): Scrivi Co & "° Colpo " & Ris,1,,,Co - 1 Else Scrivi
         Next
         Scrivi
         'Scompone le Colonne della Matrice
         Scrivi "Colonne",True
         For X = 1 To 4
            ReDim TMP(5)
            K = 0
            For Y = 1 To 5
               K = K + 1
               TMP(K) = Nu(Y,X)
            Next
            Call EliminaRipetuti(TMP,True)
            Scrivi StringaNumeri(TMP,,True) & Space(16 - Len(StringaNumeri(TMP,,True))),0,0
            Call VerificaEsito(TMP,Ru,Es + 1,AMBO_,C,,,Co,Ris)
            If Ris <> "" Then Call Matrice(Colora,Ris,Co): Scrivi Co & "° Colpo " & Ris,1,,,Co - 1 Else Scrivi
         Next
         Scrivi
         Scrivi "Cruciverba Ambi",True
         ColoreTesto 0
         For P = 1 To 5
            I = 0
            E = Estratto(Es,R,P)
            ColoreTesto 5
            For Q = 1 To 5
               If P <> Q Then
                  I = I + 1
                  Nu(P,I) = Fuori90(N(E) + Estratto(Es,R,Q))
                  If Colora(Nu(P,I)) > 0 Then G = 1 : ColoreTesto 0 '
                  Scrivi Format2(Nu(P,I)) & Space(1),G,0,,Colora(Nu(P,I)) - 1
                  G = 0 : ColoreTesto 5
               End If
            Next
            Scrivi
         Next
         Scrivi
         ColoreTesto 0
         Scrivi String(43,"=")
      Next
   Next
End Sub
Sub Matrice(Colora,Ris,Co)
   Dim X,N
   N = Split(Ris," ")
   For X = 1 To UBound(N)
      If N(X) <> ".." Then N(X) = Int(N(X)) : Colora(N(X)) = Co
   Next
End Sub

...Joe qui forse intendevi dire che, sull'output, la griglia del cruciverba si può vedere solo cliccando (ed evidenziando) l'area sotto la scritta "Cruciverba ambi"? Almeno sul mio spaziometria devo fare così...e per gli esiti non ancora avvenuti.

saluti!
micro

 

[micro__]

Sono andato a ritroso (fino alla prima estrazione di ottobre) per controllare gli esiti del cruciverba al 1°colpo.

Le ruote assenti all'esito al 1° colpo mi risultano Bari e Nazionale.

Il 4.10.2022 si è verificato un isocronismo (FI/MI/TO) che si è interrotto al 2° colpo con una nuova uscita al 1° colpo su Milano.

Firenze e Palermo al 13.10.2022 e al 25.10.2022 hanno prodotto una sorta di equilibrio instabile al 1°c.

Gli isocronismi in uscita al 1° colpo del 27.10.2022 e del 29.10.2022 sono da mettere sotto osservazione sulle rispettive ruote.

Più tardi vedrò di proseguire questo tipo di studio col mese di settembre 2022.

saluti, grazie a tutti,
micro


05.11.2022 ??
03.11.2022 Genova 1°
02.11.2022 Milano 1°
29.10.2022 Venezia 1° 29.10.2022 Torino 1°
27.10.2022 Roma 1° 27.10.2022 Cagliari 1°
25.10.2022 Palermo 1° 25.10.2022 Firenze 1°
22.10.2022 nessun esito al 1°c
20.10.2022 Venezia 1°
18.10.2022 nessun esito al 1°c
15.10.2022 Venezia 1°
13.10.2022 Firenze 1° 13.10.2022 Palermo 1°
11.10.2022 Genova 1°
08.10.2022 Milano 1° 08.10.2022 Venezia 1°
06.10.2022 nessun esito al 1°c
04.10.2022 Firenze 1° 04.10.2022 Milano 1° 04.10.2022 Torino 1°
01.10.2022 nessun esito al 1°c

 

[micro__]

Salvo errori, proseguendo con entrambi gli script, ho evidenziato in grassetto qui sotto gli isocronismi con 3 esiti per verificare i successivi risultati di rottura.

Bari tarda l'esito positivo a colpo dal 22 settembre

29.09.2022 | MI 1°C

27.09.2022 | NZ 1°C 27.09.2022 | TO 1° 27.09.2022 | RO 1°

24.09.2022 | TO 1°C 24.09.2022 | FI 1° 24.09.2022 | CA 1°

22.09.2022 | BA 1°C

20.09.2022 nessun esito al 1°c

17.09.2022 | TO 1°C 17.09.2022 | RO 1°C 17.09.2022 | FI 1°C

15.09.2022 | TO 1°C

13.09.2022 | VE 1°C

10.09.2022 nessun esito al 1°c

08.09.2022 | MI 1°C 08.09.2022 | GE 1°C

06.09.2022 | GE 1°C

03.09.2022 | NZ 1°C 03.09.2022 | TO 1°C

01.09.2022 | VE 1°C 01.09.2022 | FI 1°C


Per le convergenze direi quindi, sempre a colpo, di verificare BARI e anche FIRENZE /PALERMO
saluti
micro

 

[joe]

...Joe qui forse intendevi dire che, sull'output, la griglia del cruciverba si può vedere solo cliccando (ed evidenziando) l'area sotto la scritta "Cruciverba ambi"? Almeno sul mio spaziometria devo fare così...e per gli esiti non ancora avvenuti.

saluti!
micro

Ciao Micro_

In realtà io uso il colore grigio come sfondo. Perché è meno abbagliante.

Inoltre i colori sono pochi e se si escludono vicendevolmente bianco e nero ...

sono ancora meno.

Dunque ho scelto di avere una sola Matrice per evidenziare i caduti

al primo colpo in nero,
al secondo in blu,
al terzo in rosso

e poi sarebbero possibili anche verdi e gialli (bianchi) ... a seguire.

So che non è perfetta questa visualizzazione ... ma ...

Dunque è sufficiente sostituire con questa linea quella del tutto simile

"al centro" della parte che inizia con il titolo "Cruciverba Ambi".

Scrivi Format2(Nu(P,I)) & Space(1),G,0, RGB (190,190,190),Colora(Nu(P,I)) - 1

A seguito di questo i numeri di colore bianco diventeranno visibili su sfondo grigio.

Modificherò lo script togliendo, la tabella iniziale e sostituirò EliminaRipetuti con una routine ad hoc.

Può già essere cancellata in tutte le sue occorrenze senza che cambino i risultati.

Perché quella istruzione introduce ANCHE un ordinamento dei numeri

che scombussola l'ordine degli estratti e rende difficoltoso il confronto tra le tabelle.

 

[micro__]

Grazie Joe...
adesso con il fondo grigio si vede meglio la tabella. Aile prossime modifiche allora,
buona domenica,
micro