Novità

teorema della diagonale

Codice: 
Sub Main
'Ritardi Medi Minori di Kondor13 Script di Mike58 Rev 2.0. By Joe. Alba 18/10/2014
	Dim Ru(1),Nu(1),Rit(10)
	tr = CInt(InputBox("Quale ritardo inferiore a ",,36))
	Scrivi Space(4) & "Considera Ritardi Inferiori di " & tr & " (in tutte le 10 Ruote)" & Space(4),1,1,2,4,3
	Scrivi
	Ini = EstrazioneFin - 250 : Fin = EstrazioneFin
	ColoreTesto 2 : Scrivi "NU" & Space(2),1,0 : ColoreTesto 0
	For R = 1 To 10
		Scrivi SiglaRuota(R) & Space(2),1,0
	Next
	Scrivi "SOMMA MEDIA" & Space(3),1,0
	ColoreTesto 1 : Scrivi "MIN" & Space(2),1,0
	ColoreTesto 2 : Scrivi "MAG" & Space(2),1,0
	ColoreTesto 0 : Scrivi "R U O T E",1
	For X = 1 To 90
	K = 0 : SRT = 0 : Min = 0
		For R = 1 To 10
			Ru(1) = R
			Nu(1) = X
			Sr = SerieRitardo(Ini,Fin,Nu,Ru,1)
			Rit(R) = Sr
			If Sr <= tr Then
				SRT = SRT + Sr
				SRM = Round((SRT/10),1)
				K = K + 1
			End If
		Next
		If K = 10 Then
			Scrivi Format2(X) & Space(2),1,0,,2,2
			For R = 1 To 10
				If Min < Rit(R) And Rit(R) < SRM Then Min = Rit(R)
				Scrivi Format2(Rit(R)) & Space(2),0,0
			Next
			Scrivi FormatSpace(SRT,4,1) & FormatSpace(FormattaStringa(SRM,"###.0"),7,1) & Space(3),1,0
			Mag = TR
			For R = 1 To 10
				For RMax = 0 To Tr
					If(Rit(R) < Mag) And(Rit(R) > SRM) Then Mag = Rit(R)
				Next
			Next
			ColoreTesto 1 : Scrivi FormatSpace(Min,3,1) & Space(2),1,0
			ColoreTesto 2 : Scrivi FormatSpace(Mag,3,1) & Space(2),1,0
			For RR = 1 To 10
				If Rit(RR) = SRM Then ColoreTesto 0 : Scrivi SiglaRuota(RR) & " ",1,0 : Min = 0 : Mag = 0
			Next
			For RR = 1 To 10
				If Rit(RR) = Min Then ColoreTesto 1 : Scrivi SiglaRuota(RR) & " ",1,0 : ColoreTesto 0
			Next
			For RR = 1 To 10
				If Rit(RR) = Mag Then ColoreTesto 2 : Scrivi SiglaRuota(RR) & " ",1,0 : ColoreTesto 0
			Next
			Scrivi
		End If
	Next
End Sub

VI rilascio per le prove, la versione completa, per la ricerca

(ove ovviamente manca la parte inerente la verifica).

:) Buon Week End
 
Ecco anche la mia versione in Tabella con una sorte di Verifica esito.
Aspettiamo Kondor per capire come estrapolare meglio i futuri estraendi.

Ciao

Codice: 
Sub Main
	Dim Ru(1),Nu(1),Rit(10)
	er = CInt(InputBox("Quante estrazioni a ritroso",,3))
	tr = CInt(InputBox("Quale ritardo inferiore a ",,36))
	Scrivi "Considera Ritardi Inferiori di " & tr,1,1,2,4,3
	
	Ini = EstrazioneFin - 36
	fin = EstrazioneFin - er
	Scrivi "Analisi estrazione.... " & GetInfoEstrazione(fin) & "  e Verifica Esito nelle successive fino a Estrazione Fin ",1
	ReDim T(17)
	T(11) = " Numeri "
	For Tt = 1 To 10
		T(Tt) = SiglaRuota(Tt)
	Next
	T(12) = " Somma "
	T(13) = " Media "
	T(14) = " Scompensi "
	T(15) = " Eccessi "
	T(16) = " Esiti "
	T(17) = " Colpo "
	Call InitTabella(T,1,,3,5)
	For x = 1 To 90
		For r = 1 To 10
			Ru(1) = r
			Nu(1) = x
			Sr = SerieRitardo(fin - 250,fin,Nu,Ru,1)
			Rit(r) = Sr
			'ff = SerieFreq(Ini,fin,Nu,Ru,1)
			If Sr < tr Then
			
				Srt = Srt + Sr
				Srm =(Srt/10)
				k = k + 1
			End If
		Next
		If k = 10 Then
			ReDim v(17)
			v(1) = Rit(1)
			v(2) = Rit(2)
			v(3) = Rit(3)
			v(4) = Rit(4)
			v(5) = Rit(5)
			v(6) = Rit(6)
			v(7) = Rit(7)
			v(8) = Rit(8)
			v(9) = Rit(9)
			v(10) = Rit(10)
			v(11) = x
			v(12) = Srt
			v(13) = Srm
			ReDim rt(10)
			For yy = 1 To 10
			rt(yy) = yy
				If Differenza(Rit(yy),v(13)) > 2 And Differenza(Rit(yy),v(13)) < 5 Then riga = riga & SiglaRuota(yy) & "  "
				v(14) = riga
				If Differenza(Rit(yy),v(13)) <= 2 Then rigo = rigo & SiglaRuota(yy) & "  "
				v(15) = rigo
			Call VerificaEsito(Nu,rt,fin+1,1,er,,esito,colpi,estratti,id)	
			Next
			v(16) = estratti
			v(17) = colpi
			Call AddRigaTabella(v,,,3)
			riga = ""
			rigo = ""
			Call SetColoreCella(11,7,5)
			For xy = 1 To 10
				If Differenza(Rit(xy),v(13)) > 2 And Differenza(Rit(xy),v(13)) < 5 Then Call SetColoreCella((xy),4,1) ' eccessi Giallo
				If Differenza(Rit(xy),v(13)) <= 2 Then Call SetColoreCella((xy),3,1) ' scompensi Verde
			Next
		End If
		Srt = 0
		k = 0
	Next
	Call SetTableWidth("100%")
	CreaTabella
	Scrivi "Tabelle elenco Ritardi **** List Mike58 & Joe91 ***** per Kondor13 ***** ",1
End Sub
 
ciao mike58 e joe91, è possibile evidenziare, nella tabella che crea lo script,per ogni ruota i primi tre maggiori ritardi e verificarne gli esiti.

sempre un grazie infinito x la disponibilità
 
Ciao Kondor per ora ti posso evidenziare il massimo Vettore di ogni numero su ruota e la verifica la puoi fare visivamente.
Purtroppo sono uscito mentalmente dallo script e rimettersi a immettere condizioni intrecciate per ora mi è difficile.

Codice: 
Sub Main
	Dim Ru(1),Nu(1),Rit(10)
	er = CInt(InputBox("Quante estrazioni a ritroso",,3))
	tr = CInt(InputBox("Quale ritardo inferiore a ",,36))
	Scrivi "Considera Ritardi Inferiori di " & tr,1,1,2,4,3
	
	Ini = EstrazioneFin - 36
	fin = EstrazioneFin - er
	Scrivi "Analisi estrazione.... " & GetInfoEstrazione(fin) & "  e Verifica Esito nelle successive fino a Estrazione Fin ",1
	ReDim T(17)
	T(11) = " Numeri "
	For Tt = 1 To 10
		T(Tt) = SiglaRuota(Tt)
	Next
	T(12) = " Somma "
	T(13) = " Media "
	T(14) = " Scompensi "
	T(15) = " Eccessi "
	T(16) = " Esiti "
	T(17) = " Colpo "
	Call InitTabella(T,1,,3,5)
	For x = 1 To 90
		For r = 1 To 10
			Ru(1) = r
			Nu(1) = x
			Sr = SerieRitardo(fin - 250,fin,Nu,Ru,1)
			Rit(r) = Sr
			'ff = SerieFreq(Ini,fin,Nu,Ru,1)
			If Sr < tr Then
			
				Srt = Srt + Sr
				Srm =(Srt/10)
				k = k + 1
			End If
		Next
		If k = 10 Then
			ReDim v(17)
			v(1) = Rit(1)
			v(2) = Rit(2)
			v(3) = Rit(3)
			v(4) = Rit(4)
			v(5) = Rit(5)
			v(6) = Rit(6)
			v(7) = Rit(7)
			v(8) = Rit(8)
			v(9) = Rit(9)
			v(10) = Rit(10)
			v(11) = x
			v(12) = Srt
			v(13) = Srm
			
			ev = MassimoV(Rit)
			
			ReDim rt(10)
			For yy = 1 To 10
			rt(yy) = yy
				If Differenza(Rit(yy),v(13)) > 2 And Differenza(Rit(yy),v(13)) < 5 Then riga = riga & SiglaRuota(yy) & "  "
				v(14) = riga
				If Differenza(Rit(yy),v(13)) <= 2 Then rigo = rigo & SiglaRuota(yy) & "  "
				v(15) = rigo
			Call VerificaEsito(Nu,rt,fin+1,1,er,,esito,colpi,estratti,id)	
			Next
			v(16) = estratti
			v(17) = colpi
			Call AddRigaTabella(v,,,3)
			riga = ""
			rigo = ""
			Call SetColoreCella(11,7,5)
			For xy = 1 To 10
				If Differenza(Rit(xy),v(13)) > 2 And Differenza(Rit(xy),v(13)) < 5 Then Call SetColoreCella((xy),4,1) ' eccessi Giallo
				If Differenza(Rit(xy),v(13)) <= 2 Then Call SetColoreCella((xy),3,1) ' scompensi Verde
				If ev = Rit(xy) Then Call SetColoreCella((xy),2,4)
				If esito <> "" And ev = Rit (xy) Then Call SetColoreCella((xy),2,4)
			Next
		End If
		Srt = 0
		k = 0
	Next
	Call SetTableWidth("100%")
	CreaTabella
	Scrivi "Tabelle elenco Ritardi **** List Mike58 & Joe91 ***** per Kondor13 ***** ",1
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 24 maggio 2025
    Bari
    72
    84
    53
    64
    12
    Cagliari
    63
    59
    22
    39
    65
    Firenze
    69
    78
    13
    20
    61
    Genova
    62
    48
    82
    03
    65
    Milano
    44
    66
    04
    21
    40
    Napoli
    13
    70
    03
    38
    45
    Palermo
    52
    18
    04
    69
    70
    Roma
    12
    34
    17
    07
    79
    Torino
    27
    44
    49
    05
    32
    Venezia
    72
    62
    87
    34
    02
    Nazionale
    32
    65
    12
    30
    18
    Estrazione Simbolotto
    Milano
    45
    30
    11
    28
    06
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto