Novità

SCUSATE Mike58 E' STATO BANNATO O C'E' ANCORA??

  • Creatore Discussione Creatore Discussione rob
  • Data di inizio Data di inizio
quote:Originally posted by antonio1

Ciao Claudio8 hai provato a farlo girare solo con le decine naturali per 156 concorsi,da sempre il zig zag delle colonne,se invece lo calcolo per 500 estrazioni entra l'ordine delle colonne,si puo'avere una risposta,a scusa ho modificato in decine naturali,forse e'quello l'errore,che secondo me non dovrebbe.
In attesa di una tua buona notte a tutti.

Antonio1
Clicca per espandere...
SE hai fatto delle modifiche non so dirti niente se non vedolo script
 
CIAO,SONO RIENTRATO IN QUESTO FORUM SOLO ADESSO E SCUSATEMI SE NON HO RISPOSTO IMMEDIATAMENTE!!-VOGLIO RINGRAZIARE PUBBLICAMENTE SIA MIKE58 CHE CLAUDIO8,SIA PER L'IMPEGNO CHE PER LE LORO CAPACITA' CHE GENEROSAMENTE METTONO AL SERVIZIO O FORSE E' MEGLIO DIRE A BENEFICIO DI TUTTO IL FORUM!!!-DETTO CIO' HO CONTROLLATO LA CORREZIONE CHE HA FATTO SULLO SCRIPT SOPRASTANTE IL BUON CLAUDIO8 E DEVO DIRE CHE E' PERFETTA!!-BRAVISSIMO!!!-SALUTI ROB
 
quote:Originally posted by Mike58

X ROB, avrei una domanda visto che ci sono e prima che mi dimentico quale criterio usa per la ricerca dei numeri SPIA.
Ho visto nella sezione metodi che ricerchi i numeri in base al numero spia ma quale è il criterio e quale la spia migliore?

Ciao Mike
Clicca per espandere...

E' MOLTO DIFFICILE RISPONDERE A QUESTA DOMANDA,PERCHE' NELL'ALTRO FORUM POSTO DELLE TECNICHE UTILIZZANDO DUE SPECIFICI PROGRAMMI,E QUINDI DECIDO DI PUBBLICARE UNA TECNICA CON RELATIVO PRONOSTICO SOLO QUANDO I PARAMETRI CHE IO INSERISCO MI DANNO UN RISULTATO STATISTICO DEL 100% (AMBATA) E IL 110/120% (SUGLI ACCOPPIAMENTI)

PIU' O MENO LA STESSA COSA FACCIO CON GLI SCRIPT,PERO' ESSENDO IL "REPORT" TOTALMENTE DIFFERENTE DAL REPORT DEI MIEI PROGRAMMI VADO A CERCARE LA MASSIMA FREQUENZA DI UN NUMERO O DI UNA COMBINAZIONE SU UNA DATA RUOTA E POI FACCIO UNA ULTERIORE ANALISI SULLE COMBINAZIONI CHE HO SCELTO!!

-CIAO ROB

:)
 
ALLORA RAGAZZI,NON VORREI DISTURBARE NESSUNO IN PARTICOLARE,MA CERCO QUALCUNO CHE CORTESEMENTE FACCIA UNA SEMPLICE MODIFICA ALLO SCRIPT IN BASSO (GIA' MODIFICATO DA MIKE58 E DA CLAUDIO8) VI RINGRAZIO ANTICIPATAMENTE!!

-LA MODIFICA RIPETO E' MOLTO SEMPLICE:
ATTUALMENTE LO SCRIPT CI DA L'OPPORTUNITA' DI SCEGLIERE UNA SPIA IN UNA SOLA RUOTA (E FIN QUI' TUTTO OK) PERO' POI SI E' OBBLIGATI A GIOCARE SU DUE RUOTE!!

-LA MODIFICA DA FARE E' QUELLA DI SCEGLIERE UNA SOLA RUOTA PER LA SPIA E UNA SOLA RUOTA DOVE GIOCARE...TUTTO QUI'
---------------------------------------------------------
---------------------------------------------------------

Sub Main()
Dim mt(4005,4),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3)
Dim rut(10),nn3(2),mt4(90,3),rutt(10),cc,r,a
ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
r = CInt(InputBox("RUOTA DELL 'AMBATA SPIA","RUOTA",2))
a = CInt(InputBox(" NUMERO AMBATA SPIA","1° SPIA",9))
ru(1) = CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",1))
ru(2) = CInt(InputBox("RUOTE DEI FREQ. ","2° RUOTA",2))
rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",1)))
rutt(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","2° RUOTA",2)))
cl = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
rru(1) = 11 'freq a tutte
ini = EstrazioneFin - ESRT 'estrazione di partenza
fin = EstrazioneFin 'estrazione finale
cc = 0
For es = ini To fin
If Posizione(es,r,a) > 0 Then
cc = cc + 1
co = 0
For i = 1 To 89
n(1) = i
For j = i + 1 To 90
n(2) = j
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = n(2)
fr = SerieFreq(es + 1,es + cl,n,ru,2)
mt(co,4) = mt(co,4) + fr
Next
Next
co = 0
For ii = 1 To 90
nn(1) = ii
co = co + 1
mt1(co,1) = co
mt1(co,2) = nn(1)
fr1 = SerieFreq(es + 1,es + cl,nn,ru,1)
mt1(co,3) = mt1(co,3) + fr1
Next
co = 0
For i1 = 1 To 89
n1(1) = i1
For j1 = i1 + 1 To 90
n1(2) = j1
co = co + 1
mt2(co,1) = co
mt2(co,2) = n1(1)
mt2(co,3) = n1(2)
fr2 = SerieFreq(es + 1,es + cl,n1,rru,2)
mt2(co,4) = mt2(co,4) + fr2
Next
Next
co = 0
For ii1 = 1 To 90
nn2(1) = ii1
co = co + 1
mt3(co,1) = co
mt3(co,2) = nn2(1)
fr3 = SerieFreq(es + 1,es + cl,nn2,rut,1)
mt3(co,3) = mt3(co,3) + fr3
Next
co = 0
For ii2 = 1 To 90
nn3(1) = ii2
co = co + 1
mt4(co,1) = co
mt4(co,2) = nn3(1)
fr4 = SerieFreq(es + 1,es + cl,nn3,rutt,1)
mt4(co,3) = mt4(co,3) + fr4
Next
'----------------------------------------------------
ColoreTesto 2
Scrivi " " & FormatSpace(cc,2,1) & "°) caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,- 1,4
OrdinaMatrice mt1,- 1,3
OrdinaMatrice mt2,- 1,4
OrdinaMatrice mt3,- 1,3
OrdinaMatrice mt4,- 1,3
Scrivi " AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0 ' lo 0 serve a portare su la riga successiva
Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
ColoreTesto 1
Scrivi " Le 2 Ruote di ricerca sono le ruota di: " & NomeRuota(ru(1)) & " e di " & NomeRuota(ru(2)) & ""
Scrivi " Ambi+frequenti | Estratti+frequenti | Ambi+pres nei cicli | Estratti+freq 1ª RUOTA | Estratti+freq 2ª RUOTA"

ColoreTesto 2

Scrivi Space(1) & "Ambo+FRE su 2R | Estratto+PRE su 2R | Ambo+FREQ A TUTTE R | Estratto.+FREQ " & FormatSpace(NomeRuota(rut(1)),7,1) & " | Estratto+FREQ " & NomeRuota(rutt(1)) & ""
ColoreTesto 0
For xx = 1 To 25
Scrivi Space(3) & Format2(mt(xx,2)) & "." & Format2(mt(xx,3)) & Space(3) & Format2(mt(xx,4)) & Space(11) & Format2(mt1(xx,2)) & Space(3) & Format2(mt1(xx,3)) & Space(14) & _
Format2(mt2(xx,2)) & "." & Format2(mt2(xx,3)) & Spac
 
Ciao Rob se ho capito bene prova questo

Mike58


Codice: 
Sub Main()
	Dim mt(4005,4),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3)
	Dim rut(10),nn3(2),mt4(90,3),rutt(10),cc,r,a
	ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
	r = CInt(InputBox("RUOTA DEL NUMERO SPIA","RUOTA",1))
	a = CInt(InputBox(" NUMERO AMBATA SPIA","SPIA",9))
	ru(1) = CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",2))
	rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",2)))
	cl = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
	rru(1) = 11
	ini = EstrazioneFin - ESRT
	fin = EstrazioneFin
	cc = 0
	For es = ini To fin
		If Posizione(es,r,a) > 0 Then
			cc = cc + 1
			co = 0
			For i = 1 To 89
				n(1) = i
				For j = i + 1 To 90
					n(2) = j
					co = co + 1
					mt(co,1) = co
					mt(co,2) = n(1)
					mt(co,3) = n(2)
					fr = SerieFreq(es + 1,es + cl,n,ru,2)
					mt(co,4) = mt(co,4) + fr
				Next
			Next
			co = 0
			For ii = 1 To 90
				nn(1) = ii
				co = co + 1
				mt1(co,1) = co
				mt1(co,2) = nn(1)
				fr1 = SerieFreq(es + 1,es + cl,nn,ru,1)
				mt1(co,3) = mt1(co,3) + fr1
			Next
			co = 0
			For i1 = 1 To 89
				n1(1) = i1
				For j1 = i1 + 1 To 90
					n1(2) = j1
					co = co + 1
					mt2(co,1) = co
					mt2(co,2) = n1(1)
					mt2(co,3) = n1(2)
					fr2 = SerieFreq(es + 1,es + cl,n1,rru,2)
					mt2(co,4) = mt2(co,4) + fr2
				Next
			Next
			co = 0
			For ii1 = 1 To 90
				nn2(1) = ii1
				co = co + 1
				mt3(co,1) = co
				mt3(co,2) = nn2(1)
				fr3 = SerieFreq(es + 1,es + cl,nn2,rut,1)
				mt3(co,3) = mt3(co,3) + fr3
			Next
			co = 0
			For ii2 = 1 To 90
				nn3(1) = ii2
				co = co + 1
				mt4(co,1) = co
				mt4(co,2) = nn3(1)
				fr4 = SerieFreq(es + 1,es + cl,nn3,rutt,1)
				mt4(co,3) = mt4(co,3) + fr4
			Next
			'----------------------------------------------------
			ColoreTesto 2
			Scrivi " " & FormatSpace(cc,2,1) & "°) caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
			'----------------------------------------------------
			ColoreTesto 0
		End If
	Next
	OrdinaMatrice mt,- 1,4
	OrdinaMatrice mt1,- 1,3
	OrdinaMatrice mt2,- 1,4
	OrdinaMatrice mt3,- 1,3
	OrdinaMatrice mt4,- 1,3
	Scrivi " AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0
	Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
	Scrivi"-------------------------------------------------------------------------------------------"
	Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
	ColoreTesto 1
	Scrivi " La Ruota di gioco è la ruota di: " & NomeRuota(ru(1)),1
	Scrivi"-------------------------------------------------------------------------------------------"
	Scrivi "Ambi+frequenti su ruota | Estratti+frequenti    | Ambi+pres nei cicli |"
	ColoreTesto 2
	Scrivi "Ambo+Frequente su ruota | Estratto+PRE su ruota | Ambo+FREQ A TUTTE   |" 
	ColoreTesto 0
	For xx = 1 To 25
		Scrivi Space(3) & Format2(mt(xx,2)) & "." & Format2(mt(xx,3)) & Space(5) & Format2(mt(xx,4)) & Space(15) & Format2(mt1(xx,2)) & Space(5) & Format2(mt1(xx,3)) & Space(14) & _
		Format2(mt2(xx,2)) & "." & Format2(mt2(xx,3)) & Space(5) & Format2(mt2(xx,4))
	Next
End Sub
 
Ciao claudio,ho solo cambiato lo script di ROB cosi'
For ii = 1 To 90 e ci ho messo 81 TO 90 se voglio cercare la spia della decina 81-90 in 156 estrazioni.

Antonio1
 
quote:Originally posted by antonio1

Ciao Claudio8 hai provato a farlo girare solo con le decine naturali per 156 concorsi,da sempre il zig zag delle colonne,se invece lo calcolo per 500 estrazioni entra l'ordine delle colonne,si puo'avere una risposta,a scusa ho modificato in decine naturali,forse e'quello l'errore,che secondo me non dovrebbe.
In attesa di una tua buona notte a tutti.

Antonio1
Clicca per espandere...
Caro Antonio se non ci arrivi da solo vuol dire che non sai leggere gli script, e certe modifiche danno di conseguenza questi zig zag. Quando le matrici non hanno i numeri perchè non ci sono, visto che tu li hai esclusi dalla ricerca, loro (le matrici) non se li inventano e visto che lo script non gestisce queste particolari condizioni di scrittura,(cosa fattibilissima) ti cambia esteticamente gli spazi che utilizza per scrivere l'output.
Ecco perchè ottieni lo zig zag.
se fai la prova con For xx = 1 To 10 o For ii = 74 To 90 vredi che non si creano gli zig zag.
ciao
 
X ROB ...

quote:Originally posted by rob

quote:Originally posted by Mike58

X ROB, avrei una domanda visto che ci sono e prima che mi dimentico quale criterio usa per la ricerca dei numeri SPIA.
Ho visto nella sezione metodi che ricerchi i numeri in base al numero spia ma quale è il criterio e quale la spia migliore?

Ciao Mike
Clicca per espandere...

E' MOLTO DIFFICILE RISPONDERE A QUESTA DOMANDA,PERCHE' NELL'ALTRO FORUM POSTO DELLE TECNICHE UTILIZZANDO DUE SPECIFICI PROGRAMMI,E QUINDI DECIDO DI PUBBLICARE UNA TECNICA CON RELATIVO PRONOSTICO SOLO QUANDO I PARAMETRI CHE IO INSERISCO MI DANNO UN RISULTATO STATISTICO DEL 100% (AMBATA) E IL 110/120% (SUGLI ACCOPPIAMENTI)

PIU' O MENO LA STESSA COSA FACCIO CON GLI SCRIPT,PERO' ESSENDO IL "REPORT" TOTALMENTE DIFFERENTE DAL REPORT DEI MIEI PROGRAMMI VADO A CERCARE LA MASSIMA FREQUENZA DI UN NUMERO O DI UNA COMBINAZIONE SU UNA DATA RUOTA E POI FACCIO UNA ULTERIORE ANALISI SULLE COMBINAZIONI CHE HO SCELTO!!

-CIAO ROB

:)
Clicca per espandere...

Mi potresti verificare se i tuoi programmi danno un report diverso da quello che ho io postato ieri a parità di condizioni di ricerca, giocata, e range estrazioni.
Grazie
 
quote:Originally posted by Mike58

Ciao Rob se ho capito bene prova questo

Mike58


Codice: 
Sub Main()
	Dim mt(4005,4),n(2),n1(2),ru(10),rru(10),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3)
	Dim rut(10),nn3(2),mt4(90,3),rutt(10),cc,r,a
	ESRT = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
	r = CInt(InputBox("RUOTA DEL NUMERO SPIA","RUOTA",1))
	a = CInt(InputBox(" NUMERO AMBATA SPIA","SPIA",9))
	ru(1) = CInt(InputBox("RUOTE DEI FREQ. ","1° RUOTA",2))
	rut(1) = eval(CInt(InputBox("RUOTA SINGOLA X FREQ. ","1° RUOTA",2)))
	cl = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))
	rru(1) = 11
	ini = EstrazioneFin - ESRT
	fin = EstrazioneFin
	cc = 0
	For es = ini To fin
		If Posizione(es,r,a) > 0 Then
			cc = cc + 1
			co = 0
			For i = 1 To 89
				n(1) = i
				For j = i + 1 To 90
					n(2) = j
					co = co + 1
					mt(co,1) = co
					mt(co,2) = n(1)
					mt(co,3) = n(2)
					fr = SerieFreq(es + 1,es + cl,n,ru,2)
					mt(co,4) = mt(co,4) + fr
				Next
			Next
			co = 0
			For ii = 1 To 90
				nn(1) = ii
				co = co + 1
				mt1(co,1) = co
				mt1(co,2) = nn(1)
				fr1 = SerieFreq(es + 1,es + cl,nn,ru,1)
				mt1(co,3) = mt1(co,3) + fr1
			Next
			co = 0
			For i1 = 1 To 89
				n1(1) = i1
				For j1 = i1 + 1 To 90
					n1(2) = j1
					co = co + 1
					mt2(co,1) = co
					mt2(co,2) = n1(1)
					mt2(co,3) = n1(2)
					fr2 = SerieFreq(es + 1,es + cl,n1,rru,2)
					mt2(co,4) = mt2(co,4) + fr2
				Next
			Next
			co = 0
			For ii1 = 1 To 90
				nn2(1) = ii1
				co = co + 1
				mt3(co,1) = co
				mt3(co,2) = nn2(1)
				fr3 = SerieFreq(es + 1,es + cl,nn2,rut,1)
				mt3(co,3) = mt3(co,3) + fr3
			Next
			co = 0
			For ii2 = 1 To 90
				nn3(1) = ii2
				co = co + 1
				mt4(co,1) = co
				mt4(co,2) = nn3(1)
				fr4 = SerieFreq(es + 1,es + cl,nn3,rutt,1)
				mt4(co,3) = mt4(co,3) + fr4
			Next
			'----------------------------------------------------
			ColoreTesto 2
			Scrivi " " & FormatSpace(cc,2,1) & "°) caso " & es & " " & NomeRuota(r) & " " & StringaEstratti(es,r)
			'----------------------------------------------------
			ColoreTesto 0
		End If
	Next
	OrdinaMatrice mt,- 1,4
	OrdinaMatrice mt1,- 1,3
	OrdinaMatrice mt2,- 1,4
	OrdinaMatrice mt3,- 1,3
	OrdinaMatrice mt4,- 1,3
	Scrivi " AMBATA SPIA " & Format2(a) & " sulla ruota di " & NomeRuota(r),1,0
	Scrivi " Uscito " & Format2(cc) & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
	Scrivi"-------------------------------------------------------------------------------------------"
	Scrivi " CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
	ColoreTesto 1
	Scrivi " La Ruota di gioco è la ruota di: " & NomeRuota(ru(1)),1
	Scrivi"-------------------------------------------------------------------------------------------"
	Scrivi "Ambi+frequenti su ruota | Estratti+frequenti    | Ambi+pres nei cicli |"
	ColoreTesto 2
	Scrivi "Ambo+Frequente su ruota | Estratto+PRE su ruota | Ambo+FREQ A TUTTE   |" 
	ColoreTesto 0
	For xx = 1 To 25
		Scrivi Space(3) & Format2(mt(xx,2)) & "." & Format2(mt(xx,3)) & Space(5) & Format2(mt(xx,4)) & Space(15) & Format2(mt1(xx,2)) & Space(5) & Format2(mt1(xx,3)) & Space(14) & _
		Format2(mt2(xx,2)) & "." & Format2(mt2(xx,3)) & Space(5) & Format2(mt2(xx,4))
	Next
End Sub
Clicca per espandere...

GRAZIE MIKE LO SCRIPT E' PERFETTO...-PROPRIO QUELLO CHE VOLEVO!!
-MOLTO BRAVO!!!

SALUTI ROB
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto