RICHIESTA SCRIPT

[rob.]

se qualcuno vorra' cimentarsi lo script dovra' ricercare e segnalare nell'archivio (in qualsiasi ruota tranne la nazionale) tutte quelle estrazioni dove c'e' parita tra le cifre che compongono i numeri che siano indistintamente o le decine o le unita'!!-non sono valide quelle estrazioni dove e' presente uno o piu' "numeretti"

TROVATA QUESTA CONDIZIONE IN UNA DELLE 10 RUOTE QUALSIASI SI PUO' METTERE IN GIOCO LA FORMAZIONE DEI "GEMELLI" PER LA SORTE DELL'AMBO

esempio valido (inventato)

BARI= 27-46-13-80-37

i numeri sottolineati sarebbero i pari e i rimanenti sono ovviamente i dispari

i pari sono cinque e cioe' = 2-4-6-8-0
i dispari sono cinque cioe' = 7-1-3-3-7


esempio non valido

BARI= 22-46-12-37-80
considerando le decine e le unita' abbiamo 7 numeri pari e solo 3 dispari

 

[Mike58]

Ciao Rob, questa tua richiesta è stata già elaborata tempo fa e c'era un problema di elaborazione risultati, ciò forse era dovuto al fatto che se si mettono le 2 istruzioni
NumeriPari = 5
NumeriDispari = 5

questo non produce risultati

invece se mettiamo la sola istruzione NumeriPari = 5 , le risultanze vengono elaborate, ma la cifra Zero porta qualche problema

Se qualcuno nonché Luigi chiarisce il quesito ci capisco anch'io qualcosa (magari è solo errore di concetto )

Comunque prova a valutarne i risultati se sono esatti così, altrimenti ci ingegniamo in qualche maniera.

Sub Main
	Dim nu(5)
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
			Next
			If NumeriPari(nu) = 5 Then
				'If NumeriDispari(nu) = 5 Then
					k = k + 1
					Scrivi "Caso n. " & FormatSpace(k,3) & "  " & GetInfoEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r)
				'End If
			End If
		Next
	Next
End Sub

 

[rob.]

ciao mike,grazie 1000 ora controllo,e ti faccio sapere

 

[rob.]

Ciao Rob, questa tua richiesta è stata già elaborata tempo fa e c'era un problema di elaborazione risultati, ciò forse era dovuto al fatto che se si mettono le 2 istruzioni
NumeriPari = 5
NumeriDispari = 5

questo non produce risultati

invece se mettiamo la sola istruzione NumeriPari = 5 , le risultanze vengono elaborate, ma la cifra Zero porta qualche problema

Se qualcuno nonché Luigi chiarisce il quesito ci capisco anch'io qualcosa (magari è solo errore di concetto )

Comunque prova a valutarne i risultati se sono esatti così, altrimenti ci ingegniamo in qualche maniera.

Sub Main
	Dim nu(5)
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
			Next
			If NumeriPari(nu) = 5 Then
				'If NumeriDispari(nu) = 5 Then
					k = k + 1
					Scrivi "Caso n. " & FormatSpace(k,3) & "  " & GetInfoEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r)
				'End If
			End If
		Next
	Next
End Sub

allora ho fatto un controllo e lo script va bene,c'e' da fare solo una piccola modifica,dovresti fare in modo di escludere le estrazioni dove sono presenti uno o piu' NUMERETTI,per il resto e' OK!!!

 

[Mike58]

Rob, ci stavo lavorando perché qualcosa non mi convince.
Ho escluso i numeretti e le cadenze Zero e dovrebbe trovare + casi.

adesso sono stanco fai una verifica poi ne riparliamo.

Sub Main
	Dim nu(5),dc(5),cd(5),np(10)
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
				dc(p) = Decina(nu(p))
				cd(p) = Cadenza(nu(p))
			Next
			np(1) = dc(1)
			np(2) = dc(2)
			np(3) = dc(3)
			np(4) = dc(4)
			np(5) = dc(5)
			np(6) = cd(1)
			np(7) = cd(2)
			np(8) = cd(3)
			np(9) = cd(4)
			np(10) = cd(5)
			For x = 1 To 10
				If pari(np(x)) Then kp = kp + 1
				If dispari(np(x)) Then kd = kd + 1
			Next
			If kp = 5 And kd = 5 Then
				If Decina(nu(1)) > 0 And Decina(nu(2)) > 0 And Decina(nu(3)) > 0 And Decina(nu(4)) > 0 And Decina(nu(5)) > 0 Then
					If Cadenza(nu(1)) > 0 And Cadenza(nu(2)) > 0 And Cadenza(nu(3)) > 0 And Cadenza(nu(4)) > 0 And Cadenza(nu(5)) > 0 Then
						k = k + 1
						Scrivi "Caso n. " & FormatSpace(k,3) & "  " & GetInfoEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r),0,0
						Scrivi "  " & StringaNumeri(dc) & " - " & StringaNumeri(cd) & "  " & " Pari = " & kp & " Dispari = " & kd
					End If
				End If
			End If
			kp = 0
			kd = 0
		Next
	Next
End Sub

 

[Mike58]

script con la sola esclusione dei Numeretti.

Sub Main
	Dim nu(5),dc(5),cd(5),np(10)
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
				dc(p) = Decina(nu(p))
				cd(p) = Cadenza(nu(p))
			Next
			np(1) = dc(1)
			np(2) = dc(2)
			np(3) = dc(3)
			np(4) = dc(4)
			np(5) = dc(5)
			np(6) = cd(1)
			np(7) = cd(2)
			np(8) = cd(3)
			np(9) = cd(4)
			np(10) = cd(5)
			For x = 1 To 10
				If pari(np(x)) Then kp = kp + 1
				If dispari(np(x)) Then kd = kd + 1
			Next
			If kp = 5 And kd = 5 Then
				If Decina(nu(1)) > 0 And Decina(nu(2)) > 0 And Decina(nu(3)) > 0 And Decina(nu(4)) > 0 And Decina(nu(5)) > 0 Then
					'If Cadenza(nu(1)) > 0 And Cadenza(nu(2)) > 0 And Cadenza(nu(3)) > 0 And Cadenza(nu(4)) > 0 And Cadenza(nu(5)) > 0 Then
						k = k + 1
						Scrivi "Caso n. " & FormatSpace(k,3) & "  " & GetInfoEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r),0,0
						Scrivi "  " & StringaNumeri(dc,"") & " - " & cd(1)&cd(2)&cd(3)&cd(4)&cd(5) & "  " & " pari = " & kp & " dispari = " & kd
					'End If
				End If
			End If
			kp = 0
			kd = 0
		Next
	Next
End Sub

 

[rob.]

grazie tante mike....pero' il metodo ho visto che non da buoni risultati,mi ero illuso perche' probabilmente quando lo stavo elaborando sono incappato con risultati molto soddisfacenti che lasciavano ben sperare,ma la realta' dice che il metodo non e' buono!!!-comunque grazie 1000 per la tua disponibilita' e per la tua bravura

ciao rob

 

[LuigiB]

ciao Mike , non ho capito il problema , a dire il vero non ho letto bene , sono troppo pigro .. fammi domanda precisa e vedro di rispondere...

 

[Mike58]

Ciao Luigi, Rob,il quesito è al post #2 con relativo script, se si mettono insieme le 2 istruzioni non produce risultati, mentre i casi ci sono è sono stato costretto ad usare escamotage diversi per arrivare al risultato veritiero.
La domanda quindi è se ci sono 5 estratti e 10 cifre perché il codice numeriPari = 5 e numeriDispari = 5 non funge ?, sarà un errore di concetto, mentre se vedi gli altri script i casi ci sono e veritieri.

Rob, come tutte le cose una cosa è osservare una cosa è la certezza matematica.

Io posso solo fare buona palestra con le vostre richieste.

Ciao