QUANDO SI DICE IL CASO

[Zetrix]

Option Explicit
Sub Main
   Dim EX,TV,ES,SOMMA,DIST
   TV = InputBox("Quante estrazioni vuoi controllare ?",,0)
   EX = EstrazioneFin - TV
   For ES = EX To EX
      For DIST = RX To RX
         Messaggio(ES)
         Dim R,E,X,I,RX,RK,K,Z,RT,RF,RQ,R1,A,B
         Dim nRighe,nColonne,F
         Dim nCaselleDaEvid
         Dim aQuadroNum
         Dim aNumDaEvid
         '
         nRighe = 12
         nColonne = 5
         ReDim aQuadroNum(nRighe,nColonne)
         ReDim aNumDaEvid(500,1)
         '
         For R = 1 To 11
            For R1 = R + 1 To 12
               For E = 1 To 5
                  If R1 <> 11 Then
                     aQuadroNum(R,E) = Estratto(ES,R,E)
                     For F = 1 To 5
                        aQuadroNum(R,F) = Estratto(ES,R1,F)
                        '
                        '
                        If(Estratto(ES,R,E)) = Estratto(ES,R1,F) Then
                           If E = F Then
                              '
                              SOMMA = Fuori90(123 -(Estratto(ES,R,E)))
                              Scrivi("" & SiglaRuota(R) & "-" & SiglaRuota(R1) & "  " & Estratto(ES,R,E) & " = " & SOMMA & ""),1,1,5
                              '
                              nCaselleDaEvid = nCaselleDaEvid + 1
                              aNumDaEvid(nCaselleDaEvid,0) = R
                              aNumDaEvid(nCaselleDaEvid,1) = E
                              nCaselleDaEvid = nCaselleDaEvid + 1
                              aNumDaEvid(nCaselleDaEvid,0) = R1
                              aNumDaEvid(nCaselleDaEvid,1) = F
                              '
                              '
                           End If
                        End If
                     Next
                  End If
               Next
            Next
         Next
      Next
   Next
   '
   Call DisegnaEstrazione(EstrazioneFin - TV,aNumDaEvid,CLng(0))
End Sub

questo e lo script fa solo i conteggi ..

 

[Zetrix]

BA-FI 55 = 68
BA-RO 55 = 68
CA-NA 14 = 19
FI-RO 55 = 68
FI-VE 90 = 33
MI-PA 25 = 8
MI-RO 25 = 8
NA-VE 39 = 84
PA-RO 25 = 8

ci sono alcune estrazioni che si verificano tante condizioni anche tre numeri isotopi
quando ci sono troppe condizioni la scelta diventa difficile, ma si deve scegliere una condizione..

 

[Zetrix]

81+31=112 ÷ 2 = 56 ----------- 11

a GE E PA sono usciti due ambi diametrali..ce il 56 a PA..
cmq questa e ciclometria e non c'entra niente con le sequenze di FIbonacci..

 

[isabel]

Grazie Zetrix per la risposta.

Isabel