e possibile uno script grazie

[fata65]

Ogni volta che su 2 ruote CONSECUTIVE sortiscono due ambi con la stessa distanza isotopa,
entro poche estrazioni sortisce un numero uguale sulle due ruote in questione.
Non riesco però a capire quale sia il nesso con questo numero che viene estratto.

 

[LuigiB]

non ho capito se gli ambi devono essere isotopi oppure la distanza , mi spiego la distanza isotopa non so cosa sia se sono gli ambi ad essere isotopi dammi conferma che lo script è banale.

 

[fata65]

Esempio 1:

2 agosto:
BA: 1° - 3° estratto: 5 - 14
CA: 1° - 3° estratto: 64 - 73
Distanza: 9
5° colpo BA - CA: 4° estratto 3


Esempio 2:

2 agosto:
CA: 2° - 3° estratto: 56 - 73
FI: 2° - 3° estratto: 60 - 77
Distanza: 17
5° colpo CA - FI: 5° estratto 12

 

[fata65]

Esempio 3:

30 agosto:
FI: 2° - 4° estratto: 55 - 15
GE: 2° - 4° estratto: 12 - 52
Distanza: 40
2° colpo FI - GE: 2° estratto 37



Non riesco però a trovare nessun collegamento tra il numero estratto e gli ambi con la stessa distanza isotopa

Qualcuno ci arriva? O ha già la soluzione?

Ho provato con somme, sottrazioni, vertibili, diametrali, ecc.... ma niente!

 

[LuigiB]

ehm .. io lo script lo faccio ma il fatto che non trovi il nesso non vuol certo dire che sia colpa tua ... hai pensato che potrebeb darsi che non esista nessun nesso ?

 

[LuigiB]

ecco vedi se ti va bene,
Nota che il range di estrazioni da analizzare si cambia direttamente nella barra rosa delle estrazioni che compare in basso nel programma , non modificare lo script.
Ciao

Option Explicit
Dim nCasiPos,nCasiNeg,nCasiTot
Sub Main
	Dim idEstr
	Dim Inizio,Fine
	Dim Ruota
	Dim nEstrSucc
	nCasiPos = 0
	nCasiNeg = 0
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	nEstrSucc = Int(InputBox("Inserire le estrazioni da analizzare dopo la rilevazione della condizione",,10))
	For idEstr = Inizio To Fine
		ReDim aEstr(11,5)
		If GetEstrazioneCompleta(idEstr,aEstr) Then
			Call Scrivi(GetInfoEstrazione(idEstr))
			For Ruota = 1 To 10
				Call AnalizzaRuoteConsec(aEstr,Ruota,idEstr,nEstrSucc)
			Next
		End If
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		If ScriptInterrotto Then Exit For
	Next
	
	ColoreTesto(Blu_ )
	Call Scrivi(String(100,"_"))
	Call Scrivi("Casi rilevati : " & nCasiTot)
	Call Scrivi("Casi positivi : " & nCasiPos & "(" & ProporzioneX(nCasiPos,nCasiTot,100) & "%)")
	Call Scrivi("Casi negativi : " & nCasiNeg & "(" & ProporzioneX(nCasiNeg,nCasiTot,100) & "%)")
	Call Scrivi(String(100,"_"))
End Sub
Sub AnalizzaRuoteConsec(aEstr,Ruota,idEstr,nEstrSucc)
	Dim RuotaA,RuotaB
	Dim k,kk
	Dim sEstratti
	RuotaA = Ruota
	RuotaB = Ruota + 1
	For k = 1 To 4
		For kk = k + 1 To 5
			If Distanza(aEstr(RuotaA,k),aEstr(RuotaA,kk)) = Distanza(aEstr(RuotaB,k),aEstr(RuotaB,kk))Then
				Call Scrivi("Distanza  : " & Distanza(aEstr(RuotaA,k),aEstr(RuotaA,kk)))
				sEstratti = GetStringaEstratti(aEstr,RuotaA,k,kk)
				Call Scrivi(SiglaRuota(Iif(RuotaA = 11,12,RuotaA)) & " " & sEstratti)
				'Call Scrivi ("Distanza  : " & Distanza(aEstr(RuotaB,k),aEstr(RuotaB,kk)))
				sEstratti = GetStringaEstratti(aEstr,RuotaB,k,kk)
				Call Scrivi(SiglaRuota(Iif(RuotaB = 11,12,RuotaB)) & " " & sEstratti)
				Call RilevaNumeriUguali(idEstr,nEstrSucc,RuotaA,RuotaB)
				Call Scrivi(String(100,"-"))
			End If
		Next
	Next
End Sub
Function GetStringaEstratti(aEstr,Ruota,a,b)
	Dim k,s
	ReDim aN(5)
	For k = 1 To 5
		If k = a Or k = b Then
			s = s & Format2(aEstr(Ruota,k)) & " "
		Else
			s = s & ".." & " "
		End If
	Next
	GetStringaEstratti = Trim(s)
End Function
Sub RilevaNumeriUguali(IdEstr,nEstrSucc,RuotaA,RuotaB)
	Dim i
	Dim k,kk
	Dim sNumeri
	For i = IdEstr + 1 To IdEstr + nEstrSucc
		ReDim aEstr(11,5)
		If GetEstrazioneCompleta(i,aEstr) Then
			For k = 1 To 5
				For kk = 1 To 5
					If aEstr(RuotaA,k) = aEstr(RuotaB,kk) Then
						sNumeri = sNumeri & aEstr(RuotaA,k) & " "
						Exit For
					End If
				Next
			Next
		Else
			Exit For
		End If
		If sNumeri <> "" Then
			Call Scrivi("Numeri usciti in comune all'estrazione " & GetInfoEstrazione(i))
			Call Scrivi(sNumeri)
			Call Scrivi(SiglaRuota(Iif(RuotaB = 11,12,RuotaA)) & " " & StringaEstratti(i,Iif(RuotaA = 11,12,RuotaA)))
			Call Scrivi(SiglaRuota(Iif(RuotaB = 11,12,RuotaB)) & " " & StringaEstratti(i,Iif(RuotaB = 11,12,RuotaB)))
			Exit For
		End If
	Next
	If sNumeri = "" Then
		Call Scrivi("Negativo")
		nCasiNeg = nCasiNeg + 1
	Else
		nCasiPos = nCasiPos + 1
	End If
	nCasiTot = nCasiTot + 1
End Sub

 

[fata65]

ciao luigi ho controllato ho notato che gli esempi sopra non ci sono, non sono stati rilevati , si può puoi mettere in quanti colpi viene estratto il numero uguale grazie

 

[pigi]

[08585] [108] 08.09.2012Distanza : 10PA .. .. 62 .. 72RO .. .. 36 .. 26Negativo-----------------------------------------------------Distanza : 31RO 22 53 .. .. ..TO 69 10 .. .. ..Negativo---------------------------------------------------------------------------Distanza : 42VE .. 40 .. .. 88NZ .. 80 .. .. 38Negativo----------------------------------------------------------------------------CIAO LUIGI
COME VEDI HO ESEGUITO LO SCRIPT , MA NELLE ULTIME TRE ESTRAZIONI DOVE' LA PREVISIONE ?COME SI CALCOLA?
SALUTI GIORGIO

 

[LuigiB]

Fata secondo me sbagli qualcosa perche
1) il numero dei colpi da controllare te lo chiede l'inputbox all'inizio
2) ecco l'immagine che mostra uno dei casi da te evidenziati

Per PIGI

Per ora non c'è nessuna previsione , da quanto ho capito Fata deve trovare il nesso tra i due ambi isotopi per capire che numero
dovra uscire ... temo che la ricerca sarà lunga

 

[fata65]

grazie luigib hai qualche idea di come scoprirlo che numero uscirà bacio

 

[LuigiB]

si pero non credo che ti piacera ecco la mia idea : lascia perdere
A parte la frase scherzosa purtroppo Fata devo dirti che il fenomeno che in due ruote consecutive (o anche no)
si ripeta lo stesso numero è una cosa molto frequente e non capita di sicuro perche poco prima c'èe stato un
doppio ambo isotopo di pari distanza ...Scusatemi se vi riporto sempre alla cruda realtà non voglio certo infrangere i vostri sogni ...

Ciao ...

 

[fata65]

ok grazie ciao

 

[fata65]

doppia ambata 23 sara un caso o solo coicidenza? bo? pa/ rom al 1 colpo