| 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
|
