Capolavoro FULMINE di O.Manara

[wobby]

x rodrigo

quote:Originally posted by wobby

Originally posted by rodrigo


P.S.Wobby hai posta!!!

Con la posta e' cosi' come nel lotto. Solo i pazienti arriveranno alla meta

Saluti Wobby

 

[zombie 3638]

Salve a Tutti, sono nuovo,
volevo farvi notare che

NAZ- BA 22/08/06

49.58
13.22


Ambata 58

ambi 58.13/58.22/58.49

quartina 13.22.49.58
Una considerazione:

e se mettessimo anche il triplo sommativo cioe' 52?
un saluto

 

[wobby]

quote:Originally posted by paina

ciao. vedo che sei all'avanguardia .ti chiedevo un favore.premetto che possiedo un'eccellente metodo per ambata dove l'autore si è riservato della parte più ambita,ossia l'ambo secco.il metodo ricava un'ambata per due ruote pari al 95%.è esclusivamente ciclometrico ma nesessita della distanza ciclometrica di tutti gli estratti.nel quadro estrazionale,così come lo vediamo ,dovremmo ricavare la distanza del primo di bari col secondo.// il secondo col terzo//terzo con quarto//quarto e quinto //quinto primo fino a venezia.trovate le distanze si opera considerando in isotopo due numeri uguali,stessa distanza ciclometrica.se a bari vi fosse la distanza 9 , ricavato tra il terzo e il quarto estratto e a firenze,sempre ricavato con il terzo e quarto,avremmo in isotopo 9 che fa scaturire la previsione.quello che chiedevo è questo;il tempo è poco per me però il metodo è fantastico.chiedevo appunto se qualcuno ,usando un programma ,possa ricavare le distaze citate.speriamo.il metodo si intitola :la cicloarmonia.metodo vecchio ma che non ha tempo...........ciao

Era questo che volevi ?
Basta qualche formuletta in un foglio Excel

Saluti Wobby

 

[rodrigo]

quote:Originally posted by wobby

x rodrigo

quote:Originally posted by wobby

Originally posted by rodrigo


P.S.Wobby hai posta!!!

Con la posta e' cosi' come nel lotto. Solo i pazienti arriveranno alla meta

Saluti Wobby

Se non ne fossi convinto non ti avrei parlato di quella prospettiva, sarebbe lungo da spiegare in poche parole ma la svolta è proprio nel prof.,e le tue capacità ci faranno arrivare alla meta.
Ciao.


Rodrigo

 

[wobby]

quote:Originally posted by Daniel

22.08.2006
Mi 03.83.13.51.59 [83][13]
Ve 22.73.43.21.01 [73][43]
83.13
73.43
mar 22.08.2006  [7637]
  G  1:  M          83            Mi Ve    0/10    
     n.i. (10 colpi)
  G  2:  A          83.13         Mi Ve    0/10    
     n.i. (10 colpi)
  G  3:  A          83.43         Mi Ve    0/10    
     n.i. (10 colpi)
  G  4:  A          83.73         Mi Ve    0/10    
     n.i. (10 colpi)
  G  5:  ATQ        13.43.73.83   Mi Ve    0/10

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

Ciao Daniel, Tu che sei esperto nei script, potresti postare questo script ??

Saluti Wobby

 

[maxma62]

Ciao wobby ho trovato in un altro forum (dini....lotto) un script per il sistema Fulmine che mi sembra funzioni bene. Questo ti prova solo pero' solo le combinazioni esatte come da sistema. Eccolo qui:

=====================================================================

Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim x(10), am(10), am1(10), am2(10)
Dim ruote(10), posta(5), poste(5), poste1(5)
poste1(1)=1
posta(2)=1.5
posta(3)=0.4
posta(4)=0.1
poste(2)=1
For n=6400 To EstrazioneFin
Messaggio DataEstrazione : t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruote(1)=r1
ruote(2)=r2
x(1)=n1
x(2)=n2
x(3)=n3
x(4)=n4
If NumeriRipetuti(x)=False Then
OrdinaMatrice x,1
y1=Fuori90(x(4)+x(1))
y2=Fuori90(x(2)+x(3))
y3=Distanza(x(4),x(3))
y4=Distanza(x(1),x(2))
y5=Distanza(x(4),x(2))
y6=Distanza(x(1),x(3))
If y1=y2 And y3=y4 And y5=y6 Then
Scrivi "----------------------------------------------------------" : ColoreTesto 2
Scrivi " RUOTA ESTRATTI ORDINATI Somma Oriz. D.V - D.D." : ColoreTesto 0
Scrivi FormatSpace(NomeRuota(r1),10)&" "&format2(CInt(n1))&" "&format2(CInt(n2))& " "&_
Format2(x(4))&" "& Format2(x(1))&" "& FormatSpace(y1,3)&" "& FormatSpace(y3,3)&" "& FormatSpace(y5,3),1

Scrivi FormatSpace(NomeRuota(r2),10)&" "&format2(CInt(n3))&" "&format2(CInt(n4))& " "&_
Format2(x(3))&" "& Format2(x(2))&" "& FormatSpace(y2,3)&" "& FormatSpace(y4,3)&" "& FormatSpace(y6,3),1
Scrivi
am(1)=x(4)
ImpostaGiocata 1,am,ruote,poste1,12,1
am1(1)=x(4)
am1(2)=x(1)
ImpostaGiocata 2,am1,ruote,poste,12,2
am1(2)=x(2)
ImpostaGiocata 3,am1,ruote,poste,12,2
am1(2)=x(3)
ImpostaGiocata 4,am1,ruote,poste,12,2
am2(1)=x(1)
am2(2)=x(2)
am2(3)=x(3)
am2(4)=x(4)
ImpostaGiocata 5,am2,ruote,posta,12,2
Gioca n
End If
End If
t=t+1
Loop
Next
ScriviResoconto
End Sub


Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 9
For i= 1 To 4
j=i+1
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
c1=Cadenza(a)
c2=Cadenza(b)
d1=Figura(a)
d2=Figura(b)
For rr=r+1 To 10
aa=Estratto(estrazione,rr,i)
bb=Estratto(estrazione,rr,j)
cc1=Cadenza(aa)
cc2=Cadenza(bb)
dd1=Figura(aa)
dd2=Figura(bb)
If (c1=c2 And cc1=cc2 And c1=cc1) Or (d1=d2 And dd1=dd2 And d1=dd1) Then
trovati=trovati+1
If trovati=tentativo Then
numero1=a
numero2=b
numero3=aa
numero4=bb
ruota1=r
ruota2=rr
DISAMBO=True
Exit Function
End If
End If
Next
Next
Next
DISAMBO=False
End Function

=====================================================================

Spero ti vada bene.
Ciao,max

 

[wobby]

Grazie Max, dovrebbe andare benissimo,
mi serve solo per test.

Grazie e saluti
Wobby

 

[Worzel]

Gentile Wobby,
ho trovato su un altro forum questo metodo di Manara, c'è anche uno script,potresti per favore ricavare una versione excel?
Grazie



posto un nuovo metodo di cui non so proprio il resoconto di questi ultimi anni..l'avevo messo da parte da un po' di anni...vediamo se qualcuno ne fa il listato cosa ne esce fuori....


PRIMA CONDIZIONE : rintracciare nel quadro estrazionale 2 AMBI aventi la stessa somma comune ed isotopi ( PER TROVARLI BISOGNA FARE UN LISTATO) su due ruote diverse, meglio se ruote consecutive o diametrali.

Una volta rintracciati gli ambi si procede così:

1) Calcolare la differenza aritmetica in diagonale. Le due differenze in diagonale devono essere uguali tra loro. In caso contrario non si procede al rilevamento della previsione....

2) Analogamente si procede per le differenze verticali. Anche queste devono essere ugauli tra loro. In caso contrario non si procede al rilevamento della previsione....

3) Sottrarre tra loro le differenze diagonali e verticali. Anche queste devono essere uguali tra loro. In caso contrario non si procede al rilevamento della previsione....

4) Il risultato ottenuto rappresenta l'ambata secca da giocare sulle ruote di rilevamento dove si sono rintracciate le due coppie iniziali.

5)Per la formazione dell'ambo secco principale faremo il complemento a 90 della somma comune dei due ambi rintracciati. Quel numero lo abbineremo all'ambata ed avremo così formato l'ambo principale.

6)Per la formazione dell'ambo secco secondario abbineremo all'ambata il numero vertibile del numero ricavato dal complemento a 90.

7) La terzina per ambo e terno sarà così formata dall'ambata principale e dai numeri abbinati all'ambata per la formazione dell'ambo principale e secondario.


esempio: data un po' vecchiotta

03 05 1993

cagliari 41 13 (3° e 5° estratto)
firenze 33 21 ( 3° e 5° estratto)


somma comune 54 come si vede.... le ruote sono consecutive quindi la previsione prende più potenza


Utilizzando il programma si vede esaminado le coppie di numeri 41 13 e 33 21 che nel cerchio ciclometrico esse formano un perfetto trapezio isoscele.

Ora bisogna calcolare le differenze in diagonale e verticale che come abbiamo detto devono essere uguali


diagonale : 41-21= 20 e anche 33-13= 20
verticale: 41-33=8 ed anche 21-13= 8

facendo la differenze delle due differenze appena effettuate avremo come ELEMENTO A il numero 12 che sommato alla somma comune( prima condizione, ricordate??) dei due ambi rintracciati darà:

12 + 54= 66 che sarà la nostra ambata secca da porre in gioco su cagliari e firenze...

Ora passiamo alla formazione dei due ambi e quindi alla terzina per ambo e terno:

Complemento a 90:

90 - 54 ( somma comune degli ambi rintracciati)= 36

quindi come Ambo principale avremo 66 - 36

per l'ambo secondario si sceglio il vertibile del complemento a 90 precedentemente fatto, ovvero il numero 63:

AMBO SECONDARIO : 66 -63

Per la formazionde del terno per ambo e terno:
66 - 36 - 63

ESITO

2° COLPO SULLA RUOTA DI FIRENZE:

AMBATA 66
AMBI SECCHI: 66-36 e 66-63
TERNO SECCO: 66-36-63

Ciao, ecco il listato del metodo LOTTO FACILE UNO di Osvaldo Manara,
già fatto alcuni anni fà e presente nella raccolta dei miei listati

ciao danilo





Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim am(4)
Dim am1(10),am2(10),am3(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
Dim poste1(5)
posta(1)=1
poste(2)=1
poste1(2)=1.5
poste1(3)=0.5
For n=6365 To EstrazioneFin
Messaggio DataEstrazione
t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=11
ruote(1)=r1
ruote(2)=r2
s1=Fuori90(n1+n2)

If n1>n4 Then
d1=n1-n4
Else
d1=n4-n1
End If
If d1=0 Then d1=90 End If
If n3>n2 Then
d2=n3-n2
Else
d2=n2-n3
End If
If d2=0 Then d2=90 End If

If n1>n3 Then
v1=Fuori90(n1-n3)
Else
v1=Fuori90(n3-n1)
End If
If v1=0 Then v1=90 End If
If n2>n4 Then
v2=Fuori90(n2-n4)
Else
v2=Fuori90(n4-n2)
End If
If v2=0 Then v2=90 End If

If d1=d2 And v1=v2 Then
S

 

[wobby]

Caro Michele,
intanto Ti ringrazio di aver messo a disposizione il metodo cosi bene documentato.
mi guardero' il tutto e appena posso (tempo permettendo) Vi propongo il file Excel

saluti Wobby

 

[Worzel]

Grazie mille Wobby per la tua gentilezza e disponibilità.
Cordiali saluti

Michele Albini