SUPER LOTTO

Quadratura Morenish

« Older   Newer »
  Share  
CAT_IMG Posted on 16/2/2011, 19:36
Avatar

Group:
Fan
Posts:
471

Status:


Ritengo opportuno sottolineare, prima di passare all’esposizione teorica e pratica, che nell’ambito della ciclometria, vi sono e vi saranno sempre, procedure che tendono a distaccarsi dalle classiche quadrature, operando con fantasia ed intuizione.
Detto ciò, penso che fin’ora, non sia mai stata proposta una teoria simile a quella che sto per esporre ma, se cosi’ fosse, sono pronto a ritirarla dandone beneficio a colui/colei che per primi ne avessero già espressa l’esistenza.

Penso anche sia giusto dire che non si tratta di una tecnica sconvolgente ed avra’ bisogno di notevoli modifiche ed accorgimenti che mi piacerebbe discutere con chi di Voi, ne fosse interessato.

Tratteremo la distanza 45, partendo subito con un’esempio pratico:

il 09.12.2010, si rintracciano sulle ruote di Cagliari 17-62 e su Genova, 78-33

si dispongano in quadratura i quattro elementi in ordine progressivo.

17-33
78-62

notiamo che verticalmente, nella colonna di sinistra, abbiamo i due estremi (n°+grande e n°+piccolo).

Il calcolo principale, verte proprio su questi due elementi.

Facendone la differenza matematica, otteniamo 61 infatti 78-17=61.
Complimentando il 61 a 90, si ottiene 29.

Facciamo ancora la differenza matematica tra i due elementi e si ottiene 32

61-29=32 K (AMBATA CAPOGIOCO).

Ora, il 32, diventa il numero correttivo che verrà sommato ai quattro elementi iniziali.

32+17=49(A) 32+62=04 (C)
32+78=20(B) 32+33=65 (D)

A+B= 69 (1° abbinamento)
C+D= 69 (1° abbinamento)

69+45= 24 (2° abbinamento)

la previsione risultava essere la seguente: Cagliari Genova ambata 32, ambi secchi anche su Tutte, 32-24 e 32-69.

Al 4° colpo di gioco sulla ruota di Genova, esce l’ambata 32 e l’ambo secco 32-69.
Si nota inoltre la sortita del 77, diametrale dell’ambata 32 ma eventualmente, vedremo in seguito l’importanza di questo quarto elemento.

Oltre a tempi passati, ho analizzato gli ultimi 20 casi circa con risultati abbastanza rilevanti su ruota e non.

A presto.







ops... gli ambi sono 17-62 e 78-33






il 09.12.2010, si rintracciano sulle ruote di Cagliari 17-72 e su Genova, 78-33

si dispongano in quadratura i quattro elementi in ordine progressivo.

17-33
78-72

Edited by pigreko73.. - 17/2/2011, 13:33
 
Top
drago2940
CAT_IMG Posted on 27/3/2012, 09:32




Il listato del Metodo

Sub main()
Dim nu2(10)
Dim ruote(10),ruota(10)
Dim poste(2)
poste(2)=1
fin=EstrazioneFin
ini=fin-180
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2)
If ds1=45 Then
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4):ds2=Distanza(n3,n4)
If ds2=45 And p1=p3 And p2=p4 Then
a1=Minimo(n1,n2)
a2=Minimo(n3,n4)
a3=Minimo(a1,a2)' Minimo
a4=Massimo(n1,n2)
a5=Massimo(n3,n4)
a6=Massimo(a4,a5)' Massimo
a7=Minimo(a4,5)
a8=Massimo(a1,a2)
b1=a6-a3
b2=90-b1
b3=Abs(b1-b2) ' Ambata
a=Fuori90(b3+a3)
b=Fuori90(b3+a6)
c=Fuori90(b3+a7)
d=Fuori90(b3+a8)
c1=Fuori90(a+b)
c2=Fuori90(c+d)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2 (ds1)&" >"&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza < "&Format2 (ds2)&" >"&Format2(n3)&"."&Format2 (n4)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:k=14:co=0:ruote(3)=12:ruota(4)=11
nu2(1)=b3
nu2(2)=c1
nu2(3)=Diametrale(c1)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
Gioca es
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Top
CAT_IMG Posted on 8/11/2012, 19:24
Avatar

Group:
Fan
Posts:
471

Status:


Ciao a tutti.

Vi riporto il list che molto gentilmente, ha realizzato Enplein che è "una specie" di rifacimento della tecnica "Quadratura Morenish".
In effetti, non si tratta di rifacimento vero e proprio ma di una soluzione previsionale molto piu' selettiva che, va a porre in gioco, i calcoli
della tecnica in questione, laddove si verifichi una previsione composta da numeri in tripla 3-6-9.


Sub main()
Dim n(4),amb(2),ambo1(2),ambo2(2),ruote(3),ruota(2),posta(1),poste(2)
posta(1)=1:poste(2)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8300)
cl=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi String(73,"="),1
Scrivi "resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1= 1 To 10
For p1= 1 To 4
For p2= p1+1 To 5
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
fa=Figura (a):fb=Figura (b)
If fa=fb And (fa=3 Or fa=6 Or fa=9) Then
If a=Diametrale(b) Then
For r2=r1+1 To 11
If r2=11 Then r2=12' Nazionale
For p3= 1 To 4
For p4= p3+1 To 5
c=Estratto(es,r2,p3)=Estratto(es,r2,p4)
fc=Figura (c):fd=Figura (d)
If fc=fd And fc=fa And (fc=3 Or fc=6 Or fc=9) Then
If c=Diametrale(d) And a<>c And a<>d Then
n(1)=a : n(2)=b : n(3)=c : n(4)=d
OrdinaMatrice n
'---------------------------------------------------------------------------------------------------------------------
'Quadratura
e1= Abs (n(4)-n(1)) : e2=90-e1
k=Abs (e1-e2)
x1=Fuori90 (k+n(1)) : x2=Fuori90 (k+n(4))
x3=Fuori90 (k+n(2)) : x4=Fuori90 (k+n(3))
xx1=Fuori90 (x1+x2) : xx2=Fuori90 (x3+x4)
If xx1=xx2 Then
ab1=xx1 : ab2=Diametrale (xx1)
If Figura (k)<>Figura (ab1) Then
'----------------------------------------------------------------------------------------------------------------
'Previsione
amb(1)=k
ambo1(1)=k : ambo1(2)=ab1
ambo2(1)=k : ambo2(2)=ab2
ruote(1)=r1:ruote(2)=r2:ruote(3)=11:ruota(1)=r1 : ruota(2)=r2
casi=casi+1:Scrivi String(65,"=")&" script by Enplein",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."& Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."& Chr (10) &_
DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."& Chr (10)&_
String(60,"-")&" caso n° "&(casi)
ImpostaGiocata 1,amb,ruota,posta,cl,1
ImpostaGiocata 2,ambo1,ruote,poste,cl,2
ImpostaGiocata 3,ambo2,ruote,poste,cl,2
Gioca es
End If
End If
End If
End If
Next
Next
Next
End If
End If
Next
Next
Next
Next
Scrivi
Scrivi " LA QUADRATURA con le figure 3.6.9 di Morenish by_Enplein",1
ScriviResoconto
End Sub
 
Top
CAT_IMG Posted on 8/11/2012, 19:57
Avatar

A nessuno è mai nociuto essere stato zitto.--Catone

Group:
Administrator
Posts:
9,974

Status:


Grazie Moreninoooooooooo

:kissing.gif: :kissing.gif: :kissing.gif: :abbraccio.gif:
 
Web   Top
3 replies since 16/2/2011, 19:26   2252 views
  Share