Metdo BA-PA

[ananda]

Salve, qualche anno fa ho presentato questo metodo ed ho notato che dà ancora buoni risultati. Ho fatto una ricerca per centrare l'ambo a TU.


Si tratta di trovare un'ambata a PA e 3 ambi secchi a TU.


Si procede così:


Alla decima estrazione mensile si sommano 2° e 4° estratto di BA. Il numero ottenuto si mette in gioco a PA.


Se il numero ottenuto è un numeretto si mette in gioco il suo gemellare (es. se abbiamo ottenuto 6 si gioca 66).


Per ambo su TU si abbinano il vertibile del numero ottenuto e il fisso 90. La terzina ha dato anche terni a TU.


Se qualcuno vuole fare un listato per L8, che giochi entrambi i casi, cioè ambata a PA e terzina per ambo e terno su TU, grazie mille.

Approfitto di questo post per chiedere come fare ad aggiornare archivio L8 vers. 5.1 e se qualcuno può darmi la versione 6 di L8.

Grazie mille.


Ciaoooo

 

[Roby]

Lo trovi facilmente su google
Per il listato abbi pazienza

 

[ananda]

Lo trovi facilmente su google
Per il listato abbi pazienza

Grazie black sei un portento.

 

[Roby]

Ciao ananda, se il numeretto è il 9 ?
Controlla lo script

Sub Main()
ColoreTesto 1:Scrivi:Scrivi String (40," ")& "Metodo di ananda °°° Listato By Blackmore",1
Scrivi:ColoreTesto 0
Dim ruota(10)
Dim ruote(10)
Dim ambata(1)
Dim terzina(3)
Dim posta(1)
Dim poste(3)
posta(1) = 1
poste(2) = 1
poste(3) = 1
co=0
im=CInt(InputBox("INSERISCI L'INDICE MENSILE",,10))
rs=InputBox("ESTRAZIONE DI PARTENZA ?",,6000)
k=InputBox("COLPI DI GIOCO ?",,13)
fin=EstrazioneFin 
ini=rs
For es=ini To fin
If Indicemensile(es) = im Then 
a = Estratto(es,BA_,2) : b = Estratto(es,BA_,4) 
c = Fuori90(a+b)
If c < 10 Then c = Fuori90(Cadenza(c)*11)
ruota(1)= PA_
ruote(1)= TU_ 
casi=casi+1
Scrivi String (95,"*")&" Caso n° "&casi,1
co=co+1 
ColoreTesto 1
Scrivi DataEstrazione(es)& "   " & FormatSpace(NomeRuota(BA_),10) & "   " & StringaEstratti(es,BA_)& "  -->  "& 2 &"° Estratto  +  " & 4 & "° Estratto = " & Format2(Fuori90(a+b)),1 
ambata(1)= c
ImpostaGiocata 1,ambata,ruota,posta,k,1
terzina(1)= c
terzina(2)= Vert(c)
terzina(3)= 90
EliminaRipetuti terzina
ImpostaGiocata 2,terzina,ruote,poste,k,2
Gioca es
End If
Next
Scrivi:Scrivi:Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub

 

[ananda]

Ciao ananda, se il numeretto è il 9 ?
Controlla lo script

Sub Main()
ColoreTesto 1:Scrivi:Scrivi String (40," ")& "Metodo di ananda °°° Listato By Blackmore",1
Scrivi:ColoreTesto 0
Dim ruota(10)
Dim ruote(10)
Dim ambata(1)
Dim terzina(3)
Dim posta(1)
Dim poste(3)
posta(1) = 1
poste(2) = 1
poste(3) = 1
co=0
im=CInt(InputBox("INSERISCI L'INDICE MENSILE",,10))
rs=InputBox("ESTRAZIONE DI PARTENZA ?",,6000)
k=InputBox("COLPI DI GIOCO ?",,13)
fin=EstrazioneFin 
ini=rs
For es=ini To fin
If Indicemensile(es) = im Then 
a = Estratto(es,BA_,2) : b = Estratto(es,BA_,4) 
c = Fuori90(a+b)
If c < 10 Then c = Fuori90(Cadenza(c)*11)
ruota(1)= PA_
ruote(1)= TU_ 
casi=casi+1
Scrivi String (95,"*")&" Caso n° "&casi,1
co=co+1 
ColoreTesto 1
Scrivi DataEstrazione(es)& "   " & FormatSpace(NomeRuota(BA_),10) & "   " & StringaEstratti(es,BA_)& "  -->  "& 2 &"° Estratto  +  " & 4 & "° Estratto = " & Format2(Fuori90(a+b)),1 
ambata(1)= c
ImpostaGiocata 1,ambata,ruota,posta,k,1
terzina(1)= c
terzina(2)= Vert(c)
terzina(3)= 90
EliminaRipetuti terzina
ImpostaGiocata 2,terzina,ruote,poste,k,2
Gioca es
End If
Next
Scrivi:Scrivi:Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub

Grazie mille...se il numeretto è 9 si mette in gioco 90, che è sempre un bel numero! Cmq ora guardo meglio. Ciaoooo

 

[ananda]

Ciao la prossima estrazione è la decima...prepariamoci alla nuova previsione.

 

[boris]

buongiorno,
lo scipt che di Blackmor dove va copiato
per estrappolare la possima previsione ?
saluti

 

[ananda]

buongiorno,
lo scipt che di Blackmor dove va copiato
per estrappolare la possima previsione ?
saluti

Cioa Boris io uso L8, ma credo chevada anche in Spaziometria.

 

[boris]

ciao ananda, ci provo grazie

 

[ananda]

Ciao la nuova previsione è:

PA ambata 33

Per abbinamento per ambo su TU 39-90

Ciaooooo

 

[ananda]

Uscito il 39...Previsione ancora buona.