script somma ritardi posizione estrazionale .

[genios]

Qualcuno vuol cimentarsi nel fare uno script che calcoli per ciascuna posizione di estrazione il ritardo, faccia quindi la somma dei 5 ritardi per ciascuna posizione di estrazione e ordini la somma dei ritardi dalla maggiore alla minore . Se fosse possibile anche uno script che calcoli la somma dei ritardi max.

Out dovrebbe essere il seguente :

VE 14 1° pos 76 2° pos 421 3° pos 835 4° pos 86 5° pos 42 somma 1460
VE 52 1° pos 214 2° pos 311 3° pos 120 4° pos 32 5° pos 521 somma 1198
VE 75 1° pos 82 2° pos 77 3° pos 88 4° pos 478 5° pos 169 somma 894
VE 09 1° pos 59 2° pos 174 3° pos 21 4° pos 409 5° pos 204 somma 867
VE 39 1° pos 446 2° pos 84 3° pos 228 4° pos 66 5° pos 31 somma 855
VE 85 1° pos 63 2° pos 587 3° pos 8 4° pos 131 5° pos 40 somma 829
VE 36 1° pos 25 2° pos 66 3° pos 206 4° pos 421 5° pos 68 somma 786
VE 10 1° pos 19 2° pos 444 3° pos 30 4° pos 0 5° pos 285 somma 778

ciao Eugenio

 

[Master]

Ciao
Quello che riesco a fare è una tabella con la scelta della ruota
non so se ti può andare bene

 

[genios]

Perfetto Master Grazie .Poi se ti riesce fare uno script con max ritardi per la somma dei ritardi è cosa gradita .

Ciao Eugenio

 

[Master]

Ciao
Ho dato un occhio veloce dovrebbe essere corretto ?
di meglio non so fare
buon fine settimana

Sub Main()
   Scrivi"https://forum.lottoced.com/threads/script-somma-ritardi-Posizione-estrazionale.2194222/",1
   Scrivi Space(20) & "Ricerca per genios ritardi in posizione - ",1
   Dim nu(10),Inizio,fine,rt(5,10),rs(5,10)
   Dim r,Res,x,p,Tot,Tot1
   Inizio = InputBox("Estrazione inizio ?","INIZIO",3950)
   Res = CInt(InputBox(" PER I RITARDI METTI  1" & Chr(13) & " PER STORICI UN ALTRO NUMERO",SCEGLI,1))
   r = InputBox("Ruota ?","RUOTA",10)
   ReDim T(8)
   T(1) = " Ruota "
   T(2) = " Num "
   T(3) = " P^1 "
   T(4) = " P^2 "
   T(5) = " P^3 "
   T(6) = " P^4 "
   T(7) = " P^5 "
   T(8) = " Somma "
   Call InitTabella(T,RGB(0,117,234),,3,5,"Courier New")
   fine = EstrazioneFin
   Scrivi
   Scrivi Space(20) & "Inizio " & DataEstrazione(Inizio) & Space(5) & " Fine " & DataEstrazione(fine),1
   Scrivi
   If Res = 1 Then Scrivi Space(9) & " R I T A R D I - DI - P O S I Z I O N E ",1,,,1,3
   If Res <> 1 Then Scrivi Space(9) & " S T O R I C I - DI - P O S I Z I O N E ",1,,,1,3
   Scrivi
   For x = 1 To 90
      nu(1) = x
      For i = 1 To 5
         rt(i,r) = Inizio
      Next
      For n = Inizio To fine
         Call Messaggio("Attendere ........")
         p = Posizione(n,r,nu(1))
         If p > 0 Then
            If n - rt(p,r) > rs(p,r) Then rs(p,r) = n - rt(p,r)
            rt(p,r) = n
         End If
      Next
      For p = 1 To 5
      Next
      Tot =(fine - rt(p - 5,r)) +(fine - rt(p - 4,r)) +(fine - rt(p - 3,r)) +(fine - rt(p - 2,r)) +(fine - rt(p - 1,r))
      Tot1 =(rs(p - 5,r)) +(rs(p - 4,r)) +(rs(p - 3,r)) +(rs(p - 2,r)) +(rs(p - 1,r))
      ReDim V(8)
      V(1) = SiglaRuota(r)
      V(2) = nu(1)
      If Res = 1 Then V(3) =(fine - rt(p - 5,r))
      If Res <> 1 Then V(3) =(rs(p - 5,r))
      If Res = 1 Then V(4) =(fine - rt(p - 4,r))
      If Res <> 1 Then V(4) =(rs(p - 4,r))
      If Res = 1 Then V(5) =(fine - rt(p - 3,r))
      If Res <> 1 Then V(5) =(rs(p - 3,r))
      If Res = 1 Then V(6) =(fine - rt(p - 2,r))
      If Res <> 1 Then V(6) =(rs(p - 2,r))
      If Res = 1 Then V(7) =(fine - rt(p - 1,r))
      If Res <> 1 Then V(7) =(rs(p - 1,r))
      If Res = 1 Then V(8) = Tot
      If Res <> 1 Then V(8) = Tot1
      Call AddRigaTabella(V,,,2,,"Courier New")
      Call SetColoreCella(2,RGB(242,242,242))
      Erase rs
   Next
   Call CreaTabella(8)
End Sub

 

[genios]

Master per quanto riguarda i ritardi attuali lo script è esatto . invece per quanto riguarda il max storico della somma dei ritardi secondo me è errato .

Ruota	Num	P^1	P^2	P^3	P^4	P^5	Somma
VE	47	628	554	358	561	579	2680
VE	4	532	377	489	344	730	2472
VE	26	299	316	442	533	864	2454

come puoi vedere da uno stralcio dell' Out del tuo script :

Forse sono esatti i max storici per ogni singola posizione ma la somma è concettualmente errata anche se matematicamente giusta .
Nel senso che per trovare il max ritardo della somma dei ritardi nelle 5 posizioni occorre trovare per ogni estrazione il ritardo di un numero nelle cinque posizioni e fare la somma dei ritardi questa operazione va ripetuta per tutte le estrazioni fino alla estrazione finale quindi per ciascuna estrazione avremmo una somma di ritardi . La somma dei ritardi maggiore sara il ritardo max della somma dei ritardi nelle 5 posizioni .Sperando di essermi spiegato ti ringrazio .

ciao Eugenio

 

[Mike58]

Ciao raga, avevo ravvisato anch'io errori sullo storico e pertanto ho voluto verificare con una mia versione.
eccola fate le vostre verifiche.

Sub Main
   Dim Mat(90,16),Nu(1),Ru(1),T,V
   Ini = 3950'EstrazioneIni
   fin = EstrazioneFin
   scelta = CInt(InputBox("1 = Ritardo Corrente" & Chr(13) & "2 = Ritardo Storico","Scelta Ritardo",1))
   righe = CInt(InputBox("Quante righe visualizzo",,10))
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      If scelta = 1 Then Scrivi "Ritadi Correnti di Posizioni",1
      If scelta = 2 Then Scrivi "Ritardi storici di Posizioni",1
      T = Array(T,"k","Ruota","Num","RP1","RP2","RP3","RP4","RP5","SOMMA_RP","Min","Max","FP1","FP2","FP3","FP4","FP5")
      Call InitTabella(T,RGB(187,187,187),,,5)
      k = 0
      For n = 1 To 90
         Nu(1) = n
         ReDim rit(5),fre(5)
         For p = 1 To 5
            ReDim pos(5)
            pos(p) = True
            If scelta = 1 Then rit(p) = EstrattoRitardoTurbo(r,n,Ini,fin,,,pos)
            If scelta = 2 Then rit(p) = EstrattoStoricoTurbo(r,n,Ini,fin,,,pos)
            fre(p) = EstrattoFrequenzaTurbo(r,n,Ini,fin,,,pos)
         Next
         min = MinimoV(rit,1,- 1)
         max = MassimoV(rit)
         somRit = rit(1) + rit(2) + rit(3) + rit(4) + rit(5)
         k = k + 1
         Mat(k,1) = k
         Mat(k,2) = SiglaRuota(r)
         Mat(k,3) = Nu(1)
         Mat(k,4) = rit(1)
         Mat(k,5) = rit(2)
         Mat(k,6) = rit(3)
         Mat(k,7) = rit(4)
         Mat(k,8) = rit(5)
         Mat(k,9) = somRit
         Mat(k,10) = min
         Mat(k,11) = max
         Mat(k,12) = fre(1)
         Mat(k,13) = fre(2)
         Mat(k,14) = fre(3)
         Mat(k,15) = fre(4)
         Mat(k,16) = fre(5)
      Next
      Call Messaggio("ATTENDERE Elaborazione......  " & TempoTrascorso)
      Call OrdinaMatrice(Mat,- 1,9)
      Call AvanzamentoElab(1,11,r)
      For x = 1 To righe
         V = Array(V,x,Mat(x,2),Mat(x,3),Mat(x,4),Mat(x,5),Mat(x,6),Mat(x,7),Mat(x,8),Mat(x,9),Mat(x,10),Mat(x,11),Mat(x,12),Mat(x,13),Mat(x,14),Mat(x,15),Mat(x,16))
         Call AddRigaTabella(V)
         Call SetColoreCella(3,3,0)
         Call SetColoreCella(9,3,0)
         For xx = 4 To 8
            If V(xx) = V(10) And V(10) > 99 Then Call SetColoreCella((xx),7,5)
         Next
         For yy = 10 To 11
         Call SetColoreCella((yy),6,0)
         Next
      Next
      CreaTabella
   Next
End Sub

 

[genios]

Mike lo stesso errore sulla somma dei ritardi .Leggi il mio post sopra .

Ciao Eugenio

 

[Mike58]

Ciao Eugenio lo script è costruito con il filtro somma matematica 5 posizioni ed è chiaro che cerca le pozioni di riatrdo sia corrente che storico in base a quel parametro.
In base alla scelta ritardo elenca dei Numeri e ne elenca i ritardi su pozioni, poi ti ho messo anche il minimo e massimo ritardo di posizioni.
magari se spieghi meglio cosa ottenere sia io che master ci possiamo provare.

comunque prova questa 2 versione

Sub Main
   Dim Mat(90,19),Nu(1),Ru(1),T,V
   Ini = 3950'EstrazioneIni
   fin = EstrazioneFin
   'scelta = CInt(InputBox("1 = Ritardo Corrente" & Chr(13) & "2 = Ritardo Storico","Scelta Ritardo",1))
   righe = CInt(InputBox("Quante righe visualizzo",,10))
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      'If scelta = 1 Then
      Scrivi "Ritadi Correnti di Posizioni",1
      'If scelta = 2 Then Scrivi "Ritardi storici di Posizioni",1
      T = Array(T,"k","Ruota","Num","RP1","RP2","RP3","RP4","RP5","SOMMA_RP","Min","Max","ST1","ST2","ST3","ST4","ST5","SommaSto","Min","Max")
      Call InitTabella(T,RGB(187,187,187),,,5)
      k = 0
      For n = 1 To 90
         Nu(1) = n
         ReDim rit(5),fre(5)
         For p = 1 To 5
            ReDim pos(5)
            pos(p) = True
            rit(p) = EstrattoRitardoTurbo(r,n,Ini,fin,,,pos)
            'If scelta = 2 Then rit(p) = EstrattoStoricoTurbo(r,n,Ini,fin,,,pos)
            fre(p) = EstrattoStoricoTurbo(r,n,Ini,fin,,,pos)
         Next
         min = MinimoV(rit,1,- 1)
         max = MassimoV(rit)
         minn = MinimoV(fre,1,-1)
         maxx = MassimoV(fre)
         somRit = rit(1) + rit(2) + rit(3) + rit(4) + rit(5)
         sommafre = fre(1)+fre(2)+fre(3)+fre(4)+fre(5)
         k = k + 1
         Mat(k,1) = k
         Mat(k,2) = SiglaRuota(r)
         Mat(k,3) = Nu(1)
         Mat(k,4) = rit(1)
         Mat(k,5) = rit(2)
         Mat(k,6) = rit(3)
         Mat(k,7) = rit(4)
         Mat(k,8) = rit(5)
         Mat(k,9) = somRit
         Mat(k,10) = min
         Mat(k,11) = max
         Mat(k,12) = fre(1)
         Mat(k,13) = fre(2)
         Mat(k,14) = fre(3)
         Mat(k,15) = fre(4)
         Mat(k,16) = fre(5)
         Mat(k,17) = Sommafre         
         Mat(k,18) = minn
         Mat(k,19) = maxx
      Next
      Call Messaggio("ATTENDERE Elaborazione......  " & TempoTrascorso)
      Call OrdinaMatrice(Mat,- 1,9)
      Call AvanzamentoElab(1,11,r)
      For x = 1 To righe
         V = Array(V,x,Mat(x,2),Mat(x,3),Mat(x,4),Mat(x,5),Mat(x,6),Mat(x,7),Mat(x,8),Mat(x,9),Mat(x,10),Mat(x,11),Mat(x,12),Mat(x,13),Mat(x,14),Mat(x,15),Mat(x,16),Mat(x,17),Mat(x,18),Mat(x,19))
         Call AddRigaTabella(V)
         Call SetColoreCella(3,3,0)
         Call SetColoreCella(9,3,0)
         For xx = 4 To 8
            If V(xx) = V(10) And V(10) > 99 Then Call SetColoreCella((xx),7,5)
         Next
         For yy = 10 To 11
         Call SetColoreCella((yy),6,0)
         Next
         Call SetColoreCella(17,3,0)
      Next
      CreaTabella
   Next
End Sub

 

[genios]

Come puoi vedere dall' out del tuo script ruota di venezia numero 14 attualmente con SOMMA_RP 1460 . Ipotizziamo che ad oggi nessuna SOMMA_RP per il numero 14 sulla ruota di VE abbia superato il valore di 1460 . Quindi abbiamo per il numero 14 SOMMA_RP MAX 1460

Ritadi Correnti di Posizioni

k

Ruota

Num

RP1

RP2

RP3

RP4

RP5

SOMMA_RP

Min

Max

ST1

ST2

ST3

ST4

ST5

SommaSto

Min

Max

1

VE

14

76

421

835

86

42

1460

Ora ipotizziamo che il numero 14 esca tra 11 estrazioni . Ciascun ritardo nelle 5 posizioni sara incrementato di 10 estrazioni .

Quindi avremmo la seguente tabella

Ritadi Correnti di Posizioni

k

Ruota

Num

RP1

RP2

RP3

RP4

RP5

SOMMA_RP

Min

Max

ST1

ST2

ST3

ST4

ST5

SommaSto

Min

Max

1

VE

14

86

431

845

96

52

1520

Nell 11° estrazione esce il 14 in quarta posizione quindi avremmo SOMMA_RP MAX di 1520

Ritadi Correnti di Posizioni

k

Ruota

Num

RP1

RP2

RP3

RP4

RP5

SOMMA_RP

Min

Max

ST1

ST2

ST3

ST4

ST5

SommaSto

Min

Max

1

VE

14

87

432

846

0

53

1418

Ciao Eugenio

 

[genios]

X Mike e Master mi scrivete una riga di codice per l' estrazione numero 4000 che in out mi scriva per il numero 14 su VE :

data estrazione Id estrazione estratti RUOTA ritardo nella posizione 1 DEL NUMERO 14 ritardo nella posizione 2 DEL NUMERO 14 ritardo nella posizione 3 DEL NUMERO 14 ritardo nella posizione 4 DEL NUMERO 14 ritardo nella posizione 5 DEL NUMERO 14 e la SOMMA DEI 5 RITARDI DI POSIZIONE .

Ciao Eugenio

 

[joe]

Eugenio,

quello che scrivi, non è di facile comprensione per tutti.

Se uno ricavasse lo storico da te richiesto con excel, sarebbe piuttosto facile averlo.

Se invece lo si calcola con uno script (come in questo caso) il risultato è molto diverso.

Lo storico, come lo intendi, deve essere rilevato a livello di run-time,

cioè potrebbe addirittura non coincidere con la caduta del numero in qualcuna delle 5 Posizioni.

Secondo me sarebbe meglio organizzare uno script apposito, dedicato, possibilmente efficiente,

da usarsi possibilmente una sola volta, considerando che potrebbe essere piuttosto lento

nonostante quanto ho scritto poco sopra.

 

[genios]

Grazie Joe per capire meglio e per spiegarmi meglio me la scriveresti la riga di cui sopra .

Ciao Eugenio

 

[joe]

Non si può scrivere una linea, ci vuole prima un progetto.

Tu sai che non sono in grado di redigere diagrammi di flusso,

e sviluppo lo script secondo quanto ho "a mente" di fare.

Secondo me come minimo bisogna legare "massimo" ... "con estratto"

e come ho detto una linea di codice non basta più.

 

[genios]

Joe Cioè se volessi sapere il ritardo come primo estratto del n 14 sulla ruota di VE nell' estrazione 4000 non si puo' fare ?

 

[joe]

Eugenio,

I termini che hai usato per formulare la domanda sono molto ambigui.

Soggetti ad interpretazioni.

Per esempio LuigiB ed io misuriamo il ritardo di estratto diversamente.

Qui per frequenza molti intendono un valore che non la rappresenta.

Cioè è frequentissimo leggere di frequenze maggiori di UNO.

Qualcuno poi ha scritto in migliaia di post che lo studio dei ritardi non serve,

ed anche che è sbagliato farlo.

Dunque come hai letto ti ho appena dimostrato che è tutto molto aleatorio.

In questo caso il modo di rilevare i ritardi influisce ancora di più

sulla consistenza numerica dei risultati raccolti.

Pertanto non è che mi devi chiedere ...

Devi invece specificare esattamente cosa vuoi, ed anche come calcolarlo.

Sono in accordo che comunque sia meglio avere un "dato in più" che un dato "in meno",

ed è ancora meglio avere "un valore", anche discutibile,

piuttosto che, "un qualcosa" di totalmente sconosciuto.

In ultimo, 1460, a parer mio è un valore molto alto e superiore a quello di un eventuale storico.

 

[genios]

Stavo ragionando sulla tua risposta e hai ragione .
Allora la pongo cosi in pseudo codice numero 14 ruota VE estrazione iniziale 3950

nell' estrazione 3950 in posizione1 c'è il numero 14 no allora RP1=1
nell' estrazione 3950 in posizione2 c'è il numero 14 no allora RP2=1
nell' estrazione 3950 in posizione3 c'è il numero 14 no allora RP3=1
nell' estrazione 3950 in posizione4 c'è il numero 14 no allora RP4=1
nell' estrazione 3950 in posizione5 c'è il numero 14 no allora RP5=1

RPTOTALE = RP1+RP2+RP3+RP4+RP5

SCRIVI Numero estrazione data estrazione RP1 RP2 RP3 RP4 RP5 RPTOTALE
1 1 1 1 1 5
nell' estrazione 3951 in posizione1 c'è il numero 14 no allora RP1=2
nell' estrazione 3951 in posizione2 c'è il numero 14 no allora RP2=2
nell' estrazione 3951 in posizione3 c'è il numero 14 no allora RP3=2
nell' estrazione 3951 in posizione4 c'è il numero 14 no allora RP4=2
nell' estrazione 3951 in posizione5 c'è il numero 14 no allora RP5=2

RPTOTALE = RP1+RP2+RP3+RP4+RP5

SCRIVI Numero estrazione data estrazione RP1 RP2 RP3 RP4 RP5 RPTOTALE
2 2 2 2 2 10
nell' estrazione 3951 in posizione1 c'è il numero 14 no allora RP1=2
nell' estrazione 3951 in posizione2 c'è il numero 14 SI allora RP2=0
nell' estrazione 3951 in posizione3 c'è il numero 14 no allora RP3=2
nell' estrazione 3951 in posizione4 c'è il numero 14 no allora RP4=2
nell' estrazione 3951 in posizione5 c'è il numero 14 no allora RP5=2

RPTOTALE = RP1+RP2+RP3+RP4+RP5

SCRIVI Numero estrazione data estrazione RP1 RP2 RP3 RP4 RP5 RPTOTALE
3 0 3 3 3 12

Cosi fino all estrazione attuale
CIAO EUGENIO

 

[joe]

Come ti dicevo ...

ci sono molti vincoli per ognuno dei quali si forma un risultato diverso,

Risultato che, può generalmente ritrovarsi descritto come "Storico" (somma dei ritardi).

In questo caso reale del 14 a Venezia

(a partire dalla 3950 che rende inattendibili i dati esposti falsandoli)

3950 1 1 1 1 1 5
3951 2 2 2 2 2 10
3952 3 3 3 3 3 15
3953 4 4 4 4 4 20
3954 5 5 5 5 5 25
3955 6 6 6 6 6 30
3956 7 7 7 7 7 35
3957 8 8 8 8 8 40
3958 9 9 9 9 9 45
3959 10 10 10 10 10 50
3960 11 11 11 11 11 55
3961 12 12 12 12 12 60
3962 13 13 13 13 13 65
3963 14 14 14 14 14 70
3964 15 15 15 15 15 75
3965 16 16 16 16 16 80
3966 17 17 17 17 17 85
3967 18 18 18 18 18 90
3968 19 19 19 19 19 95
3969 20 20 20 20 20 100
3970 21 21 21 21 21 105
3971 22 22 22 22 22 110
3972 23 23 23 23 23 115
3973 24 24 24 24 24 120
3974 25 25 25 25 25 125
3975 26 26 26 26 26 130
3976 27 27 27 27 27 135
3977 28 28 28 28 28 140
3978 29 29 29 29 29 145
3979 30 30 30 30 30 150
3980 31 31 31 31 31 155
3981 32 32 32 32 32 160
3982 33 33 33 33 33 165
3983 34 34 34 34 34 170
3984 35 1 35 35 35 141



Abbiamo che lo storico 170 è raccolto prima della caduta in seconda posizione ...

altrimenti esso sarebbe 141.

MA E SOLO SE SI E' STABILITO "BENE E COME" SI calcola

Si sa il valore che si indica con una quantità numerica

Rappresenta ed è 141 o 170 o forse anche 175.

 

[genios]

Secondo la mia visione è 170 prima della caduta in seconda posizione ...

 

[silop2005]

Secondo la mia visione è 170 prima della caduta in seconda posizione ...

======================================================

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9

======================

Ciao genios ,

======================

secondo me il valore giusto da prendere

come massimo è il 165

perché dall'elenco del bravo Joe non si evince l'uscita del numero 14

cioè l'azzeramento della conta del ritardo

il quale è sortito all'estrazione del 3/05/1947 all'indice 3983

riporto l'elenco parziale modificato :

======================

3980 31 31 31 31 31 155

3981 32 32 32 32 32 160

3982 33 33 33 33 33 165

3983 34 0 34 34 34 136

3984 35 1 35 35 35 141

======================

quindi il valore massimo dell'elenco è il 165

da considerarsi quale MASSIMO STORICO di tutti i valori presenti.

======================

Buona giornata a tutto il forum.

======================

A presto

Silop

 

[genios]

Silop penso tu abbia ragione 165 e giusto.