Ciao genios e lo chiami poco?
Qui si vedono le quindicine che stanno per dare almeno l'ambo....Non sto parlando dell'ambata ma almeno l'ambo e togliere di tortno 75 numeri su 90 non é poco. Stiamo parlando di Previsionistica razionale se ho ben capito.
Quindi all' estremo destra troverai dei numeri in grassetto appartenenti ad una determinata quindicina. Questa é la segnalazione che tale quindicina é destinata a dare almeno un ambo. La domanda é...entro quanti colpi...Cinque/nove colpi ..Ma i colpi vengono conteggiati ogni qulavolta esce un appartenete a tale quindicina...quindi estrazzioni effettive di estratti della quindicina che noi andremo a giocare xche segnalata...Perche una quindicina viene segnalata?..perche sta entrando in frequenza ovvero sta dando estratti..
Un cordiale saluto
Sub Main()
Scrivi "numero ripetuto su 2 estr. per genios (list by maxma62)",1
Scrivi "giocata per decina naturale oppure cabalistica",1
Dim nu1(10),num(10)
Dim posta(5)
Dim ruote(10)
posta(2) = 5
osta(3) = 3
osta(4) = 2
g = CInt(InputBox("decina natut. = 1 / decina cabal. = 2","giocata per....",1))
ini = EstrazioneFin - 100
fin = EstrazioneFin
For n = ini To fin
Messaggio
For r1 = 1 To 12
If r1 <> 11 Then
For p1 = 1 To 5
a = Estratto(n - 1,r1,p1)
b = Estratto(n,r1,p1)
If a = b Then
dc = Decina(a)*10
nu1(1) = Fuori90(dc + 1)
nu1(2) = Fuori90(dc + 2)
nu1(3) = Fuori90(dc + 3)
nu1(4) = Fuori90(dc + 4)
nu1(5) = Fuori90(dc + 5)
nu1(6) = Fuori90(dc + 6)
nu1(7) = Fuori90(dc + 7)
nu1(8) = Fuori90(dc + 8)
nu1(9) = Fuori90(dc + 9)
nu1(10) = Fuori90(dc + 10)
ruote(1) = r1:k = 14
If SerieFreq(n - 1,n,nu1,ruote,1) = 2 Then
casi = casi + 1:Scrivi String(70,"="),1
Scrivi DataEstrazione(n - 1,1) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(n - 1,r1) & _
" ] [ " & Format2(a) & " " &(p1) & "^ pos. ]" & Space(5) & "(caso n° " &(casi) & ")"
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(n,r1) & _
" ] [ " & Format2(b) & " " &(p1) & "^ pos. ]"
If g = 1 Then
ColoreTesto 1 :Scrivi "giocata per decina naturale",1:ColoreTesto 0
Else If g = 2 Then
ColoreTesto 1 :Scrivi "giocata per decina cabalastica",1:ColoreTesto 0
End If :End If
Scrivi String(70,"-")
If g = 1 Then
dc = Decina(a)*10
num(1) = nu1(1)
num(2) = nu1(2)
num(3) = nu1(3)
num(4) = nu1(4)
num(5) = nu1(5)
num(6) = nu1(6)
num(7) = nu1(7)
num(8) = nu1(8)
num(9) = nu1(9)
num(10) = nu1(10)
ImpostaGiocata 1,num,ruote,posta,k
Gioca n
End If
If g = 2 Then
dc = Decina(a)*10
If dc = 0 Then dc = 90
num(1) = dc
num(2) = nu1(1)
num(3) = nu1(2)
num(4) = nu1(3)
num(5) = nu1(4)
num(6) = nu1(5)
num(7) = nu1(6)
num(8) = nu1(7)
num(9) = nu1(8)
num(10) = nu1(9)
ImpostaGiocata 1,num,ruote,posta,k
Gioca n
End If
End If
End If
Next
End If
Next:Next
ScriviResoconto
End Sub
Grazie ..
Chissà incrociandolo con questo
Sub Main()
Dim r(10)
Dim vam1(10),vam2(10),vam3(10),vam4(10)
Dim am1(2),am2(2),am3(2),am4(2)
Dim n1(20),n2(20),n3(20),n4(20)
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim posta(5)
posta(2) = 1.5
posta(3) = 0.4
posta(4) = 0.1
co = 0
rr = InputBox("SU QUALE RUOTA ?","SCELTA RUOTA",1)
r(1) = rr
clp = InputBox("QUNATI COLPI di GIOCO?","COLPI DI GIOCO",5)
ini = InputBox("ESTRAZIONE INIZIALE : ","INIZIO ANALISI",EstrazioneFin - 100)
fin = InputBox("ESTRAZIONE FINALE : ","FINE ANALISI",EstrazioneFin)
For es = ini To fin
Messaggio(es)
' Estratti estrazione precedente
a1 = Estratto(es - 1,rr,1)
a2 = Estratto(es - 1,rr,2)
a3 = Estratto(es - 1,rr,3)
a4 = Estratto(es - 1,rr,4)
' Estratti estrazione corrente
b1 = Estratto(es,rr,2)
b2 = Estratto(es,rr,3)
b3 = Estratto(es,rr,4)
b4 = Estratto(es,rr,5)
' Moltiplicazione in diagonale degli estratti
d1 = a1*b1
d2 = a2*b2
d3 = a3*b3
d4 = a4*b4
' Formazione dell'Ambo n° 1
If d1 < 100 Then
am1(1) = Decina(d1)
am1(2) = Cadenza(d1)
If am1(2) = 0 Then am1(2) = 90 End If
End If
If d1 > 99 And d1 < 1000 Then
am1(1) = d1\10
am1(2) = d1 Mod 10
If am1(2) = 0 Then am1(2) = 90 End If
End If
If d1 > 999 Then
am1(1) = d1\100
am1(2) = d1 Mod 100
If am1(2) = 0 Then am1(2) = 90 End If
End If
x1 = Decina(am1(1))
x2 = Decina(am1(2))
If x1 = x2 Then
dd1 = 1
Else
dd1 = 0
End If
' Formazione dell'Ambo n° 2
If d2 < 100 Then
am2(1) = Decina(d2)
am2(2) = Cadenza(d2)
If am2(2) = 0 Then am2(2) = 90 End If
End If
If d2 > 99 And d2 < 1000 Then
am2(1) = d2\10
am2(2) = d2 Mod 10
If am2(2) = 0 Then am2(2) = 90 End If
End If
If d2 > 999 Then
am2(1) = d2\100
am2(2) = d2 Mod 100
If am2(2) = 0 Then am2(2) = 90 End If
End If
x1 = Decina(am2(1))
x2 = Decina(am2(2))
If x1 = x2 Then
dd2 = 1
Else
dd2 = 0
End If
' Formazione dell'Ambo n° 3
If d3 < 100 Then
am3(1) = Decina(d3)
am3(2) = Cadenza(d3)
If am3(2) = 0 Then am3(2) = 90 End If
End If
If d3 > 99 And d3 < 1000 Then
am3(1) = d3\10
am3(2) = d3 Mod 10
If am3(2) = 0 Then am3(2) = 90 End If
End If
If d3 > 999 Then
am3(1) = d3\100
am3(2) = d3 Mod 100
If am3(2) = 0 Then am3(2) = 90 End If
End If
x1 = Decina(am3(1))
x2 = Decina(am3(2))
If x1 = x2 Then
dd3 = 1
Else
dd3 = 0
End If
' Formazione dell'Ambo n° 4
If d4 < 100 Then
am4(1) = Decina(d4)
am4(2) = Cadenza(d4)
If am4(2) = 0 Then am4(2) = 90 End If
End If
If d4 > 99 And d4 < 1000 Then
am4(1) = d4\10
am4(2) = d4 Mod 10
If am4(2) = 0 Then am4(2) = 90 End If
End If
If d4 > 999 Then
am4(1) = d4\100
am4(2) = d4 Mod 100
If am4(2) = 0 Then am4(2) = 90 End If
End If
x1 = Decina(am4(1))
x2 = Decina(am4(2))
If x1 = x2 Then
dd4 = 1
Else
dd4 = 0
End If
'*********************** INIZIO CONTROLLI REGOLE DI GIOCO **********************************
' controllo n° 1 - presenza nelle 2 estr. precedenti dei vertibili dell'ambo
c11 = 0
vam1(1) = Vert(am1(1))
vam1(2) = Vert(am1(2))
c11 = SerieFreq(es - 4,es,vam1,r,1)
c12 = 0
vam2(1) = Vert(am2(1))
vam2(2) = Vert(am2(2))
c12 = SerieFreq(es - 4,es,vam2,r,1)
c13 = 0
vam3(1) = Vert(am3(1))
vam3(2) = Vert(am3(2))
c13 = SerieFreq(es - 4,es,vam3,r,1)
c14 = 0
vam4(1) = Vert(am4(1))
vam4(2) = Vert(am4(2))
c14 = SerieFreq(es - 4,es,vam4,r,1)
'-----------------------------------------------------------------------------
' controllo n° 2 - presenza nelle 5 estr. precedenti dei due numeri dell'ambo
c21 = 0
c21 = SerieFreq(es - 7,es,am1,r,1)
c22 = 0
c22 = SerieFreq(es - 7,es,am2,r,1)
c23 = 0
c23 = SerieFreq(es - 7,es,am3,r,1)
c24 = 0
c24 = SerieFreq(es - 7,es,am3,r,1)
'-----------------------------------------------------------------------------
' controllo n° 3 - presenza nelle 25 estr. precedenti dell'ambo
c31 = 0
c31 = SerieFreq(es - 27,es,am1,r,2)
c32 = 0
c32 = SerieFreq(es - 27,es,am2,r,2)
c33 = 0
c33 = SerieFreq(es - 27,es,am3,r,2)
c34 = 0
c34 = SerieFreq(es - 27,es,am4,r,2)
'-----------------------------------------------------------------------------
' controllo n° 4 - ritardo dei 2 numeri dell'ambo non superiore a 30 estrazioni
c41 = 0
c41 = SerieRitardo(es - 200,es,am1,r,1)
c42 = 0
c42 = SerieRitardo(es - 200,es,am2,r,1)
c43 = 0
c43 = SerieRitardo(es - 200,es,am3,r,1)
c44 = 0
c44 = SerieRitardo(es - 200,es,am4,r,1)
'-----------------------------------------------------------------------------
' controllo n° 5 - presenza dell'ambo dei vertibili nelle 12 estrazioni precedenti
c51 = 0
c51 = SerieFreq(es - 14,es,vam1,r,2)
c52 = 0
c52 = SerieFreq(es - 14,es,vam2,r,2)
c53 = 0
c53 = SerieFreq(es - 14,es,vam3,r,2)
c54 = 0
c54 = SerieFreq(es - 14,es,vam4,r,2)
'********** ESAME DEI CONTROLLI E FORMAZIONE DELLE GIOCATE ***********************
' AMBO 1
If c11 = 0 And c21 = 0 And c31 = 0 And c41 < 32 And c51 = 0 And dd1 = 0 Then
'Formazione dei numeri da mettere in gioco
y = Decina(am1(1))
If y = 9 Then y = 0 End If
For i = 1 To 10
n1(i) =(y*10) + i
Next
j = Decina(am1(2))
If j = 9 Then j = 0 End If
For i = 1 To 10
n1(10 + i) =(j*10) + i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr) & " " & DataEstrazione(es - 1) & "-" & DataEstrazione(es) & " " & StringaNumeri(am1) & " " & _
StringaNumeri(am2) & " " & StringaNumeri(am3) & " " & StringaNumeri(am4) & " Ambo 1 " & StringaNumeri(am1),1
Scrivi " Numeri in gioco " & StringaNumeri(n1)
nu1(1) = n1(1)
nu1(2) = n1(2)
nu1(3) = n1(3)
nu1(4) = n1(4)
nu1(5) = n1(5)
nu1(6) = n1(6)
nu1(7) = n1(7)
nu1(8) = n1(8)
nu1(9) = n1(9)
nu1(10) = n1(10)
ImpostaGiocata 1,nu1,r,posta,clp,4
nu1(1) = n1(11)
nu1(2) = n1(12)
nu1(3) = n1(13)
nu1(4) = n1(14)
nu1(5) = n1(15)
nu1(6) = n1(16)
nu1(7) = n1(17)
nu1(8) = n1(18)
nu1(9) = n1(19)
nu1(10) = n1(20)
ImpostaGiocata 2,nu1,r,posta,clp,4
nu1(1) = n1(1)
nu1(2) = n1(2)
nu1(3) = n1(3)
nu1(4) = n1(4)
nu1(5) = n1(5)
nu1(6) = n1(11)
nu1(7) = n1(12)
nu1(8) = n1(13)
nu1(9) = n1(14)
nu1(10) = n1(15)
ImpostaGiocata 3,nu1,r,posta,clp,4
nu1(1) = n1(1)
nu1(2) = n1(2)
nu1(3) = n1(3)
nu1(4) = n1(4)
nu1(5) = n1(5)
nu1(6) = n1(16)
nu1(7) = n1(17)
nu1(8) = n1(18)
nu1(9) = n1(19)
nu1(10) = n1(20)
ImpostaGiocata 4,nu1,r,posta,clp,4
nu1(1) = n1(6)
nu1(2) = n1(7)
nu1(3) = n1(8)
nu1(4) = n1(9)
nu1(5) = n1(10)
nu1(6) = n1(11)
nu1(7) = n1(12)
nu1(8) = n1(13)
nu1(9) = n1(14)
nu1(10) = n1(15)
ImpostaGiocata 5,nu1,r,posta,clp,4
nu1(1) = n1(6)
nu1(2) = n1(7)
nu1(3) = n1(8)
nu1(4) = n1(9)
nu1(5) = n1(10)
nu1(6) = n1(16)
nu1(7) = n1(17)
nu1(8) = n1(18)
nu1(9) = n1(19)
nu1(10) = n1(20)
ImpostaGiocata 6,nu1,r,posta,clp,4
Gioca es
End If
' AMBO 2
If c12 = 0 And c22 = 0 And c32 = 0 And c42 < 32 And c52 = 0 And dd2 = 0 Then
'Formazione dei numeri da mettere in gioco
y = Decina(am2(1))
If y = 9 Then y = 0 End If
For i = 1 To 10
n2(i) =(y*10) + i
Next
j = Decina(am2(2))
If j = 9 Then j = 0 End If
For i = 1 To 10
n2(10 + i) =(j*10) + i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr) & " " & DataEstrazione(es - 1) & "-" & DataEstrazione(es) & " " & StringaNumeri(am1) & " " & _
StringaNumeri(am2) & " " & StringaNumeri(am3) & " " & StringaNumeri(am4) & " Ambo 2 " & StringaNumeri(am2),1
Scrivi " Numeri in gioco " & StringaNumeri(n2)
nu2(1) = n2(1)
nu2(2) = n2(2)
nu2(3) = n2(3)
nu2(4) = n2(4)
nu2(5) = n2(5)
nu2(6) = n2(6)
nu2(7) = n2(7)
nu2(8) = n2(8)
nu2(9) = n2(9)
nu2(10) = n2(10)
ImpostaGiocata 7,nu2,r,posta,clp,4
nu2(1) = n2(11)
nu2(2) = n2(12)
nu2(3) = n2(13)
nu2(4) = n2(14)
nu2(5) = n2(15)
nu2(6) = n2(16)
nu2(7) = n2(17)
nu2(8) = n2(18)
nu2(9) = n2(19)
nu2(10) = n2(20)
ImpostaGiocata 8,nu2,r,posta,clp,4
nu2(1) = n2(1)
nu2(2) = n2(2)
nu2(3) = n2(3)
nu2(4) = n2(4)
nu2(5) = n2(5)
nu2(6) = n2(11)
nu2(7) = n2(12)
nu2(8) = n2(13)
nu2(9) = n2(14)
nu2(10) = n2(15)
ImpostaGiocata 9,nu2,r,posta,clp,4
nu2(1) = n2(1)
nu2(2) = n2(2)
nu2(3) = n2(3)
nu2(4) = n2(4)
nu2(5) = n2(5)
nu2(6) = n2(16)
nu2(7) = n2(17)
nu2(8) = n2(18)
nu2(9) = n2(19)
nu2(10) = n2(20)
ImpostaGiocata 10,nu2,r,posta,clp,4
nu2(1) = n2(6)
nu2(2) = n2(7)
nu2(3) = n2(8)
nu2(4) = n2(9)
nu2(5) = n2(10)
nu2(6) = n2(11)
nu2(7) = n2(12)
nu2(8) = n2(13)
nu2(9) = n2(14)
nu2(10) = n2(15)
ImpostaGiocata 11,nu2,r,posta,clp,4
nu2(1) = n2(6)
nu2(2) = n2(7)
nu2(3) = n2(8)
nu2(4) = n2(9)
nu2(5) = n2(10)
nu2(6) = n2(16)
nu2(7) = n2(17)
nu2(8) = n2(18)
nu2(9) = n2(19)
nu2(10) = n2(20)
ImpostaGiocata 12,nu2,r,posta,clp,4
Gioca es
End If
' AMBO 3
If c13 = 0 And c23 = 0 And c33 = 0 And c43 < 32 And c53 = 0 And dd3 = 0 Then
'Formazione dei numeri da mettere in gioco
y = Decina(am3(1))
If y = 9 Then y = 0 End If
For i = 1 To 10
n3(i) =(y*10) + i
Next
j = Decina(am3(2))
If j = 9 Then j = 0 End If
For i = 1 To 10
n3(10 + i) =(j*10) + i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr) & " " & DataEstrazione(es - 1) & "-" & DataEstrazione(es) & " " & StringaNumeri(am1) & " " & _
StringaNumeri(am2) & " " & StringaNumeri(am3) & " " & StringaNumeri(am4) & " Ambo 3 " & StringaNumeri(am3),1
Scrivi " Numeri in gioco " & StringaNumeri(n3)
nu3(1) = n3(1)
nu3(2) = n3(2)
nu3(3) = n3(3)
nu3(4) = n3(4)
nu3(5) = n3(5)
nu3(6) = n3(6)
nu3(7) = n3(7)
nu3(8) = n3(8)
nu3(9) = n3(9)
nu3(10) = n3(10)
ImpostaGiocata 13,nu3,r,posta,clp,4
nu3(1) = n3(11)
nu3(2) = n3(12)
nu3(3) = n3(13)
nu3(4) = n3(14)
nu3(5) = n3(15)
nu3(6) = n3(16)
nu3(7) = n3(17)
nu3(8) = n3(18)
nu3(9) = n3(19)
nu3(10) = n3(20)
ImpostaGiocata 14,nu3,r,posta,clp,4
nu3(1) = n3(1)
nu3(2) = n3(2)
nu3(3) = n3(3)
nu3(4) = n3(4)
nu3(5) = n3(5)
nu3(6) = n3(11)
nu3(7) = n3(12)
nu3(8) = n3(13)
nu3(9) = n3(14)
nu3(10) = n3(15)
ImpostaGiocata 15,nu3,r,posta,clp,4
nu3(1) = n3(1)
nu3(2) = n3(2)
nu3(3) = n3(3)
nu3(4) = n3(4)
nu3(5) = n3(5)
nu3(6) = n3(16)
nu3(7) = n3(17)
nu3(8) = n3(18)
nu3(9) = n3(19)
nu3(10) = n3(20)
ImpostaGiocata 16,nu3,r,posta,clp,4
nu3(1) = n3(6)
nu3(2) = n3(7)
nu3(3) = n3(8)
nu3(4) = n3(9)
nu3(5) = n3(10)
nu3(6) = n3(11)
nu3(7) = n3(12)
nu3(8) = n3(13)
nu3(9) = n3(14)
nu3(10) = n3(15)
ImpostaGiocata 17,nu3,r,posta,clp,4
nu3(1) = n3(6)
nu3(2) = n3(7)
nu3(3) = n3(8)
nu3(4) = n3(9)
nu3(5) = n3(10)
nu3(6) = n3(16)
nu3(7) = n3(17)
nu3(8) = n3(18)
nu3(9) = n3(19)
nu3(10) = n3(20)
ImpostaGiocata 18,nu3,r,posta,clp,4
Gioca es
End If
' AMBO 4
If c14 = 0 And c24 = 0 And c34 = 0 And c44 < 32 And c54 = 0 And dd4 = 0 Then
'Formazione dei numeri da mettere in gioco
y = Decina(am4(1))
If y = 9 Then y = 0 End If
For i = 1 To 10
n4(i) =(y*10) + i
Next
j = Decina(am4(2))
If j = 9 Then j = 0 End If
For i = 1 To 10
n4(10 + i) =(j*10) + i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr) & " " & DataEstrazione(es - 1) & "-" & DataEstrazione(es) & " " & StringaNumeri(am1) & " " & _
StringaNumeri(am2) & " " & StringaNumeri(am3) & " " & StringaNumeri(am4) & " Ambo 4 " & StringaNumeri(am4),1
Scrivi " Numeri in gioco " & StringaNumeri(n4)
nu4(1) = n4(1)
nu4(2) = n4(2)
nu4(3) = n4(3)
nu4(4) = n4(4)
nu4(5) = n4(5)
nu4(6) = n4(6)
nu4(7) = n4(7)
nu4(8) = n4(8)
nu4(9) = n4(9)
nu4(10) = n4(10)
ImpostaGiocata 19,nu4,r,posta,clp,4
nu4(1) = n4(11)
nu4(2) = n4(12)
nu4(3) = n4(13)
nu4(4) = n4(14)
nu4(5) = n4(15)
nu4(6) = n4(16)
nu4(7) = n4(17)
nu4(8) = n4(18)
nu4(9) = n4(19)
nu4(10) = n4(20)
ImpostaGiocata 20,nu4,r,posta,clp,4
nu4(1) = n4(1)
nu4(2) = n4(2)
nu4(3) = n4(3)
nu4(4) = n4(4)
nu4(5) = n4(5)
nu4(6) = n4(11)
nu4(7) = n4(12)
nu4(8) = n4(13)
nu4(9) = n4(14)
nu4(10) = n4(15)
ImpostaGiocata 21,nu4,r,posta,clp,4
nu4(1) = n4(1)
nu4(2) = n4(2)
nu4(3) = n4(3)
nu4(4) = n4(4)
nu4(5) = n4(5)
nu4(6) = n4(16)
nu4(7) = n4(17)
nu4(8) = n4(18)
nu4(9) = n4(19)
nu4(10) = n4(20)
ImpostaGiocata 22,nu4,r,posta,clp,4
nu4(1) = n4(6)
nu4(2) = n4(7)
nu4(3) = n4(8)
nu4(4) = n4(9)
nu4(5) = n4(10)
nu4(6) = n4(11)
nu4(7) = n4(12)
nu4(8) = n4(13)
nu4(9) = n4(14)
nu4(10) = n4(15)
ImpostaGiocata 23,nu4,r,posta,clp,4
nu4(1) = n4(6)
nu4(2) = n4(7)
nu4(3) = n4(8)
nu4(4) = n4(9)
nu4(5) = n4(10)
nu4(6) = n4(16)
nu4(7) = n4(17)
nu4(8) = n4(18)
nu4(9) = n4(19)
nu4(10) = n4(20)
ImpostaGiocata 24,nu4,r,posta,clp,4
Gioca es
End If
Next
ScriviResoconto
End Sub