Novità

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

  • Creatore Discussione Creatore Discussione rob
  • Data di inizio Data di inizio
Ciao ROB ci sono anche se con un periodo di riflessione.
Approfitto per farti i complimenti per le belle vincite che stai regalando con i tuoi lavori.
Un saluto a tutti gli amici del forum.

Mike58
 
E VAIII ALLORA CI SEI!!!-GRAZIE TANTE X I COMPLIMENTI.
STO'LAVORANDO SU UNO SCRIPT CHE STASERA HA DATO UN BELL'AMBO SECCO SU BARI 5-14 PUOI VISIONARE LA PREVISIONE SU QUESTO LINK

http://forum.lottoced.com/topic.asp?TOPIC_ID=138895

SICCOME IL TUTTO E' ANCORA IN FASE SPERIMENTALE LA PREVISIONE CHE RIESCO AD ELABORARE E' UN PO' ONEROSA,QUINDI MI STO' IMPEGNANDO X MIGLIORARLA!!

TI CHIEDO:SE TI E' POSSIBILE MI PUOI MODIFICARE UNO SCRIPT AFFINCHE' IL RISULTATO STATISTICO RISULTI PIU' ORDINATO??-I NUMERETTI NON SONO BEN INCOLONNATI E ALCUNE PAROLE (SEMPRE SUL REPORT STATISTICO) SONO TROPPO LUNGHE E LE COLONNE RISULTANO TROPPO LARGHE!!-INSOMMA SICCOME TU STESSO NON AMI IL DISORDINE,PUOI DARE UNA SISTEMATINA ALLO SCRIPT CHE TI HO INVIATO???

-SALUTI ROB
:)



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)
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 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)
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 "Ambi+frequenti/ Estratti+frequenti/ Ambi+presenti nei cicli / Estratti"&_
"+frequenti 1° RUOTA / Estratti+frequenti 2° RUOTA"
Scrivi "le 2R sono le ruota di: "&NomeRuota(ru(1))&" "&NomeRuota(ru(2))&""
ColoreTesto 2
Scrivi Space(0)&"Ambo+FRE su 2R| Estratto+PRE su 2R | | Ambo+FRE A TUTTE R | Estratto+PRE "&NomeRuota(rut(1))&" | Estratto+FRE "&NomeRuota(rutt(1))&""

ColoreTesto 0

For xx=1 To 25

Scrivi Format2(mt(xx,2))&" "& Format2(mt(xx,3))& Space (4) &mt(xx,4)& Space (8)&(mt1(xx,2))& Space (4)& Format2(mt1(xx,3))& Space (16)&_
Format2(mt2(xx,2))& Space (2)& Format2(mt2(xx,3))& Space (6)&mt2(xx,4)& Space (10)&(mt3(xx,2))& Space (4)& Format2(mt3(xx,3))& Space (10)&_
Format2(mt4(xx,2))& Space (4)& Format2(mt4(xx,3))

Next
End Sub
 
Ok Rob, ho migliorato un po l'output con qualche format2 mancante e allargato qualche spazio.

eccoti lo script ciao


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)
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 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)
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 "Ambi+frequenti| Estratti+frequenti | Ambi+ presenti nei cicli | Estratti"&_
"+freq 1° RUOTA | Estratti+freq 2° RUOTA"
Scrivi "le 2R sono le ruota di: "&NomeRuota(ru(1))&" "&NomeRuota(ru(2))&""
ColoreTesto 2
Scrivi Space(0)&"Ambo+FRE su 2R| Estratto+PRE su 2R | Ambo+FRE A TUTTE R |Estratto+PRESENTE "&NomeRuota(rut(1))&" | Estratto+FREQ "&NomeRuota(rutt(1))&""

ColoreTesto 0

For xx=1 To 25

Scrivi Format2(mt(xx,2))&" "& Format2(mt(xx,3))& Space (4) & Format2(mt(xx,4))& Space (8)& Format2(mt1(xx,2))& Space (6)& Format2(mt1(xx,3))& Space (16)&_
Format2(mt2(xx,2))& Space (3)& Format2(mt2(xx,3))& Space (4)& Format2(mt2(xx,4))& Space (12)& Format2(mt3(xx,2))& Space (4)& Format2(mt3(xx,3))& Space (18)&_
Format2(mt4(xx,2))& Space (4)& Format2(mt4(xx,3))

Next
End Sub
 
CIAO MIKE,VA MOOLTO MEGLIO,RIMARREBBE SOLO DI ALLINEARE MEGLIO LE COLONNE 3-4-5 CHE COME VEDI SONO ANCORA DISALLINEATE PERCHE' LE INTESTAZIONI IN ALTO (CIOE' LE SCRITTE IN ROSSO) SONO TROPPO LUNGHE;FORSE POTRESTI ABBREVIARE LE DICITURE "ESTRATTO" CON "AMBATA" COSI' SI LE COLONNE SI STRINGEREBBERO ULTERIORMENTE!!-COMUNQUE LE DOVRESTI SPOSTARE UN PO' SULLA SINISTRA,-SCUSAMI SE TI HO DISTURBATO ANCORA MA ORMAI CI SIAMO!!

-BUONA DOMENICA
-ROB


2s7vxxy.png
 
Ciao Rob, buona domenica anche a te. Io sono appena tornato dal lavoro(si anche di domenica).
Il tuo output non corrisponde al mio che è più allineato forse dipende dai DPI carattere settati nei nostri computer?
Non saprei, ti posso dire le righe su cui intervenire così puoi fare delle prove.
Prova a diminuire o aumentare il valore di space(xx) contrassegnati in rosso corrispondenti alle colonne 3-4-5 se non dovessi riuscire io sono qua!!!

ciao

Mike

Scrivi Format2(mt(xx,2)) & " " & Format2(mt(xx,3)) & Space(4) & Format2(mt(xx,4)) & Space(8) & Format2(mt1(xx,2)) & Space(6) & Format2(mt1(xx,3)) & Space(16) & _
Format2(mt2(xx,2)) & Space(3) & Format2(mt2(xx,3)) & Space(4) & Format2(mt2(xx,4)) & Space(12) & Format2(mt3(xx,2)) & Space(4) & Format2(mt3(xx,3)) & Space(18) & _
Format2(mt4(xx,2)) & Space(4) & Format2(mt4(xx,3))
 
oppure prova questo


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)
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 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)
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 "Ambi+frequenti| Estratti+frequenti | Ambi+ presenti nei cicli | Estratti" & _
"+freq 1° RUOTA | Estratti+freq 2° RUOTA"
Scrivi "le 2R sono le ruota di: " & NomeRuota(ru(1)) & " " & NomeRuota(ru(2)) & ""
ColoreTesto 2
Scrivi Space(0) & "Ambo+FRE su 2R| Estratto+PRE su 2R | Ambo+FRE A TUTTE R |Estratto+PRESENTE " & NomeRuota(rut(1)) & " | Estratto+FREQ " & NomeRuota(rutt(1)) & ""

ColoreTesto 0

For xx = 1 To 25

Scrivi Format2(mt(xx,2)) & " " & Format2(mt(xx,3)) & Space(4) & Format2(mt(xx,4)) & Space(8) & Format2(mt1(xx,2)) & Space(6) & Format2(mt1(xx,3)) & Space(16) & _
Format2(mt2(xx,2)) & Space(3) & Format2(mt2(xx,3)) & Space(4) & Format2(mt2(xx,4)) & Space(12) & Format2(mt3(xx,2)) & Space(4) & Format2(mt3(xx,3)) & Space(18) & _
Format2(mt4(xx,2)) & Space(4) & Format2(mt4(xx,3))

Next
End Sub
 
Strano molto strano!!! lo stesso listato salvato su pc da un output più ordinato mentre lo stesso copiato dal forun da l'output di Rob
Qui veramente non capisco!!!
L'unica è provare a modificare gli space(xx) segnalati in precedenza.
Poi se altri(Cluadio..) ci aiutassero... grazie

Ciao Mike
 
Mi poastate o indicate il listato che usate entrambi?


Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
Ciao Cluadio il listato è quello da me postato salvato sul mio computer da un output(vedi immagine) prelevato dal forum da l'output uguale a quello di rob.
Come è possibile questo?

vedi se ci capisci qualcosa

Mike
ecco l'imagine con listato prelevata dal forum

shareable
[/URL]</noscript>[/img]
 
Ne hai postati due, non so se sono diversi.
Quale devo usare?
Relativamente alle presenze o frequenze, ( la vecchia discussione) te le devo controllare?
 
prendi l'ultimo lo avevo insrito con l'inset code pensando che poteva essere quello il problema.
Io ho postato il listato che avevo salvato nella modifica ed il risultato è la prima immagine invece se prelevo lo stesso listato dal forum l'output è la seconda immagine.

Presenza! frequenza ancora ci devo capire cosa è megliore comunque seguo se hai indicazioni.

Risolviamo questo quesito per prima cosa
 
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
 
Prova, meglio di così non si può.
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 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)) & Space(3) & Format2(mt2(xx,4)) & Space(14) & Format2(mt3(xx,2)) & Space(3) & Format2(mt3(xx,3)) & Space(16) & _
		Format2(mt4(xx,2)) & Space(3) & Format2(mt4(xx,3))
	Next
End Sub

X mike,
perchè non formatti gli script con l'indentatura in modo che sia + facile leggerli x modifiche i altro? stessa cosa anche quando si postano.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
grazie Claudio il listato è perfettamente allineato ma la mia anomalia hai capito perchè si verificava ?

comunque a buon rendere e ok x indentatura

Mike
 
Presenze o frequenze
Nel lotto corrente degli script il significato pratico che si dà erroneamente e lo stesso.
Però quando si parla di freq si parla di presenze nel periodo temporale (i famosi colpi) quando queste frequenze si sommano( quindi nell'output), esse diventano presenze in n° tot casi.

Relativamente all'errore nel quantificarle correttamente, ti riporto ad un mio post di specifica ...

http://forum.lottoced.com/topic.asp?TOPIC_ID=138950
Ciao
ps. non so il xchè della tua anomalia
 
Questo è il mio output corretto con 500 estrazioni spia 9 su CA e 10 colpi di gioco
Codice: 
 AMBATA SPIA 09 sulla ruota di Cagliari Uscito 27 volte da 16.08.2008 a 27.10.2011
 CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE
 Le 2 Ruote di ricerca sono le ruota di: Bari e di Cagliari
 Ambi+frequenti | Estratti+frequenti | Ambi+pres nei cicli | Estratti+freq 1ª RUOTA | Estratti+freq 2ª RUOTA
 Ambo+FRE su 2R | Estratto+PRE su 2R | Ambo+FREQ A TUTTE R | Estratto.+FREQ    Bari | Estratto+FREQ Cagliari
   12.24   09           04   26              45.81   17              33   19                06   20
   26.38   08           61   24              53.84   17              46   19                13   18
   05.21   08           06   24              03.22   16              05   18                38   18
   11.33   08           45   23              04.09   16              45   17                17   18
   38.48   08           38   23              33.36   15              56   16                51   17
   56.65   08           03   23              35.85   15              11   16                70   16
   04.30   07           48   22              70.90   15              07   16                39   16
   13.79   07           39   22              03.42   15              04   16                48   16
   48.74   07           05   22              19.76   15              90   16                04   16
   17.46   07           74   22              13.36   15              52   15                81   16
   70.90   07           31   21              55.70   15              19   15                74   15
   11.56   07           19   21              77.83   15              26   15                77   15
   17.59   07           33   21              11.41   14              70   15                23   15
   13.44   07           77   21              01.53   14              88   15                61   15
   03.42   07           85   21              36.67   14              03   15                55   15
   56.85   07           56   21              01.35   14              74   15                54   15
   13.46   07           46   21              05.59   14              61   15                80   14
   22.87   06           51   21              05.56   14              34   14                79   14
   25.78   06           17   20              06.29   14              37   14                64   14
   37.43   06           73   20              14.66   14              73   14                53   14
   03.74   06           81   20              01.79   14              87   14                56   14
   31.54   06           40   20              23.59   14              65   14                50   14
   45.51   06           09   20              09.14   14              85   14                71   14
   08.24   06           34   20              68.69   14              67   14                69   14
   39.74   06           24   20              19.60   14              09   14                24   14

Fatti le correzioni spiegate nel post, se ne hai compresa l'opportunità e vedrai che l'output cambia.
 
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
 
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