AIUTO SCRIPT

[joe]

Ciao Rafh.

Se non ho male interpretato la tua richiesta,

nell'ultimo anno potrebbero esserci questi casi.

Ma è tutto da controllare ... dunque espongo solo quanto detto,

soprattutto per sapere se sei al corrente di altri casi che lo script non trova

e, prima ancora, se questi casi sono corrispondenti alla richiesta.

01 01.09.2022 CA 50.01.67.55.76 <<< 67.76 + 50.55
02 13.09.2022 CA 25.05.52.33.28 <<< 25.52 + 33.28
03 15.09.2022 BA 20.83.78.02.38 <<< 20.02 + 83.78
04 15.12.2022 BA 84.79.82.36.63 <<< 36.63 + 84.79
05 31.12.2022 MI 78.09.62.73.26 <<< 62.26 + 78.73
06 12.01.2023 FI 29.22.75.04.89 <<< 29.22 + 04.89
07 19.01.2023 NA 48.03.53.20.30 <<< 03.30 + 48.53
08 19.01.2023 VE 67.39.72.34.27 <<< 72.27 + 39.34
09 25.02.2023 PA 41.76.79.81.14 <<< 41.14 + 76.81
10 04.03.2023 NA 90.85.38.12.21 <<< 12.21 + 90.85
11 01.04.2023 NA 52.76.03.67.57 <<< 76.67 + 52.57
12 26.04.2023 FI 60.02.47.07.74 <<< 47.74 + 02.07
13 23.05.2023 BA 31.36.74.47.67 <<< 74.47 + 31.36
14 27.05.2023 RO 63.17.73.71.58 <<< 17.71 + 63.58
15 30.05.2023 NA 86.67.81.77.79 <<< 77.79 + 86.81
16 30.05.2023 VE 26.31.88.89.75 <<< 88.89 + 26.31
17 01.06.2023 BA 34.72.43.26.21 <<< 34.43 + 26.21
18 10.06.2023 PA 22.66.69.01.17 <<< 66.69 + 22.17

 

[SatuRno17]

Ciao Rafh.

Se non ho male interpretato la tua richiesta,

nell'ultimo anno potrebbero esserci questi casi.

Ma è tutto da controllare ... dunque espongo solo quanto detto,

soprattutto per sapere se sei al corrente di altri casi che lo script non trova

e, prima ancora, se questi casi sono corrispondenti alla richiesta.

01 01.09.2022 CA 50.01.67.55.76 <<< 67.76 + 50.55
02 13.09.2022 CA 25.05.52.33.28 <<< 25.52 + 33.28
03 15.09.2022 BA 20.83.78.02.38 <<< 20.02 + 83.78
04 15.12.2022 BA 84.79.82.36.63 <<< 36.63 + 84.79
05 31.12.2022 MI 78.09.62.73.26 <<< 62.26 + 78.73
06 12.01.2023 FI 29.22.75.04.89 <<< 29.22 + 04.89
07 19.01.2023 NA 48.03.53.20.30 <<< 03.30 + 48.53
08 19.01.2023 VE 67.39.72.34.27 <<< 72.27 + 39.34
09 25.02.2023 PA 41.76.79.81.14 <<< 41.14 + 76.81
10 04.03.2023 NA 90.85.38.12.21 <<< 12.21 + 90.85
11 01.04.2023 NA 52.76.03.67.57 <<< 76.67 + 52.57
12 26.04.2023 FI 60.02.47.07.74 <<< 47.74 + 02.07
13 23.05.2023 BA 31.36.74.47.67 <<< 74.47 + 31.36
14 27.05.2023 RO 63.17.73.71.58 <<< 17.71 + 63.58
15 30.05.2023 NA 86.67.81.77.79 <<< 77.79 + 86.81
16 30.05.2023 VE 26.31.88.89.75 <<< 88.89 + 26.31
17 01.06.2023 BA 34.72.43.26.21 <<< 34.43 + 26.21
18 10.06.2023 PA 22.66.69.01.17 <<< 66.69 + 22.17

Ciao Joe
grazie per aver accettato la richiesta
Si i casi sono proprio questi. Come ti ho spiegato in precedenza, applicato -10 ai due distanza 5, si ottengono due numeri che vanno giocati sulle posizioni dei numeri distanza 5.(tralasciando le posizioni dei vertibili ma nulla ci vieta di fare magari un'altra statistica in cui li proviamo su queste ultime e poi vediamo quale risulta migliore). Inoltre io aggiungerei anche la ruota Nazionale ogni volta perché spesso e volentieri escono anche su questa ruota. Per il range di colpi anche se da esito entro 5 a volte raggiunge anche 9 quindi consiglierei questo come massimo.

 

[joe]

Ho aggiunto qualche istruzione allo script, per facilitare la ricerca e l'esposizione dei risultati.

Non ho scritto istruzioni specifiche per la ricerca nelle posizioni specificate.

Sperando che la tabella sia leggibile questo è il risultato :

1 - 01.09.2022 CA 50.01.67.55.76 67.76 + 50.55 40.45
1°C 03.09.2022 CA 45.73.90.35.03
-----------------------------------------------------
2 - 13.09.2022 CA 25.05.52.33.28 25.52 + 33.28 23.18
26°C 12.11.2022 CA 05.57.85.39.23
-----------------------------------------------------
3 - 15.09.2022 BA 20.83.78.02.38 20.02 + 83.78 73.68
3°C 22.09.2022 BA 63.73.51.16.58
-----------------------------------------------------
4 - 15.12.2022 BA 84.79.82.36.63 36.63 + 84.79 74.69
1°C 17.12.2022 BA 74.15.59.31.77
-----------------------------------------------------
5 - 31.12.2022 MI 78.09.62.73.26 62.26 + 78.73 68.63
37°C 28.03.2023 MI 47.08.19.22.63
-----------------------------------------------------
6 - 12.01.2023 FI 29.22.75.04.89 29.22 + 04.89 84.79
13°C 11.02.2023 FI 11.79.58.33.18
-----------------------------------------------------
7 - 19.01.2023 NA 48.03.53.20.30 03.30 + 48.53 38.43
5°C 31.01.2023 NA 37.59.07.39.43
-----------------------------------------------------
8 - 19.01.2023 VE 67.39.72.34.27 72.27 + 39.34 29.24
13°C 18.02.2023 VE 24.55.12.39.14
-----------------------------------------------------
9 - 25.02.2023 PA 41.76.79.81.14 41.14 + 76.81 66.71
7°C 14.03.2023 PA 84.78.86.68.71
-----------------------------------------------------
10 - 04.03.2023 NA 90.85.38.12.21 12.21 + 90.85 80.75
7°C 21.03.2023 NA 82.75.69.22.20
-----------------------------------------------------
11 - 01.04.2023 NA 52.76.03.67.57 76.67 + 52.57 42.47
11°C 27.04.2023 NA 72.43.17.89.47
-----------------------------------------------------
12 - 26.04.2023 FI 60.02.47.07.74 47.74 + 02.07 82.87
3°C 02.05.2023 FI 88.05.55.32.87
-----------------------------------------------------
13 - 23.05.2023 BA 31.36.74.47.67 74.47 + 31.36 21.26
4°C 01.06.2023 BA 34.72.43.26.21
-----------------------------------------------------
14 - 27.05.2023 RO 63.17.73.71.58 17.71 + 63.58 53.48
4°C 06.06.2023 RO 08.59.53.21.02
-----------------------------------------------------
15 - 30.05.2023 NA 86.67.81.77.79 77.79 + 86.81 76.71
8°C 17.06.2023 NA 76.17.89.22.14
-----------------------------------------------------
16 - 30.05.2023 VE 26.31.88.89.75 88.89 + 26.31 16.21
1°C 01.06.2023 VE 50.03.04.21.11
-----------------------------------------------------
17 - 01.06.2023 BA 34.72.43.26.21 34.43 + 26.21 16.11
2°C 06.06.2023 BA 63.11.29.16.45
-----------------------------------------------------
18 - 10.06.2023 PA 22.66.69.01.17 66.69 + 22.17 12.07
7°C 27.06.2023 PA 48.80.15.32.12
-----------------------------------------------------

 

[SatuRno17]

Ciao Joe
Grazie mille per il lavoro, vedo che ci sono molti esiti positivi nei primi colpi e questo fa ben sperare

 

[joe]

Lo script che allego qui di seguito è piuttosto complicato,

come del resto lo è l'oggetto della richiesta e quello che deve rintracciare e controllare.

Non credo che vorrò aggiungere ulteriori condizioni o apportarvi modifiche.

Dunque è da intendersi accettato così com'è e sconsiglio modifiche perché

da esse potrebbero derivare risultati prevedibilmente astrusi.

Ho modificato/semplificato il layout dell'output.

Ho aggiunto indicazioni delle posizioni iniziali per le quali

si forma il pronostico e sono anche elencate le posizioni dei risultati ottenuti.

Option Explicit
Sub Main
   'Coppia di Vertibili e Coppia di estratti in distanza 5 / Verifica Risultati
   'Script By Joe per Rafh V.1.1 del 23/07/2023.
   'https://forum.lottoced.com/threads/aiuto-script.2211007/page-2#post-2549597
   Dim Ini,Fin,Es,R,P,Q,A,B,C,D,K,F,O
   Dim Nu(2),Ru(1),SP
   Ini = EstrazioneFin - 155
   Fin = EstrazioneFin
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For R = 1 To 12
         If R = 11 Then R = 12
         ReDim T(5) : F = False
         For P = 1 To 5
            A = Estratto(Es,R,P)
            B = Vert(A)
            Q = Posizione(Es,R,B)
            If Q > 0 Then
               T(P) = True
               T(Q) = True
               F = True
               Exit For
            End If
         Next
         If F = True Then
            For P = 1 To 4
               For Q = P + 1 To 5
                  If T(P) = False Then
                     If T(Q) = False Then
                        C = Estratto(Es,R,P)
                        D = Estratto(Es,R,Q)
                        If Distanza(C,D) = 5 Then
                           K = K + 1
                           Scrivi FormatSpace(K,2,1) & Space(1) & "-" & Space(1),0,0
                           Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & " ",0,0
                           Ru(1) = R
                           Nu(1) = Fuori90(C - 10)
                           Nu(2) = Fuori90(D - 10)
                           Scrivi StringaNumeri(Nu,,True) & Space(1),True,False
                           Scrivi(P) & "°" & Q & "°",True
                           SP = SeriePrima(Es + 1,Fin,Nu,Ru,1)
                           If SP > 0 Then
                              Scrivi FormatSpace(SP - Es,2,1) & "°C ",1,0,,2
                              Scrivi DataEstrazione(SP) & " " & SiglaRuota(R) & " " & StringaEstratti(SP,R) & " ",0,0
                              O = ""
                              P = Posizione(SP,R,Nu(1))
                              If P > 0 Then Scrivi Format2(Nu(1)) & " ",1,0 : O = O & P & "°" Else Scrivi String(3," "),0,0 : O = O & Space(2)
                              P = Posizione(SP,R,Nu(2))
                              If P > 0 Then Scrivi Format2(Nu(2)) & " ",1,0 : O = O & P & "°" Else Scrivi String(3," "),0,0 : O = O & Space(2)
                              Scrivi O,True
                              P = 5 : Q = 5
                           Else
                              Scrivi Fin - Es & "° Colpo Nessun Risultato ",1,,,2
                           End If
                           Scrivi String(44,"-")
                        End If
                     End If
                  End If
               Next
            Next
         End If
      Next
   Next
End Sub

 

[i legend]

Non ho modo di provarlo e me ne dispiace .
Non è complicato , personalmente lo trovo elegante.
E sicuramente complicato tentarne le modifiche.
Complimenti joe.

 

[joe]

Ciao Ilegend, grazie.

Grazie anche a Salvo e naturalmente a Rafh.

Riporto un pezzetto dell'output così lo puoi vedere.

Riferisce di una ventina di casi ritracciati nell'ultimo anno.

Tutti conclusi, tranne l'ultimo A QUEL TEMPO ANCORA IN CORSO.

Ho inteso evidenziarlo così ... al 23/06/2023 ... sia per testare lo script che

per evidenziarlo diversamente dagli altri casi già conclusi

con uno o 2 numeri nelle loro posizioni di caduta.

Il tempo di elaborazione è di circa 2 secondi (per questo ultimo anno).

 

[i legend]

Bel lavoro davvero joe
Grazie per la visione dell output

 

[SatuRno17]

Ciao Joe
Ti ringrazio, davvero un ottimo lavoro. Lo script funziona perfettamente