ambo oltre di A.Longo

ciao lorella non hai un altro esempio?di solito esce ambo?grazie michela

ciao lorella ho visto diversi metodi dell'ambo ripetuto ed non so quale sia la metodologia migliore da seguire.saluti

AMBATA 54 A CAGLIARI AL PRIMO COLPO....

riproviamo con l'ambo isotopo di ieri 19-75 su BA e NAZ
19+19..38
75+75..150

150-38=112:2=56 numero di bilanciamento...

38+56...04
150-56..04

19+04....23
75+04....79...ambata
79+23....12 per ambo.......

previsione BA e NAZ....79.12...

ciaoooooo

lorella ha scritto:riproviamo con l'ambo isotopo di ieri 19-75 su BA e NAZ
19+19..38
75+75..150

150-38=112:2=56 numero di bilanciamento...

38+56...04
150-56..04

19+04....23
75+04....79...ambata
79+23....12 per ambo.......

[size=18]previsione BA e NAZ....79.12...[/si

ciaoooooo

ciao lorella,scusa ma non c'è l'isotopia da nessuna parte...aspetta che ricontrollo

hai ragione gli ultimi 2 sono 22..e 81....ho trascritto i numeri da altro sito
che da la nazionale come prima ruota e li ho ripetuti...grazie per avermelo
fatto notare....

lorella ha scritto:hai ragione gli ultimi 2 sono 22..e 81....ho trascritto i numeri da altro sito
che da la nazionale come prima ruota e li ho ripetuti...grazie per avermelo
fatto notare....

ma dai di niente,capita.a forza di fissar lo schermo,io, spesso vedo i numeri che ho in testa.la stanchezza.ciao

Per chi ha il programma L8 ecco lo script dell'ambo oltre
Sub main()
Dim nu1(10),nu4(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(10),posta(5)
poste(1)=1
posta(2)=1
fin=EstrazioneFin
ini=fin-100
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)
If (p1=p3 And p2=p4) Or p1=p4 Or p2=p3 Then
If n1=n3 And n2=n4 Or n1=n4 And n2=n3 Then
c1=Massimo(n1,n2)
c2=Minimo(n1,n2)
c3=(c1+c1)
c4=(c2+c2)
c5=Abs(c3-c4)
c6=Int(c5/2)
c7=Massimo(c3,c4)
c8=Minimo(c3,c4)
c9=Fuori90(Abs(c7-c6))
c10=Fuori90(c8+c6)
If c9=c10 Then
x1=Fuori90(n1+c9) ' AMBATA_
x2=Fuori90(n2+c10)
x3=Fuori90(x1+x2)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo ripetuto . "&Format2(n1)&"."&Format2 (n2)&" Pos. "&Format2(p1)&"."&Format2 (p2)&" ."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo ripetuto < "&Format2(n3)&"."&Format2 (n4)&" Pos. "&Format2(p3)&"."&Format2 (p4)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:k=9:co=0:ruota(1)=11
nu4(1)=c1:nu4(2)=c2
poste(1)=1 : poste(p1+5)=1 : poste(p2+5)=1
co=co+1
ImpostaGiocata co,nu4,ruote,poste,k
Erase poste
nu2(1)=x1:nu2(2)=x2:nu2(3)=x3
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
Gioca es
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub