Per gli scripter

[rabberto]

Ragazzi e da un anno che sto studiando un metodo che per me rappresenta un insieme di tre miei metodi soprattutto per il gioco di ambata secca , ve lo spiego :

TROVARE SU DUE RUOTE LA DIFFERENZA 30 DELLE SOMME

ES : PALERMO = 11- 32 SOMMA = 43 09\06\2011
ROMA = 34- 39 SOMMA = 73

LA DISTANZA TRA LE DUE SOMME E 30 , VA BENE .

PER AMBATA SI FA : 43 + 73 = 116 -90 = ( 26 ) ( AMBATA QUASI CERTA )

PER ACCOPPIAMENTO PER AMBO SI FA : DISTANZE CICLOMETRICHE + DISTANZE MATEMATICHE :
PALERMO = 32 - 11 = 21 21 + 5 = 26 26 + 16 = ( 42 )
ROMA = 39 – 34 = 5 21 – 5 = 16 ( 12 – 42 72 )
PER ACCOPPIAMENTO PER AMBO SI GIOCA LA TERZINA ( 12 – 42 – 72 )

N.B : LA PREVISIONE SI PUO’ ELABORARE SOLO QUANDO COME IN QUESTO CASO , DISTANZE MATEMATICHE + DISTANZE CICLOMETRICHE SONO UGUALI .

E IN PIU COSA FONDAMENTALE QUANDO FACCIAMO L’ACCOPPIAMENTO PER AMBO ( 21 + 5 ) ( 21 – 5 ) UNO DI QUESTI DUE NUMERI DEVE ESSERE UGUALE AL NUMERO AMBATA , COME IN QUESTO CASO ( 21 + 5 ) =( 26 ),
VA BENE , ALTRIMENTI LA PREVISIONE NON SI PUO’ ELABORARE .

L’AMBATA NON DEVE ESSERE UN NUMERO RITARDATARIO .
LA PREVISIONE E PIU’ BUONA SU RUOTE UNITE .
I DUE AMBI LA CUI SOMMA HA DISTANZA 30 DEVE OCCUPARE POSIZIONE ISOTOPA.
LA PREVISIONE VA SEGUITA PER MASSIMO 5 COLPI.
L’ AMBATA E’ AL 95 % , L’AMBO AL 40 % .

SPERO DI ESSERMI ESPRESSO BENE E DI ESSERE STATO CHIARO , E CHIEDO CORTESEMENTE SE POSSIBILE AVERE UN LISTATO , PER VEDERE LA VALIDITA' DELLA TECNICA .

PER QUALSIASI CHIARIMENTO SONO QUA , GRAZIE , CIAO.

 

[DjNomade]

Controlla eventuali errori.....

Ciauz

'27/08/2011
'http://forum.lottoced.com/topic.asp?TOPIC_ID=136702
ColoreTesto 2
Scrivi String(37,32) & "DIFFERENZA 30 DELLE SOMME by rabberto",1
Scrivi String(45,32) & "by DjNomade",1
ColoreTesto 0
Sub Main()
	Dim nu1(10),nu2(10),nu3(10),nu4(10)
	Dim ruote(10),ruota(10)
	Dim poste(5),poste1(5),poste2(5),poste3(5)
	poste(1) = 1
	poste1(2) = 1
	poste2(2) = 1
	poste2(3) = 1
	fin = EstrazioneFin
	ini = fin - 60
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r1 = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					n1 = Estratto(es,r1,p1)
					n2 = Estratto(es,r1,p2)
					For r2 = r1 + 1 To 11
						If r2 = 11 Then r2 = 12
						For p3 = 1 To 4
							For p4 = p3 + 1 To 5
								n3 = Estratto(es,r2,p3)
								n4 = Estratto(es,r2,p4)
								n5 = Fuori90(n1 + n2)'somma 1° ambo 43
								n6 = Fuori90(n3 + n4) 'somma 2° ambo 73
								If Distanza(n5,n6) = 30 Then   '30
									b1 = Fuori90(n5 + n6)'ambata  43+73=26
									b2 = Distanza(n1,n2) 'distanza 1° ambo  32-11=21
                                    bb2 = Abs(n1-n2) 'differnza 1° ambo  32-11=21
									b3 = Distanza(n3,n4) 'distanza 2° ambo  39-34=5
                                    bb3 = Abs(n3-n4) 'differenza 2° ambo  39-34=5
									b4 = Fuori90(b2 + b3) 'somma distaze   21+5=26
									b5 = Distanza(b2,b3)  'differnza distaze   21-5=16
									b6 = Fuori90(b4 + b5)' 1° abbinamento
									b7 = Fuori90(b6 + 30)' 2° abbinamento
									b8 = Fuori90(b6 + 60)' 3° abbinamento
									If( b4 = b1 Or b5 = b1 )And( b2 = bb2 And b3 = bb3 ) Then
										casi = casi + 1
										Scrivi String(75,"="),1
										Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
										" > ambo   < " & Format2(n1) & "." & Format2(n2) & " >  somma < " & Format2(n5)
										Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
										" > ambo   < " & Format2(n3) & "." & Format2(n4) & " >  somma < " & Format2(n6) & " > distanza somme 30  "
										Scrivi String(65,"-") & " caso n° " &(casi)
										ruote(1) = r1
										ruote(2) = r2
										k = 5
										co = 0
										nu1(1) = b1
										ImpostaGiocata 1,nu1,ruote,poste,k
										nu2(1) = b1
										nu2(2) = b6
										ImpostaGiocata 2,nu2,ruote,poste1,k
										nu2(1) = b1
										nu2(2) = b7
										ImpostaGiocata 3,nu2,ruote,poste1,k
										nu2(1) = b1
										nu2(2) = b8
										ImpostaGiocata 4,nu2,ruote,poste1,k
										nu3(1) = b1
										nu3(2) = b6
										nu3(3) = b7
										nu3(4) = b8
										ImpostaGiocata 5,nu3,ruote,poste2,k
										Gioca es
									End If
								End If
							Next
						Next
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[rabberto]

DjNomade innanzitutto grazie , pero volevo dirti che nello script c'e' un errore , la distanza 30 tra le due somme va bene , ma le distanze ciclometriche e le distanze matematiche non sono uguali , nel senso che non si deve fare distanze ciclometriche piu' distanze matematiche , ma devono essere solo uguali e quindi il valore delle distanze matematiche deve essere un valore compreso tra 1-45 e non superiore , ok .
Perche essendo uguali questi due valori posso fare dopo il calcolo che mi da il numero ugale per elaborare la previsione .
Spero di essere stato piu' chiaro , e che si possa correggere lo script , grazie , ciao .

 

[DjNomade]

Ciauz allora ho inteso male, dal tuo esempio
PALERMO = 32 - 11 =21....21 + 5 = 26 ....26 + 16 = ( 42 )
ROMA......= 39 – 34 = 5....21 – 5 = 16 ..............( 12 – 42 72 )

pensavo che le due differenze 21 e 5 prima venivano sommate e poi sottratte e se uno dei due risultati fosse uguale all'ambata allora si poteva proseguire se cosi' non è urge altri esempi......

Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[rabberto]

DjNomade cerco di spiegarmi meglio

la distanza 30 tra le due somme va bene , poi ,
PALERMO = 11- 32 SOMMA = 43
ROMA = 34- 39 SOMMA = 73
PER AMBATA SI FA : 43 + 73 = 116 -90 = ( 26 )

PALERMO DISTANZA MATEMATICA = 21
PALERMO DISTANZA CILOMETRICA = 21
PALERMO DISTANZA MATEMATICA E DISTANZA CICLOMETRICA E UGUALE , VA BENE.

ROMA DISTANZA MATEMATICA = 5
ROMA DISTANZA CICLOMETRICA = 5
ROMA DISTANZA MATEMATICA E DISTANZA CICLOMETRICA E UGUALE , VA BENE

N.B: LA PREVISIONE SI PUO' ELABORARE SOLO QUANDO :
( 21 + 5 ) = 26 ( 21 - 5 ) = 16
IL 26 CORRISPONDE ALLA SOMMA DI 43 + 73 = 26 ORA SI CHE POSSIAMO DIRE CHE L'AMBATA E' QUASI CERTA.

PER ACCOPPIAMENTO PER AMBO SI FA ( 26 + 16 ) = 42
QUINDI SI GIOCA LA TERZINA SIMMETRICA ( 12 - 42 - 72 )

SPERO DI ESSERE STATO PIU' CHIARO , GRAZIE , CIAO .

 

[DjNomade]

Ciauz ho modificato il listato, comunque la previsione del tuo esempio Pa-Ro c'era nel vecchio,se troviora una previsione che ritieni errata dimmelo e vediamo il da farsi....
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[rabberto]

Ciao DjNomade volevo chiederti come mai quando vado ad inserire lo script modificato nel programma SpazioMetria mi da errore , e quindi non riesco a provarlo , grazie ciao .

 

[rabberto]

DjNomade cerco di spiegarmi meglio

la distanza 30 tra le due somme va bene , poi ,
PALERMO = 11- 32 SOMMA = 43
ROMA = 34- 39 SOMMA = 73
PER AMBATA SI FA : 43 + 73 = 116 -90 = ( 26 )

PALERMO DISTANZA MATEMATICA = 21
PALERMO DISTANZA CILOMETRICA = 21
PALERMO DISTANZA MATEMATICA E DISTANZA CICLOMETRICA E UGUALE , VA BENE.

ROMA DISTANZA MATEMATICA = 5
ROMA DISTANZA CICLOMETRICA = 5
ROMA DISTANZA MATEMATICA E DISTANZA CICLOMETRICA E UGUALE , VA BENE

N.B: LA PREVISIONE SI PUO' ELABORARE SOLO QUANDO :
( 21 + 5 ) = 26 ( 21 - 5 ) = 16
IL 26 CORRISPONDE ALLA SOMMA DI 43 + 73 = 26 ORA SI CHE POSSIAMO DIRE CHE L'AMBATA E' QUASI CERTA.

PER ACCOPPIAMENTO PER AMBO SI FA ( 26 + 16 ) = 42
QUINDI SI GIOCA LA TERZINA SIMMETRICA ( 12 - 42 - 72 )

SPERO DI ESSERE STATO PIU' CHIARO , GRAZIE , CIAO

 

[genlotto]

quote:Originally posted by rabberto

DjNomade cerco di spiegarmi meglio

la distanza 30 tra le due somme va bene , poi ,
PALERMO = 11- 32 SOMMA = 43
ROMA = 34- 39 SOMMA = 73
PER AMBATA SI FA : 43 + 73 = 116 -90 = ( 26 )

PALERMO DISTANZA MATEMATICA = 21
PALERMO DISTANZA CILOMETRICA = 21
PALERMO DISTANZA MATEMATICA E DISTANZA CICLOMETRICA E UGUALE , VA BENE.

ROMA DISTANZA MATEMATICA = 5
ROMA DISTANZA CICLOMETRICA = 5
ROMA DISTANZA MATEMATICA E DISTANZA CICLOMETRICA E UGUALE , VA BENE

N.B: LA PREVISIONE SI PUO' ELABORARE SOLO QUANDO :
( 21 + 5 ) = 26 ( 21 - 5 ) = 16
IL 26 CORRISPONDE ALLA SOMMA DI 43 + 73 = 26 ORA SI CHE POSSIAMO DIRE CHE L'AMBATA E' QUASI CERTA.

PER ACCOPPIAMENTO PER AMBO SI FA ( 26 + 16 ) = 42
QUINDI SI GIOCA LA TERZINA SIMMETRICA ( 12 - 42 - 72 )

SPERO DI ESSERE STATO PIU' CHIARO , GRAZIE , CIAO

..con il permesso.. ci provo Mi!, vediamo se ho centrato il quesito??
N.B.
ricerca Isotopa e su ruote consecutive!

===========================================================================
sab 30.04.2011 [ Fi - 20.25.57.03.64 ] [ 25.64 in 2/5 ^ pos. ] So 89
sab 30.04.2011 [ Ge - 86.39.84.09.20 ] [ 39.20 in 2/5 ^ pos. ] So 59
Distanza Matematica/Ciclometrica 39/39 su Fi
Distanza Matematica/Ciclometrica 19/19 su Ge
                    Verifica +|- 58|20 >[78]
Ambata 58 abb. 78.18.48
---------------------------------------------------------------- caso n° 1
===========================================================================
sab 28.05.2011 [ Na - 85.50.79.10.51 ] [ 50.10 in 2/4 ^ pos. ] So 60
sab 28.05.2011 [ Pa - 53.35.71.55.72 ] [ 35.55 in 2/4 ^ pos. ] So 90
Distanza Matematica/Ciclometrica 40/40 su Na
Distanza Matematica/Ciclometrica 20/20 su Pa
                    Verifica +|- 60|20 >[80]
Ambata 60 abb. 80.20.50
---------------------------------------------------------------- caso n° 2
===========================================================================
gio 09.06.2011 [ Pa - 11.32.59.01.88 ] [ 11.32 in 1/2 ^ pos. ] So 43
gio 09.06.2011 [ Ro - 34.39.82.01.67 ] [ 34.39 in 1/2 ^ pos. ] So 73
Distanza Matematica/Ciclometrica 21/21 su Pa
Distanza Matematica/Ciclometrica 05/05 su Ro
                    Verifica +|- 26|16 >[42]
Ambata 26 abb. 42.72.12
---------------------------------------------------------------- caso n° 3
===========================================================================
mar 14.06.2011 [ Fi - 81.86.22.14.41 ] [ 81.86 in 1/2 ^ pos. ] So 77
mar 14.06.2011 [ Ge - 53.54.44.56.65 ] [ 53.54 in 1/2 ^ pos. ] So 17
Distanza Matematica/Ciclometrica 05/05 su Fi
Distanza Matematica/Ciclometrica 01/01 su Ge
                    Verifica +|- 06|04 >[10]
Ambata 04 abb. 10.40.70
---------------------------------------------------------------- caso n° 4
===========================================================================
mar 14.06.2011 [ Ve - 86.64.58.81.76 ] [ 86.76 in 1/5 ^ pos. ] So 72
mar 14.06.2011 [ Nz - 28.43.50.18.14 ] [ 28.14 in 1/5 ^ pos. ] So 42
Distanza Matematica/Ciclometrica 10/10 su Ve
Distanza Matematica/Ciclometrica 14/14 su Nz
                    Verifica +|- 24|04 >[28]
Ambata 24 abb. 28.58.88
---------------------------------------------------------------- caso n° 5

..buona domenica!
[][8][]

<center>

</center>

 

[rabberto]

Ciao genlotto il quesito l'ho hai centrato e' proprio cosi anche se la ricerca andrebbe fatta su ambi uniti ( 1-2 ) ( 2-3 ) ( 3-4 ) ( 4-5 ) ( 1-5 ) , ma il calcolo e' questo , grazie , aspetto qualche volenteroso per uno script , grazie , ciao .

 

[genlotto]

quote:Originally posted by rabberto

Ciao genlotto il quesito l'ho hai centrato e' proprio cosi anche se la ricerca andrebbe fatta su ambi uniti ( 1-2 ) ( 2-3 ) ( 3-4 ) ( 4-5 ) ( 1-5 ) , ma il calcolo e' questo , grazie , aspetto qualche volenteroso per uno script , grazie , ciao .

..eccolo con la modifica ultima richiesta!
Ciaooo

'x Rabberto 
'http://forum.lottoced.com/topic.asp?TOPIC_ID=136702
'Genlotto 28/08/2011
Sub main()
Dim ruota(2),posta(1),poste(3)
Dim nu(1),nu1(4)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
casi=0
fin=EstrazioneFin 
ini=fin-ee 
'--------------------------------
For es=ini To fin 
  Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]"
  For r1=1 To 10  :r2=r1+1
       If r2=11 Then r2=12
       For p1=1 To 4 :p2=p1+1
	   'For p2=p1+1 To 5
           a=Estratto(es,r1,p1) :b=Estratto(es,r1,p2) :so1=Fuori90(a+b)
           c=Estratto(es,r2,p1) :d=Estratto(es,r2,p2) :so2=Fuori90(c+d)
	     dc1=Distanza(a,b) :dm1=Abs(a-b) :dc2=Distanza(c,d) :dm2=Abs(c-d)
	     vr1=Fuori90(dc1+dc2) :vr2=Abs(dm1-dm2) 
	     am=Fuori90(so1+so2)
	     If Distanza(so1,so2)=30 And dc1=dm1 And dc2=dm2 And (am=vr1 Or am=vr2) Then
	        ab1=Fuori90(vr1+vr2) :ab2=Fuori90(ab1+30) :ab3=Fuori90(ab1+60)
              casi=casi+1:Scrivi String(72,"="),1 
              Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_ 
              " ] [ "&Format2(a)&"."&Format2(b)&" in "&(p1)&"/"&p2&" ^ pos. ] So "&so1
              Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_ 
              " ] [ "&Format2(c)&"."&Format2(d)&" in "&(p1)&"/"&p2&" ^ pos. ] So "&so2
Scrivi "Distanza Matematica/Ciclometrica "&Format2(dm1)&"/"&Format2(dc1)&" su "&SiglaRuota(r1)
Scrivi "Distanza Matematica/Ciclometrica "&Format2(dm2)&"/"&Format2(dc2)&" su "&SiglaRuota(r2)
Scrivi Space(20)&"Verifica +|- "&Format2(vr1)&"|"&Format2(vr2)&" >["&ab1&"]"
Scrivi "Ambata "&Format2(am)&" abb. "&ab1&"."&ab2&"."&ab3
              Scrivi String(61,"-")&" caso n° "&(casi) 
		  ruota(1)=r1 :ruota(2)=r2
		  posta(1)=1 :poste(2)=1 :poste(3)=1
		  nu(1)=am
		  ImpostaGiocata 1,nu,ruota,posta,k,1
		  nu1(1)=am :nu1(2)=ab1
		  nu1(3)=ab2 :nu1(4)=ab3
		  ImpostaGiocata 2,nu1,ruota,poste,k
	        Gioca es 
           End If
        'Next 
     Next 
  Next
Next 
ScriviResoconto
End Sub

[8]

<center>

</center>

 

[DjNomade]

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[rabberto]

Ciao genlotto innanzitutto grazie infinitamente sia a te che a DjNomade , il listato e perfetto in tutto , pero' volevo chiederti se possibile di realizzarlo con lo stesso identico preocedimento pero' anche con ruote non unite ES: ( BARI - NAPOLI ) ecc.
Di nuovo grazie tante ragazzi , ciao.

 

[genlotto]

..questa è la versione con Ruote NON Consecutive

quote:Originally posted by genlotto

quote:Originally posted by rabberto

Ciao genlotto il quesito l'ho hai centrato e' proprio cosi anche se la ricerca andrebbe fatta su ambi uniti ( 1-2 ) ( 2-3 ) ( 3-4 ) ( 4-5 ) ( 1-5 ) , ma il calcolo e' questo , grazie , aspetto qualche volenteroso per uno script , grazie , ciao .

..eccolo con la modifica ultima richiesta!
Ciaooo

'x Rabberto 
'http://forum.lottoced.com/topic.asp?TOPIC_ID=136702
'Genlotto 28/08/2011
Sub main()
Dim ruota(2),posta(1),poste(3)
Dim nu(1),nu1(4)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
casi=0
fin=EstrazioneFin 
ini=fin-ee 
'--------------------------------
For es=ini To fin 
  Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]"
  For r1=1 To 10  
   For r2=r1+1 to 11
       If r2=11 Then r2=12
       For p1=1 To 4 :p2=p1+1
	   'For p2=p1+1 To 5
           a=Estratto(es,r1,p1) :b=Estratto(es,r1,p2) :so1=Fuori90(a+b)
           c=Estratto(es,r2,p1) :d=Estratto(es,r2,p2) :so2=Fuori90(c+d)
	     dc1=Distanza(a,b) :dm1=Abs(a-b) :dc2=Distanza(c,d) :dm2=Abs(c-d)
	     vr1=Fuori90(dc1+dc2) :vr2=Abs(dm1-dm2) 
	     am=Fuori90(so1+so2)
	     If Distanza(so1,so2)=30 And dc1=dm1 And dc2=dm2 And (am=vr1 Or am=vr2) Then
	        ab1=Fuori90(vr1+vr2) :ab2=Fuori90(ab1+30) :ab3=Fuori90(ab1+60)
              casi=casi+1:Scrivi String(72,"="),1 
              Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_ 
              " ] [ "&Format2(a)&"."&Format2(b)&" in "&(p1)&"/"&p2&" ^ pos. ] So "&so1
              Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_ 
              " ] [ "&Format2(c)&"."&Format2(d)&" in "&(p1)&"/"&p2&" ^ pos. ] So "&so2
Scrivi "Distanza Matematica/Ciclometrica "&Format2(dm1)&"/"&Format2(dc1)&" su "&SiglaRuota(r1)
Scrivi "Distanza Matematica/Ciclometrica "&Format2(dm2)&"/"&Format2(dc2)&" su "&SiglaRuota(r2)
Scrivi Space(20)&"Verifica +|- "&Format2(vr1)&"|"&Format2(vr2)&" >["&ab1&"]"
Scrivi "Ambata "&Format2(am)&" abb. "&ab1&"."&ab2&"."&ab3
              Scrivi String(61,"-")&" caso n° "&(casi) 
		  ruota(1)=r1 :ruota(2)=r2
		  posta(1)=1 :poste(2)=1 :poste(3)=1
		  nu(1)=am
		  ImpostaGiocata 1,nu,ruota,posta,k,1
		  nu1(1)=am :nu1(2)=ab1
		  nu1(3)=ab2 :nu1(4)=ab3
		  ImpostaGiocata 2,nu1,ruota,poste,k
	        Gioca es 
           End If
        Next 
     Next 
  Next
Next 
ScriviResoconto
End Sub

[8]

<center>

</center>

 

[rabberto]

Grazie genlotto non ho parole sei stato fantasico , grazie , grazie , grazie , ciao .

 

[rabberto]

Una sola informazione il sistema e da condiderarsi quasi esclusivamente per il gioco di ambata , per cui se controllate gli esiti negativi di ambata vi accorgete che in quel periodo sulle due ruote il numero sulle due ruote macava da 20-30 estrazioni , e quindi non andava giocato , per cui con buone precauzioni si vede la validita' della tecnica, ciao e grazie ancora .