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
    giovedì 23 ottobre 2025
    Bari
    81
    19
    12
    57
    40
    Cagliari
    20
    69
    66
    49
    48
    Firenze
    39
    15
    41
    70
    69
    Genova
    59
    83
    42
    07
    08
    Milano
    42
    25
    02
    14
    68
    Napoli
    29
    28
    38
    56
    82
    Palermo
    08
    28
    32
    90
    74
    Roma
    48
    07
    32
    55
    34
    Torino
    31
    85
    24
    54
    87
    Venezia
    86
    72
    67
    69
    34
    Nazionale
    67
    32
    58
    81
    34
    Estrazione Simbolotto
    43
    22
    12
    01
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto