Novità

precisazione e relativa correzione

giorgioantonio

Super Member >PLATINUM<
Salve Mike58, buona giornata,
chiedo se è possibile apportare la correzione al presente listato.
CostruttoreSommativa. La teoria dice che il calcolo lo fa sulla 1^
Estrazione del mese ma se la rielaborazione la faccio dopo 6-7
Estrazioni non mi da le stesse terne pur rispettando:
l’indice, la ruota, la posizione, i casi, e i colpi.
Secondo me non dovrebbe cambiare le terne ad ogni
Elaborazione/estrazione successiva.
Potresti apportare la correzione?
Ti posto il file.
Ti ringrazio.
Sub Main()
Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1
Dim num(120000,5),aa(3),n1(1),n2(1),n3(1)
Dim cin(10),ruote(10)
casi = 0
x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO

ruote(1) = r
fin = EstrazioneFin
Ini = fin - 140
fine = EstrazioneFin
ReDim atitoli(11)
atitoli(1) = " ESTRATTO "
atitoli(2) = " SOMMATIVO "
atitoli(3) = " PRESENZA SU CASI "
atitoli(4) = " NUMERO IN GIOCO "
atitoli(5) = " ESITO "
atitoli(6) = " RET_ESTRATTI "
atitoli(7) = " DATA ESTRAZIONE "
atitoli(8) = " COLPO ESITO "
atitoli(9) = " NUM. 1 "
atitoli(10) = " NUM. 2 "
atitoli(11) = " NUM. 3 "
Call InitTabella(atitoli,1,,3,5)
For es = Ini To Fin
If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
idd = GetInfoEstrazione(es)
Call Messaggio("Costruttore Sommativo per Ambi " & " casi trovati...." & casi)
Call AvanzamentoElab(Ini,fin,es)
Inco = fine - es
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + colpi
e = Estratto(es,r,pos)
For s1 = 1 To 88
For s2 = s1 + 1 To 89
For s3 = s2 + 1 To 90
co = co + 1
cin(1) = Fuori90(e + s1)
cin(2) = Fuori90(e + s2)
cin(3) = Fuori90(e + s3)
ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
num(co,1) = s1
num(co,2) = s2
num(co,3) = s3
num(co,4) = num(co,4)
If ea > 0 Then
num(co,4) = num(co,4) + 1
End If
Next
Next
Next
End If
Next
Scrivi : ColoreTesto 0: Scrivi,1
Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
Scrivi "Combinazioni analizzate: " & co,1
Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
Scrivi " -> Colpo in corso..." & Inco,1
Scrivi
ColoreTesto 0
For i = 1 To visual
Call OrdinaMatrice(num,- 1,4)
If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
ColoreTesto 0
aa(1) = Fuori90(cin(1) + num(i,1) + 2)
aa(2) = Fuori90(cin(2) + num(i,2) + 1)
aa(3) = Fuori90(cin(3) + num(i,3))
Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
n1(1) = aa(1)
n2(1) = aa(2)
n3(1) = aa(3)

ReDim avalori(11)
avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi "
avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
avalori(5) = retesito
avalori(6) = Retestratti
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(7) = DataEstrazione(id)
Else
avalori(7) = " In corso "
End If
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(8) = retcolpi & "°"
Else
avalori(8) = Inco & "° in corso "
End If
sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
If sf11 > 0 Then
avalori(9) = n1(1)
Else
avalori(9) = ""
End If
If sf12 > 0 Then
avalori(10) = n2(1)
Else
avalori(10) = ""
End If
If sf13 > 0 Then
avalori(11) = n3(1)
Else
avalori(11) = ""
End If
'End If
Call AddRigaTabella(avalori,,,3)
End If
Call SetColoreCella(2,,1)
Call SetColoreCella(4,,2)
Call SetColoreCella(6,,7)
If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()


End Sub
 
Ciao Giorgioantonio,per queste tipologie di script, ho già dato la mia veduta negativa in passato, in quanto si tratta di trovare dei frequenti sommativi dopo un indice mensile.

Mi ripeto ancora e faccio notare che intanto analizza un cero range (nella fattispecie 140 es ) e con il cambiare delle estrazioni cambia anche se 140 estraz. le estrazioni considerate
ossia se analizziamo 140 es da 1 a 140 si hanno dei risultati, se invece analizziamo più il là sempre 140 es ma da 10 a 150 i risultati frequenti possono anche cambiare.

Poi come si vede dallo schema tabella trova tutte le terzine x ambo con valore 6 su 10 e siccome ne visualizziamo solo 10 vengono prese anche in modo ramdom le terzine + frequenti, ma di 6 su 10 c'è ne sono anche altre e quindi se si fa allo stesso range un'altra elaborazione possono anche cambiare.

Davvero non saprei cosa altro aggiungere se non cautela nella scelta.

Ciao
 
Ultima modifica:
Ciao Mike58

come sempre ti ringrazio delle risposte che mi dai.
Ti ho chiesto quanto innanzi perchè avevo preso come
principio "Il primo del mese".

In fin dei conti avrai tenuto come base le statistiche e quindi
ci devo fare uno studio.

Solo un altro piccolo appunto:
se scalo o indietreggio le estranzioni mi da i risultati fino a quella estrazione
o non ne tiene conto dell'indietreggiamento?.

Saluti
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 aprile 2025
    Bari
    55
    40
    19
    11
    08
    Cagliari
    40
    84
    20
    07
    36
    Firenze
    60
    12
    08
    10
    74
    Genova
    87
    68
    51
    61
    89
    Milano
    20
    49
    60
    82
    04
    Napoli
    62
    89
    01
    21
    29
    Palermo
    63
    69
    81
    78
    70
    Roma
    18
    69
    26
    40
    65
    Torino
    74
    83
    78
    16
    81
    Venezia
    64
    81
    72
    43
    02
    Nazionale
    04
    45
    30
    55
    34
    Estrazione Simbolotto
    Genova
    23
    41
    35
    32
    01

Ultimi Messaggi

Indietro
Alto