Distanza di un Ambo

Benvenuto, Ospite

Distanza di un Ambo

(1 Online) (1) Ospite

Replica topic

Nuovo topic

Pagina:
1

ARGOMENTO: Distanza di un Ambo

Distanza di un Ambo 14/01/2013 12:20 #18383

bubù
( Visitatore )

Ciao,
provo a postare questa previsione xchè sto studiando e voglio vedere cosa succede

Estrazione n°6 del 12/01/2013
NAPOLI 56 48 70 16 28

48-28 AMBO di distanza 20
quindi procediamo a fare due calcoli :
48+20= 68 28-20= 08
Estrazione n°6 del 12/01/2013
GENOVA 44 68 17 50 64

Sulla ruota di Genova troviamo il 68 isotopo al 48 di Napoli ,
quindi, formiamo un quadrato nello stesso ordine di uscita quindi
48.....28
68.....08

Somme orizzontali 48+28=76 ....68+08 = 76 questo numero sarà l'ambata.
Somme verticali 48+68 = 116-90= 26......28+08 = 36
Somme diagonali 68+28 = 06..... 48+08 = 56
Previsione:
AMBATA 76 GE-NA
AMBI: 76.26 // 76.36 // 76.06 // 76.56 da giokare su GE-NA
LUNETTA: 76-26-36-06-56 x AMBO e sorti superiori su GE-NA

Esito:

Ciao Bubù

Ultima modifica: 14/01/2013 12:22 Da .

Rispondi Quota

Re: Distanza di un Ambo 14/01/2013 21:02 #18397

DjNomade
( Utente )
Offline
Senior Boarder
Messaggi: 77
Karma: 0

Ciauz bubu' mi son permesso di realizzare lo script perche' lo ritengo interessnte,
pero' vedo che ci sono molte previsioni in gioco a meno che non abbia commesso qualche errore
se puoi controllarlo......

Ciauz

'14/01/2012



ColoreTesto 2 :Scrivi String(37,32)&"Distanza di un Ambo by Bubu' ",1


Scrivi String(45,32)&"List. DjNomade",1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10),amb(2),qu(4)
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-3 
For es=ini To fin
Messaggio 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)

n5=Distanza(n1,n2)
For x=1 To 90
If n5=x  Then
n4=Fuori90(Massimo(n1,n2)+x)
n6=Fuori90(90+Minimo(n1,n2)-x)

For y=0 To 0  ' RETROATTIVITA' PER RICERCA NUMERI 
                                    ex=es+y                                    
                                       For rr=1 To 11  
                                           If rr=11 Then rr=12  'con nazionale  
                                               For q1=1 To 5
                                                       
                                              e1=Estratto(ex,rr,q1): 


 
If (e1=n4 Or e1=n6) And rr<>r1  And (q1=p1 or q1=p2) Then
'If (e1=n4 Or e1=n6) And (rr=r1+1 Or rr=r1-1) And (q1=p1 or q1=p2) Then
qu(1)=n1:qu(2)=n2:qu(3)=n4:qu(4)=n6:
If Massimo(n1,n2)=n1 and Minimo(n1,n2)=n2  Then qu(3)=n4:qu(4)=n6
If Massimo(n1,n2)=n2 and Minimo(n1,n2)=n1  Then qu(3)=n6:qu(4)=n4
'qu(1)=n1:qu(2)=n2  48.....28   28.....48
'qu(3)=n4:qu(4)=n6  68.....08   08.....68

 

n7=Fuori90(qu(1)+qu(2))'Somme orizzontali
n8=Fuori90(qu(3)+qu(4))'ambata Somme orizzontali
n9=Fuori90(qu(1)+qu(3))'somme vertic
n10=Fuori90(qu(2)+qu(4))'somme vertic
n11=Fuori90(qu(2)+qu(3))'Somme diagonali
n12=Fuori90(qu(1)+qu(4))'somme vertic




casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo  < "&Format2(n1)&"."&Format2 (n2)&" > Distanza < "&Format2(n5)

Scrivi DataEstrazione(ex,1)&" < "&siglARuota(rr)& " "& StringaEstratti(ex,rr)&_
" > Num. rintracciato < "&Format2(e1)&" > Posizione < "&Format2(q1)&"°>"

Scrivi String(65,"-")&" caso n° "&(casi)
ruota(1)=r1:ruota(2)=rr
ruote(1)=r1:ruote(2)=rr:k=13:co=0



nu1(1)=n8

ImpostaGiocata 1 ,nu1,ruota,poste,k

nu2(1)=n8
nu2(2)=n9 
ImpostaGiocata 2 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n10 
ImpostaGiocata 3 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n11 
ImpostaGiocata 4 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n12 
ImpostaGiocata 5 ,nu2,ruota,poste1,k
nu3(1)=n8' 
nu3(2)=n9'
nu3(3)=n10' 
nu3(4)=n11' 
nu3(5)=n12' 
ImpostaGiocata 6 ,nu3,ruote,poste2,k


Gioca es+y
End If

Next:Next:Next

End If

next:next:next:next:next:

ScriviResoconto
End Sub

Ultima modifica: 14/01/2013 21:31 Da DjNomade.

Rispondi Quota

Re: Distanza di un Ambo 15/01/2013 11:16 #18411

bubù
( Visitatore )

bubù ha scritto:

Ciao Dj, intanto grazie della tua disponibilità,
Riguardo al tuo script ho dato un'okkiata veloce, sembra quasi tutto giusto, solo una cosa che volevo evidenziare è che quando si cerca la seconda ruota dove si dovrebbe trovare uno dei due numeri dati dalle operazioni "somma del numero maggiore dell'ambo con la distanza stessa" e l'altra, "sottrazione del numero minore dell'ambo con la distanza stessa dell'ambo", il numero trovato deve essere isotopo al numero dell'ambo che è stato usato x l'operazione e cioè ne caso postato da me, il 68 isotopo al 48, mentre se trovavo l'8 doveva essere isotopo al 28 !!
Spero di essere stato chiaro, x il resto direi vediamo cosa succede se son rose sbocceranno, altrimenti vorrà dire che troveremo qualche altro esperimento da fare

Ciao e grazie sempre della tua gentilezza resto sempre in debito con Te chissà se riuscirò mai a ricambiare almeno in parte!!!
BBBuona giornata Bubù

Ultima modifica: 15/01/2013 11:19 Da .

Rispondi Quota

Re: Distanza di un Ambo 15/01/2013 23:05 #18433

DjNomade
( Utente )
Offline
Senior Boarder
Messaggi: 77
Karma: 0



ColoreTesto 2 :Scrivi String(37,32)&"Distanza di un Ambo by Bubu' ",1


Scrivi String(45,32)&"List. DjNomade",1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10),amb(2),qu(4)
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-3 
For es=ini To fin
Messaggio 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)

n5=Distanza(n1,n2)
For x=1 To 90
If n5=x  Then
n4=Fuori90(Massimo(n1,n2)+x)
n6=Fuori90(90+Minimo(n1,n2)-x)

For y=0 To 0  ' RETROATTIVITA' PER RICERCA NUMERI 
                                    ex=es+y                                    
                                       For rr=1 To 11  
                                           If rr=11 Then rr=12  'con nazionale  
                                               For q1=1 To 5
                                                       
                                              e1=Estratto(ex,rr,q1): 


 

'If (e1=n4 Or e1=n6) And (rr=r1+1 Or rr=r1-1) And (q1=p1 or q1=p2) Then
qu(1)=n1:qu(2)=n2:qu(3)=n4:qu(4)=n6:
If Massimo(n1,n2)=n1 and Minimo(n1,n2)=n2  Then qu(3)=n4:qu(4)=n6
If Massimo(n1,n2)=n2 and Minimo(n1,n2)=n1  Then qu(3)=n6:qu(4)=n4

'qu(1)=n1:qu(2)=n2  48.....28   28.....48
'qu(3)=n4:qu(4)=n6  68.....08   08.....68

If ((e1=qu(3)And q1=p1) Or (e1=qu(4)And q1=p2)) And rr<>r1  Then

n7=Fuori90(qu(1)+qu(2))'Somme orizzontali
n8=Fuori90(qu(3)+qu(4))'ambata Somme orizzontali
n9=Fuori90(qu(1)+qu(3))'somme vertic
n10=Fuori90(qu(2)+qu(4))'somme vertic
n11=Fuori90(qu(2)+qu(3))'Somme diagonali
n12=Fuori90(qu(1)+qu(4))'somme vertic




casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo  < "&Format2(n1)&"."&Format2 (n2)&" > Distanza < "&Format2(n5)&" >"
Scrivi
Scrivi" > Numeri da rintraccire < "&Format2(qu(3))&" > Posizione < "&Format2(p1)& _
"°  o < "&Format2(qu(4))&" > Posizione  "&Format2(p2)&"°"
Scrivi
Scrivi DataEstrazione(ex,1)&" < "&siglARuota(rr)& " "& StringaEstratti(ex,rr)&_
" > Num. rintracciato < "&Format2(e1)&" > Posizione < "&Format2(q1)&"°>"

Scrivi String(65,"-")&" caso n° "&(casi)
ruota(1)=r1:ruota(2)=rr
ruote(1)=r1:ruote(2)=rr:k=13:co=0



nu1(1)=n8

ImpostaGiocata 1 ,nu1,ruota,poste,k

nu2(1)=n8
nu2(2)=n9 
ImpostaGiocata 2 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n10 
ImpostaGiocata 3 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n11 
ImpostaGiocata 4 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n12 
ImpostaGiocata 5 ,nu2,ruota,poste1,k
nu3(1)=n8' 
nu3(2)=n9'
nu3(3)=n10' 
nu3(4)=n11' 
nu3(5)=n12' 
ImpostaGiocata 6 ,nu3,ruote,poste2,k


Gioca es+y
End If

Next:Next:Next

End If

next:next:next:next:next:

ScriviResoconto
End Sub

Rispondi Quota

Ringraziano per il messaggio: rodolfo