Aiuto a luigib o chi se la sente x script settenaria

[nicotina]

CHIEDO AIUTO PER UN SCRIPT SULLA SETTENARIA DA UN METODO CHE MI HA DATO DIVERSE VINCITE, IO MODESTAMENTE NON VI CAPISCO NULLA AD ELABORARE SCRIPT PER TANTO CHIEDO AD ESPERTI UN 'AIUTO, RINGRAZIO DI CUORE, CHI SI METTE A DISPOSIZIONE.
TESTO DEL METODO SE QUALCOSA NON E' CHIARO CHIEDETE.

Rintracciare in una ruota un ambo SOMMA 91 e in un'altra uno dei due numeri dell'ambo.
Fare la differenza (non quella ciclometrica). Il numero trovato ci servirà come ambata per gli abbinamenti servirsi della TAVOLA SETTENARIA che ho postato sopra. Quindi ad ogni ambata corrispondono 4 abbinamenti.
alcuni recenti esempi pratici:
23/5 firenze torino 29-62-62
62-29= 33 estratto al 33 corrispondono i numeri: 51-69-22-58 che utilizzeremo come abbinamenti.
Esito: 11/6 firenze ambo secco 33-51
9/5 cagliari torino 60-31-31
60-31= 29 abbin 23-17-74-62
esito: 16/5 torino ambo secco 29-74
21/5 bari roma milano 83-8-8
83-8=75 abbin 56-14-41-89
esito: 13/6 milano 14-89 ambo nei numeri di abbinamento
Fare la retrovisione di 13 estrazioni nel caso in cui sia presente un ambo non giocare.
Le ruote di calcolo della previsione sono dove si trova l'ambo con somma 91 e il numero corrispondente, si segue per 12 colpi si interrompe al primo esito.
A presto Nicotina

SVILUPPO COMPLETO TAVOLA SETTENARIA per il GIOCO DEL LOTTO

1= 7, 13, 78, 90
2= 14, 26, 65, 89
3= 21, 39, 52, 88
4= 28, 52, 39, 87
5= 35, 65, 26, 86
6= 42, 78, 13, 85
7= 49, 1, 90, 84
8= 56, 14, 77, 83
9= 63, 27, 64, 82
10= 70, 40, 51, 81
11= 77, 53, 38, 80
12= 84, 66, 25, 79
13= 1, 79, 12, 78
14= 8, 2, 89, 77
15= 15, 15, 76, 76
16= 22, 28, 63, 75
17= 29, 41, 50, 74
18= 36, 54, 37, 73
19= 43, 67, 24, 72
20= 50, 80, 11, 71
21= 57, 3, 88, 70
22= 64, 16, 75, 69
23= 71, 29, 62, 68
24= 78, 42, 49, 67
25= 85, 55, 36, 66
26= 2, 68, 23, 65
27= 9, 81, 10, 64
28= 16, 4, 87, 63
29= 23, 17, 74, 62
30= 30, 30, 61, 61
31= 37, 43, 48, 60
32= 44, 56, 35, 59
33= 51, 69, 22, 58
34= 58, 82, 9, 57
35= 65, 5, 86, 56
36= 72, 18, 73, 55
37= 79, 31, 60, 54
38= 86, 44, 47, 53
39= 3, 57, 34, 52
40= 10, 70, 21, 51
41= 17, 83, 8, 50
42= 24, 6, 85, 49
43= 31, 19, 72, 48
44= 38, 32, 59, 47
45= 45, 45, 46, 46
46= 52, 58, 33, 45
47= 59, 71, 20, 44
48= 66, 84, 7, 43
49= 73, 7, 84, 42
50= 80, 20, 71, 41
51= 87, 33, 58, 40
52= 4, 46, 45, 39
53= 11, 59, 32, 38
54= 18, 72, 19, 37
55= 25, 85, 6, 36
56= 32, 8, 83, 35
57= 39, 21, 70, 34
58= 46, 34, 57, 33
59= 53, 47, 44, 32
60= 60, 60, 31, 31
61= 67, 73, 18, 30
62= 74, 86, 5, 29
63= 81, 9, 82, 28
64= 88, 22, 69, 27
65= 5, 35, 56, 26
66= 12, 48, 43, 25
67= 19, 61, 30, 24
68= 26, 74, 17, 23
69= 33, 87, 4, 22
70= 40, 10, 81, 21
71= 47, 23, 68, 20
72= 54, 36, 55, 19
73= 61, 49, 42, 18
74= 68, 62, 29, 17
75= 75, 75, 16, 16
76= 82, 88, 3, 15
77= 89, 11, 80, 14
78= 6, 24, 67, 13
79= 13, 37, 54, 12
80= 20, 50, 41, 11
81= 27, 63, 28, 10
82= 34, 76, 15, 9
83= 41, 89, 2, 8
84= 48, 12, 79, 7
85= 55, 25, 66, 6
86= 62, 38, 53, 5
87= 69, 51, 40, 4
88= 76, 64, 27, 3
89= 83, 77, 14, 2
90= 90, 90, 1, 1

 

[Mike58]

Ciao Nicotina, è stato già fatto con l'amico schirò uno script del genere anche se diversa nella condizione di ricerca.
Questa è possibile farlo tranquillamente, però io chiederei prima di proporre un tavola capire come vengono ricavati i numeri della tavola.
Per esempio io che non sono un intenditore il 1° numero è dato dal numero * 7
il 2° numero dal numero * 13
qual'è il moltiplicatore per 3 e 4 numero, ti dico questo se si trova la chiave e tutto + facile altrimenti come fatto con l'amico schirò bisogna inserire righe e righe di IF THEN-

 

[xabio]

Ciao Nicotina, è stato già fatto con l'amico schirò uno script del genere anche se diversa nella condizione di ricerca.
Questa è possibile farlo tranquillamente, però io chiederei prima di proporre un tavola capire come vengono ricavati i numeri della tavola.
Per esempio io che non sono un intenditore il 1° numero è dato dal numero * 7
il 2° numero dal numero * 13
qual'è il moltiplicatore per 3 e 4 numero, ti dico questo se si trova la chiave e tutto + facile altrimenti come fatto con l'amico schirò bisogna inserire righe e righe di IF THEN-

Ciao Mike58 prova a guardare le colonne in verticale mi sembrano a passo costante 7,13,13,1.

 

[Ouroboros]

Ciao a tutti....e senza scatenare le "ire" dei "maestri" come capitato l'altra volta per lo script di Schiro' svelo "l' arcano:

1= 7, 13, 78, 90
2= 14, 26, 65, 89
.
.
.
.
7= 1^ elemento (1) per 7 - per la secoda riga 2 x 7 = 14
13= 1^ elemento (1) per 13 - per la secoda riga 2 x 13 = 26
78= 91 (numero fisso) - il valore precedente (13) - per la seconda riga 91-26=65
90=91 (numero fisso) - il valore di riferimento (1 per la prima riga) - per la seconda riga 91-2=89

Spero di essere stato comprensibile nell' esposizione.

Buon lavoro.

 

[Joe91]

Esatto !

Chi ha studiato la settenaria la può riassumere in un piaio di equazioni.

 

[Mike58]

Ciao a tutti e grazie per aver accolto l'invito, quando si dice collaborazione ecco il significato.

Nicotina sarà felice di questo.

ecco lo script veloce elaborato in cinquina x ambo .... per mancanza di tempo.

Sub Main()
    Dim rt(2),nu(5),ptt(3)
    ptt(2) = 1 : ptt(3) = 0.5
    clp = 12
    ini = EstrazioneFin - 100
    fin = EstrazioneFin
    co = 0
    Scrivi "Metodo della Tavola Settenaria **** Richiesta by nicotina ***** Forum Lottoced **** By Amici del Forum ***** ",1,- 1,3
    For es = ini To fin
        Messaggio es
        Call AvanzamentoElab(Ini,fin,es)
        For r = 1 To 10
            rt(1) = r
            For p = 1 To 4
                For pp = p + 1 To 5
                    a = Estratto(es,r,p) : b = Estratto(es,r,pp)
                    For rr = r + 1 To 12
                        If rr = 11 Then rr = 12
                        rt(2) = rr
                        For q = 1 To 5
                            c = Estratto(es,rr,q)
                            som1 =(a + b)
                            ss1 = FuoriX(som1,91)
                            If ss1 = 91 Then
                                If c = a Or c = b Then
                                    co = co + 1
                                    Scrivi String(100,"=") & " Caso n°" & co
                                    ColoreTesto 1
                                    Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ambo " & a & "-" & b & " - somma " & ss1,1
                                    Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Numero uguale....  " & c,1
                                    ColoreTesto 0
                                    Scrivi String(110,"=")
                                    ' ------------ calcolo numeri--------------------------
                                    aa = Differenza(a,b)
                                    nu(1) = aa
                                    nu(2) = Fuori90(aa*7)
                                    nu(3) = Fuori90(aa*13)
                                    nu(4) =(91 - nu(3))
                                    nu(5) =(91 - aa)
                                    ImpostaGiocata 1,nu,rt,ptt,clp,2
                                    Gioca es
                                End If
                            End If
                        Next
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub

 

[nicotina]

Salve a Tutti, ringrazio per la collaborazione di TUTTI in Particolar modo MIKE58 per il lavoro FANTASTICO svolto molto bene come da me descritto sono veramente soddisfatto GRAZIE.
Il sistema non è il massimo ma si potrebbe aggiungere qualcosa, per Esempio quando si casca nelle caselle con ripetizione multipla ed i numeretti da giocare sono 2, si può giocare anche per ambata, così facendo si potrebbe riprendere qualche soldino in più per le nostre tasche, questo esempio non è da programmare ma da valutare al momento che viene elaborata la previsione dallo script.
Di nuovo un GRAZIE di CUORE a Tutti Voi, siete meravigliosi, dei fantastici compagni di svago per riuscire a battere GOLIA.
Ciao al prossimo metodo Nicotina

 

[xabio]

Anch'io volevo provar a fare questo script ho preso in considerazione solo le 10 ruote e con il terzo numero in r2 isotopo.
Gioco solo per 4 colpi ambo terno in cinquina mi sembra che l'ambata non renda a occhio ultimamente.

'Rintracciare in una ruota un ambo SOMMA 91 e in un'altra uno dei due numeri dell'ambo.
'Fare la Differenza (non quella ciclometrica).
'Il numero trovato ci servirà come ambata per gli abbinamenti servirsi della TAVOLA SETTENARIA che ho postato sopra.
'Quindi ad ogni ambata corrispondono 4 abbinamenti. Alcuni recenti esempi pratici:
'23/5 firenze torino 29-62-62
'62-29= 33 Estratto al 33 corrispondono i numeri: 51-69-22-58 che utilizzeremo come abbinamenti.
'Esito: 11/6 firenze ambo secco 33-51
'9/5 cagliari torino 60-31-31
'60-31= 29 abbin 23-17-74-62
'esito: 16/5 torino ambo secco 29-74
'21/5 bari roma milano 83-8-8
'83-8=75 abbin 56-14-41-89
'esito: 13/6 milano 14-89 ambo nei numeri di abbinamento
'Fare la retrovisione di 13 estrazioni nel caso In cui sia presente un ambo non giocare.
'Le ruote di calcolo della previsione sono dove si trova l'ambo con somma 91 e il numero corrispondente,
'si segue per 12 colpi si interrompe al primo esito.

Sub Main
Dim est,ini,fin,p1,p2,n1,n2,r1,r2,a1,a2,a3,a4,a5,rr
Dim a(90),b(90),c(90),d(90)
Dim ruote(2)
Dim numeri(5)
Dim poste(3)

ini = EstrazioneFin - 100'  SCEGLIERE RANGE ESTRAZIONI  ADESSO SONO SELEZIONATE LE ULTIME 100 ESTRAZIONI
fin = EstrazioneFin - 0
For est = ini To fin
For r1 = 1 To 10
For p1 = 1 To 5
For p2 = p1 + 1 To 5
n1 = Estratto(est,r1,p1)
n2 = Estratto(est,r1,p2)
If n1 + n2 = 91 Then
a1 = Abs(n1 - n2)
For r2 = 1 To 10
If r2 <> r1 Then
If Posizione(est,r2,n1) = p1 Or Posizione(est,r2,n2) = p2 Then

e1 = 7
e2 = 13
e3 = 78
e4 = 90

For s = 1 To a1
a(s) = Fuori90(e1)
b(s) = Fuori90(e2)
c(s) = Fuori90(e3)
d(s) = Fuori90(e4)

a2 = a(s):a3 = b(s):a4 = c(s):a5 = d(s)

e1 = e1 + 7
e2 = e2 + 13
e3 = e3 - 13
If e3 = 0 Then e3 = 90
e4 = e4 - 1
If e4 = 0 Then e4 = 90
Next
ruote(1) = r1:ruote(2) = r2:numeri(1) = a1:numeri(2) = a2:numeri(3) = a3:numeri(4) = a4:numeri(5) = a5:poste(2) = 1:poste(3) = 1
rr = RitardoCombinazione(ruote,numeri,2,est)
If rr > 13 Then
'Scrivi DataEstrazione(est) & "--" & SiglaRuota(r1) & "--" & SiglaRuota(r2) & "-ambata-" & Format2(a1) & "-Abbinamenti--" & Format2(a2) & "--" & Format2(a3) & "--" & Format2(a4) & "--" & Format2(a5)
ImpostaGiocata 1,numeri,ruote,poste,4,3
Gioca est
End If
End If
End If
Next
End If
Next
Next
Next    
Next
ScriviResoconto

End Sub

Ciao

 

[nicotina]

Ciao xfabio,Il sistema non è il massimo ma si potrebbe aggiungere qualcosa, per Esempio quando si casca con la conta della tavola settenaria nelle caselle con ripetizione multipla ed i numeretti da giocare sono 2, si può giocare anche per ambata, così facendo si potrebbe riprendere qualche soldino in più per le nostre tasche, questo esempio non è da programmare ma da valutare al momento che viene elaborata la previsione dallo script.

Non ho detto di giocare l'ambata sempre, ma solo in alcuni casi, quando i numeretti estrapolati per la previsione sono due e solo in questo caso si può mirare a l'ambata.
Comunque grazie Nicotina

 

[mastrogino]

ciao nicotina e tutti i partecipanti ......

bel metodo e riconosco l'impegno dell'amico nicotina
ho potutto collaudare il metodo e ho trovato una chicca .............attenzione in primibis non tolgo
nulla anzi cerco di dare fare battaglia alla bestia

ora vi espongo la mia scoperta .......

se prendimo la somma dei 5 numeri ottenuti dal calcolo

questo in rosso


28.08.2012 PA 29.53.22.13.69 Ambo 22-69 - somma 91
28.08.2012 NZ 56.22.15.31.05 Numero uguale.... 22
==============================================================================================================
Estrazione generatrice del pronostico 08579 [103 - 28/08/2012]
G 0001
Numeri in gioco : 47.59.71.20.44 su PA NZ per Ambo,Terno

otteniamo un numero giocabbile fuori 90 che insieme al numero uguale
si ottiene un'ambata e un ambo da giocare sulle ruote sudette e tt
al massimo si puo inserire il vertibbile del numero uguale
ho riscontrato delle belle sodisfazzioni

chiedo la partecipazioen per cercare di fare il listato
agli amici

 

[nicotina]

Saleve a tutti voi del forum
sono molto onorato solo della presenza del signor Gioacchino Scirò, figuriamoci quando poi esprime i suoi elogi, Grazie di cuore Schirò.
A quando l'iscrizione !!! Sai ho voglia di imparare altre soluzioni sulla settenaria e Tu sei un GRANDE Maestro.
A risentirci Nicotina

 

[Joe91]

Esatto !

Chi ha studiato la settenaria la può riassumere in un piaio di equazioni.

Dicevo :

'Settenaria By Joe
Sub Main
 For Sp = 1 To 10
  Spazio = Spazio & "+------"
 Next : SPazio = Spazio & "+"
 Scrivi Spazio
 Riga1 = "|" : Riga2 = "|" : Riga3 = "|"
 For C = 1 To 90
  A = Fuori90(C * 13)
  B = 91 - A
  D = Fuori90(C * 7)
  E = 91 - C
  Riga1 = Riga1 & Format2(A) & "  " & Format2(B) & "|"
  Riga2 = Riga2 & "  " & Format2(C) & "  |"
  Riga3 = Riga3 & Format2(D) & "  " & Format2(E) & "|"
  If Int(C /10) = C/10 Then
   Scrivi Riga1 : Scrivi Riga2 : Scrivi Riga3 : Scrivi Spazio
   Riga1 = "|" : Riga2 = "|" : Riga3 = "|"
  End If
 Next
End Sub

Buona Pasqua a Tutte/i.

 

[nicotina]

salve Grazie Joe91
per lo script della Tavola Settenaria, OTTIMO lavoro Complimenti.
A presto Nicotina