Il Magico Pentagono di P. ROBBE

'Metodo di Pasquale Robbe "IL MAGICO PENTAGONO" listato da Enplein.
Sub main()
Dim ruota(1),posta(1),poste(2),rtt(2),pst(3)
Dim n(5),d(10),dd(50),dp(4),dv(25),nu1(2),nu2(2), amb(1),ab1(2),ab2(2),lg(3)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",100))
cl=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",18))
casi=0
fin=EstrazioneFin
ini=fin-ee
'--------------------------------
For es=ini To fin
Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Enplein ]"
'-------------------------------------
        For r1=1 To 10
                     For p=1 To 5
                    n(p)=Estratto(es,r1,p)
             Next
               h=0
               For i=1 To 4 : For j=i+1 To 5
               h=h+1
               d(h)=Distanza (n(i),n(j))
               Next : Next
               g=0: Erase dd  
           For i=1 To 9 : For j=i+1 To 10
               If d(i)=d(j) Then g=g+1 : dd(g)=d(i)
               Next : Next
               If g=4 Then
                       z=0 : Erase dv
                       For i=1 To 10
                       k=0
                       For j=1 To 4
                       If d(i)<>dd(j) Then k=k+1
                       Next
                       If k=4 Then z=z+1 : dv(z)=d(i)
                            Next
                               If z=2 Then
OrdinaMatrice n
For i=1 To 4
dp(i)=Distanza (n(i),n(i+1))
Next
df=Abs (dv(1)-dv(2))
amb(1)=Fuori90(n(5)+dp(4))
If dv(1)>dv(2) Then n1=Fuori90 (dv(1)+dp(4)) Else n1=Fuori90 (dv(2)+dp(4))
n2=Fuori90 (df+amb(1))
ab1(1)=amb(1):ab1(2)=n1
ab2(1)=amb(1):ab2(2)=n2
lg(1)=amb(1):lg(2)=n1:lg(3)=n2
casi=casi+1:Scrivi String(80,"="),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&" ]  Pos : "&_
"12:13:14:15:23:24:25:34:35:45"&  Chr (10) &_
Space (38)&"Dist. : "& StringaNumeri (d)&  Chr (10) &_
Space (33)&"Dist. Rip. : "& StringaNumeri (dd)&"  Dist. Div. : "& StringaNumeri (dv)&  Chr (10) &_
" Cinquina Ordinata : "& Format2 (n(1))&" ("& Format2 (dp(1))&") "& Format2 (n(2))&" ("& Format2 (dp(2))&") "&_
Format2 (n(3))&" ("& Format2 (dp(3))&") "& Format2 (n(4))&" ("& Format2 (dp(4))&") "& Format2 (n(5)),1
Scrivi String(70,"-")&" caso n° "&(casi)
'------------------------------------
ruota(1)=r1
rtt(1)=r1 :rtt(2)=11
posta(1)=1:poste(2)=1
pst(2)=1.50:pst(3)=.50
If SerieFreq(es,es,amb,ruota,1)>0 Or SerieFreq (es,es,lg,rtt,2)>0 Then ColoreTesto 2 : Scrivi "Previsione non ottimale!!!": ColoreTesto 0
ImpostaGiocata 1,amb,ruota,posta,cl,1
ImpostaGiocata 2,ab1,rtt,poste,cl,2
ImpostaGiocata 3,ab2,rtt,poste,cl,2
ImpostaGiocata 4,lg,rtt,pst,cl,3

Gioca es
                       End If
                    End If          
       Next
Next
ScriviResoconto
End Sub

================================================================================
sab 04.09.2010 [ Pa - 84.90.60.75.66 ]  Pos : 12:13:14:15:23:24:25:34:35:45
                                     Dist. : 06.24.09.18.30.15.24.15.06.09
                                Dist. Rip. : 06.24.09.15  Dist. Div. : 18.30
Cinquina Ordinata : 60 (06) 66 (09) 75 (09) 84 (06) 90
---------------------------------------------------------------------- caso n° 1
sab 04.09.2010  [8269]
 G  1:  M       06         Pa       4/18    
    M  06               su Pa    4° colpo   [8273/14.09.2010]
    I4
 G  2:  A       06.36      Pa Tu    18/18    
    negativo
 G  3:  A       06.18      Pa Tu    4/18    
    A  06.18            su Pa    4° colpo   [8273/14.09.2010]
    A  06.18            su Tu (Pa)    4° colpo   [8273/14.09.2010]
    I4
 G  4:  AT      06.36.18   Pa Tu    18/18    
    A  06.18            su Pa    4° colpo   [8273/14.09.2010]
    A  06.18            su Tu (Pa)    4° colpo   [8273/14.09.2010]
    A  18.36            su Tu (To)    5° colpo   [8274/16.09.2010]

================================================================================
sab 12.02.2011 [ To - 34.02.64.33.63 ]  Pos : 12:13:14:15:23:24:25:34:35:45
                                     Dist. : 32.30.01.29.28.31.29.31.01.30
                                Dist. Rip. : 30.01.29.31  Dist. Div. : 32.28
Cinquina Ordinata : 02 (31) 33 (01) 34 (29) 63 (01) 64
---------------------------------------------------------------------- caso n° 2
sab 12.02.2011  [8338]
 G  1:  M       65         To       1/18    
    M  65               su To    1° colpo   [8339/15.02.2011]
    I1
 G  2:  A       65.33      To Tu    1/18    
    A  33.65            su To    1° colpo   [8339/15.02.2011]
    A  33.65            su Tu (To)    1° colpo   [8339/15.02.2011]
    I1
 G  3:  A       65.69      To Tu    1/18    
    A  69.65            su To    1° colpo   [8339/15.02.2011]
    A  69.65            su Tu (To)    1° colpo   [8339/15.02.2011]
    I1
 G  4:  AT      65.33.69   To Tu    1/18    
    A  69.33.65         su To    1° colpo   [8339/15.02.2011]
    T  69.33.65         su To    1° colpo   [8339/15.02.2011]
    A  69.33.65         su Tu (To)    1° colpo   [8339/15.02.2011]
    T  69.33.65         su Tu (To)    1° colpo   [8339/15.02.2011]
    I1
================================================================================
sab 02.04.2011 [ Ba - 20.05.59.41.80 ]  Pos : 12:13:14:15:23:24:25:34:35:45
                                     Dist. : 15.39.21.30.36.36.15.18.21.39
                                Dist. Rip. : 15.39.21.36  Dist. Div. : 30.18
Cinquina Ordinata : 05 (15) 20 (21) 41 (18) 59 (21) 80
---------------------------------------------------------------------- caso n° 3
sab 02.04.2011  [8359]
 G  1:  M       11         Ba       1/18    
    M  11               su Ba    1° colpo   [8360/05.04.2011]
    I1
 G  2:  A       11.51      Ba Tu    1/18    
    A  11.51            su Ba    1° colpo   [8360/05.04.2011]
    A  11.51            su Tu (Ba)    1° colpo   [8360/05.04.2011]
    I1
 G  3:  A       11.23      Ba Tu    10/18    
    in corso (10° su 18)
 G  4:  AT      11.51.23   Ba Tu    10/18    
    A  11.51            su Ba    1° colpo   [8360/05.04.2011]
    A  11.51            su Tu (Ba)    1° colpo   [8360/05.04.2011]
    A  11.51            su Tu (Pa)    8° colpo   [8367/21.04.2011]
    in corso (10° su 18)