lotto_tom75 RUBINO in questo mio script

[genios]

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 Eugenio





In out dovremmo avere : 5 colonne



numero . dall’ estrazione 1 alla 270 ritardo 90 frequenza 90 R/F

 

[lotto_tom75]

Intanto ti posto questo

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

 

[genios]

Grazie lotto_tom75 potresti pero nel rapporto R/F considerare un solo carattere dopo la virgola altrimenti si perde la formattazione .

ciao Eugenio

 

[lotto_tom75]

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)

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.. Aspettiamo Rubino o chi per lui...

 

[i legend]

Ciao provate a studiare la funzione round se possa fare al caso vostro
Ciao

 

[genios]

Sub Main
Scrivi(Round(24.13278) & "<br />")
Scrivi(Round(24.75122))
End Sub

OUT

24
24

 

[Rubino]

da provare, il periodo è impostato dal vostro estrazioneini e estrazionefin di spaziometria, siete voi a deciderlo.

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

 

[Rubino]

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-

 

[genios]

GRAZIE Rubino anche velocissimo anche se penso che la mia formula R/F sia poco efficace . Ci studio sopra .

ciao Eugenio

 

[genios]

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

Ciao Eugenio

 

[Rubino]

ho inserito i 10 max rapporti trovati

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

 

[ghio]

scusate ma cosa serve sta cosa?

 

[genios]

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

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

 

[genios]

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