Novità

Per il software spaziometria

M

MaXL8

Junior Member
Ciao ragazzi,
vorrei chiedere a luigib se si può implementare la ricerca statistica a cicli, cioè poter suddividere l'archivio a cicli sia continui che a passo 2, 3 ecc. questa funzione la stavo cercando ovunque, senza trovarla in nessun software, per me è una funzione utilissima per cercare coperture statistiche cicliche! facciamo un esempio: quanti cicli di 13 estrazioni continui sono stati coperti con la terzina 25.87.66 a bari? in che percentuale? in questo modo sai anche quanti cicli negativi continui e si avrebbe una statistica diversa dalla solita.

...veramente utile, inoltre se si potesse inserire anche per gli archivi 10e lotto sarebbe il massimo!! :D:rolleyes:

Grazie!!
 
Ultima modifica:
Credo che sia già presente la funzione che ti serve,in "statistiche" - "formazioni superfrequenti per ciclo"
puoi impostare l'ampiezza del ciclo, il numero di cicli a ritroso ecc.. ed è molto interessante ed esiste anche per il 10 e lotto...
 
Si, quella funzione la conosco molto bene, ma io sto dicendo un'altra cosa, sto parlando di verifica: prendi l'esempio che ho fatto; metti che voglia sapere come si è comportata la cinquina 1.2.3.4.5 su tutto l'archivio in cicli di 10 estrazioni, in modo da avere un risultato del genere:
[TABLE="class: MsoNormalTable, width: 247"]
[TR]
[TD="width: 204, bgcolor: transparent"]Ricerca per cicli continui
[/TD]
[TD="width: 127, bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="width: 204, bgcolor: transparent"]
Durata ciclo:​
[/TD]
[TD="width: 127, bgcolor: transparent"]
13​
[/TD]
[/TR]
[TR]
[TD="width: 204, bgcolor: transparent"]
Posizione attuale nel ciclo:​
[/TD]
[TD="width: 127, bgcolor: transparent"]
0​
[/TD]
[/TR]
[TR]
[TD="width: 204, bgcolor: transparent"]
Numero cicli generati:​
[/TD]
[TD="width: 127, bgcolor: transparent"]
637​
[/TD]
[/TR]
[TR]
[TD="width: 204, bgcolor: transparent"]
Distribuzione di frequenza nei cicli​
[/TD]
[TD="width: 127, bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="width: 204, bgcolor: transparent"]
Frequenza massima:​
[/TD]
[TD="width: 127, bgcolor: transparent"]
7 nel ciclo 25​
[/TD]
[/TR]
[TR]
[TD="width: 204, bgcolor: transparent"]
Frequenza minima:​
[/TD]
[TD="width: 127, bgcolor: transparent"]
0​
[/TD]
[/TR]
[TR]
[TD="width: 204, bgcolor: transparent"]
Frequenza totale:​
[/TD]
[TD="width: 127, bgcolor: transparent"]
1414​
[/TD]
[/TR]
[TR]
[TD="width: 204, bgcolor: transparent"]
Frequenza media:​
[/TD]
[TD="width: 127, bgcolor: transparent"]
2,220​
[/TD]
[/TR]
[TR]
[TD="width: 204, bgcolor: transparent"]
Cicli di presenza:​
[/TD]
[TD="width: 127, bgcolor: transparent"]
603 (94,66%)​
[/TD]
[/TR]
[TR]
[TD="width: 204, bgcolor: transparent"]
Max cicli di assenza consecutivi:​
[/TD]
[TD="width: 127, bgcolor: transparent"]
2 ​
[/TD]
[/TR]
[/TABLE]

[TABLE="class: MsoNormalTable, width: 330"]
[TR]
[TD="width: 127, bgcolor: transparent"]Ciclo
[/TD]
[TD="width: 154, bgcolor: transparent"]Inizio
[/TD]
[TD="width: 128, bgcolor: transparent"]Fine
[/TD]
[TD="width: 32, bgcolor: transparent"]Fre.
[/TD]
[/TR]
[TR]
[TD="width: 127, bgcolor: transparent"]
1​
[/TD]
[TD="width: 154, bgcolor: transparent"]
‘174 [03.05.1874]​
[/TD]
[TD="width: 128, bgcolor: transparent"]
‘186 [26.07.1874]​
[/TD]
[TD="width: 32, bgcolor: transparent"]
3​
[/TD]
[/TR]
[TR]
[TD="width: 127, bgcolor: transparent"]
2​
[/TD]
[TD="width: 154, bgcolor: transparent"]
‘187 [02.08.1874]​
[/TD]
[TD="width: 128, bgcolor: transparent"]
‘199 [25.10.1874]​
[/TD]
[TD="width: 32, bgcolor: transparent"]
2​
[/TD]
[/TR]
[TR]
[TD="width: 127, bgcolor: transparent"]
3​
[/TD]
[TD="width: 154, bgcolor: transparent"]
‘200 [01.11.1874]​
[/TD]
[TD="width: 128, bgcolor: transparent"]
‘212 [24.01.1875]​
[/TD]
[TD="width: 32, bgcolor: transparent"]
2​
[/TD]
[/TR]
[TR]
[TD="width: 127, bgcolor: transparent"]
4​
[/TD]
[TD="width: 154, bgcolor: transparent"]
‘213 [31.01.1875]​
[/TD]
[TD="width: 128, bgcolor: transparent"]
‘225 [25.04.1875]​
[/TD]
[TD="width: 32, bgcolor: transparent"]
3​
[/TD]
[/TR]
[TR]
[TD="width: 127, bgcolor: transparent"]
5​
[/TD]
[TD="width: 154, bgcolor: transparent"]
‘226 [02.05.1875]​
[/TD]
[TD="width: 128, bgcolor: transparent"]
‘238 [25.07.1875]​
[/TD]
[TD="width: 32, bgcolor: transparent"]
5​
[/TD]
[/TR]
[TR]
[TD="width: 127, bgcolor: transparent"]
6​
[/TD]
[TD="width: 154, bgcolor: transparent"]
‘239 [01.08.1875]​
[/TD]
[TD="width: 128, bgcolor: transparent"]
‘251 [24.10.1875]​
[/TD]
[TD="width: 32, bgcolor: transparent"]
5​
[/TD]
[/TR]
[TR]
[TD="width: 127, bgcolor: transparent"]
7​
[/TD]
[TD="width: 154, bgcolor: transparent"]
‘252 [31.10.1875]​
[/TD]
[TD="width: 128, bgcolor: transparent"]
‘264 [23.01.1876]​
[/TD]
[TD="width: 32, bgcolor: transparent"]
1​
[/TD]
[/TR]
[/TABLE]

Mi sono spiegato meglio?
 
Scusa ma sarebbero sufficienti 4 righe di script per il tuo quesito, chiedi se qualcuno te lo può fare.
 
Ultima modifica:



Eccoti un esempio


Codice: 
Sub [B][SIZE=2][SIZE=2]Main
[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]Dim [/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]ruote[/SIZE][/SIZE][/B][SIZE=2](1)
[/SIZE][B][SIZE=2][SIZE=2]Dim [/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2](10)
[/SIZE][B][SIZE=2][SIZE=2]Dim [/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]co
[/SIZE][/SIZE][/B][SIZE=2]ciclo [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][SIZE=2] 13
[/SIZE][B][SIZE=2][SIZE=2]ruote[/SIZE][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][SIZE=2] 1 [/SIZE][SIZE=2][SIZE=2]' ruota da analizzare
[/SIZE][/SIZE][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][SIZE=2] 4 [/SIZE][SIZE=2][SIZE=2]' numeri da analizzare
[/SIZE][/SIZE][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][SIZE=2] 6
[/SIZE][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2](3) [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][SIZE=2] 8
[/SIZE][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2](4) [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][SIZE=2] 10
[/SIZE][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2](5) [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][SIZE=2] 12
[/SIZE][SIZE=2][SIZE=2]'n(6) = 14
[/SIZE][/SIZE][SIZE=2][SIZE=2]'n(7) = 16
[/SIZE][/SIZE][SIZE=2][SIZE=2]'n(8) = 18
[/SIZE][/SIZE][SIZE=2][SIZE=2]'n(9) = 20
[/SIZE][/SIZE][SIZE=2][SIZE=2]'n(10) = 2
[/SIZE][/SIZE][B][SIZE=2][SIZE=2]co[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][SIZE=2]0
Ini [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][SIZE=2] 1
[/SIZE][B][SIZE=2][SIZE=2]Scrivi[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] Ciclo n° | Inizio ciclo | Fine ciclo |amabata | ambo | terno |quaterna|cinquina|[/SIZE][/SIZE][SIZE=2]",1,0
[/SIZE][B][SIZE=2][SIZE=2]Scrivi[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] script By claudio8 [/SIZE][/SIZE][SIZE=2]",1,1,4,0
[/SIZE][B][SIZE=2][SIZE=2]Scrivi[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] ----------------------------------------------------------------------------------[/SIZE][/SIZE][SIZE=2]"
[/SIZE][B][SIZE=2][SIZE=2]For[/SIZE][/SIZE][/B][SIZE=2] es [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][SIZE=2] Ini [/SIZE][B][SIZE=2][SIZE=2]To [/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]EstrazioneFin [/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]Step[/SIZE][/SIZE][/B][SIZE=2] (ciclo)
[/SIZE][B][SIZE=2][SIZE=2]co[/SIZE][/SIZE][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]co[/SIZE][/SIZE][SIZE=2][SIZE=2]+[/SIZE][/SIZE][/B][SIZE=2]1
p1 [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]SerieFreq[/SIZE][/SIZE][/B][SIZE=2](es,es [/SIZE][B][SIZE=2][SIZE=2]+[/SIZE][/SIZE][/B][SIZE=2] ciclo[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1,[/SIZE][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][SIZE=2]ruote[/SIZE][/SIZE][/B][SIZE=2],1)
p2 [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]SerieFreq[/SIZE][/SIZE][/B][SIZE=2](es,es [/SIZE][B][SIZE=2][SIZE=2]+[/SIZE][/SIZE][/B][SIZE=2] ciclo[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1,[/SIZE][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][SIZE=2]ruote[/SIZE][/SIZE][/B][SIZE=2],2)
p3 [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]SerieFreq[/SIZE][/SIZE][/B][SIZE=2](es,es [/SIZE][B][SIZE=2][SIZE=2]+[/SIZE][/SIZE][/B][SIZE=2] ciclo[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1,[/SIZE][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][SIZE=2]ruote[/SIZE][/SIZE][/B][SIZE=2],3)
p4 [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]SerieFreq[/SIZE][/SIZE][/B][SIZE=2](es,es [/SIZE][B][SIZE=2][SIZE=2]+[/SIZE][/SIZE][/B][SIZE=2] ciclo[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1,[/SIZE][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][SIZE=2]ruote[/SIZE][/SIZE][/B][SIZE=2],4)
p5 [/SIZE][B][SIZE=2][SIZE=2]=[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]SerieFreq[/SIZE][/SIZE][/B][SIZE=2](es,es [/SIZE][B][SIZE=2][SIZE=2]+[/SIZE][/SIZE][/B][SIZE=2] ciclo[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1,[/SIZE][B][SIZE=2][SIZE=2]n[/SIZE][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][SIZE=2]ruote[/SIZE][/SIZE][/B][SIZE=2],5)
[/SIZE][SIZE=2][SIZE=2]'Scrivi " Inizio ciclo | Fine ciclo |amabata| ambo | terno |quaterna|cinquina|"
[/SIZE][/SIZE][B][SIZE=2][SIZE=2]Scrivi[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2]"[/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]FormatSpace[/SIZE][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][SIZE=2]co[/SIZE][/SIZE][/B][SIZE=2],4,[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1) [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] | [/SIZE][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]DataEstrazione[/SIZE][/SIZE][/B][SIZE=2](es) [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] | [/SIZE][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]DataEstrazione[/SIZE][/SIZE][/B][SIZE=2](es [/SIZE][B][SIZE=2][SIZE=2]+[/SIZE][/SIZE][/B][SIZE=2] ciclo[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1) [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] | [/SIZE][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][SIZE=2][SIZE=2]FormatSpace[/SIZE][/SIZE][/B][SIZE=2](p1,4,[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1) [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][SIZE=2]_
"[/SIZE][SIZE=2][SIZE=2] | [/SIZE][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][SIZE=2][SIZE=2]FormatSpace[/SIZE][/SIZE][/B][SIZE=2](p2,4,[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1) [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] | [/SIZE][/SIZE][SIZE=2]"[/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][SIZE=2][SIZE=2]FormatSpace[/SIZE][/SIZE][/B][SIZE=2](p3,4,[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1) [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] | [/SIZE][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][SIZE=2][SIZE=2]FormatSpace[/SIZE][/SIZE][/B][SIZE=2](p4,4,[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1) [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] | [/SIZE][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][SIZE=2][SIZE=2]FormatSpace[/SIZE][/SIZE][/B][SIZE=2](p5,4,[/SIZE][B][SIZE=2][SIZE=2]-[/SIZE][/SIZE][/B][SIZE=2]1) [/SIZE][B][SIZE=2][SIZE=2]&[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] |[/SIZE][/SIZE][SIZE=2]"
[/SIZE][B][SIZE=2][SIZE=2]Next
[/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]Scrivi[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] ----------------------------------------------------------------------------------[/SIZE][/SIZE][SIZE=2]"
[/SIZE][B][SIZE=2][SIZE=2]Scrivi[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] Ciclo n° | Inizio ciclo | Fine ciclo |amabata | ambo | terno |quaterna|cinquina|[/SIZE][/SIZE][SIZE=2]",1,0
[/SIZE][B][SIZE=2][SIZE=2]Scrivi[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] script By claudio8 [/SIZE][/SIZE][SIZE=2]",1,1,4,0
[/SIZE][B][SIZE=2][SIZE=2]Scrivi[/SIZE][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][SIZE=2] N° cicli generati [/SIZE][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][SIZE=2]& [/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]co
[/SIZE][/SIZE][SIZE=2][SIZE=2]End [/SIZE][/SIZE][/B][B][SIZE=2][SIZE=2]Sub
[/SIZE][/SIZE][/B]


 
Ultima modifica:
CHE DU P....

Qualcuno ha capito bene come inserire un listato senza che venga modificato in errore da questo nuovo Lottoced ?

grazie.

A Lottoced chiedo se è possibile inserire in "Risposta veloce" il comando di " inserimento codice"
 
Codice: 
Sub Main
    Dim ruote(1)
    Dim n(10)
    Dim co
    ciclo = 13
    ruote(1) = 1 ' ruota da analizzare
    n(1) = 4 ' numeri da analizzare
    n(2) = 6
    n(3) = 8
    n(4) = 10
    n(5) = 12
    'n(6) = 14
    'n(7) = 16
    'n(8) = 18
    'n(9) = 20
    'n(10) = 2
    co = 0
    Ini = 1
    Scrivi " Ciclo n° | Inizio ciclo | Fine ciclo |amabata | ambo | terno |quaterna|cinquina|",1,0
    Scrivi " script By claudio8 ",1,1,4,0
    Scrivi " ----------------------------------------------------------------------------------"
    For es = Ini To EstrazioneFin Step(ciclo)
        co = co + 1
        p1 = SerieFreq(es,es + ciclo - 1,n,ruote,1)
        p2 = SerieFreq(es,es + ciclo - 1,n,ruote,2)
        p3 = SerieFreq(es,es + ciclo - 1,n,ruote,3)
        p4 = SerieFreq(es,es + ciclo - 1,n,ruote,4)
        p5 = SerieFreq(es,es + ciclo - 1,n,ruote,5)
        'Scrivi " Inizio ciclo | Fine ciclo |amabata| ambo | terno |quaterna|cinquina|"
        Scrivi "" & FormatSpace(co,4,- 1) & " | " & DataEstrazione(es) & " | " & DataEstrazione(es + ciclo - 1) & " | " & FormatSpace(p1,4,- 1) & _
        " | " & FormatSpace(p2,4,- 1) & " | " & FormatSpace(p3,4,- 1) & " | " & FormatSpace(p4,4,- 1) & " | " & FormatSpace(p5,4,- 1) & " |"
    Next
    Scrivi " ----------------------------------------------------------------------------------"
    Scrivi " Ciclo n° | Inizio ciclo | Fine ciclo |amabata | ambo | terno |quaterna|cinquina|",1,0
    Scrivi " script By claudio8 ",1,1,4,0
    Scrivi " N° cicli generati " & co
End Sub
 
Ultima modifica di un moderatore:
prove

prove

claudio8 ha scritto:
CHE DU P.... Qualcuno ha capito bene come inserire un listato senza che venga modificato in errore da questo nuovo Lottoced ? grazie. A Lottoced chiedo se è possibile inserire in "Risposta veloce" il comando di " inserimento codice"
Clicca per espandere...
Ciao Claudio sto facendo delle prove Adesso qui inserisco tale e quale lo stesso tuo listato che ho inserito nel messaggio precedente a questo e poi lo provo a modificare (anche senza toccare una virgola) e vedi che succede !!!
Codice: 
Sub Main     Dim ruote(1)     Dim n(10)     Dim co     ciclo = 13     ruote(1) = 1 ' ruota da analizzare     n(1) = 4 ' numeri da analizzare     n(2) = 6     n(3) = 8     n(4) = 10     n(5) = 12     'n(6) = 14     'n(7) = 16     'n(8) = 18     'n(9) = 20     'n(10) = 2     co = 0     Ini = 1     Scrivi " Ciclo n° | Inizio ciclo | Fine ciclo |amabata | ambo | terno |quaterna|cinquina|",1,0     Scrivi " script By claudio8 ",1,1,4,0     Scrivi " ----------------------------------------------------------------------------------"     For es = Ini To EstrazioneFin Step(ciclo)         co = co + 1         p1 = SerieFreq(es,es + ciclo - 1,n,ruote,1)         p2 = SerieFreq(es,es + ciclo - 1,n,ruote,2)         p3 = SerieFreq(es,es + ciclo - 1,n,ruote,3)         p4 = SerieFreq(es,es + ciclo - 1,n,ruote,4)         p5 = SerieFreq(es,es + ciclo - 1,n,ruote,5)         'Scrivi " Inizio ciclo | Fine ciclo |amabata| ambo | terno |quaterna|cinquina|"         Scrivi "" & FormatSpace(co,4,- 1) & " | " & DataEstrazione(es) & " | " & DataEstrazione(es + ciclo - 1) & " | " & FormatSpace(p1,4,- 1) & _         " | " & FormatSpace(p2,4,- 1) & " | " & FormatSpace(p3,4,- 1) & " | " & FormatSpace(p4,4,- 1) & " | " & FormatSpace(p5,4,- 1) & " |"     Next     Scrivi " ----------------------------------------------------------------------------------"     Scrivi " Ciclo n° | Inizio ciclo | Fine ciclo |amabata | ambo | terno |quaterna|cinquina|",1,0     Scrivi " script By claudio8 ",1,1,4,0     Scrivi " N° cicli generati " & co End Sub






Ecco lo inserito è ho potuto notare che è ugualissimo a quello precedente
Adesso lo modifico(senza toccare una virgola) e lo rimando,
Ma quello che succede è strano, perchè risulta tutto scombinato !!!
 
Ultima modifica di un moderatore:
ad ogni modo la funzione da te richiesta è presente in una delle nuove plugin inserite con l'ultima versione
 
Funziona anche x 10elotto classico e 5 minuti?poi luigi ti chìedevo un tuo scrìpt che avevi pubblicato x un utente sulle spie al 10elotto
 
keeper prova se è questo

ciao

Option
Explicit
Sub
Main


DimInizio,Fine,idEstr

Dimk,EntroColpi,e,ee,c

DimnBase,nUscito

DimnUscite

ReDimaPresenze(90,90)

DimRetRit,RetRitMax,RetFreq



CallImpostaArchivio10ELotto(1)


EntroColpi=CInt(InputBox("Entro quanti colpi ?","Colpi",1))

Inizio=EstrazioniArchivioDL- 300

Fine=EstrazioniArchivioDL


Fork=InizioToFine

Fore= 1 To 20

nBase=EstrattoDL(k,e)

Forc= 1 ToEntroColpi

idEstr=k+c

Foree= 1 To 20

nUscito=EstrattoDL(idEstr,ee)

aPresenze(nBase,nUscito) =aPresenze(nBase,nUscito) + 1

Next

Next

Next

CallAvanzamentoElab(Inizio,Fine,k)

IfScriptInterrottoThenExitFor

Next


ReDimaTitoli(6)


aTitoli(1) = "Numero Spia"

aTitoli(2) = "Numero Piu Freq"

aTitoli(3) = "Uscite"

aTitoli(4) = "Ritardo"

aTitoli(5) = "RitardoMax"

aTitoli(6) = "Frequenza"


CallInitTabella(aTitoli,vbYellow)


FornBase= 1 To 90

ReDimaValori(6)


aValori(1) =nBase

aValori(2) =GetNumeroPiuFreq(nBase,aPresenze,nUscite)

aValori(3) =nUscite


ReDimaN(1)

aN(1) =aValori(2)

CallStatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)


aValori(4) =RetRit

aValori(5) =RetRitMax

aValori(6) =RetFreq


CallAddRigaTabella(aValori)

Next


CallCreaTabella



End
Sub
Function
GetNumeroPiuFreq(nBase,aPresenze,nUscite)


Dimk

ReDimaOrd(90,2)


Fork= 1 To 90

aOrd(k,1) =k

aOrd(k,2) =aPresenze(nBase,k)

Next

CallOrdinaMatrice(aOrd,- 1,2)


GetNumeroPiuFreq=aOrd(1,1)

nUscite=aOrd(1,2)

End
Function
　
　
Clicca per espandere...




purtroppo da copia e incolla falsa la formattazione
 
Ultima modifica:
ragazzi io non ho la piu pallida ideadi cosa abbia mai pubblicato per questo o quell'utente ...
quello che è sicuro è che tutti gli script fatti vengono comunque installati con l'ultima versioen del software
percio quello che cercate gia lo avete nel pc ... va solo trovato dentro la cartella SCRIPT\VARI
 
Ultima modifica di un moderatore:
Se volete che la formattazione sia giusta, inseritelo prima in spaziometria poi premere il pulsante "autoformattazione" dopodichè copiarlo è immetterlo sul forum con il "code" adatto agli script che trovate solo in modalità avanzata. Se non trovate già pronta la modalità avanzata, abilitatela da "impostazioni".

Vedete se cosi va meglio (è solo una prova....)
Codice: 
Option Explicit
Sub Main
    Dim Inizio,Fine,idEstr
    Dim k,EntroColpi,e,ee,c
    Dim nBase,nUscito
    Dim nUscite
    ReDim aPresenze(90,90)
    Dim RetRit,RetRitMax,RetFreq
    Call ImpostaArchivio10ELotto(1)
    EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
    Inizio = EstrazioniArchivioDL - 300
    Fine = EstrazioniArchivioDL
    For k = Inizio To Fine
        For e = 1 To 20
            nBase = EstrattoDL(k,e)
            For c = 1 To EntroColpi
                idEstr = k + c
                For ee = 1 To 20
                    nUscito = EstrattoDL(idEstr,ee)
                    aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
                Next
            Next
        Next
        Call AvanzamentoElab(Inizio,Fine,k)
        If ScriptInterrotto Then Exit For
    Next
    ReDim aTitoli(6)
    aTitoli(1) = "Numero Spia"
    aTitoli(2) = "Numero Piu Freq"
    aTitoli(3) = "Uscite"
    aTitoli(4) = "Ritardo"
    aTitoli(5) = "RitardoMax"
    aTitoli(6) = "Frequenza"
    Call InitTabella(aTitoli,vbYellow)
    For nBase = 1 To 90
        ReDim aValori(6)
        aValori(1) = nBase
        aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
        aValori(3) = nUscite
        ReDim aN(1)
        aN(1) = aValori(2)
        Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
        aValori(4) = RetRit
        aValori(5) = RetRitMax
        aValori(6) = RetFreq
        Call AddRigaTabella(aValori)
    Next
    Call CreaTabella
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
    Dim k
    ReDim aOrd(90,2)
    For k = 1 To 90
        aOrd(k,1) = k
        aOrd(k,2) = aPresenze(nBase,k)
    Next
    Call OrdinaMatrice(aOrd,- 1,2)
    GetNumeroPiuFreq = aOrd(1,1)
    nUscite = aOrd(1,2)
End Function
 
Ultima modifica di un moderatore:
grazie baffo volevo chiedere all'autore del post ma come si usa questa frequaneza per cicli? io vorrei applicarla al 10elotto 5 m
 
keeper ha scritto:
grazie baffo volevo chiedere all'autore del post ma come si usa questa frequaneza per cicli? io vorrei applicarla al 10elotto 5 m
Clicca per espandere...

Di niente,

per la tua domanda non so risponderti, ancora non me ne intendo bene.

lo script formattato così funziona ?
 
keeper ha scritto:
lo script funziona ma mi sto scimunendo co sti cicli
Clicca per espandere...


Premetto che non sono un fan dei cicli.

I cicli sono una buona cosa da seguire.
a patto di seguirli con molta costanza,
e molta pazienza.
aspettare il momento giusto
per attaccare.
Valutando molti fattori,
quali ritardi, scompensi, etc..

Ripeto è qualcosa da seguire
con costanza e pazienza.
io non li seguo, perchè alla fine
mi scoccio.
Ma è un buon mezzo di valutazione
che deve essere accoppiato ad altri
mezzi per sfinare le ricerche
fino ad arrivare ad una ristretta
cerchia di numeri.

un lavoraccio.....
specie con tre estrazioni settimanali.

ciao



 
Grazie a tutti,
gli script non gli ho mai utilizzati, sembrano molto funzionali, grazie claudio8, molto interessante!!

Per luigib: la funzione l'ho trovata, da quanto ho capito sembra che per analizzare più gruppi di numeri basta lasciare uno spazio tra l'uno e l'altro, tipo 1,2,3 4,5,6 sbaglio?
Invece selezionando l'archivio 10e lotto non si possono analizzare più di un gruppo di numeri?

Ciao.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto