Ambi non reciproci - piccolo pensiero natalizio, per veri intenditori

Cinzia27

Posted on 24/12/2018, 23:39

Ciao a tutti. Questi ambi hanno la seguente particolarità: la decina del 2° numero è pari al doppio della cadenza del primo
e la cadenza del secondo numero è pari al doppio della decina del primo.
Nel contempo Il secondo numero è il vertibile del doppio del primo.
Li ho chiamati non reciproci perché il "travaso" di valore è unilaterale.

SPOILER (clicca per visualizzare)

'Ambi (Cinzia)
Sub main()
Dim n(2),ru(1)
r=11
ru(1)=r
For i=1 To 89
For j=i+1 To 90
If Cadenza(j)=Decina(i)*2 Then
If Decina (j)=Cadenza(i)*2 Then
n(1)=i
n(2)=j
at=SerieRitardo(1,EstrazioneFin,n,ru,2)
Scrivi StringaNumeri(n)&" at "&formatspace(at,4,1)
End If
End If
Next
Next
End Sub

Tanti auguri di buon Natale a tutti.
Cinzia

Genal

Posted on 25/12/2018, 07:23

Top Member

Group:: Member

Posts:: 4,536

Status:

Grazie Cinzia, Buon Natale anche a te e a Tutti.

Li ho già inseriti in Tabella Utenti di Lottodesk

Genal

New Mat

Posted on 25/12/2018, 09:31

Top Member

Group:: Member

Posts:: 3,910

Status:

Ho seguito anch'io il vostro esempio, grazie e tanti auguri anche a voi, ciao

Matteo

Cinzia27

Posted on 25/12/2018, 09:38

Ottimo, Genal e Matteo; per agevolare chi voglia fare altrettanto, posto questo script
di semplice scrittura. Seguendo le note si può avere :
la colonna verticale da inserire in tabella utente
oppure
la riga orizzontale pronta per essere esaminata in statistica ricerca archivi.

SPOILER (clicca per visualizzare)

'Scrittura verticale o orizzontale ambi non reciproci (Cinzia)
Sub main()
Dim n(2)
For i=1 To 89
For j=i+1 To 90
If Cadenza(j)=Decina(i)*2 Then
If Decina (j)=Cadenza(i)*2 Then
n(1)=i
n(2)=j
'Scrivi StringaNumeri(n)' mettere apice qui e toglierlo sotto se si vuole visualizzare la riga
c=c+1
Scrivi StringaNumeri(n)&"",0,0 ' mettere apice qui e nella riga sottostante e toglierlo sopra se si vuole visualizzare la colonna
If c<18 Then Scrivi ";",0,0 Else scrivi
End If
End If
Next
next
End Sub

Cinzia

Cinzia27

Posted on 25/12/2018, 11:17

Questo listato esamina il comportamento di questi 18 ambi nel tempo.

SPOILER (clicca per visualizzare)

'Ambi reciproci (Cinzia)
Sub main()
Dim n(2),ru(1)
q=18:q1=15:q2=10
r=11
ru(1)=r
For es=1 To EstrazioneFin
qua=0
cc=0
c=c+1
For i=1 To 89
For j=i+1 To 90
If Cadenza(j)=Decina(i)*2 Then
If Decina (j)=Cadenza(i)*2 Then
n(1)=i
n(2)=j
fr=SerieFreq(es,es,n,ru,2)
If fr>0 Then
qua=qua+1
co=co+1
If co>max Then at=EstrazioneFin-es
cc=cc+1
If c>mx Then mx=c
If c>q Then cont=cont+1
If c>q1 Then cont1=cont1+1
If c>q2 Then cont2=cont2+1
ce=ce+1
If cc=1 Then Scrivi " "&FormatSpace(ce,4,1)&" Es "&FormatSpace(es,4,1)&" colpi "&formatspace(c,4,1)&" --> ",0,0
If cc>0 Then Scrivi StringaNumeri(n)&" ",0,0

c=0
End If
End If
End If

Next
Next
If qua>0 Then Scrivi " Presenze "& qua:scrivi

Next
Scrivi " ATTUALE "&at
Scrivi " MASSIMO STO "&mx
Scrivi " St> "&q&" "&cont
Scrivi " St> "&q1&" "&cont1
Scrivi " St> "&q2&" "&cont2

End Sub

Buon Natale a tutti.
Cinzia

Salvatore Di Guida11

Posted on 26/12/2018, 08:00

ciao Cinzia27,

avendo molto apprezzato il gruppo di 18 ambi che hai proposto in questo thread,
volevo sottoporre alla tua attenzione (e a quella degli altri appassionati del Forum)
l’opportunità o meno dell’aggiunta di due coppie e precisamente 31.26 e 41.28
in modo da permettere una ulteriore e perfetta suddivisione dei 20 ambi
nei seguenti 5 gruppi omogenei

1° Gruppo
01.20
02.40
03.60
04.80

2° Gruppo
11.22
12.42
13.62
14.82

3° Gruppo
21.24
22.44
23.64
24.84

4° Gruppo
31.26
32.46
33.66
34.86

5° Gruppo
41.28
42.48
43.68
44.88

nonché l’ulteriore eventuale aggiunta dell'ulteriore gruppo

6° Gruppo
10.02
20.04
30.06
40.08
i cui elementi (cosi come le due coppie 31.26 e 41.28) rispettano comunque la doppia caratteristica che hai ben descritto nel post iniziale.
Se non condividi questi miei suggerimenti, dimmelo senza alcuna remora!

Salvatore

Cinzia27

Posted on 26/12/2018, 16:41

Ciao, Salvatore. Ti ringrazio sono ottimi suggerimenti.
Io direi di togliere tutti gli ambi con gli zerati miei e tuoi e di aggiungere
i 2 ambi da te segnalati 31.26 41.28
Questo perché gli ambi con gli zerati non osservano interamente la condizione somma.
Pertanto avremo
11.22;12.42;13.62;14.82;21.24;22.44;23.64;24.84;32.46;33.66;34.86;42.48;43.68;44.88;31.26;41.28
con uno storico di 22
Mi farebbe piacere continuare il discorso su questi ambi.
Buon Santo Stefano a tutti.
Cinzia

Cinzia27

Posted on 26/12/2018, 16:58

Ecco gli ambi ottenuti con una piccola modifica dello script, così come proposti da Salvatore.
Nel post precedente ho dato una mia opinione, ma non ho nulla in contrario a cambiarla.

01.20
02.10
02.40
03.60
04.20
04.80
06.30
08.40
11.22
12.42
13.62
14.82
21.24
22.44
23.64
24.84
26.31
28.41
32.46
33.66
34.86
42.48
43.68
44.88

SPOILER (clicca per visualizzare)

'24 ambi non reciproci proposti da Salvatore Di Guida11 -Scrittura verticale o orizzontale (Cinzia)
Sub main()
Dim n(2)
For i=1 To 89
For j=i+1 To 90
If ( Cadenza(j)=Decina(i)*2 And Decina (j)=Cadenza(i)*2) Or ( Cadenza(i)=Decina(j)*2 And Decina (i)=Cadenza(j)*2)Then

n(1)=i
n(2)=j
Scrivi StringaNumeri(n)' mettere apice qui e toglierlo sotto se si vuole visualizzare la riga
c=c+1
'Scrivi StringaNumeri(n)&"",0,0 ' mettere apice qui e nella riga sottostante e toglierlo sopra se si vuole visualizzare la colonna
'If c<24 Then Scrivi ";",0,0 Else Scrivi
End If

Next
Next
End Sub

Salvatore Di Guida11

Posted on 26/12/2018, 17:19

ciao Cinzia27,

per me va bene ma sentiamo anche i... "grossi calibri"!

Salvatore

Cinzia27

Posted on 26/12/2018, 17:56

Si, attendiamo il parere di altri grandi esperti.
Posto anche l' altra versione del conteggio ambi.

SPOILER (clicca per visualizzare)

'Scrittura verticale o orizzontale 16 ambi non reciproci (Cinzia)
Sub main()
Dim n(2)
For i=1 To 89
For j=i+1 To 90
If Decina(i)<>0 Then
If Decina(j)<>0 Then
If ( Cadenza(j)=Decina(i)+ Decina(i) And Decina (j)=Cadenza(i)+Cadenza(i)) Or ( Cadenza(i)=Decina(j)+Decina(j) And Decina (i)=Cadenza(j)+Cadenza(j))Then

n(1)=i
n(2)=j
Scrivi StringaNumeri(n)' mettere apice qui e toglierlo sotto se si vuole visualizzare la riga
c=c+1
'Scrivi StringaNumeri(n)&"",0,0 ' mettere apice qui e nella riga sottostante e toglierlo sopra se si vuole visualizzare la colonna
'If c<24 Then Scrivi ";",0,0 Else Scrivi
End If
End If
End If
Next
Next
End Sub

New Mat

Posted on 26/12/2018, 23:57

Top Member

Group:: Member

Posts:: 3,910

Status:

Cara Cinzia,
devi sapere che il massimo esperto attualmente di formazioni alternative lo hai già ed è proprio il Prof. Salvatore, che ci onora della sua presenza e delle sue dritte.
Comunque in generale la scelta di gruppi particolari di formazioni numeriche è dettata dalla speranza di riuscire a trovare delle minoranze, che grazie alle loro caratteristiche siano facilmente individuabili e nello stesso tempo essendo una piccola parte tra tutte le formazioni generiche riescano a sfuggire ai massimi ritardi di queste.
Cara Cinzia, devi sapere che molte delle formazioni che sono nella tabella utente di L8+, come ad esempio i grattacieli dei 90, i gruppi simmetrici equivalenti e tantissime altre sono state studiate, sviluppate e portate alla conoscenza di tutti proprio con le storiche pubblicazioni che il Prof. Salvatore ha scritto con il Gorgia, con Carlo Mandaradoni ed altri studiosi con cui spesso ha collaborato.
Pertanto siamo in ottime mani, ciao a tutti,

Matteo

Cinzia27

Posted on 27/12/2018, 00:52

Caro Matteo,
non sapevo che il Prof. Di Guida11 fosse l' autore di molte magnifiche costruzioni numeriche
che si trovano in tabelle utente. Un lavoro veramente eccellente.
Mi spiego ora il suo immediato colpo d' occhio nel completare il quadro di questi ambi.
Sono onorata della sua partecipazione e senz' altro seguirò il tuo consiglio di affidarci a lui.
Questo forum è una vera perla preziosa !

Cinzia

Salvatore Di Guida11

Posted on 27/12/2018, 06:22

ciao Cinzia27,

ringrazio New Mat che è sempre troppo buono con me, effettivamente seguendo la strada tracciata da Gorgia e Severo mi sono dedicato alla costruzione di gruppi con determinate caratteristiche proprio con la speranza di trovare ritardi minori. il problema, dico spesso scherzando, è se gli stessi lo sanno di appartenere a un ristretto campo di ricerca! comunque da un veloce esame dei 4 gruppi per ambo su tutte, per ambetto e 10elotto non ho trovato ritardi interessanti (la qualcosa non sminuisce affatto l'importanza degli ambi che hai trovato). una volta fissati gli ambi e i rispettivi gruppi rifaremo l'indagine con più accuratezza nonchè sotto altri aspetti e certamente verrà fuori qualcosa di buono.

Salvatore

Genal

Posted on 27/12/2018, 07:58

Top Member

Group:: Member

Posts:: 4,536

Status:

Ciao a Tutti e Buon Anno.

Anch'io, come Matteo, sono a conoscenza dell'esperienza di S.Di Guida, citato molte volte sulle migliori Riviste di Lotto e per citarne una "Nuovo Giornale del Lotto", e per di più, sono in possesso di un libro
scritto da S.Di Guida in collaborazione con L.Gorgia "Il Gioco del Lotto Ricerca e Applicazione"
stampato nel Dicembre 1993. Che dire? Grazie Salvatore per essere insieme a noi.

Giusto per dare seguito a questa interessante conversazione, ho cercato i Max dei vari gruppi su Tutte,
per confrontare se anche quelli con gli zeri fossero all'altezza degli altri, pertanto:

Statistica dal 1946 al 24-12-2018 per Ambo su Tutte (esclusa NZ)

1° Gruppo Max 60
2° Gruppo Max 60
3° Gruppo Max 79
4° Gruppo Max 61
5° Gruppo Max 81
6° Gruppo Max 74
Gemelli Raddoppiati Max 53 (4 Ambi)

Inoltre, gli Ambi presentati da Cinzia, si prestano per formare delle Quartine con i rispettivi Vertibili
anch'essi raddoppiati:

12.21.24.42
13.31.26.62
14.41.28.82
23.32.46.64
24.42.48.84
23.32.46.64
34.43.68.86

Naturalmente questa è un'altra storia.

Genal

Salvatore Di Guida11

Posted on 27/12/2018, 08:48

grazie a te Genal,

attendevo il tuo intervento che puntualmente è arrivato
arricchendo il thread con statistiche e un nuovo input!

Salvatore

22 replies since 24/12/2018, 23:39 509 views