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
    martedì 24 marzo 2026
    Bari
    51
    62
    27
    44
    28
    Cagliari
    73
    24
    23
    48
    43
    Firenze
    46
    15
    72
    52
    31
    Genova
    17
    09
    29
    19
    27
    Milano
    06
    70
    05
    76
    79
    Napoli
    51
    16
    26
    11
    48
    Palermo
    88
    57
    76
    84
    09
    Roma
    90
    38
    32
    69
    53
    Torino
    85
    84
    58
    60
    87
    Venezia
    14
    41
    26
    90
    52
    Nazionale
    40
    24
    59
    01
    46
    Estrazione Simbolotto
    Firenze
    07
    08
    19
    35
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto