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 11 ottobre 2025
    Bari
    04
    25
    41
    83
    90
    Cagliari
    16
    81
    09
    87
    82
    Firenze
    67
    13
    08
    49
    39
    Genova
    29
    61
    54
    15
    22
    Milano
    06
    11
    08
    48
    53
    Napoli
    60
    13
    46
    67
    63
    Palermo
    78
    72
    54
    02
    58
    Roma
    35
    47
    89
    25
    77
    Torino
    39
    27
    35
    30
    85
    Venezia
    36
    32
    47
    63
    73
    Nazionale
    17
    33
    10
    51
    28
    Estrazione Simbolotto
    10
    11
    43
    13
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto