IL DIAGRAMMA DIFFERENZIALE A 3 NUMERI

IL DIAGRAMMA DIFFERENZIALE SU 3 NUMERI (di mas)
(basato sugli scritti di Adriano Scaravetti)

Se prendiamo l'estrazione del 03-01-2011 alla ruota di Roma, abbiamo i cinque estratti:
08.6.50.81.19; prendiamo i primi tre estratti e costruiamo il loro DiagraMMa Differenziale.


03-01-11 RO 8 50 81 FI 2 19

IL DIAGRAMMA DIFFERENZIALE SU 3 NUMERI

..... 42 73 31 le distanze degli estratti

08...56.25
50...02........19
81..........64.22

Si ricerca un ambo in orrizontale dei differenziali e troviamo a Firenze estratti alla stessa estrazione l'ambo 02.19 della linea del estratto 50.

I Numeri trovati si mettono in quadrato con i numeri delle altre due linee:

02.19=21 Somme orrizontali
08.81=89
10.10 Somme verticali
27.83 Somme Diagonali

L'ambata e' il numero in comune 10.

Esito:

03-01-11 FI a 10
RO a 10
FI A 56, 2,25,64,19,22 1. colpo 56 19
RO A 56, 2,25,64,19,22


Lo Scaravetti mi ha autorizzato a postare lo script di questo metodo in versione Ultimo Dos:
Se qualche volenteroso lo traduce in L8+ sarebbe un Plus. Grazie anticipatamente.

mas


'3DDIF_V1.MTD: IL DIAGRAMMA DIFFERENZIALE SU 3 NUMERI COMPLETO

file

dbase 3
estrazione dal 01-01-11 al 01-01-12
prossima estrazione

estrazione dal 01-01-11 al 01-01-12
' prima ruota
es = EST
10:
r1 = 1


' ambo prima ruota n1-n2
20:
p1 = 1
30:
n1 = POS(p1, r1, es)
se n1 = 90|n1 = 45 allora vaia pp1

p2 = p1 + 1
40:
n2 = POS(p2, r1, es)
se n2 = 90|n1 = 45 allora vaia pp2
z=n1+45: fuori 90
se z=n1 allora vaia pp2


45:
p3 = p2 + 1

46:
n3 = POS(p3, r1, es)
se n3 = 90|n1 = 45 allora vaia pp3
y=n2+45: fuori 90
se n3=y allora vaia pp3

' calcolo delle distanze

d1 = DIST(n2,n3)
d2 = DIST(n1,n3)
d3 = DIST(n1,n2)

' calcolo ambo da ricercare , x1-x2, x3-x4,x5-x6

x1 = n1 + d3: fuori 90
se x1=n2 allora x1=n1-d3
se x1<1 allora x1=90+x1
' se x1=90 allora vaia pp3


x2 = n2 - d3
se x2<1 allora x2=90+x2
se x2=n1 allora x2=n2+d3: fuori 90
' se x2=90 allora vaia pp3


x3 = n1 + d2: fuori 90
se x3=n3 allora x3=n1-d2
se x3<1 allora x3=90+x3
' se x3=90 allora vaia pp3


x4 = n3 - d2
se x4<1 allora x4=90+x4
se x4=n1 allora x4=n3+d2: fuori 90

' se x4=90 allora vaia pp3


x5 = n2 + d1: fuori 90
se x5=n3 allora x5=n2-d1
se x5<1 allora x5=90+x5
' se x5=90 allora vaia pp3


x6 = n3 - d1
se x6<1 allora x6=90+x6
se x6=n2 allora x6=n3+d1: fuori 90
' se x6=90 allora vaia pp3


se uguale( n1, n2, n3, x1, x2) allora vaia pp3


' seconda ruota
48:
r2 = 1
50: se r2 = r1 allora r2 = r2 + 1

' ricerca ambo seconda ruote

se TPOS(x1, r2, es)&TPOS(x3, r2, es) allora vaia 71
se TPOS(x2, r2, es)&TPOS(x5, r2, es) allora vaia 72
se TPOS(x4, r2, es)&TPOS(x6, r2, es) allora vaia 73

vaia NextR2


71:
'---------- 6 somme ---------------
t1=x1
t2=x3
s1 = n2 + n3: FUORI 90
s2 = x1 + x3: FUORI 90
s3 = n2 + x1: FUORI 90
s4 = n3 + x3: FUORI 90
s5 = n2 + x3: FUORI 90
s6 = n3 + x1: fuori 90
se s3=s4 allora s=s3
se s5=s6 allora s=s5
vaia 99


72:
'---------- 6 somme ---------------
t1=x2
t2=x5
s1 = n1 + n3: FUORI 90
s2 = x2 + x5: FUORI 90
s3 = n1 + x2: FUORI 90
s4 = n3 + x5: FUORI 90
s5 = n1 + x5: FUORI 90
s6 = n3 + x2: fuori 90
se s3=s4 allora s=s3
se s5=s6 allora s=s5
vaia 99


73:
'---------- 6 somme ---------------
t1=x4
t2=x6
s1 = n1 + n2: FUORI 90
s2 = x4 + x6: FUORI 90
s3 = n1 + x4: FUORI 90
s4 = n2 + x6: FUORI 90
s5 = n1 + x6: FUORI 90
s6 = n2 + x4: fuori 90
se s3=s4 allora s=s3
se s5=s6 allora s=s5

99:
er=EST-1


100:
se TPOS(s1,r1,er)&TPOS(s2,r1,er) allora vaia NextR2
se TPOS(s1,r1,er)&TPOS(s3,r1,er) allora vaia NextR2
se TPOS(s1,r1,er)&TPOS(s4,r1,er) allora vaia NextR2
se TPOS(s1,r1,er)&TPOS(s5,r1,er) allora vaia NextR2
se TPOS(s2,r1,er)&TPOS(s3,r1,er) allora vaia NextR2
se TPOS(s2,r1,er)&TPOS(s4,r1,er) allora vaia NextR2
se TPOS(s2,r1,er)&TPOS(s5,r1,er) allora vaia NextR2
se TPOS(s3,r1,er)&TPOS(s4,r1,er) allora vaia NextR2
se TPOS(s3,r1,er)&TPOS(s5,r1,er) allora vaia NextR2
se TPOS(s4,r1,er)&TPOS(s5,r1,er) allora vaia NextR2
se TPOS(s1,r1,es)&TPOS(s6,r1,er) allora vaia NextR2
se TPOS(s2,r1,es)&TPOS(s6,r1,er) allora vaia NextR2
se TPOS(s3,r1,es)&TPOS(s6,r1,er) allora vaia NextR2
se TPOS(s4,r1,es)&TPOS(s6,r1,er) allora vaia NextR2
se TPOS(s5,r1,es)&TPOS(s6,r1,er) allora vaia NextR2
se TPOS(s1,r2,er)&TPOS(s2,r2,er) allora vaia NextR2
se TPOS(s1,r2,er)&TPOS(s3,r2,er) allora vaia NextR2
se TPOS(s1,r2,er)&TPOS(s4,r2,er) allora vaia NextR2
se TPOS(s1,r2,er)&TPOS(s5,r2,er) allora vaia NextR2
se TPOS(s2,r2,er)&TPOS(s3,r2,er) allora vaia NextR2
se TPOS(s2,r2,er)&TPOS(s4,r2,er) allora vaia NextR2
se TPOS(s2,r2,er)&TPOS(s5,r2,er) allora vaia NextR2
se TPOS(s3,r2,er)&TPOS(s4,r2,er) allora vaia NextR2
se TPOS(s3,r2,er)&TPOS(s5,r2,er) allora vaia NextR2
se TPOS(s4,r2,er)&TPOS(s5,r2,er) allora vaia NextR2
se TPOS(s1,r2,es)&TPOS(s6,r2,er) allora vaia NextR2
se TPOS(s2,r2,es)&TPOS(s6,r2,er) allora vaia NextR2
se TPOS(s3,r2,es)&TPOS(s6,r2,er) allora vaia NextR2
se TPOS(s4,r2,es)&TPOS(s6,r2,er) allora vaia NextR2
se TPOS(s5,r2,es)&TPOS(s6,r2,er) allora vaia NextR2

se TPOS(n1,r1,er)&TPOS(n2,r1,er) allora vaia NextR2
se TPOS(n1,r1,er)&TPOS(n3,r1,er) allora vaia NextR2
se TPOS(n1,r1,er)&TPOS(t1,r1,er) allora vaia NextR2
se TPOS(n1,r1,er)&TPOS(t2,r1,er) allora vaia NextR2
se TPOS(n2,r1,er)&TPOS(n3,r1,er) allora vaia NextR2
se TPOS(n2,r1,er)&TPOS(t1,r1,er) allora vaia NextR2
se TPOS(n2,r1,er)&TPOS(t2,r1,er) allora vaia NextR2
se TPOS(n3,r1,er)&TPOS(t1,r1,er) allora vaia NextR2
se TPOS(n3,r1,er)&TPOS(t2,r1,er) allora vaia NextR2
se TPOS(t1,r1,er)&TPOS(t2,r1,er) allora vaia NextR2
se TPOS(n1,r2,er)&TPOS(n2,r2,er) allora vaia NextR2
se TPOS(n1,r2,er)&TPOS(n3,r2,er) allora vaia NextR2
se TPOS(n1,r2,er)&TPOS(t1,r2,er) allora vaia NextR2
se TPOS(n1,r2,er)&TPOS(t2,r2,er) allora vaia NextR2
se TPOS(n2,r2,er)&TPOS(n3,r2,er) allora vaia NextR2
se TPOS(n2,r2,er)&TPOS(t1,r2,er) allora vaia NextR2
se TPOS(n2,r2,er)&TPOS(t2,r2,er) allora vaia NextR2
se TPOS(n3,r2,er)&TPOS(t1,r2,er) allora vaia NextR2
se TPOS(n3,r2,er)&TPOS(t2,r2,er) allora vaia NextR2
se TPOS(t1,r2,er)&TPOS(t2,r2,er) allora vaia NextR2


er=er-1
se er=>EST-1 allora vaia 100

101: E=EST

102: r=1


103:
se TPOS(S1,r,E)&TPOS(S2,r,E) allora vaia NextR2
se TPOS(S3,r,E)&TPOS(S4,r,E) allora vaia NextR2
se TPOS(S5,r,E)&TPOS(S6,r,E) allora vaia NextR2

r=r+1
se r<10 allora vaia 103

E=E-1
se E>EST-1 allora vaia 102


104:
' se uguale ( s1, s2, s3, s4, s5, s6 ) allora vaia NextR2
' se uguale ( s1, s2, s3, s4, s5, s6, n1,n2,n3,t1,t2) allora vaia NextR2


scrivi "....................................................................."
scrivi
SCRIVI data();ruota(r1);n1;n2;n3;" ";" ";ruota(r2);t1;t2
scrivi
scrivi" IL DIAGRAMMA DIFFERENZIALE SU 3 NUMERI"
scrivi" ";d3;d2;d1
scrivi
scrivi n1;" ";x1;x3
scrivi n2;" ";x2;" ";x5
scrivi n3;" ";" ";x4;x6
scrivi

azdop s1, s2, s3, s4, s5, s6
se uguale ( X1,X2,X3,X4,X5,X6 ) allora vaia NextR2
ordcr s1, s2, s3, s4, s5, s6
se uguale ( s2,s3,s4,s5,s6 ) allora vaia NextR2
gioco
sulle ruote r1, r2
ambata s
' ambo s2, s3, s4, s5, s6', n1, n2, n3, t1, t2
AMBO X1,X2,X3,X4,X5,X6
per 14 settimane
fine gioco

' gioco
' sulle ruote tutte
' ambo s1, s2
' ambo s3, s4
' ambo s5, s6
' per 14 settimane
' fine gioco


NextR2: ' prossima seconda ruota

r2 = r2 + 1
se r2 = r1 allora r2 = r2 + 1
SE r2 <= 10 ALLORA VAIA 50

' es=es-1
' se es>=EST-3 allora vaia 48
' es = EST
pp3:
p3 = p3 + 1
se p3 <= 5 allora vaia 46


pp2:
p2 = p2 + 1
SE p2 <= 4 ALLORA VAIA 40

pp1:
p1 = p1 + 1
SE p1 <= 3 ALLORA VAIA 30

' prossima prima ruota

r1 = r1 + 1
SE r1 <= 9 ALLORA VAIA 20



prossima

riepilogo

Grazie _max59.

Una semplice analisi del Listato e'questa:

1) costruzione/individuazione di tutte le 10 terne possibili sui cinque estratti di una ruota;

2) costruzione del Diagramma Differenziale sulla terna;

3) ricerca di uno dei 3 ambi secchi in linea sui differenziali in altra ruota;

4) trovato l'ambo secco sui differenziali, costruzione e calcolo del quadrato con i due numeri corrispondenti estratti della terna;

5) individuazione della ambata e dei numeri del quadrato e loro controllo come giocata sulle 2 ruote coinvolte;

6) next

Spero che sia semplice e certamente meglio che entrare nella programmazione Ultimo-Dos di cui non sono assolutamente un esperto.

I dati esposti completano i passi 1) e 2).

mas

Caro _max59, se i calcoli del diagramma differenziale sono giusti e quelli del quadrato anche, si dovrebbe sempre avere un numero ripetuto (solo nello speciale caso di due distanze 45 ci sarebbero due coppie di numeri ripetuti; ma e' un caso raro).

La forza del diagramma differenziale e' proprio questa: creare un trapezio isoscele (quadrato) che porta al numero doppio.

Un saluto

mas

Un Grande Grazie a _max59 per la Sua preziosa contribuzione.

mas