SCRIPT WANTED

[salvo50]

Ho tolto l'ultimo gruppo, ha ragione I Leggend tra 9 e 0 non c'è consecutività,
adesso ho da inizio 2017, 185 casi
da inizio 2018, 47 casi

 

[Roby]

...ho sollevato un "Apaio"....non credevo, io mi ero limitato a vedere un caso nelle ultime estrazioni a milano con 23-41.
e avevo abbozzato questo semplice script solo per quella coppia...

Option Explicit
 Sub Main()
   Dim am(10)
   Dim ruota(10)
   Dim pp(1)
   Dim ps(2)
   Dim Casi
   Dim Ini,n,r,p,a,b
   Dim FIn
   Dim w,y
   Dim ok
Dim clp
   pp(1) = 1
   ps(2) = 1
clp = InputBox("Per quanti colpi vuoi giocare ?",,10)
Ini = EstrazioneIni
   FIn = EstrazioneFin
For n = Ini To FIn
      Messaggio DataEstrazione(n)
      For r = 1 To 10
         For p = 1 To 5
            a = Estratto(n,r,p)
            b = Estratto(n + 1,r,p)
            ok = 0
             If a = 23 And b = 41 Then   
             am(1) = 13 : am(2) = 14 : am(3) = 21 : am(4) = 12 : am(5) = 24
                  am(6) = 31 : am(7) = 32 : am(8) = 34 : am(9) = 42 : am(10) = 43
                  ok = 1
               End If
                  If ok = 1 Then
                  Casi = Casi + 1
               ColoreTesto 1
                Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                     ColoreTesto 0
                     Scrivi(" Estrazione n." & Format2(n) & " del " & DataEstrazione(n)),1,0
                     Scrivi "  " & SiglaRuota(r) & " ",1,0
                     w = Estratto(n,r,p)
                        If w = a Or w = b Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(w) & " ",1,0
                        ColoreTesto 0
                      Scrivi
                     Scrivi(" Estrazione n." & Format2(n + 1) & " del " & DataEstrazione(n + 1)),1,0
                     Scrivi "  " & SiglaRuota(r) & " ",1,0
                     y = Estratto(n + 1,r,p)
                        If y = a Or y = b Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(y) & " ",1,0
                        ColoreTesto 0
                        Scrivi
                        ColoreTesto 2
                        Scrivi " ATTENZIONE! la vera estrazione generatrice del pronostico è l'" & ("estrazione n." & Format2(n + 1) & " del " & DataEstrazione(n + 1)),1,0                           
                     Scrivi "  " & SiglaRuota(r) & " ",1,0                             
                    Scrivi
                     Scrivi " Il 1° colpo di gioco, inizia dall'" & ("estrazione n." & Format2(n + 2) & " del " & DataEstrazione(n + 2))& "                                                           --->>> NOn corretta, non tenere conto di questa -->>>> ",1,0    
                           ruota(1) = r                     
                           ImpostaGiocata 1,am,ruota,pp,clp,1
                           ImpostaGiocata 2,am,ruota,ps,clp,2
                           Gioca n                            
                        End If
                     Next
                  Next
               Next              
   ColoreTesto 1
   Scrivi : Scrivi
   Scrivi " CASI TROVATI : " & Casi
   ColoreTesto 0
   Call ScriviResoconto
   Messaggio "fine"  
End Sub

Cesare

 

[avio]

Ciao a tutti

fatto con qualche variante


Sub Main
Dim k(4),g(12),posta(2),ruota(1)
kk = 10
posta(2) = 1
est = 4000
fine = EstrazioneFin'-10
For se = est To fine
If ScriptInterrotto Then Exit For
Messaggio se
For ru = 1 To 10
If ScriptInterrotto Then Exit For
For r1 = 1 To 5
a1 = Estratto(se,ru,r1)
a2 = Estratto(se - 1,ru,r1)
If a1 > 9 And a2 > 9 Then 'potete eliminarlo per tutte le combinazioni
k(1) = Decina(a1)
k(2) = Cadenza(a1)
k(3) = Decina(a2)
k(4) = Cadenza(a2)
OrdinaMatrice k,1

If k(2) - k(1) = 1 Then ' 111 o 222 o 333 o 444 o 123 normale- 000 ambata -- 001 100 ambo --- 010 4 o 5 numeri-- ecc
If k(3) - k(2) = 1 Then
If k(4) - k(3) = 1 Then

g(1) = k(1)*10 + k(2)
g(2) = k(1)*10 + k(3)
g(3) = k(1)*10 + k(4)
g(4) = Vert(g(1))
g(5) = Vert(g(2))
g(6) = Vert(g(3))
g(7) = k(2)*10 + k(3)
g(8) = k(2)*10 + k(4)
g(9) = Vert(g(7))
g(10) = Vert(g(8))
g(11) = k(3)*10 + k(4)
g(12) = Vert(g(11))
For t = 1 To 12
If g(t) = a1 Then g(t) = 0
If g(t) = a2 Then g(t) = 0
Next
EliminaRipetuti g
Scrivi NomeRuota(ru) & " " & a1 & " " & a2 & " " & k(1) & " " & k(2) & " " & k(3) & " " & k(4) & " " & se
Scrivi g(1) & " " & g(2) & " " & g(3) & " " & g(4) & " " & g(5) & " " & g(6) & " " & g(7) & " " & g(8) & " " & g(9) & " " & g(10) ' & " " & g(11) & " " & g(12)
Scrivi
ruota(1) = ru
ImpostaGiocata 1,g,ruota,posta,kk',2
Gioca se,True
End If
End If
End If

End If
Next'r1
Next'ru
Next'se
ScriviResoconto
End Sub

 

[Roby]

Grazie, domani lo provo.

 

[joe]

Ciao joe le ultime tre quartine non le ho utilizzate per la ricerca , tra zero e nove non c'è consecutivita',
ma questo è il lotto e ci possono stare sicuramente
Ciao a tutti

Ciao.

Bhe si ... ci sta!

Il soggetto è "particolare' al punto da essere o perlomeno apparire "doppio".

La componente cabalistica della descrizione fatta e del soggetto che la riferisce.

A ben guardare, pare di riconoscere altro da quanto è scritto e qui ripetutamente ... nominato.

Nelle veci di un tempo (altro) e nome (altro) trascorso sotto cieli (più blu) diversi da quelli plumbei, odierni.

Ma questo è ed appartiene alla deduzione che discende da presupposti logici.

Cosa diversa dall'azzardo. Anche se Azzardo è.

Comunque sia, la componente relativa alla "consecutio" numerale ... effettivamente "crea problemi".

Per rappresentare 90 estratti con "solo" 10 cifre,

obbliga a determinare, che di queste cifre se ne debbano utilizzare 2.

Zero-Zero ... però non è un estratto valido ... come neppure lo è 99. Nove-Nove.

Ma sia lo "Zero" che il "Nove" sono utilizzati. (Ovvero si utilizzano 10 cifre)

Dunque quando viene estratto per esempio un "90"

"Nove e Zero" sono "vicini" ... ma non "consecutivi" ?

Dove e si colloca lo "Zero" che non può essere "Estratto' ...

... prima ... ovvero al di fuori del campo di esistenza delle cifre valide?

Oppure invece è :

Uno = Uno

Zero = Dieci

Cioè :

Nove + Uno = Dieci ... dove:

Nove + Uno = Zero e Uno di riporto.

 

[Roby]

Ciao Joe, non ho capito gran che sulla prima parte, non mi sembra di aver copiato da qualcuno...

Penso che le coppie 0-1-2-3 e 7-8-9-0, vadano escluse, appunto perchè non mi sembrano pure.
Comunque, il tutto per me è solo una base di partenza (guardate altri script che sto postando)...

Cesare

 

[joe]

Ciao Joe, non ho capito gran che sulla prima parte, non mi sembra di aver copiato da qualcuno...

Penso che le coppie 0-1-2-3 e 7-8-9-0, vadano escluse, appunto perchè non mi sembrano pure.
Comunque, il tutto per me è solo una base di partenza (guardate altri script che sto postando)...

Cesare

Ciao Cesare.

Ho inserito una piccola funzione per adattarlo alle tue istruzioni.

02.01.2018 RO 36.45
11.01.2018 BA 34.52
11.01.2018 FI 41.32
11.01.2018 NA 46.53
13.01.2018 FI 31.24
16.01.2018 NA 45.76
23.01.2018 BA 56.74
25.01.2018 NA 36.54
27.01.2018 PA 89.67
01.02.2018 FI 65.87
01.02.2018 TO 43.52
03.02.2018 NA 53.42
08.02.2018 FI 32.45
08.02.2018 VE 45.23
13.02.2018 NZ 65.34
17.02.2018 VE 35.46
20.02.2018 GE 54.32
22.02.2018 TO 12.43
24.02.2018 NA 57.68
03.03.2018 MI 86.79
03.03.2018 RO 76.45
06.03.2018 MI 79.86
08.03.2018 GE 65.78
10.03.2018 FI 87.56
10.03.2018 TO 76.89
17.03.2018 BA 43.25
20.03.2018 BA 34.56
20.03.2018 PA 78.56
22.03.2018 PA 64.35
24.03.2018 PA 35.64
27.03.2018 NZ 23.45
29.03.2018 CA 76.89
31.03.2018 VE 53.42
17.04.2018 TO 31.42
19.04.2018 CA 12.34
21.04.2018 NA 65.34
21.04.2018 PA 69.87
21.04.2018 TO 34.12
24.04.2018 BA 54.36
26.04.2018 MI 23.41
28.04.2018 RO 45.36
02.05.2018 NA 41.23
02.05.2018 TO 53.46
02.05.2018 VE 65.34

44 Casi

 

[Roby]

Forte, una bella lista, che mi risulta.
Vedi joe, e anche per tutti, consiglio di non riimanere troppo su questo script che avevo chiesto, GRAZIE A TUTTI!
Sappiate tutti che è solo la base di partenza su qualcosa che ho scoperto sulle coppie verticali di qualsiasi tipo.
Non voglio svelare tutto perchè, il mondo è cattivo...(la butto giù così...capitemi...)
Ma qualcosa ve la dico :
Non si tratta di cercare solo le "coppie", ma trovarne "IL Legame" "ciclopondospaziometrico".

...la testa di destra mi ha dato un mozzico sul collo...tacci sua...

Cesare

 

[i legend]

ciao joe ,con 2 if si elimina la sequenza 0,1,2,3 . il 1° caso da te rintracciato si appoggia anche all ultima estrazione del 2017
non gioco , ma sono queste sottigliezze che rendono interessante fare gli script lo si deve considerare oppure no?
ciao

 

[i legend]

ciao cerberus scusa non avevo visto il tuo post.

 

[joe]

Buona sera a tutte/i.

Ilegend, ho aggiunto una funzione per eliminare gli zeri.

Ma è perché lo script lo avevo già fatto allo stesso modo

di come lo ha proposto Claudio.

Dunque utilizza una funzione nella quale controlla le 4 cifre ... anzicchè i 2 numeri.

Si, nella lista è riportata solo la data della "seconda estrazione".

Ma il ripescaggio di un riscontro in quella precedente è necessario.

Per il resto ... seguo distrattamente, perché il mio solo interesse è orientato,

alla soluzione di situazioni, nuove, o sconosciute o apparentemente irrisolvibili.

Possibilmente per mezzo di scelte altrettanto nuove oltre che efficienti e veloci.

Ottimizzazione ...



​​​​​
​​​​

 

[i legend]

Ciao joe
anche secondo me il vero obiettivo è l ottimizzazione del codice .

 

[Roby]

Per il resto ... seguo distrattamente, perché il mio solo interesse è orientato,

alla soluzione di situazioni, nuove, o sconosciute o apparentemente irrisolvibili.

Possibilmente per mezzo di scelte altrettanto nuove oltre che efficienti e veloci.

Ottimizzazione ...



​​​​​
​​​​

Questo mi piace, se questo sembrava stuzzicarvi da quel punto, aspettate che ne ho di cose strane, ma mai banali.

 

[i legend]

Ciao a tutti
joe ricompilaTo lo script dal 3950 trovo 4650 7 secondi in meno dello script classico.
I dati sono in tabella escludo i numeri sortiti dalle combinaxioni ottenibili ed utilizzo verifica esito per 9 colpi.
tu a parità di parametri impieghi molto meno tempo?
grazie per le info

 

[joe]

Consideriamo Bari (solo perché è la prima Ruota)

e i 10 numeri (quanti sono e ... quanti ne stanno su una schedina)

Secondo me questi numeri ... hanno AVUTO resa infinitamente più performante.

BA 01.02.10.15.22.48.56.62.84.85

.....

Ritornando allo script ... m'ha fatto un po disperare.

Cioè nei risultati si sono aggiunte le combinazioni mancanti a completare le quartine con 10 cifre

Tra essi, per esempio, si evidenzia, quasi subito 19.80 che contiene la sequenza 8.9.0.1

02.01.2018 RO 36.45
08.01.2018 BA 19.80
09.01.2018 GE 19.08
11.01.2018 BA 34.52
11.01.2018 FI 41.32
11.01.2018 NA 46.53
11.01.2018 PA 78.09
13.01.2018 FI 31.24
16.01.2018 MI 23.10
16.01.2018 NA 45.76
18.01.2018 PA 03.21
18.01.2018 TO 89.10
20.01.2018 TO 10.89
23.01.2018 BA 56.74
25.01.2018 GE 03.21
25.01.2018 NA 36.54
25.01.2018 PA 01.89
27.01.2018 PA 89.67
01.02.2018 FI 65.87
01.02.2018 GE 19.08
01.02.2018 TO 43.52
03.02.2018 NA 53.42
08.02.2018 BA 81.09
08.02.2018 FI 32.45
08.02.2018 VE 45.23
13.02.2018 NA 89.07
13.02.2018 NZ 65.34
17.02.2018 VE 35.46
20.02.2018 GE 54.32
22.02.2018 TO 12.43
24.02.2018 NA 57.68
24.02.2018 PA 08.79
03.03.2018 MI 12.90
03.03.2018 MI 86.79
03.03.2018 PA 81.90
03.03.2018 RO 76.45
06.03.2018 MI 79.86
06.03.2018 PA 90.18
08.03.2018 GE 65.78
10.03.2018 FI 87.56
10.03.2018 TO 76.89
13.03.2018 NZ 13.20
17.03.2018 BA 43.25
17.03.2018 NZ 89.01
20.03.2018 BA 34.56
20.03.2018 PA 78.56
22.03.2018 FI 21.03
22.03.2018 NA 31.20
22.03.2018 PA 64.35
24.03.2018 PA 35.64
27.03.2018 BA 90.18
27.03.2018 NZ 23.45
29.03.2018 CA 76.89
31.03.2018 CA 13.02
31.03.2018 CA 89.07
31.03.2018 VE 53.42
03.04.2018 BA 10.23
07.04.2018 NA 78.09
17.04.2018 TO 31.42
19.04.2018 CA 12.34
19.04.2018 PA 23.10
21.04.2018 NA 65.34
21.04.2018 PA 69.87
21.04.2018 TO 34.12
24.04.2018 BA 54.36
24.04.2018 NZ 10.32
26.04.2018 MI 23.41
28.04.2018 RO 45.36
02.05.2018 NA 41.23
02.05.2018 TO 53.46
02.05.2018 VE 65.34
71 Casi.
00:00:04 Secondi.

Buona Domenica a tutte/i.