Script su Metodi Cabalistici, Ciclometrici & C.

[joe]

Buon Giorno a tutte/i.

Tipicamente ci sono alcune considerazioni da porre in evidenza.

La prima è che le estrazioni NORMALMENTE sono effettuate a distanza di alcuni giorni. (2 o 3)

Quindi se dopo 2 o 3 giorni da una estrazione ... "si entra" in nuovo mese ...

codesta estrazione è da considerarsi essere l' "ultima del mese".

Per convalidare questo calcolo si deve sapere a quale giorno appartiene l' estrazione che si sta considerando.

Ovvero, per deliberare congruamente se questa estrazione è l'ultima del mese o no ...

si deve sapere, se questa estrazione è quella del martedì del giovedì o del sabato.

Perché tra "martedì e giovedì" e tra "giovedì e sabato" trascorrono 2 giorni.

Mente tra l'estrazione di "sabato e martedì" sono presenti 3 giorni.

Cioè, le estrazioni vengono effettuate secondo uno schema ripetitivo: +2 / +2 / +3 giorni.

In sintesi ... se aggiungendo selettivamente +2giorni o +3giorni alla data di una estrazione

"si arriva" in un nuovo mese/differente da quello da cui si è partiti,

questa estrazione ... è l' "ultima del mese".

Fortunatamente Spaziometrria implementa l'algoritmo di calcolo che ho appena descritto.

Dunque c'è l'istruzione IsUltimaDelMese (idEstrazione) che restituisce Vero o Falso.

Per L8+ ed Excel bisogna redigere o rintracciare il codice per effettuare questo calcolo

ed aggiungerlo, come funzione, a questi programmi che ne sono sprovvisti.

Per la "prima estrazione" de mese, è molto semplice.

Essa ha IndiceMensile (idEstrazione) = 1

 

[salvo50]

Ciao Joe, io prima di arrendermi quando ho fatto lo script avevo impostato oltre a

IndiceMensile(Es)

avevo messo anche

IsUltimaDelMese (es)

Ma non ho saputo accoppiarli bene, e non ero riuscito a completare lo script, per questo volevo chiedere aiuto, ma dopo aver visto la risposta di Rubino (che evidentemente ho frainteso) avevo pensato che non si poteva fare niente.

 

[joe]

Ciao Salvo,

Se posso ...

... Rubino è molto bravo e giustamente dice 13 estrazioni per 12 mesi = 156 estrazioni = 1 anno.

Se è una ricerca ciclica meglio avere tutti i cicli uguali di 13 estrazioni.

Se si ragiona per mesi ... ammesso che esistano ... il discorso cambia.

C'è una prima estrazione, che ha sempre l'indice 1 e l'ultima che può essere l' 11/12/13/14 esima ...

... dipende dai mesi e dal giorno in cui incomincia l'anno.

 

[claudio8]

Conoscendo la 1a del mese basta ciclare per max 14 estrazioni mensili si ottiene la nuova 1a mese.

Dal numero di estrazione ottenuto togliere 1 e si avrà l'ultima del mese in corso d'uso.

For Estrazione = Es + 1 To Es + 14 ' ( step 1 è inutile specificarlo)
If IndiceMensile(Estrazione) = 1 Then
B = Estratto(Estrazione - 1,R1,5)
End if
Next

quindi segue il resto del costrutto.

un saluto.

 

[joe]

Conoscendo la 1a del mese basta ciclare per max 14 estrazioni mensili si ottiene la nuova 1a mese.

Dal numero di estrazione ottenuto togliere 1 e si avrà l'ultima del mese in corso d'uso.

For Estrazione = Es + 1 To Es + 14 ' ( step 1 è inutile specificarlo)
If IndiceMensile(Estrazione) = 1 Then
B = Estratto(Estrazione - 1,R1,5)
End if
Next

quindi segue il resto del costrutto.

un saluto.

Ciao Claudio.

NO.

Si faceva come dici tu molti anni fa,

mentre l'algoritmo che ho descritto è molto migliore.

+1 e +14 sono semplicemente un offset forse anche sbagliato.

Però il problema del metodo che hai descritto è che

le piattaforme comunemente usate per elaborare gli script

(cioè sia L8 che Spaziometria) non conoscono e riconoscono

una equazione del tipo EstrazioneFin+1 = Nuovo Mese

Dunque nel modo che hai proposto entrambi possono calcolare

se è già presente una ULTIMA ESTRAZIONE ...

SOLO SE E QUANDO ... E' GIA' AVVENUTA la prima del mese successivo.

Come ho detto ... hai descritto un modo molto vecchio

ed anche sia poco che mal funzionante.

Cioè che non è in grado di calcolare il pronostico all'ultima del mese

QUANDO E' L'ULTIMA DEL MESE.

Cioè quasi una contraddizione in termini.

Se ritieni ... puoi fare uno script adesso, molto semplice.

CON LE TUE ISTRUZIONI ...

che giochi 1 a Bari, per un colpo, alla ultima di questo settembre.

Da controllare dunque il risultato prima, della prima estrazione

del prossimo mese di ottobre.

Io farò come ho detto ... che si fa ... e vedremo quale dei 2 script,

esegue, simula, verifica la giocata in modo corretto.

Un caro saluto.

 

[joe]

Option Explicit
Sub Main
  'Demo-Test-IsUltimaDelMese By Joe del 23/09/2019 
  'Gioca all'ultima di Settembre 2019
  Dim Es,Nu(1),Ru(1),Po(1),Co
  Nu(1) = 1 : Ru(1) = BA_ : Po(1) = 1 : Co = 1
  ImpostaGiocata 1,Nu,Ru,Po
  For Es = 9600 To 9700
    If Mese(Es) = 9 And Anno(Es) = 2019 And IsUltimaDelMese(Es) Then
      ImpostaGiocata 1,Nu,Ru,Po,Co
      Gioca Es
    End If
  Next
  ScriviResoconto
End Sub

 

[claudio8]

Bravo joe, vedo che ti sono rimaste una serie di pietruzze nelle scarpe. ahahaha ahahaha.
un saluto .

 

[salvo50]

Ciao a Tutti.

Scontro Tra Titani (scherzo)

 

[i legend]

Ciao a tutti.
Una versione alternativa che mi viene in mente potrebbe essere

Dim IDestr 
Dim ncs: ncs =24 
Dim nTro 
Redim aDat(ncs,5)
Ntro=0
For idestr = estrazionefin ti 1 step -1 
If isultimadelmese (idestr) then
Ntro=ntro+1
If ntro >ncs then exit for
Adat(ntro,1)=anno(idestr)
Adat(ntro,2)=mese(idestr)
Adat(ntro,4)=idestr
'Con questa istruzione possiamo trovare la prima del mese anche se ci fossero 31 estrazioni mensili. I mesi sono collegati e non serve utilizzare e comparare i mesi di inizio e fine .
Do while indicemensile(idestr)<>1 
Idestr=idestr-1
Loop 
Adat(ntro,3)=idestr 
Adat(ntro,5)=adat(ntro, 4)-adat(ntro,3)+1
End if
Next
Scrivimatrice(adat)

Ho inserito i tag code da cell spero funzioni .
Per velocizzare si potrebbe inserire prima del ciclo while che idestr=idestr-10 nel ranger estrazioni del periodo delle tre estrazioni settimanali.
Con la matrice raccolgo i fati poi posso utilizzarli come voglio .esempio solo per determinati mesi o anni pari e dispari ...
Scritto al volo appena ho sottomano il PC lo riscrivo meglio.
Scritto così è solo per visualizzare gli ultimi casi non sapendo da che estrazione far partire la ricerca.
Sarebbe bello che anche altri scripter
Portassero un qualcosa di alternativo.

Ciao Claudio è un piacere rileggerti,
Ciao joe e salvo e tutti

 

[joe]

Ciao Claudio...

Tra le righe e neppure troppo c'era il consiglio sul come fare.

Per me è un algoritmo per te una pietruzza.

Però è vero.

Questa settimana ho provato (meglio ... DOVUTO provare) decine di soluzioni

diverse prima di far digerire una data ad un PC recalcitrante.

Di tanto in tanto ... dunque è vero che ci si toglie qualche inciampo.

 

[joe]

I legend,

la prima estrazione, la seconda, terza ... dodicesima ... mensile,

sono facilmente selezionabili con IndiceMensile (es) = 1.2.3..... 12.

Cioè uguale al numero-indice desiderato.

Un problema come quello che hai posto è per chi volesse gestirsi un archivio particolare,

o un metodo particolare che pone in gioco il pronostico ad una estrazione particolare.

Ma questo è risolto, come detto, dalle funzioni interne ai programmi

dunque si risolve come detto.

Mentre la Funzione IsUltimaDelMese non è nel corredo del vecchio L8

e neppure di Spaziometria ... fino a qualche anno fa.

Se si vuole ricorrere con una certa precisione ed in tempo reale alla determinazione dell' ultima ...

è opportuno utilizzare una soluzione del tipo di quella che ho proposto.

Altrimenti si fa come ha scritto Claudio ... si aspetta che cambi il mese e poi si sa che con -1,

si è all'ultima del mese precedente.

 

[i legend]

I legend,

la prima estrazione, la seconda, terza ... dodicesima ... mensile,

sono facilmente selezionabili con IndiceMensile (es) = 1.2.3..... 12.

Cioè uguale al numero-indice desiderato.

Un problema come quello che hai posto è per chi volesse gestirsi un archivio particolare,

o un metodo particolare che pone in gioco il pronostico ad una estrazione particolare.

Ma questo è risolto, come detto, dalle funzioni interne ai programmi

dunque si risolve come detto.

Mentre la Funzione IsUltimaDelMese non è nel corredo del vecchio L8

e neppure di Spaziometria ... fino a qualche anno fa.

Se si vuole ricorrere con una certa precisione ed in tempo reale alla determinazione dell' ultima ...

è opportuno utilizzare una soluzione del tipo di quella che ho proposto.

Altrimenti si fa come ha scritto Claudio ... si aspetta che cambi il mese e poi si sa che con -1,

si è all'ultima del mese precedente.

Ciao joe infatti questo era pensato per questo metodo particolare che salvo e master hanno risolto diversamente
Solo una proposta alternativa .
Magari potrà essere utile anche per altri tipi di ricerca
Ciao a tutti
P.s : l algiritmo dell ultima del mese al momento solo in caso di estrazioni straordinarie potrebbe fallire l aggancio , al momento è cucito addosso come un abito di alta sartoria.
Complimenti agli ideatore

 

[joe]

Giusto è teoricamente perfetto.

Solo un evento eccezionale, una forzatura, o il cambio

delle regole del gioco possono farlo "sbagliare".

Buona serata a tutte/i.

 

[salvo50]

Ciao a Tutti.

Quindi nella correzione fatta da Master, basta sostituire

IndiceMensile (es1 + 1) = 1

con

IsUltimaDelMese(Es1)

oppure c'è da cambiare altro?

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota
   Dim R1,Caso,Casi,A,B,C,P1,P2,E2,E1,Es1
   Dim FInR,IniR,AB,CaC
   Dim Ruo(1),Post1(2),Ambata(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)'57 = Estrazione 1° esempio articolo del 3° metodo, ruota VE
   Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,3)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 A 10 Per Nazionale 12 ?",Salvo50,6)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & " Memorie Utili Metodo 3 di Fedele Davenal - Script Salvo50 ",1,,4,,3,,1
   Post1(1) = 1
   Post1(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      If IndiceMensile(Es) = 1 Then
         For R1 = IniR To FInR
            If R1 = 11 Then R1 = 12
            A = Estratto(Es,R1,1)
            If A > 0 Then
               '----------------------------------Modificato Qui
               For Es1 = Es To Es + 15
                  If(Mese(Es1) = Mese(Es) And IsUltimaDelMese(Es1)) Then
                     '-------------------------------------------------
                     B = Estratto(Es1,R1,5)
                     C = Fuori90(A + B)
                     CaC = Cadenza(C)
                     If(Not Gemello(C)) And CaC <> 0 And CaC <> 9 Then
                        Ambata(1) = C
                        Ambata(2) = Vert(C)
                        Ambata(3) = Decina(C)
                        Ambata(4) = CaC
                        Caso = Caso + 1
                        Casi = Casi + 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                        If Ruota = 11 Then
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                        End If
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi " " & SiglaRuota(R1) & " ",1,0
                        For P1 = 1 To 5
                           E1 = Estratto(Es,R1,P1)
                           If E1 = A Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                        Scrivi " " & SiglaRuota(R1) & " ",1,0
                        For P2 = 1 To 5
                           E2 = Estratto(Es1,R1,P2)
                           If E2 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi Space(20) & Format2(A) & " + " & Format2(B) & " = " & Format2(Ambata(1)) & " Ambata Principale ",1,,,2
                        Ruo(1) = R1
                        EliminaRipetuti Ambata
                        Scrivi Space(20) & " Numeri in Gioco " & StringaNumeri(Ambata," ",True),1,,,1
                        Scrivi
                        ImpostaGiocata 1,Ambata,Ruo,Post1,Clp
                        Gioca Es1
                     End If
                  End If
               Next
            End If
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[joe]

Ciao Salvo,

le soluzioni possono essere molte.

Questa si sviluppa su un ciclo unico e permette di calcolare il pronostico all'ultima del mese:

Option Explicit
Sub Main
'Prima ed UltimaDelMese By Joe
   Dim Ini,Fin,Es
   Dim I,F,M
   Ini = EstrazioneFin - 500 : Fin = EstrazioneFin
   For Es = Ini To Fin
      If IndiceMensile(Es) = 1 Then I = Es : M = Mese(Es)
      If IsUltimaDelMese(Es) And Mese(Es) = M Then
         Scrivi DataEstrazione(I) & " - " & DataEstrazione(Es)
         ''' Gioca Es
      End If
   Next
End Sub

 

[salvo50]

Grazie!

 

[salvo50]

AMBATA - La Certezza Dell'Esito a cura di Vasapollo Cosma

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota
   Dim R1,Caso,Casi,A,B,P1,P2,P3,E1
   Dim IniR,FInR,DAB,K,Sf
   Dim Ruo(1),Post1(2),Amba(2),M(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9680)
   Clp = InputBox("Per quanti colpi vuoi giocare le Ambate?",,7)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 A 10 Per Nazionale 12 ?",Salvo50,6)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & " AMBATA - La Certezza Dell'Esito di Vasapollo Cosma - SCRIPT SALVO50",1,,4,,3,,1
   Post1(1) = 1
   Post1(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         For P1 = 1 To 4
            For P2 = P1 + 1 To 4
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If A > 0 Then
                  DAB = Distanza(A,B)
                  K = 3
                  For K = 3 To 90 Step 3
                     If DAB = K Then
                        M(1) = A : M(2) = B
                        Call OrdinaMatrice(M,1)
                        Amba(1) = Fuori90(90 +(M(1) - K))
                        Amba(2) = Fuori90(M(2) + K)
                         Ruo(1) = R1
                        Sf = SerieFreq(Es,Es,Amba,Ruo,1)
                        If Amba(1) <> Amba(2) And Sf = 0 Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           ColoreTesto 1
                           Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                           ColoreTesto 2
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                           ColoreTesto 0
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                           For P3 = 1 To 5
                              E1 = Estratto(Es,R1,P3)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi " Distanza Ciclometrica tra i 2 estratti = " & Format2(DAB),1
                           Scrivi
                           Scrivi " 1ª Ambata = Estratto Minore   " & Format2(M(1)) & " - Distanza " & Format2(K) & " = ",1,0
                           Scrivi Format2(Amba(1)),1,,,2
                           Scrivi " 2ª Ambata = Estratto Maggiore " & Format2(M(2)) & " + Distanza " & Format2(K) & " = ",1,0
                           Scrivi Format2(Amba(2)),1,,,2
                           Scrivi
                          
                           ImpostaGiocata 1,Amba,Ruo,Post1,Clp
                           Gioca Es
                           'End If
                        End If
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[salvo50]

Ambo, Terno o Quaterna a cura di Alfio Tirenni

Il metodo cerca riscontro con due ambi e una quaterna, ho messo la scelta a riguardo della quaterna, alla quarta domanda, con risposta 1 la cerca, con qualsiasi altro numero non la cerca.

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota,VertValMed
   Dim R1,Caso,Casi,IniR,FInR,ValMed,Somma,Tut
   Dim Ambo1(2),Ruo(1),Post1(2),Post2(5)
   Dim Ambo2(2),Qua(4),Tutte(1),Amb
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9650)'6639 esempio nell'articolo del 20-09-1997 RUOTA NAPOLI
   Clp = InputBox("Per quanti colpi vuoi giocare?",,7)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
   Tut = InputBox("RICERCA A TUTTE DELLA QUARTINA - PER SI METTI 1 - PER NO METTI ALTRO NUMERO",,2)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   VertValMed = 0
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Ambo, Terno o Quaterna a cura di Alfio Tirenni - SCRIPT SALVO50",1,,4,,3,,1
   Post1(2) = 1
   Post2(2) = 1
   Post2(3) = 1
   Post2(4) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         Somma = SommaEstratti(Es,R1)
         ValMed =(Somma \ 5)'VALORE MEDIO
         VertValMed = FuoriX(ValMed * 10,99)
         If Somma < 50 Then Amb = ValMed + 15 Else Amb = Fuori90(VertValMed)
         If Gemello(VertValMed) Then Amb = Cadenza(VertValMed)
         Ambo1(1) = ValMed : Ambo1(2) = Amb
         Ambo2(1) = Fuori90(ValMed + 15) : Ambo2(2) = Differenza(ValMed,15)
         Qua(1) = Ambo1(1) : Qua(2) = Ambo1(2) : Qua(3) = Ambo2(1) : Qua(4) = Ambo2(2)
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es,R1),1,0
         Scrivi "  Somma = " & FormattaStringa(Somma,"000") & " Valore Medio " & Format2(ValMed),1
         Scrivi
         Scrivi Space(40) & " 1° AMBO = " & Format2(Ambo1(1)) & " " & Format2(Ambo1(2)),1
         Scrivi Space(40) & " 2° AMBO = " & Format2(Ambo2(1)) & " " & Format2(Ambo2(2)),1
         Scrivi
         Ruo(1) = R1
         Tutte(1) = TU_
         ImpostaGiocata 1,Ambo1,Ruo,Post1,Clp
         ImpostaGiocata 2,Ambo2,Ruo,Post1,Clp
         If Tut = 1 Then ImpostaGiocata 3,Qua,Tutte,Post2,Clp
         Gioca Es
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[salvo50]

CROMODINAMICA QUANTISTICA di GIACOMO SCIONTI

Ciao a Tutti.

In questo metodo, si devono cercare 3 coppie con la stessa somma e nell'esempio dell'articolo le 3 coppie li prende da 2 ruote, cioè 2 coppie in una ruota e la rimanente coppia in un'altra ruota, ma non è una regola fissa le 3 coppie possono essere anche in 3 ruote differenti, a me riesce più facile farlo in 3 ruote differenti, quindi ho fatto 2 script.

Nel primo le 3 coppie le inserisco da esterno tramite InputBox, dato che sono inserite da operatore, non ho messo il filtro che le somme delle 3 coppie devono essere tutte uguali, poi sempre per il fatto che i numeri giocabili risulteranno sempre gli stessi, ho messo la ricerca iniziante solo da una estrazione, impostata anche questa da esterno, e la ricarca l'ho fatto per 153 estrazioni per tutte le ruote e Nazionale.

Il secondo script l'ho fatto rispettando tutte le condizioni, con l'eccezione della ricerca delle coppie solo in 3 ruote e non anche in 2 ruote, alla terza domanda ho messo la possibilità di non visualizzare i calcoli mettendo un numero diverso da 1.




Primo script

Option Explicit
Sub Main
   Dim Sp,A,B,C,D,E,F,G,Vms,Vko,X,Vms1,Vko1
   Dim Es,Ini,Fin,Casi,Clp
   Dim DiAB,DiCD,DiEF,Tras1,Tras2,Tras3
   Dim Diff1,Diff2,Diff3,Diff4,Diff5,Diff6
   Dim S1,S2,S3,S4,S5,S6,S7,Diff7,Diff8,Diff9
   Dim Somma1,Somma2,Somma3,Somma4,Somma5,S
   Dim Ruote(2),Posta(3),Num(3)
   Posta(2) = 1 : Posta(3) = 1
   Ruote(1) = 11 : Ruote(2) = 12
   Sp = " "
   G = 9.81 'Accelerazione di gravità terrestre
   X = 3.6 'Secondi in un'ora diviso 1000
   Scrivi Space(12) & "CROMODINAMICA QUANTISTICA di GIACOMO SCIONTI - SCRIPT Salvo50",1,,4,,3,,1
   Ini = CInt(InputBox("INSERISCI L'ESTRAZIONI CHE VUOI INIZIARE LA RICERCA - L'Estrazione 6555 esempio nell'articolo",,9000))'6555 esempio nell'articolo

   A = CInt(InputBox("INSERISCI IL 1° NUMERO DEL 1° AMBO",,36))
   B = CInt(InputBox("INSERISCI IL 2° NUMERO DEL 1° AMBO",,14))
   C = CInt(InputBox("INSERISCI IL 1° NUMERO DEL 2° AMBO",,18))
   D = CInt(InputBox("INSERISCI IL 2° NUMERO DEL 2° AMBO",,32))
   E = CInt(InputBox("INSERISCI IL 1° NUMERO DEL 3° AMBO",,50))
   F = CInt(InputBox("INSERISCI IL 1° NUMERO DEL 3° AMBO",,90))
   Clp = 153
   Fin = EstrazioneFin
   Somma1 = Fuori90(A + B)
   Somma2 = Fuori90(C + D)
   Somma3 = Fuori90(E + F)
   'If Somma1 = Somma2 And Somma1 = Somma3 Then
   DiAB = Distanza(A,B) : DiCD = Distanza(C,D) : DiEF = Distanza(E,F)
   Somma4 = Fuori90(DiAB + DiCD + DiEF)
   Tras1 = Fuori90(Somma4 + DiAB) : Tras2 = Fuori90(Somma4 + DiCD) : Tras3 = Fuori90(Somma4 + DiEF)
   Somma5 = Fuori90(Tras1 + Tras2 + Tras3)
   Diff1 = Differenza(Somma4,Somma5)
   S1 = Somma5 * Diff1 : S2 = S1 \ 90
   S3 = Somma4 * Diff1 : S4 = S3 \ 90
   Diff2 = Differenza(Somma5,S2)
   Diff3 = Differenza(Somma4,S4)
   Diff4 = Differenza(Diff3,Diff2)
   Diff5 = Differenza(Somma4,Diff2)
   Diff6 = Differenza(Somma5,Diff3)
   Diff7 = Differenza(Diff5,Diff4)
   Diff8 = Differenza(Diff6,Diff4)
   S5 = Fuori90(Diff7 + Diff6)
   S6 = Fuori90(S5 + Diff6)
   Diff9 = Differenza(Diff5,S5)
   S7 = Fuori90(Diff1 + Diff6)
   Diff8 = Differenza(Diff6,Diff4)
   S5 = Fuori90(Diff7 + Diff6)
   S6 = Fuori90(S5 + Diff6)
   Diff9 = Differenza(Diff5,S5)
   S7 = Fuori90(Diff1 + Diff6)
   If S6 = S7 Then
      S = Sqr(Diff1 * 2 / G)
      S = Round(S,2)
      Vms = S * G
      Vms = Round(Vms,2)
      Vko = Vms * X
      Vko = Round(Vko,2)
      Vms1 = Int(Vms)
      Vko1 = Int(Vko)
      Vko1 = Fuori90(Vko1)
      Num(1) = S6 : Num(2) =(Vms1) : Num(3) = Vko1
      Scrivi Space(15) & " Ambi Inseriti (" & Format2(A) & Sp & Format2(B) & ")",1,0
      Scrivi "(" & Format2(C) & Sp & Format2(D) & ")(" & Format2(E) & Sp & Format2(F) & ")",1
      Scrivi
      Scrivi Space(8) & "Ambi ",1
      Scrivi Space(5) & " Inseriti " & Space(5) & "Distanza " & Space(25) & " Differenza ",1,0
      Scrivi Space(15) & "Coordinate",1
      Scrivi Space(3) & "  Con Somme " & Space(3) & "Ciclometrica " & Space(5) & " Traslazione ",1,0
      Scrivi Space(7) & " Somme " & Space(18) & " Spaziali",1
      Scrivi Space(5) & Format2(A) & "+" & Format2(B) & "=" & Format2(Somma1),1,0,,2
      Scrivi Space(10) & Format2(DiAB) & Space(16) & Format2(Tras1) & Space(42) & Format2(Diff1),1
      Scrivi Space(5) & Format2(C) & "+" & Format2(D) & "=" & Format2(Somma2),1,0,,2
      Scrivi Space(10) & Format2(DiCD) & Space(16) & Format2(Tras2) & Space(43),1,0
      Scrivi "|",1,,,2
      Scrivi Space(5) & Format2(E) & "+" & Format2(F) & "=" & Format2(Somma3),1,0,,2
      Scrivi Space(10) & Format2(DiEF) & Space(16) & Format2(Tras3) & Space(43),1,0
      Scrivi "|",1,,,2
      Scrivi Space(23) & String(2,"--") & Space(16) & String(2,"--") & Space(43) & "h",1
      Scrivi Space(14) & " Somme   " & Format2(Somma4) & Space(16) & Format2(Somma5),1,0
      Scrivi Space(15) & Format2(Diff1) & Space(8) & "OVEST " & Format2(Somma4),1,0
      Scrivi String(10,"_") & "|" & String(10,"_"),1,0,,2
      Scrivi "NORD " & Format2(Somma5),1
      Scrivi String(106,"_")
      Scrivi String(106,"-")
      Scrivi Space(5) & Format2(Somma5) & " * " & Format2(Diff1) & " = " & Format2(S1) & " \ 90 = " & Format2(S2),1,0
      Scrivi Space(25) & Format2(Somma4) & " * " & Format2(Diff1) & " = " & Format2(S3) & " \ 90 = " & Format2(S4),1
      Scrivi
      Scrivi Space(5) & Format2(Somma5) & " - " & Format2(S2) & " = " & Space(12) & Format2(Diff2),1,0
      Scrivi Space(25) & Format2(S5) & Space(9) & Format2(Diff1) & Space(9) & Format2(Diff4),1
      Scrivi
      Scrivi Space(22) & Format2(Diff5),1
      Scrivi
      Scrivi Space(5) & Format2(Diff1) & Space(20) & Format2(Diff4),1,0
      Scrivi Space(25) & Format2(Diff9) & Space(9) & Format2(Diff7) & Space(9) & Format2(Diff8),1' mezzo
      Scrivi
      Scrivi Space(22) & Format2(Diff6) & Space(47),1,0
      Scrivi Format2(S6),1,,,2
      Scrivi
      Scrivi Space(5) & Format2(Somma4) & " - " & Format2(S4) & " = " & Space(12) & Format2(Diff3),1,0
      Scrivi Space(25) & Format2(Diff5) & Space(9) & Format2(Diff1) & Space(4) & Format2(S7) & Space(3) & Format2(Diff6),1
      Scrivi
      Scrivi
      Scrivi " Tempo = " & S & Space(5) & " Metri al Secondo = " & Vms & Space(5) & " Km L'ora " & Vko,1
      Scrivi
      Scrivi Space(18) & " NUMERI IN GIOCO " & Format2(S6) & Sp & Format2(Vms1) & Sp & Format2(Vko1),1,,,2
      For Es = Ini To Ini
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         ImpostaGiocata 1,Num,Ruote,Posta,Clp
         Gioca Es
      Next
   End If
   'End If
   ScriviResoconto
End Sub

Secondo script

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2,R1,R2,R3,E3,Sp
   Dim Caso,Casi,P1,P2,P3,P4,P5,P6,P7,P8,P9,A,B,C,D,E,F,G
   Dim DiAB,DiCD,DiEF,Tras1,Tras2,Tras3,S,X,Vis
   Dim Diff1,Diff2,Diff3,Diff4,Diff5,Diff6,Diff7,Diff8,Diff9
   Dim S1,S2,S3,S4,S5,S6,S7,Vms,Vko,Vms1,Vko1
   Dim Somma1,Somma2,Somma3,Somma4,Somma5
   Dim Ruo(3),Posta(3),Terno(3)
   Posta(2) = 1
   Posta(3) = 1
   Sp = " "
   G = 9.81 'Accelerazione di gravità terrestre
   X = 3.6 'Secondi in un'ora diviso 1000
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9600)
   Clp = InputBox("Per quanti colpi vuoi giocare il terno?",,15)
   Vis = InputBox("VUOI VISUALIZZARE I CALCOLI? Per SI METTI 1 per NO, METTI ALTRO NUMERO",,1)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "CROMODINAMICA QUANTISTICA di GIACOMO SCIONTI - SCRIPT Salvo50",1,,4,,3,,1
   Scrivi Space(18) & "CON RICERCA IN 3 RUOTE DIVERSE modifica di SALVO50",1,,3,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For R2 = R1 + 1 To 10
            For R3 = R2 + 1 To 12
               If R3 = 11 Then R3 = 12
               For P1 = 1 To 4
                  P2 = P1 + 1
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  For P3 = 1 To 4
                     P4 = P3 + 1
                     C = Estratto(Es,R2,P3)
                     D = Estratto(Es,R2,P4)
                     For P5 = 1 To 4
                        P6 = P5 + 1
                        E = Estratto(Es,R3,P5)
                        F = Estratto(Es,R3,P6)
                        Somma1 = Fuori90(A + B)
                        Somma2 = Fuori90(C + D)
                        Somma3 = Fuori90(E + F)
                        If Somma1 = Somma2 And Somma1 = Somma3 Then
                           DiAB = Distanza(A,B) : DiCD = Distanza(C,D) : DiEF = Distanza(E,F)
                           Somma4 = Fuori90(DiAB + DiCD + DiEF)
                           Tras1 = Fuori90(Somma4 + DiAB) : Tras2 = Fuori90(Somma4 + DiCD) : Tras3 = Fuori90(Somma4 + DiEF)
                           Somma5 = Fuori90(Tras1 + Tras2 + Tras3)
                           Diff1 = Differenza(Somma4,Somma5)
                           S1 = Somma5 * Diff1 : S2 = S1 \ 90
                           S3 = Somma4 * Diff1 : S4 = S3 \ 90
                           If S1 > 89 And S3 > 89 Then
                              Diff2 = Differenza(Somma5,S2)
                              Diff3 = Differenza(Somma4,S4)
                              Diff4 = Differenza(Diff3,Diff2)
                              Diff5 = Differenza(Somma4,Diff2)
                              Diff6 = Differenza(Somma5,Diff3)
                              Diff7 = Differenza(Diff5,Diff4)
                              Diff8 = Differenza(Diff6,Diff4)
                              S5 = Fuori90(Diff7 + Diff6)
                              S6 = Fuori90(S5 + Diff6)
                              Diff9 = Differenza(Diff5,S5)
                              S7 = Fuori90(Diff1 + Diff6)
                              If S6 = S7 Then
                                 S = Sqr(Diff1 * 2 / G)
                                 S = Round(S,2)
                                 Vms = S * G
                                 Vms = Round(Vms,2)
                                 Vko = Vms * X
                                 Vko = Round(Vko,2)
                                 Vms1 = Int(Vms)
                                 Vko1 = Int(Vko)
                                 Vko1 = Fuori90(Vko1)
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 1
                                 Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 2
                                 Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P7 = 1 To 5
                                    E1 = Estratto(Es,R1,P7)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  Somma Evidenziati = " & Format2(Somma1),1
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For P8 = 1 To 5
                                    E2 = Estratto(Es,R2,P8)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  Somma Evidenziati = " & Format2(Somma2),1
                                 '
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                 For P9 = 1 To 5
                                    E3 = Estratto(Es,R3,P9)
                                    If E3 = E Or E3 = F Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E3) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  Somma Evidenziati = " & Format2(Somma3),1
                                 Scrivi
                                 If Vis = 1 Then
                                    Scrivi Space(3) & " Estratti ",1
                                    Scrivi Space(3) & " Con Somma " & Space(5) & " Distanza " & Space(25) & " Differenza ",1,0
                                    Scrivi Space(15) & "Coordinate",1
                                    Scrivi Space(3) & "  Uguale " & Space(5) & " Ciclometrica " & Space(5) & " Traslazione ",1,0
                                    Scrivi Space(7) & " Somme " & Space(18) & " Spaziali",1
                                    Scrivi Space(5) & Format2(A) & Sp & Format2(B),1,0,,2
                                    Scrivi Space(13) & Format2(DiAB) & Space(16) & Format2(Tras1) & Space(42) & Format2(Diff1),1
                                    Scrivi Space(5) & Format2(C) & Sp & Format2(D),1,0,,2
                                    Scrivi Space(13) & Format2(DiCD) & Space(16) & Format2(Tras2) & Space(43),1,0
                                    Scrivi "|",1,,,2
                                    Scrivi Space(5) & Format2(E) & Sp & Format2(F),1,0,,2
                                    Scrivi Space(13) & Format2(DiEF) & Space(16) & Format2(Tras3) & Space(43),1,0
                                    Scrivi "|",1,,,2
                                    Scrivi Space(23) & String(2,"--") & Space(16) & String(2,"--") & Space(43) & "h",1
                                    Scrivi Space(14) & " Somme   " & Format2(Somma4) & Space(16) & Format2(Somma5),1,0
                                    Scrivi Space(15) & Format2(Diff1) & Space(8) & "OVEST " & Format2(Somma4),1,0
                                    Scrivi String(10,"_") & "|" & String(10,"_"),1,0,,2
                                    Scrivi "NORD " & Format2(Somma5),1
                                    Scrivi String(106,"_")
                                    Scrivi String(106,"-")
                                    Scrivi Space(5) & Format2(Somma5) & " * " & Format2(Diff1) & " = " & Format2(S1) & " \ 90 = " & Format2(S2),1,0
                                    Scrivi Space(25) & Format2(Somma4) & " * " & Format2(Diff1) & " = " & Format2(S3) & " \ 90 = " & Format2(S4),1
                                    Scrivi
                                    Scrivi Space(5) & Format2(Somma5) & " - " & Format2(S2) & " = " & Space(12) & Format2(Diff2),1,0
                                    Scrivi Space(25) & Format2(S5) & Space(9) & Format2(Diff1) & Space(9) & Format2(Diff4),1
                                    Scrivi
                                    Scrivi Space(22) & Format2(Diff5),1
                                    Scrivi
                                    Scrivi Space(5) & Format2(Diff1) & Space(20) & Format2(Diff4),1,0
                                    Scrivi Space(25) & Format2(Diff9) & Space(9) & Format2(Diff7) & Space(9) & Format2(Diff8),1' mezzo
                                    Scrivi
                                    Scrivi Space(22) & Format2(Diff6) & Space(47),1,0
                                    Scrivi Format2(S6),1,,,2
                                    Scrivi
                                    Scrivi Space(5) & Format2(Somma4) & " - " & Format2(S4) & " = " & Space(12) & Format2(Diff3),1,0
                                    Scrivi Space(25) & Format2(Diff5) & Space(9) & Format2(Diff1) & Space(4) & Format2(S7) & Space(3) & Format2(Diff6),1
                                    Scrivi
                                    Scrivi " Tempo = " & S & Space(5) & " Metri al Secondo = " & Vms & Space(5) & " Km L'ora " & Vko,1
                                    Scrivi
                                 End If
                                 Scrivi Space(18) & " NUMERI IN GIOCO " & Format2(S6) & Sp & Format2(Vms1) & Sp & Format2(Vko1),1,,,2
                                 Ruo(1) = R1 : Ruo(2) = R2 : : Ruo(3) = R3
                                 Terno(1) = S6 : Terno(2) = Vms1 : Terno(3) = Vko1
                                 ImpostaGiocata 1,Terno,Ruo,Posta,Clp
                                 Gioca Es
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub

 

[salvo50]

Riepilogo script postati in ordine di inserimento

01) Il Quadrato Numerico di Urazio
02) Due Somme 45 Per Un Quadrato Perfetto di Pasquale Robbe
03) Il Quadrato Diametrale di Paolo Carta (incompleto)
04) L'ambo Costante di Fedele Davenal
05) Metodo Byron di Lord Byron
06) Metodo Aurum di Roberto Pascale su appunti di Fabarri
07) Quattro Terzine Per Ambo di Domenico Manna
08) Il Trio Vincente (Prima Versione) di Antonio Di Paolo
09) Metodo Diametrale a cura di Luciana Giorgetti
10) Vincere a Colpo a cura di Vasapollo Cosma
11) Vincite Misteriose a cura di Alfio Tirenni
12) Metodo a Grande Richiesta
13) Il Quadrato Mirabile a cura di Carmine Tedesco
14) Un Ambo da Premio Oscar di Elisabetta Masi e Fabio Felici
15) Il Tesoro Nascosto di Domenico Manna (con modifica di Salvo50)
16) Byron: Il Calcolo Complementare di Paolo Carta
17) Quattro Lati Per Una Quaterna a cura di Gaetano Toti
18) Fra Cabala e Ciclometria a cura di Giacomo Scionti
19) L'Ambata Ciclometrica a di cura di Luciana Giorgetti
20) Doppia Ambata Su Una Ruota a cura di Benito Buzzon
21) La Distanza 7 di Angelo Gargiulo
22) Evoluzione Ben II a cura di Michele Pace
23) Il Quadrato D'oro - a cura di Petrazzoli Antonio
24) Le Restrizioni di Ogni Figura di Padre Venanzio (2 Metodi)
25) Gli Ambi Secchi Mensili di Padre Venanzio
26) Metodo Delle 6 Piramidi di Padre Venanzio
27) Metodo di Cavaillac (2 Metodi)
28) Metodo Scorpio di Michele Criscuolo
29) Il Quaterno Perpetuo di Fedele Davenal(3 Metodi)
30) La Piramide di Cheope di Michele Criscuolo
31) L'ambo Assoluto - a cura di Angelo Gargiulo
32) Come Si Ricavano 2 Numeri Ogni Mese di Giovanni Milton
33) Matematica e Ciclometria a cura di Luciana Giorgetti
34) Una Metodologia Molto Efficace - a cura di Salerno Donato
35) L'ambo Costante - a cura di Alfio Tirenni
36) Ambi Quadrati di Giacomo Scionti
37) Memorie Utili di Fedele Davenal a cura di C.Tedesco
38) AMBATA - La Certezza Dell'Esito a cura di Vasapollo Cosma
39) Ambo, Terno o Quaterna a cura di Alfio Tirenni
40) Cromodinamica Quantistica di Giacomo Scionti