Formula 1-4-7 (by Marco LMS)

[Marco-elle]

Formula 1-4-7

Nel quadro estrazionale,ricercare questa tripla figurale disposta su 2 ruote.
Due numeri(qualsiasi) su una ruota e la rimanente su un altra per mettere
in gioco la previsione:

PS:
A condizione trovata,andare a ritroso nelle ruote di 7/8 estrazioni
per non trovare l'ambo della previsione

PPS: per risparmiare qualche dindino,aspettare 3/4 colpi prima di
mettere in gioco la previsione

1-5
1-7
1-43
1-72
46-5-7-43-72

Per i possessori di SPAZIOMETRIA,allego lo script
per facilitare le ricerche

Sub Main()
ColoreTesto 1 :Scrivi "-----------------Formula 1-4-7 di Marco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
Dim ruota(1),amb(20),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(3)
pt(1) = 1
pt1(2) = 1
pt2(2) = 1:pt2(3) = 1

clp = 15
co = 0
ini = 9000
For es = ini To EstrazioneFin
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)

For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p = 1 To 5
c = Estratto(es,r1,p)

ok = 0


If(a = 1 Or a = 4 Or a = 7)_
And(b = 1 Or b = 4 Or b = 7)_
And(c = 1 Or c = 4 Or c = 7) Then :amb(1) = 1 :amb(2) = 1:amb(3) = 5:amb(4) = 1:amb(5) = 7:amb(6) = 1:amb(7) = 43:amb(8) = 1:amb(9) = 72:amb(10) = 46:amb(11) = 5:amb(12) = 7:amb(13) = 43::amb(14) = 72 :ok = 1


If ok = 1 Then


If(r <> r1 And c <> a And c <> b) Then
co = co + 1
ColoreTesto 2
Scrivi String(65,"=") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
Scrivi

ruote(1) = r
ruote(2) = r1
cg = 0



nu1(1) = amb(1)

cg = cg + 1
ImpostaGiocata cg,nu1,ruote,pt,clp,1

nu2(1) = amb(2)
nu2(2) = amb(3)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu2(1) = amb(4)
nu2(2) = amb(5)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu2(1) = amb(6)
nu2(2) = amb(7)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu2(1) = amb(8)
nu2(2) = amb(9)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu3(1) = amb(10)
nu3(2) = amb(11)
nu3(3) = amb(12)
nu3(4) = amb(13)
nu3(5) = amb(14)

cg = cg + 1
ImpostaGiocata cg,nu3,ruote,pt2,clp,2



Gioca es,1

End If
End If
Next
Next
Next
Next
Next
Next


Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
ColoreTesto 1 :Scrivi "-----------------Formula 1-4-7 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0

End Sub

 

[trylli]

Ciao vorrei sapere e se c è una previsione in gioco.

 

[Marco-elle]

Ciao vorrei sapere e se c è una previsione in gioco.

C'è una previsione fresca su NA-NZ ma.... 9 colpi prima,è uscito l'ambo 1-5
su NA.Tienila monitorata perchè la condizione è composta in forma isotopa e.....
magari se vuoi tra 5/6 colpi la puoi mettere in gioco (sperando che non si sfaldi prima)

 

[Marco-elle]

Nessuno si è accorto (nemmeno io) che Sabato la formula
ha pagato l'ambo secco sulla NZ al 4° colpo (1-43)

 

[membro cancellato]

Salve, hai altri metodi simili? oltre la formula 6 84? attendoooo

 

[trylli]

Ciao ci sono previsioni in gioco? Te le calcoli
con un software potresti pubblicarle?

 

[Marco-elle]

Queste sono formule che ogni volta si presenta l'occasione,vengono messe in gioco....
quindi vi consiglio di trascriverle su un quaderno perchè possono servire per eventuali
convergenze.Sempre in questa sezione ho postato la formula del doppio 16 isotopo
con previsione in corso su BA-GE