Per il gent.mo Rubino

[solare]

Gent.mo Rubino vorrei chiedere cortesemente se puoi modificare questo tuo script anche per il 10elotto ogni 5 minuti.
ed eventualmente effettuare la statistica per tutte le coppie appartenenti ai 90 numeri e non per cadenza.... Grazie per la cortesia



'ricerca ULTIMI 10 RITARDI AVUTI DEI NUMERI r
'''mikiultRitardi
Sub Main()
ca = InputBox("Cadenza richiesta ",,1)
Ord = InputBox("Ordina tabella per ritardo attuale ",,3)
dal = 8077

ColoreTesto 1
Scrivi " Situazione ultimi 10 ritardi al 10 E LOTTO ------------NAMESCRIPT PAOLOX10eLOTTO(2) "
Scrivi " Per i numeri di cadenza richiesta...." & ca
Scrivi " Periodo statistico dal....al...." & dal & " " & DataEstrazioneDL(dal) & " - " & EstrazioneFin & " " & DataEstrazioneDL(EstrazioneFin)
Scrivi " Situazione al concorso n. " & EstrazioneFin & " " & DataEstrazioneDL(EstrazioneFin)
ColoreTesto 2
Scrivi
Scrivi " BI-Estratti di Cadenza .... 1 su 2",1
ColoreTesto 0
Scrivi "_____________________________________________________________________"
ReDim atitoli(18)
' preimposto i titoli delle colonne
atitoli(1) = "Ruota "
atitoli(2) = "Numeri "
atitoli(3) = "R.att"
atitoli(4) = " Storico"
atitoli(5) = " R01 "
atitoli(6) = " R02 "
atitoli(7) = " R03 "
atitoli(8) = " R04 "
atitoli(9) = " R05 "
atitoli(10) = " R06 "
atitoli(11) = " R07 "
atitoli(12) = " R08 "
atitoli(13) = " R09 "
atitoli(14) = " R10 "
atitoli(15) = " SomRit."
atitoli(16) = " Media Prec."
atitoli(17) = " S.q.medio "
atitoli(18) = " Ang.60°Gann"
' inizializzo la tabella
Call InitTabella(atitoli,1,"center",1,5)
finale = EstrazioneFin
ini = 8077
somrit = 0
'''''----------------------------------------------------------------------------------------------------
yy = ca
'''mikirubinoAmbi BIAMBI
For y = 1 To 8
yy = yy + 10
zz = yy
For z = 1 To 9 - y
zz = zz + 10
lancio1 = getbiambo(y,yy,zz,dal,finale)
Next
Next
'''''----------------------------------------------------------------------------------------------------
Call CreaTabella(Int(ord))
End Sub
''''''''''-----------------------------------------------------------------------------------------------------------------------------
Function getbiambo(y,yy,zz,dal,finale)
Dim an(2)
Dim rit(11)
Dim sto(11)
Dim q
Dim somrit
fine = finale
an(1) = Fuori90(yy)
an(2) = Fuori90(zz)
stori = SerieStoricoDL(dal,fine,an,1)
For q = 1 To 11
uno = EstrattoRitardoDL(Fuori90(yy),dal,fine)
due = EstrattoRitardoDL(Fuori90(zz),dal,fine)
If Int(uno) < Int(due) Then rit(q) = uno Else rit(q) = due End If
fine = fine -(rit(q) + 1)
If q >= 2 Then
somrit = somrit + rit(q)
End If
Next

''' ReDim pos(20)
''' Ini = dal
''' For Ini = Ini To EstrazioneFin
''' For v = 1 To 20
''' pos(v) = pos(v) + 1
''' If an(1) = Estratto(Ini,v) Or an(2) = Estratto(Ini,v) Then
''' pos(v) = 0
''' End If
''' Next
''' Next


' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(18) '
ReDim dif(10)
aValori(1) = "10ELOTTO"
aValori(2) = Format2(an(1)) & "-" & Format2(an(2))
aValori(3) = rit(1)
aValori(4) = stori
aValori(5) = rit(2)
aValori(6) = rit(3)
aValori(7) = rit(4)
aValori(8) = rit(5)
aValori(9) = rit(6)
aValori(10) = rit(7)
aValori(11) = rit(8)
aValori(12) = rit(9)
aValori(13) = rit(10)
aValori(14) = rit(11)
aValori(15) = somrit
Media = somrit / 10
t = 10
aValori(16) = Media



'''calcola scarto medio quadratico sulla coppia negli ultimi 10 ritardi
For z = 1 To t
If Int(Media) > CLng(rit(z)) Then
dif(z) = Media - CLng(rit(z))
Else
dif(z) = CLng(rit(z)) - Media
End If
quadro = dif(z) * dif(z)
Totqua = Totqua + CLng(quadro)
Next
''''--------------------------------------------------------------------------------------------------------------------
'''calcola scarto medio quadratico e medie
smq1 = Sqr(Totqua/t)

aValori(17) = round(smq1,6)
aValori(18) = Int(

 

[Roby]

ciao solare

lo script ha 2 problemini nella velocità di elaborazione:

1) elaborazione dei 4005 ambi o coppie è abbastanza lenta, perchè deve calcolare il ritardo e recuperare gli ultimi 10 ritardi etc..

2) una volta calcolato il tutto come faccio a mettere 4005 ambi in ordine per qualche parametro o colonna?

3) bisogna avere e sapere un minimo di criterio di cosa vuoi vedere

per esempio:

i primi 100 ?

solo alcuni che iniziano con un numero capogioco ?

solo alcuni che iniziano qualche casistica?



fammi sapere qualcosa.





-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

Un Attimo della vita, sognare con umiltà

 

[solare]

Ciao Rubino,si andrebbe benissino la visualizzazione dei primi 100
altrimenti avere l'elaborazione di tutti i 90 nr "singolarmente"
diversamente va bene anche il listato che ti ho esposto ma modificato per 10elotto ogni 5 minuti.
Grazie

 

[Roby]

ciao solare

per il momento ho fatto le modifiche così.
mantenendo la richiesta per cadenza.

'ricerca ULTIMI 10 RITARDI AVUTI DEI NUMERI
''
Sub Main()


archiv = InputBox("10Lotto 5 minuti = 5     10Lotto Classico = C ",,"C")

If archiv = "C" Or archiv = "c" Then
ImpostaArchivio10ELotto(1)
dal = 8077
finale = EstrazioneFin
ini = 8077

Else

ImpostaArchivio10ELotto(2)
finale = EstrazioniArchivioDL
dal = EstrazioneIni
ini = dal
End If


ca = InputBox("Cadenza richiesta ",,1)
Ord = InputBox("Ordina tabella                                                           Ritardo Attuale = 3     Somma Ritardi = 15  ",,3)


ColoreTesto 1
Scrivi " Situazione ultimi 10 ritardi  ------------NAMESCRIPT solare "

If archiv = "5" Then
ColoreTesto(2) : Scrivi " 10  E    L O T T O  5   M i n u t i ",1
Else
ColoreTesto(2): Scrivi " 10  E    L O T T O   Classico ",1
End If

Scrivi " Per i numeri di cadenza richiesta...." & ca
ColoreTesto(1)
Scrivi " Periodo statistico dal....al...." & dal & " " & DataEstrazioneDL(dal) & " - " & finale & " " & DataEstrazioneDL(finale)
Scrivi " Situazione al concorso n. " & finale & " " & DataEstrazioneDL(finale)
ColoreTesto 2
Scrivi
Scrivi " BI-Estratti di Cadenza .... 1 su 2",1
ColoreTesto 0
Scrivi "_____________________________________________________________________"
ReDim atitoli(18)
' preimposto i titoli delle colonne
atitoli(1) = "  Ruota  "
atitoli(2) = "  Numeri "
atitoli(3) = "  R.att. "
atitoli(4) = "  Storico "
atitoli(5) = "  R01   "
atitoli(6) = "  R02   "
atitoli(7) = "  R03   "
atitoli(8) = "  R04   "
atitoli(9) = "  R05   "
atitoli(10) = "  R06   "
atitoli(11) = "  R07   "
atitoli(12) = "  R08   "
atitoli(13) = "  R09   "
atitoli(14) = "  R10   "
atitoli(15) = "  SomRit.  "
atitoli(16) = "  Media Prec."
atitoli(17) = "  S.q.medio  "
atitoli(18) = "  Ang.60°Gann"
' inizializzo la tabella
Call InitTabella(atitoli,1,"center",1,5)

somrit = 0
'''''----------------------------------------------------------------------------------------------------
yy = ca
'''mikirubinoAmbi BIAMBI
For y = 1 To 8
yy = yy + 10
zz = yy
For z = 1 To 9 - y
zz = zz + 10
lancio1 = getbiambo(y,yy,zz,dal,finale,Ord)
Next
Next
'''''----------------------------------------------------------------------------------------------------
Call CreaTabella(Int(ord))
End Sub
''''''''''-----------------------------------------------------------------------------------------------------------------------------
Function getbiambo(y,yy,zz,dal,finale,Ord)
Dim an(2)
Dim rit(11)
Dim sto(11)
Dim q
Dim somrit
fine = finale
an(1) = Fuori90(yy)
an(2) = Fuori90(zz)
stori = SerieStoricoDL(dal,fine,an,1)
For q = 1 To 11
uno = EstrattoRitardoDL(Fuori90(yy),dal,fine)
due = EstrattoRitardoDL(Fuori90(zz),dal,fine)
If Int(uno) < Int(due) Then rit(q) = uno Else rit(q) = due End If
fine = fine -(rit(q) + 1)
If q >= 2 Then
somrit = somrit + rit(q)
End If
Next

''' ReDim pos(20)
''' Ini = dal
''' For Ini = Ini To EstrazioneFin
''' For v = 1 To 20
''' pos(v) = pos(v) + 1
''' If an(1) = Estratto(Ini,v) Or an(2) = Estratto(Ini,v) Then
''' pos(v) = 0
''' End If
''' Next
''' Next


' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(18) '
ReDim dif(10)
aValori(1) = "10ELOTTO"
aValori(2) = Format2(an(1)) & "-" & Format2(an(2))
aValori(3) = rit(1)
aValori(4) = stori
aValori(5) = rit(2)
aValori(6) = rit(3)
aValori(7) = rit(4)
aValori(8) = rit(5)
aValori(9) = rit(6)
aValori(10) = rit(7)
aValori(11) = rit(8)
aValori(12) = rit(9)
aValori(13) = rit(10)
aValori(14) = rit(11)
aValori(15) = somrit
Media = somrit / 10
t = 10
aValori(16) = Media



'''calcola scarto medio quadratico sulla coppia negli ultimi 10 ritardi
For z = 1 To t
If Int(Media) > CLng(rit(z)) Then
dif(z) = Media - CLng(rit(z))
Else
dif(z) = CLng(rit(z)) - Media
End If
quadro = dif(z) * dif(z)
Totqua = Totqua + CLng(quadro)
Next
''''--------------------------------------------------------------

 

[solare]

Ottimo Rubino.....
Grazie della tua disponibilità
Ciao