aiuto per uno script

[fata65]

vediamo se riesco a spiegarmi: innanzitutto la condizione è in qualunque estrazione dove sia presente lo stesso numero isotopo su due ruote, sommiamo i due numeri uguali (eventuale fuori 90) questo è il numero base con cui effettuare le prossime somme, lo chiameremo A. Ora consideriamo nella ruota più alta implicata il numero che si trova a dx del numero di ricerca, lo sommiamo ad A ed ecco la prima ambata, effettuare il vertibile per la seconda. Poi prendere la ruota più bassa il solito numero a dx del numero di ricerca e sommare ad A ecco la terza ambata, effettuare il vertibile anche di questa. Passiamo a sommare poi il numero a sx del numero di ricerca della ruota in alto e lo sommiamo ad A, il solito vertibile e lo stesso nella ruota sottostante.

ES. 23/02/2012 NA 67 18 48 65 71
TO 18 16 73 65 60

65+65=130-90=40 40+71=21/12
40+60=100=10/1
40+48=88/89
40+73=113=23/32

 

[Roby]

Dovrebbe essere così....
Ciao

Sub Main()
	Dim ruote(10)
	Dim ambata1(2) : Dim ambata2(2) : Dim ambata3(2) : Dim ambata4(2)
	Dim posta(2)
	Dim poste(2)
	posta(1) = 1
	posta(2) = 1
	k = 10
	ColoreTesto 1:Scrivi String(43," ") & "METODO DI FATA65 °°° SCRIPT BY BLACKMORE"
	t = 0
	ec = InputBox("INSERISCI IL NUMERO DELL'ESTRAZIONE DALLA QUALE VUOI PARTIRE",,8495)
	ini = ec
	fin = EstrazioneFin
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r = 1 To 9
			For r1 = r + 1 To 10
				For p1 = 2 To 4
					pp = p1 - 1
					p2 = p1 + 1
					a = Estratto(es,r,p1)
					b = Estratto(es,r1,p1)
					c = Estratto(es,r,p2)
					d = Estratto(es,r1,p2)
					e = Estratto(es,r,pp)
					f = Estratto(es,r1,pp)
					If b = a Then
						t = t + 1
						ColoreTesto 1
						Scrivi
						ColoreTesto 0
						Scrivi String(95,"*") & " Caso n° " & Format2(t),1
						Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a)
						Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r1)) & "      " & Left(SiglaRuota(r1),3) & " " & Format2(b)
						ruote(1) = r
						ruote(2) = r1
						xx = Fuori90(a + b)
						ambata1(1) = Fuori90(xx + c)
						ambata1(2) = Vert(ambata1(1))
						ambata2(1) = Fuori90(xx + d)
						ambata2(2) = Vert(ambata2(1))
						ambata3(1) = Fuori90(xx + e)
						ambata3(2) = Vert(ambata3(1))
						ambata4(1) = Fuori90(xx + f)
						ambata4(2) = Vert(ambata4(1))
						ImpostaGiocata 1,ambata1,ruote,posta,k,2
						ImpostaGiocata 2,ambata2,ruote,posta,k,2
						ImpostaGiocata 3,ambata3,ruote,posta,k,2
						ImpostaGiocata 4,ambata4,ruote,posta,k,2
						Gioca es
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	ScriviResoconto
End Sub

 

[fata65]

grazzie perfetto Blackmore

mancano altri numeri isotopi 78 ba-nap
16 tor-nazio
4 vene- naz

 

[Joe91]

Ciao ...

mi ero permesso di scrivere ... ma la risposta è arrivata, prima.

Statisticamente, dovrebbero essere, quasi perfettamente, tre casi per ogni estrazione.

[B][SIZE=2]02.08.2012

[/SIZE][/B][SIZE=2]Ba 05.66.14.49.78 78 5° 66+05=71 66+49=25

Na 50.70.13.16.78 78 5° 66+50=26 66+16=82


[B]02.08.2012

[/B]Ge 23.70.15.71.22 70 2° 50+15=65 50+23=73

Na 50.70.13.16.78 70 2° 50+13=63 50+50=10


[B]02.08.2012

[/B]Na 50.70.13.16.78 16 4° 32+78=20 32+13=45

Pa 55.76.31.16.88 16 4° 32+88=30 32+31=63


[B]02.08.2012

[/B]To 16.02.63.84.17 16 1° 32+02=34 32+17=49

Nz 16.04.02.54.69 16 1° 32+04=36 32+69=11


[B]02.08.2012

[/B]Ve 80.04.36.61.44 04 2° 08+36=44 08+80=88

Nz 16.04.02.54.69 04 2° 08+02=10 08+16=24
[/SIZE]

 

[Roby]

Per la Nazionale non c'è problema, basta aggiungerla
Riguardo a Ba - Na il 78 è si isotopo, ma in 5° posizione, lo script prende in considerazione solo gli
isotopi dalla 2° alla 4° posizione in modo da poter usare il numero "a destra" e il numero "a sinistra"
come scritto nella spiegazione
Se qualcosa non andasse bene nel listato, Joe può tranquillamente intervenire per modificarlo essendo molto più bravo di me
anche perchè io più di così non so fare (mi spiace)
Ciao

Aggiunta la Nazionale...

Sub Main()
	Dim ruote(10)
	Dim ambata1(2) : Dim ambata2(2) : Dim ambata3(2) : Dim ambata4(2)
	Dim posta(2)
	Dim poste(2)
	posta(1) = 1
	posta(2) = 1
	k = 10
	ColoreTesto 1:Scrivi String(43," ") & "METODO DI FATA65 °°° SCRIPT BY BLACKMORE"
	t = 0
	ec = InputBox("INSERISCI IL NUMERO DELL'ESTRAZIONE DALLA QUALE VUOI PARTIRE",,8495)
	ini = ec
	fin = EstrazioneFin
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r = 1 To 10
			For r1 = r + 1 To 11
			If r1= 11 Then r1 = 12 
				For p1 = 2 To 4
					pp = p1 - 1
					p2 = p1 + 1
					a = Estratto(es,r,p1)
					b = Estratto(es,r1,p1)
					c = Estratto(es,r,p2)
					d = Estratto(es,r1,p2)
					e = Estratto(es,r,pp)
					f = Estratto(es,r1,pp)
					If b = a Then
						t = t + 1
						ColoreTesto 1
						Scrivi
						ColoreTesto 0
						Scrivi String(95,"*") & " Caso n° " & Format2(t),1
						Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a)
						Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r1)) & "      " & Left(SiglaRuota(r1),3) & " " & Format2(b)
						ruote(1) = r
						ruote(2) = r1
						xx = Fuori90(a + b)
						ambata1(1) = Fuori90(xx + c)
						ambata1(2) = Vert(ambata1(1))
						ambata2(1) = Fuori90(xx + d)
						ambata2(2) = Vert(ambata2(1))
						ambata3(1) = Fuori90(xx + e)
						ambata3(2) = Vert(ambata3(1))
						ambata4(1) = Fuori90(xx + f)
						ambata4(2) = Vert(ambata4(1))
						ImpostaGiocata 1,ambata1,ruote,posta,k,2
						ImpostaGiocata 2,ambata2,ruote,posta,k,2
						ImpostaGiocata 3,ambata3,ruote,posta,k,2
						ImpostaGiocata 4,ambata4,ruote,posta,k,2
						Gioca es
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	ScriviResoconto
End Sub

 

[fata65]

Blackmore grazie sei bravissimo ciao buona domenica

 

[fata65]

. La triade e composta da tre numeri, usciti in una medesima estrazione, di cui il secondo rappresenta la somma o la differenza degli altri due.
I esempio: – NAPOLI: 33 48 81 (il centrale 48 è la differenza fra 33 e 81) e, come si vede, l’ordine è ascensionale; la settimana successiva si ebbe la riproduzione dell’ambo 33-48 per la ruota di ROMA.

 

[Joe91]

Ciao Fata ed un saluto anche Blackmore, innanzi tutto complimenti per lo script ... snello, veloce e preciso.

E' vero, nella descrizione "isotopi" porta a considerare le 5 posizioni; Mentre "destra" & "sinistra" le restringono a 3.

Dicotomia che si può sanare solo con l'intervento e l'esperienza del metodista o

con l'analisi dei risultati ottenibili con diverse veisioni dello script.

Ho redatto per il secondo script (quello che considera anche la Nazionale)

questa semplicissima modifica ... portando il range della posizione principale da 1 a 5

e riportando il risultati entro i limiti consentiti, per le posizioni descritte come di destra e di sinistra.

E' dunque sufficiente apportare pochissime modifiche allo script per ottenere tutti gli "stessi" risultati

che avevo prodotto con il mio script.... (quello che evidentemente era già pronto quando blackmore ha postato il suo).

For p1 = 1 To 5
     pp = p1 - 1 : If pp = 0 Then pp = 5
     p2 = p1 + 1 : If p2 = 6 Then p2 = 1

Con queste modifiche troverebbe :

[FONT=Courier New][SIZE=2][COLOR=#0000ff]                                           METODO DI FATA65 °°° SCRIPT BY BLACKMORE

*********************************************************************************************** Caso n° 01
02.08.2012   05.66.14.49.78      BA 78
02.08.2012   50.70.13.16.78      NA 78

*********************************************************************************************** Caso n° 02
02.08.2012   23.70.15.71.22      GE 70
02.08.2012   50.70.13.16.78      NA 70

*********************************************************************************************** Caso n° 03
02.08.2012   50.70.13.16.78      NA 16
02.08.2012   55.76.31.16.88      PA 16

*********************************************************************************************** Caso n° 04
02.08.2012   16.02.63.84.17      TO 16
02.08.2012   16.04.02.54.69      NZ 16

*********************************************************************************************** Caso n° 05
02.08.2012   80.04.36.61.44      VE 04
02.08.2012   16.04.02.54.69      NZ 04

[/COLOR][/SIZE][/FONT]

Un caro saluto a tutti.

 

[fata65]

ciao joe91 il codice inserito come faccio a modificarlo complimenti anche a te puoi farlo tu grazie

 

[fata65]

se vuoi avrei un altro favore da chiedere, dobbiamo ricercare un ambo ripetuto avente uno dei due
elementi ripetuto almeno tre volte. Dopo che abbiamo rintracciato la condizione base
dobbiamo anche cercare degli elementi isotopi all'ambo ripetuto per determinare le ruote
secondarie; tali elementi devono avere le seguenti caratteristiche:
a) somma dell'ambo ripetuto e/o relativo complementare e/o diametrale;
b) i complementi a 45 e/o a 46 e/o a 89 degli elementi dell'ambo ripetuto;
c) la distanza dell'ambo ripetuto e/o il complementare di essa ;
d) i numeri equidistanti all'ambo ripetuto che si ottengono sottraendo e sommando la distanza
dell'ambo ripetuto ai due elementi che lo compongono.
e)condizione speciale: trovare in qualsiasi ruota il valore della somma o il diametrale isotopo
agli elementi dell'ambo nell'arco delle 2-3 estrazioni precedenti o successive.
A questo punto basterà ricavare la somma e la differenza dell'ambo ripetuto

L'estrazione del 25 Settembre 2010 esemp
Su Torino e
Venezia è sortito l'ambo ripetuto 37-76 col 76 ripetuto
-8 di Ba complemento a 45 del 37 , 88 di Ba equidistante (76-37=39 ;37+90=127-39=88 ,
39+76=25, 25 e 88 equidistanti)
-59 di Na complemento a 45 del 76, 39 di Na distanza dell'ambo ripetuto
67 di Pa complementare della somma dell'ambo ripetuto (37+76=23, 90-23=67)
39 di To distanza dell'ambo ripetuto.
e possibile un listato graziee infinite a tutti e due un forte abbraccio da fata65

 

[Joe91]

Sub Main()
    Dim ruote(10)
    Dim ambata1(2) : Dim ambata2(2) : Dim ambata3(2) : Dim ambata4(2)
    Dim posta(2)
    Dim poste(2)
    posta(1) = 1
    posta(2) = 1
    k = 10
    ColoreTesto 1:Scrivi String(43," ") & "METODO DI FATA65 °°° SCRIPT BY BLACKMORE"
    t = 0
    ec = InputBox("INSERISCI IL NUMERO DELL'ESTRAZIONE DALLA QUALE VUOI PARTIRE",,8495)
    ini = ec
    fin = EstrazioneFin
    For es = ini To fin
  AvanzamentoElab ini,fin,es
  For r = 1 To 10
   For r1 = r + 1 To 11
   If r1= 11 Then r1 = 12 
    For p1 = 1 To 5 
     pp = p1 - 1 : If pp=0 Then pp = 5 
     p2 = p1 + 1 : If p2=6 Then p2 = 1
     a = Estratto(es,r,p1)
     b = Estratto(es,r1,p1)
     c = Estratto(es,r,p2)
     d = Estratto(es,r1,p2)
     e = Estratto(es,r,pp)
     f = Estratto(es,r1,pp)
     If b = a Then
      t = t + 1
      ColoreTesto 1
      Scrivi
      ColoreTesto 0
      Scrivi String(95,"*") & " Caso n° " & Format2(t),1
      Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a)
      Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r1)) & "      " & Left(SiglaRuota(r1),3) & " " & Format2(b)
      ruote(1) = r
      ruote(2) = r1
      xx = Fuori90(a + b)
      ambata1(1) = Fuori90(xx + c)
      ambata1(2) = Vert(ambata1(1))
      ambata2(1) = Fuori90(xx + d)
      ambata2(2) = Vert(ambata2(1))
      ambata3(1) = Fuori90(xx + e)
      ambata3(2) = Vert(ambata3(1))
      ambata4(1) = Fuori90(xx + f)
      ambata4(2) = Vert(ambata4(1))
      ImpostaGiocata 1,ambata1,ruote,posta,k,2
      ImpostaGiocata 2,ambata2,ruote,posta,k,2
      ImpostaGiocata 3,ambata3,ruote,posta,k,2
      ImpostaGiocata 4,ambata4,ruote,posta,k,2
      Gioca es
     End If
    Next
   Next
  Next
  If ScriptInterrotto Then Exit For
    Next
    ScriviResoconto
End Sub

Per quanto riguarda l'altro script che hai richiesto purtroppo, nell'immediato,

non riesco ad elaborarlo per mancanza di tempo.

Spero che qualcuno possa esserti d'aiuto.

Cordiali saluti.

 

[fata65]

grazieeeeeeeeeeeeeee ciao

 

[sveglia]

ciao joe91,

visto che te ne capisci di scriot, volevo chiederti la cortesia se potessi dare un'occhiata qua:

http://forum.lottoced.com/f12/richiesta-script-per-ambo-spia-96521/

grazie