CIAO MAX

[Roby]

--------------------------------------------------------------------------------

Ciao Max,

innanzi tutto auguri di Buon Anno che sia ricco di benessere e
SALUTE. E' un pezzo che non ci sentiamo per via del lavoro che
mi tiene fuori da casa per cui non posso seguire con assiduità
sia il lotto che il forum. Mi incuriosice la statistica postata
il 19 dicembre scorso in seguito alla tecnica di TAURUS che gioca
una quartina su tre ruote, mi potresti per piacere postare il
listato ? Grazie anticipate e ciao da

lola



livia

 

[maxma62]

Salve, contraccambio gli auguri.
Non so qual'era il metodo, ripostalo o metti l'indirizzo del post.
max

 

[maxma62]

Forse e' questo di toro65?

=================================================================
lun 24.12.2007 < Ba 49.46.22.30.69 > 1^ ruota      (caso n° 21)
lun 24.12.2007 < Ca 52.72.86.61.55 > 2^ ruota
lun 24.12.2007 < Fi 69.38.10.35.44 > 3^ ruota
numero < 69 > ripetuto su Ba in 5^ pos. e Fi in 1^ pos.
2^ estr. < 46 > Ba / 4^ estr. < 35 > Fi
-----------------------------------------------------------------

lun 24.12.2007  [7847]
  G  1:  AT      48.37.03.82   Ba Ca Fi    6/14    
     in corso (6° su 14)
=================================================================
gio 27.12.2007 < Fi 13.55.25.48.24 > 1^ ruota      (caso n° 22)
gio 27.12.2007 < Ge 71.64.57.40.42 > 2^ ruota
gio 27.12.2007 < Mi 06.19.78.70.13 > 3^ ruota
numero < 13 > ripetuto su Fi in 1^ pos. e Mi in 5^ pos.
4^ estr. < 48 > Fi / 2^ estr. < 19 > Mi
-----------------------------------------------------------------

gio 27.12.2007  [7848]
  G  1:  AT      50.21.05.66   Fi Ge Mi    5/14    
     in corso (5° su 14)
=================================================================
mer 02.01.2008 < Ba 40.33.22.01.49 > 1^ ruota      (caso n° 23)
mer 02.01.2008 < Ca 12.14.36.39.03 > 2^ ruota
mer 02.01.2008 < Fi 69.85.79.70.40 > 3^ ruota
numero < 40 > ripetuto su Ba in 1^ pos. e Fi in 5^ pos.
4^ estr. < 1 > Ba / 2^ estr. < 85 > Fi
-----------------------------------------------------------------

mer 02.01.2008  [7850]
  G  1:  AT      89.83.44.38   Ba Ca Fi    3/14    
     in corso (3° su 14)

max

 

[lola]

Ciao Max,

è proprio questo che cercavo, grazie della risposta

lola

livia

 

[maxma62]

Ciao, ti interessa il listato o un resoconto del metodo?
Max

 

[lola]

Ciao Max,

me lo fai sudare sto listato, sempre se ti fa piacere, altrimenti
lascia stare e amici più di prima ciao

lola

livia

 

[maxma62]

Ecco

Scrivi "ambo secco di toro65 (list by maxma62)",1 
Sub main()
Dim numeri1(4),ruote(3),poste(3)
poste(2)=1:poste(3)=1
rs=InputBox("quante estrazioni vuoi controllare?","quante estrazioni vuoi controllare?",100)
fin=EstrazioneFin
ini=fin-rs
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 8
a=Estratto (es,r1,1)
b=Estratto (es,r1,5)
r3=r1+2
c=Estratto (es,r3,1)
d=Estratto (es,r3,5)
If a=d  Or b=c Then
casi=casi+1:Scrivi String(65,"="),1
Scrivi DataEstrazione (es,1)&""&" < "&siglaRuota(r1)&" "&StringaEstratti(es,r1)&" > 1^ ruota"&space(6)&"(caso n° "&casi&")"
Scrivi DataEstrazione (es,1)&""&" < "&siglaRuota(r1+1)&" "&StringaEstratti(es,r1+1)&" > 2^ ruota"
Scrivi DataEstrazione (es,1)&""&" < "&siglaRuota(r3)&" "&StringaEstratti(es,r3)&" > 3^ ruota"
If a=d Then
Scrivi "numero < "&(a)&" > ripetuto su "&siglaRuota(r1)&" in 1^ pos. e "&siglaRuota(r3)&" in 5^ pos."
Scrivi "4^ estr. < "&Estratto (es,r1,4)&" > "&siglaRuota(r1)&" / 2^ estr. < "&Estratto (es,r3,2)&" > "&siglaRuota(r3)
Else 
If b=c Then
Scrivi "numero < "&(b)&" > ripetuto su "&siglaRuota(r1)&" in 5^ pos. e "&siglaRuota(r3)&" in 1^ pos."
Scrivi "2^ estr. < "&Estratto (es,r1,2)&" > "&siglaRuota(r1)&" / 4^ estr. < "&Estratto (es,r3,4)&" > "&siglaRuota(r3)
End If:End If
Scrivi String(65,"-"):Scrivi
ruote(1)=r1:ruote(2)=r1+1:ruote(3)=r3:k=14
If a=d Then
n1=Estratto (es,r1,4)
n2=Estratto (es,r3,2)
If n1>n2 Then n4=Fuori90(n1+2):n5=Fuori90(n2+2)
If n1<n2 Then n4=Fuori90((n1-2)+90):n5=Fuori90((n2-2)+90)
n6=Diametrale(n4)
n7=Diametrale(n5)
numeri1(1)=n4
numeri1(2)=n5
numeri1(3)=n6
numeri1(4)=n7
ImpostaGiocata 1,numeri1,ruote,poste,k,2
Gioca es
End If
If b=c Then
n1=Estratto (es,r1,2)
n2=Estratto (es,r3,4)
If n1>n2 Then n4=Fuori90(n1+2):n5=Fuori90(n2+2)
If n1<n2 Then n4=Fuori90((n1-2)+90):n5=Fuori90((n2-2)+90)
n6=Diametrale(n4)
n7=Diametrale(n5)
numeri1(1)=n4
numeri1(2)=n5
numeri1(3)=n6
numeri1(4)=n7
ImpostaGiocata 1,numeri1,ruote,poste,k,2
Gioca es
End If

End If
Next:Next
ScriviResoconto 
Scrivi "ambo secco di toro65 (list by maxma62)",1 
End Sub

max

 

[lola]

GRAZIE MAX, MESSAGGIO RICEVUTO CIAO ALLA PROSSIMA

lola

livia