aiuto script per frequenza estratti

[Cinzia27]

Da Joe c' è sempre da imparare

 

[fillotto]

come si fa a far passare questo array "'ar=Array(0,27,62,54,39,73,65,50,10,85,77) che in pratica sono tutte le somme dell'estrazione 9650
di Bari invece dell di un unica somma come da dd = CInt(InputBox("Risultato della Somma?",,1)) ?

 Sub Main()
   'Ila : numeri più presenti in un certo numero di estrazioni
   'script Cinzia
   'Rev. By Joe del 03/08/2019
   Dim ru(1),ru1(1)',n(90,2)
   Dim nu(1)
   'ar=Array(0,27,62,54,39,73,65,50,10,85,77)
   dd = CInt(InputBox("Risultato della Somma?",,1))
   r = CInt(InputBox("Ruota?",,1))
   nn = CInt(InputBox("numeri da visualizzare?",,4))
   ee = CInt(InputBox("Estrazione di partenza?",,8000))
   c = CInt(InputBox("colpi?",,9))
   casi = 0 'casi = 0
   co = 0
   ru(1) = R
   fin = EstrazioneFin
   ini = ee
   For Po1 = 1 To 4 ' prima po1 = CInt(InputBox("posiz del 1° estratto?",,1))
      For Po2 = Po1 + 1 To 5 ' prima po2 = CInt(InputBox("posiz del 2° estratto?",,2))
         ColoreTesto 0
         Scrivi : Scrivi String(65,"="),True
         ReDim n(90,2)
         Casi = 0
         Scrivi "Dalla " &(ini) & " alla " & EstrazioneFin,True,False
         Scrivi "  " & po1 & "° Estratto ""+""  " & po2 & "° Estratto = " & dd & ") su " & NomeRuota(r),True
         Scrivi
         For es = ini To fin
            a = Estratto(es,r,po1)
            b = Estratto(es,r,po2)
            dif = Fuori90(a + b)
            If dif = dd Then
                Scrivi es & " " & a & "  " & b ' Scrivi es

               casi = casi + 1
               ess = es + c
               If ess > fin Then ess = fin End If
               ''
               For d = 1 To 90
                  nu(1) = d
                  If SerieFreq(es + 1,ess,nu,ru,1) >= 1 Then
                     n(d,1) = d
                     n(d,2) = n(d,2) + 1
                  End If
               Next
               ''
            End If
         Next
         Scrivi
         Scrivi "N° casi: " & CInt(casi),1 : Scrivi
         Scrivi
         ColoreTesto 2
         Scrivi " Positivi in Cicli di " & c & " Estrazioni",1
         Scrivi Space(1) & String(34,"-")
         OrdinaMatrice n,True,2
         Scrivi " N° - PC ",True
         For x = 1 To nn
            Scrivi Space(1) & Format2(n(x,1)) & " - " & Format2(n(x,2)),True
         Next
      Next 'Po2
   Next 'Po1
End Sub

 

[fillotto]

Come posso risolvere la richiesta di cui al precedente # 22 , non riesco a trovare neanche nei post passati una similia .....

 

[lla]

ciao fillotto mi spiace io non son in grado
ma tutte le somme ti servono sempre per capire qual è la frequenza di un estratto per ogni somma o la frequenza di un estratto considerando tutte le somme insieme?
prova a spiegare bene a che ti serve


sarebbe bello vedere come funziona anche sul supernalotto qualcuno aveva azzardato l'ipotesi all'inizio

buon ferragosto