LOTTO MATEMATICO & STATISTICO
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.
Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
perchè non dà risultati EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
perchè non dà risultati EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
perchè non dà risultati EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
perchè non dà risultati EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
perchè non dà risultati EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
perchè non dà risultati EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
perchè non dà risultati EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
perchè non dà risultati EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
perchè non dà risultati EmptyMar 2 Apr - 20:57:27 Da DjNomade


perchè non dà risultati

Andare in basso

perchè non dà risultati Empty perchè non dà risultati

Messaggio Da roy62 Ven 19 Dic - 16:46:36

....a proposito di super frequenze....ho trvato uno script di luigib...gira ....ma non dà alcun risultato



'SCRIPT DI ESEMPIO PER TROVARE LE FORMAZIONI SUPERFREQUENTI
'LAVORA SOLO SU RUOTA SINGOLA O TUTTE
'PER RENDERLO COMPATIBILE CON ALTRI SOFTWARE E' SUFFICIENTE CAMBIARE ALCUNE ISTRUZIONI
'VARIABILI GLOBALI
Dim Freq(90)
Dim Num(90)
Dim DataIni,DataFin
Dim Ciclo,TotCicli,Sorte,Ruota,FreqMin
Dim R1,R2,R3,R4,ruota1,ruota2,ruota3,ruota4,fine
Sub Main()
Ciclo = CInt(InputBox("Durata del ciclo",,10))
TotCicli = CInt(InputBox("Cicli totali",,6))
FreqMin = CInt(InputBox("Frequenze minime dei singoli numeri per ciclo",,2))
Sorte = CInt(InputBox("Sorte di ricerca" + Chr(13) + "1=estratto; 2=ambo; 3=terno; 4=quat; 5=cinq",,2))
ruota1 = CInt(InputBox("Ruota di ricerca 1" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,4))
ruota2 = CInt(InputBox("Ruota di ricerca 2" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,5))
ruota3 = CInt(InputBox("Ruota di ricerca 3" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,9))
ruota4 = CInt(InputBox("Ruota di ricerca 4" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,10))
fine = InputBox("Estrazione finale",,EstrazioniArchivio)
If Ruota <> 11 Then
R1 = ruota1
R2 = ruota2
R3 = ruota3
R4 = ruota4
Else
R1 = 1
R2 = 10
End If
DataFin = fine
DataIni = DataFin -(Ciclo*TotCicli)
CalcolaFrequenze()
OrdinaFrequenze()
TrovaFormazione()
End Sub
Sub CalcolaFrequenze()
Dim a,e,n,r
For a = DataIni To DataFin
For r = R1 To R2
For e = 1 To 5
n = Estratto(a,r,e)
Freq(n) = Freq(n) + 1
Next
Next
Next
End Sub
Sub OrdinaFrequenze()
Dim a,b,k
For a = 1 To 90
Num(a) = a
Next
For a = 1 To 89
For b = a + 1 To 90
If Freq(a) < Freq(b) Then
k = Freq(a)
Freq(a) = Freq(b)
Freq(b) = k
k = Num(a)
Num(a) = Num(b)
Num(b) = k
End If
Next
Next
End Sub
Sub TrovaFormazione()
Dim t
Dim numForm()
Dim numRichiesti
numRichiesti = 0
For t = 1 To 90
ReDim numForm(90)
If Verifica(t) = True Then
numRichiesti = t
Exit For
End If
Next
Dim strNum
For t = 1 To numRichiesti
strNum = strNum & Num(t) & "."
Next
If Right(strNum,1) = "." Then strNum = Left(strNum,Len(strNum) - 1)
Call Scrivi("SuperFrequenze")
Call Scrivi
Call Scrivi("Data iniziale: " & GetInfoEstrazione(DataFin -(Ciclo*TotCicli)))
Call Scrivi("Data finale: " & GetInfoEstrazione(DataFin))
Call Scrivi("Ruota/e: " & SiglaRuota(R1) & "-" & SiglaRuota(R2) & "-" & SiglaRuota(R3) & "-" & SiglaRuota(R4))
Call Scrivi("Durata ciclo: " & Ciclo)
Call Scrivi("Cicli totali: " & TotCicli)
Call Scrivi("Frequenze min. dei singoli numeri per ciclo: " & FreqMin)
Call Scrivi("Sorte di ricerca: " & NomeSorte(Sorte))
Scrivi
Call Scrivi("Formazione trovata (" & numRichiesti & " NR):",True)
Call Scrivi(strNum,,,,Rosso_)
End Sub
Function Verifica(totNum)
Dim a,b,c,e,n,k,r
Dim esatti
Dim fr
k = DataIni
For c = 1 To TotCicli
fr = 0
For r = R1 To R4
For a = 0 To(Ciclo - 1)
esatti = 0
For e = 1 To 5
n = Estratto(k + a,r,e)
esatti = esatti + ControllaFormazione(n,totNum)
Next
If esatti >= Sorte Then
fr = fr + Combinazioni(esatti,Sorte)
End If
Next
Next
If fr < FreqMin Then
Verifica = False
Exit Function
End If
k = k + Ciclo
Next
Verifica = True
End Function
Function ControllaFormazione(n,tot)
Dim a
For a = 1 To tot
If Num(a) = n Then
ControllaFormazione = 1
Exit Function
End If
Next
ControllaFormazione = 0
End Function



grazie a chi mi risolve il problema ciaooo
roy62
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da Blackmore Ven 19 Dic - 22:59:33

Gira perfettamente, lasciandolo così com'era
forse hai inserito dei parametri che non si possono trovare, mi spiego meglio, le superfrequenze per quello che cerchi tu non ci sono
ciao

Codice:
SuperFrequenze

Data iniziale: [08879] [ 90] 31.07.2014
Data finale: [08939] [150] 18.12.2014
Ruota/e: GE-MI-TO-VE
Durata ciclo: 10
Cicli totali: 6
Frequenze min. dei singoli numeri per ciclo: 2
Sorte di ricerca: Ambo

Formazione trovata (5 NR):
40.81.80.68.83

Codice:
'SCRIPT DI ESEMPIO PER TROVARE LE FORMAZIONI SUPERFREQUENTI
'LAVORA SOLO SU RUOTA SINGOLA O TUTTE
'PER RENDERLO COMPATIBILE CON ALTRI SOFTWARE E' SUFFICIENTE CAMBIARE ALCUNE ISTRUZIONI
'VARIABILI GLOBALI
Dim Freq(90)
Dim Num(90)
Dim DataIni,DataFin
Dim Ciclo,TotCicli,Sorte,Ruota,FreqMin
Dim R1,R2,R3,R4,ruota1,ruota2,ruota3,ruota4,fine
Sub Main()
 Ciclo = CInt(InputBox("Durata del ciclo",,10))
 TotCicli = CInt(InputBox("Cicli totali",,6))
 FreqMin = CInt(InputBox("Frequenze minime dei singoli numeri per ciclo",,2))
 Sorte = CInt(InputBox("Sorte di ricerca" + Chr(13) + "1=estratto; 2=ambo; 3=terno; 4=quat; 5=cinq",,2))
 ruota1 = CInt(InputBox("Ruota di ricerca 1" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,4))
 ruota2 = CInt(InputBox("Ruota di ricerca 2" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,5))
 ruota3 = CInt(InputBox("Ruota di ricerca 3" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,9))
 ruota4 = CInt(InputBox("Ruota di ricerca 4" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,10))
 fine = InputBox("Estrazione finale",,EstrazioniArchivio)
 If Ruota <> 11 Then
 R1 = ruota1
 R2 = ruota2
 R3 = ruota3
 R4 = ruota4
 Else
 R1 = 1
 R2 = 10
 End If
 DataFin = fine
 DataIni = DataFin -(Ciclo*TotCicli)
 CalcolaFrequenze()
 OrdinaFrequenze()
 TrovaFormazione()
End Sub
Sub CalcolaFrequenze()
 Dim a,e,n,r
 For a = DataIni To DataFin
 For r = R1 To R2
 For e = 1 To 5
 n = Estratto(a,r,e)
 Freq(n) = Freq(n) + 1
 Next
 Next
 Next
End Sub
Sub OrdinaFrequenze()
 Dim a,b,k
 For a = 1 To 90
 Num(a) = a
 Next
 For a = 1 To 89
 For b = a + 1 To 90
 If Freq(a) < Freq(b) Then
 k = Freq(a)
 Freq(a) = Freq(b)
 Freq(b) = k
 k = Num(a)
 Num(a) = Num(b)
 Num(b) = k
 End If
 Next
 Next
End Sub
Sub TrovaFormazione()
 Dim t
 Dim numForm()
 Dim numRichiesti
 numRichiesti = 0
 For t = 1 To 90
 ReDim numForm(90)
 If Verifica(t) = True Then
 numRichiesti = t
 Exit For
 End If
 Next
 Dim strNum
 For t = 1 To numRichiesti
 strNum = strNum & Num(t) & "."
 Next
 If Right(strNum,1) = "." Then strNum = Left(strNum,Len(strNum) - 1)
 Call Scrivi("SuperFrequenze")
 Call Scrivi
 Call Scrivi("Data iniziale: " & GetInfoEstrazione(DataFin -(Ciclo*TotCicli)))
 Call Scrivi("Data finale: " & GetInfoEstrazione(DataFin))
 Call Scrivi("Ruota/e: " & SiglaRuota(R1) & "-" & SiglaRuota(R2) & "-" & SiglaRuota(R3) & "-" & SiglaRuota(R4))
 Call Scrivi("Durata ciclo: " & Ciclo)
 Call Scrivi("Cicli totali: " & TotCicli)
 Call Scrivi("Frequenze min. dei singoli numeri per ciclo: " & FreqMin)
 Call Scrivi("Sorte di ricerca: " & NomeSorte(Sorte))
 Scrivi
 Call Scrivi("Formazione trovata (" & numRichiesti & " NR):",True)
 Call Scrivi(strNum,,,,Rosso_)
End Sub
Function Verifica(totNum)
 Dim a,b,c,e,n,k,r
 Dim esatti
 Dim fr
 k = DataIni
 For c = 1 To TotCicli
 fr = 0
 For r = R1 To R4
 For a = 0 To(Ciclo - 1)
 esatti = 0
 For e = 1 To 5
 n = Estratto(k + a,r,e)
 esatti = esatti + ControllaFormazione(n,totNum)
 Next
 If esatti >= Sorte Then
 fr = fr + Combinazioni(esatti,Sorte)
 End If
 Next
 Next
 If fr < FreqMin Then
 Verifica = False
 Exit Function
 End If
 k = k + Ciclo
 Next
 Verifica = True
End Function
Function ControllaFormazione(n,tot)
 Dim a
 For a = 1 To tot
 If Num(a) = n Then
 ControllaFormazione = 1
 Exit Function
 End If
 Next
 ControllaFormazione = 0
End Function

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da roy62 Ven 19 Dic - 23:41:53

ahhhh ok black....avevo letto che funzionava su ruota singola o tutte

......ma unica ruota non dà risultati.....grazie lo stesso della spiegazione ciaooo
roy62
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da Blackmore Sab 20 Dic - 1:22:33

Prova a mettere in r2 r3 r4 la stessa ruota di r1
Ora non ricordo
Ps: questo script fu fatto per visual lotto 7
Luigi l'ha poi convertito per spaziometria

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da roy62 Sab 20 Dic - 8:46:05

ok grazie ci provo...
roy62
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da roy62 Sab 20 Dic - 8:55:23

ciao black,non dà risultati giusti....

Codice:
SuperFrequenze

Data iniziale: [08927] [138] 18.11.2014
Data finale: [08940] [151] 18.12.2014
Ruota/e: TO-TO-TO-TO
Durata ciclo: 13
Cicli totali: 1
Frequenze min. dei singoli numeri per ciclo: 2
Sorte di ricerca: Ambo

Formazione trovata (2 NR):
38.79
roy62
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da Blackmore Sab 20 Dic - 13:30:50

I risultati sono giusti

38.79 sortito 3 volte

38.90 sortito 2 volte

79.90 sortito 2 volte

qual'è la formazione che ha avuto una frequenza maggiore per ambo nelle 13 estrazioni ?

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da roy62 Sab 20 Dic - 15:28:27

ciao black,non li doveva segnalare visto che ho richiesto la frequenza minima di sortita ...2 ?
roy62
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da Blackmore Sab 20 Dic - 18:01:21

No, lo script ti segnala la combinazione con frequenza maggiore cercando nella Frequenza minima  2, non tutte le combinazioni
ciao

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da roy62 Sab 20 Dic - 22:13:12

ciao,ma non sarebbe possibile modificare ...x evidenziarli?...
roy62
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da Blackmore Dom 21 Dic - 1:18:04

Non avrebbe senso per questo script, è stato creato apposta
e comunque è molto complesso

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da Blackmore Dom 21 Dic - 13:48:22

Visto che io non sono un esperto in materia e...
visto che mi assenterò per parecchio dai forum
tranne sporadiche apparizioni....
sul web si trovano un po' di guide sul vbscript
anche se ormai è un linguaggio datato...

questa è una delle tante....  ciao


Guida VBscript

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

perchè non dà risultati Empty Re: perchè non dà risultati

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto


 
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.