Novità

lotto_tom75 RUBINO in questo mio script

genios

Advanced Member >PLATINUM<
Colonna forse da aggiungere allo script estrapolare solo il dato .

Aiuto per script .

Considerando il numero 90 dall’ estrazione n° 1 all estrazione 270 contare le frequenze del numero 90 quindi trovare il ritardo del numero 90 alla estrazione 270 quindi dividere il ritardo trovato per il numero delle frequenze nelle 270 estrazioni .

Successivamente dall’ estrazione n° 2 all estrazione 271 contare le frequenze del numero 90 quindi trovare il ritardo del numero 90 alla estrazione 271 quindi dividere il ritardo trovato per il numero delle frequenze nelle 270 estrazioni .

E cosi via fino all' estrazione finale . Con questo script vediamo come si comporta il parametro R/F.

Allego diagramma di flusso ma non so se è giusto .

Ciao EugenioDisegno1.jpg





In out dovremmo avere : 5 colonne



numero . dall’ estrazione 1 alla 270 ritardo 90 frequenza 90 R/F
 
Intanto ti posto questo

Codice:
Option Explicit 'mod
Sub Main
Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot
Dim contatore
contatore = 1
ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)
ReDim aRuoteSel(12)
ReDim aRuoteSel(12)
RuoteSelezionate = ScegliRuote(aRuoteSel)
Inizio = EstrazioneFin-270
Fine = EstrazioneFin
Call Scrivi
Call Scrivi("Data elaborazione: " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
Call Scrivi
Call Scrivi
Call Scrivi("Range elaborazione: " & giorno(EstrazioneIni) & "-" & Mese(EstrazioneIni) & "-" & Anno(EstrazioneIni) & " --- " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
Call Scrivi
Call Scrivi
Call Scrivi("Numero delle ultime estrazioni esaminate: " & EstrazioneFin - EstrazioneIni)
Call Scrivi
For k = 1 To RuoteSelezionate
Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
Next
nSorte = 1
Classe = 1
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Call Scrivi
Call Scrivi(" Sviluppo in classe: " & Classe & " sorte  " & nSorte)
Call Scrivi
Do While GetCombSviluppo(aCol) = True
i = i + 1
ReDim aRuoteTmp(1)
For k = 1 To RuoteSelezionate
aRuoteTmp(1) = aRuoteSel(k)
Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)
Dim Diff
Diff = RetRitMax - RetRit1
Dim rapportoRARS
Dim Stringafiltro
Stringafiltro = "R/F"
If(RetRit1 >= 0) Then
Call Messaggio("Trovata!!! :) per la ruota di: " & SiglaRuota(aRuoteSel(k)) & ". Siamo alla riga n. " & i)
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & "R/F" & RetRit1/RetFreq &  " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff & " contatore " & contatore & " x sorte di punti: " & nSorte & " Classe: " & Classe)
contatore = contatore + 1
Else
End If
Call AvanzamentoElab(1,ColTot,i)
If ScriptInterrotto Then Exit Do
Next
Loop
End If
Call Scrivi
Call Scrivi(" Tempo trascorso: " & TempoTrascorso)
Call Scrivi
End Sub

Manca il blocco per l'iterazione per il range di 270 estraz. volute... che lascio fare volentieri al + esperto Rubino ;)

Con questo code puoi utilizzare per le tue analisi R/F su qualsiasi ruota il numero che di volta in volta preferisci (non solo il 90). Ciao
 
Grazie lotto_tom75 potresti pero nel rapporto R/F considerare un solo carattere dopo la virgola altrimenti si perde la formattazione .

ciao Eugenio

Non credo di aver capito bene la tua richiesta genios.

Se ti riferisci a maggior spazio tra gli eleemtni dell'output ok da questa riga te li puoi aggiustare come meglio credi... (per adesso te li ho comunque distanziati maggiormente)

Codice:
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " R/F " & RetRit1/RetFreq & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff & " contatore " & contatore & " x sorte di punti: " & nSorte & " Classe: " & Classe)

Se invece ti riferivi al fatto che ad esempio anzichè un formattazione di questo tipo

90 R/F : 0,294117647058824

volevi una di questo tipo

90 R/F : 0,2 ovvero il risultato con un solo decimale...

purtroppo non saprei come fare.. :confused: Aspettiamo Rubino o chi per lui... ;)
 
da provare, il periodo è impostato dal vostro estrazioneini e estrazionefin di spaziometria, siete voi a deciderlo.


Codice:
Option Explicit
Sub Main
   Dim nsorte,Classe,cap,k,i,r,Inizio,ini,fine,daes,aes,retrit,retfre,diff,es,nc,rap
   Dim anum(1),ar(10)
   '
   r = InputBox("Ruota",,1)
   ar(1) = r
   fine = InputBox("Estraz.",,EstrazioneFin)
   cap = CInt(InputBox("Estratto richiesto ",,90))
   Inizio = EstrazioneIni
   nsorte = 1
   Classe = 1
   Scrivi "Ruota " & NomeRuota(r),1,2,3
   Scrivi "Estratto  " & GetTestoHtml(cap,True,vbRed)
   Scrivi "Sorte     " & GetTestoHtml("Estratto",True,vbRed),1
   Scrivi "Ult.Estraz.Attuale " & GetTestoHtml(fine & " / " & DataEstrazione(fine),True,vbBlue) & "  Estraz.Iniziale " & GetTestoHtml(Inizio & " / " & DataEstrazione(Inizio),True,vbBlue),1
   Scrivi "Periodi    Da -    A     Nr.    Ritardo  Freq   Rapp.Ra/Fq ",1
   Scrivi "-----------------------------------------------------------------------------",1
   anum(1) = cap
   ini = 1 : daes = Inizio : aes = Inizio + 269
   '''loop per blocco estrazioni prese in considerazione  (270)
   For nc = Inizio To fine - 269
      If daes <= fine - 269 Then
         i = i + 1
         Messaggio(i)
         Call StatisticaFormazioneTurbo(anum,ar,nsorte,retrit,,,retfre,daes,aes)
         If retrit > 0 Then rap = retrit/retfre Else rap = 0 End If
         Scrivi "Estraz. : " & daes & " / " & FormatSpace(aes,8) & GetTestoHtml(FormatSpace(Format2(anum(1)),8),True,vbRed) & FormatSpace(FormattaStringa(retrit,"000"),8) & GetTestoHtml(FormatSpace(Format2(retfre),8),True,vbRed) & Round(rap,3)
         If ScriptInterrotto Then Exit For
         aes = daes + 270
         daes = daes + 1
      End If
   Next
   Scrivi:Scrivi "tempo Elaborazione   " & TempoTrascorso
End Sub
 
x genios

quanti decimali sei tu a sceglierlo

il tuo esempio
Scrivi(Round(24.75122))

se vuoi 5 decimali devi fare

round(24.75122,5)
quel ,5 dai istruzione di voler 5 decimali


nello script che ho fatto ho messo 3 decimali, se ne vuoi di piu' basta modificare quella riga con i decimali che vuoi-
 
GRAZIE Rubino anche velocissimo anche se penso che la mia formula R/F sia poco efficace . Ci studio sopra .

ciao Eugenio
 
Rubino Non so se sia fattibile si potrebbero avere in out i 10 max del rapporto R/F.

Ciao Eugenio
 
ho inserito i 10 max rapporti trovati

Codice:
Option Explicit
Sub Main
Dim nsorte,Classe,cap,k,i,r,Inizio,ini,fine,daes,aes,retrit,retfre,diff,es,nc,rap,j
Dim anum(1),ar(10),max(10000,2)

'
r = InputBox("Ruota",,1)
ar(1) = r
fine = InputBox("Estraz.",,EstrazioneFin)
cap = CInt(InputBox("Estratto richiesto ",,90))
If r = 12 Then
Inizio = 7440
Else
Inizio = EstrazioneIni
End If
nsorte = 1
Classe = 1
Scrivi "Ruota " & NomeRuota(r),1,2,3
Scrivi "Estratto " & GetTestoHtml(cap,True,vbRed)
Scrivi "Sorte " & GetTestoHtml("Estratto",True,vbRed),1
Scrivi "Ult.Estraz.Attuale " & GetTestoHtml(fine & " / " & DataEstrazione(fine),True,vbBlue) & " Estraz.Iniziale " & GetTestoHtml(Inizio & " / " & DataEstrazione(Inizio),True,vbBlue),1
Scrivi "Periodi Da - A Nr. Ritardo Freq Rapp.Ra/Fq ",1
Scrivi "-----------------------------------------------------------------------------",1
anum(1) = cap
ini = 1 : daes = Inizio : aes = Inizio + 269
'''loop per blocco estrazioni prese in considerazione (270)
For nc = Inizio To fine - 269
If daes <= fine - 269 Then
i = i + 1
Messaggio(i)
Call StatisticaFormazioneTurbo(anum,ar,nsorte,retrit,,,retfre,daes,aes)
If retrit > 0 Then rap = retrit/retfre Else rap = 0 End If
Scrivi "Estraz. : " & daes & " / " & FormatSpace(aes,8) & GetTestoHtml(FormatSpace(Format2(anum(1)),8),True,vbRed) & FormatSpace(FormattaStringa(retrit,"000"),8) & GetTestoHtml(FormatSpace(Format2(retfre),8),True,vbRed) & Round(rap,3)
max(i,1) = rap
max(i,2) = "Estraz. : " & daes & " / " & FormatSpace(aes,8)
If ScriptInterrotto Then Exit For
aes = daes + 270
daes = daes + 1
End If
Next
Call OrdinaMatrice(max,-1,1)
Scrivi:Scrivi "Riepilogo dei 10 massimi Rapporti RC/Freq ",1,2,3
For j = 1 To 10
Scrivi max(j,2) & " " & Round(max(j,1),5)
Next
Scrivi:Scrivi "tempo Elaborazione " & TempoTrascorso
End Sub
 
Rubino ti ringrazio della tua disponibilità devo farti notare però che i max del RP/RL fanno parte dello stesso max . Non sono 10 max . ma solo uno cioè 8.625
Codice:
Estraz. : 4711 / 4980    90      060     08      7,5
Estraz. : 4712 / 4981    90      061     08      7,625
Estraz. : 4713 / 4982    90      062     08      7,75
Estraz. : 4714 / 4983    90      063     08      7,875
Estraz. : 4715 / 4984    90      064     08      8
Estraz. : 4716 / 4985    90      065     08      8,125
Estraz. : 4717 / 4986    90      066     08      8,25
Estraz. : 4718 / 4987    90      067     08      8,375
Estraz. : 4719 / 4988    90      068     08      8,5
Estraz. : 4720 / 4989    90      069     08      8,625

ciao Eugenio
 
Rubino si potrebbe eleminando il ciclo sulle 270 estrazioni inserire altre variabili in modo che in out
per ogni estrazione abbiamo:

numero estrazione

numero

Calcolo della frequenza totale ( F.TOT)

Calcolo numero estrazioni /18 ( frequenza teorica ) (FT)

FDIFF =F.TOT - FT ( Puo essere anche un numero negativo )

Ritardo

RITDIFF =Ritardo - 18 ( Puo essere anche un numero negativo )

RITDIFF – FDIFF (differenza algebrica) ( Puo essere anche un numero negativo )



ciao Eugenio
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto