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ì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto