script decine naturali

[ROBLOT]

scusate ce qualcuno che nel suo archivio ha un sript che calcola nelle 18 estrazioni per 10 cicli quanti ambi hanno dato le decine
naturali divise per ruota

 

[firefox]

ciao

tra i molteplici script raccolti in questi anni vedi se questo puo' esserti d'aiuto. Potrebbe essere un inizio.
Funziona su Lottodesk, da modificare per Spaziometria.

'Ramco it  Analisi fre-rit-max x Decina in cicli()(x Libero)
'http://ramcolotto.puntoforum.it/ramcolotto-about3335.html
'forum Ramcolotto.it 19/04/2010
Sub main()
Dim nu(10,4),nn(1),rt(1)
rt(1)=CInt(InputBox("Scegli Ruota (da 1 a 12 escluso 11)","RUOTA",1))
qt=CInt (InputBox ("Quante Estrazioni Esamini ?","ESTRAZIONI",18))
qt=qt-1
ini=EstrazioneFin -qt
fin=EstrazioneFin
For dn=0 To 8
co=0
For i=1 To 90
   If DecinaNaturale(i)=dn Then
      co=co+1
      nu(co,1)=i : nn(1)=i
      nu(co,2)=SerieFreq(fin-qt,fin,nn,rt,1)
      nu(co,3)=SerieRitardo(fin-qt,fin,nn,rt,1)
      ct=0 : max=0
      For es=ini To fin
         If Posizione(es,rt(1),nn(1))>0 Then ct=0 Else ct=ct+1
         If ct>max Then max=ct
      Next
      If nu(co,2)=0 Then nu(co,4)=0 Else nu(co,4)=max
   End If
Next
Scrivi "ANALISI SULLA RUOTA di "& NomeRuota(rt(1)),1
Scrivi String (50,"_")
Scrivi "Periodo analizzato in "&(qt+1)&" Estrazioni" : ColoreTesto 1
Scrivi "Da "& DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1): ColoreTesto 2
Scrivi "  Numero-Freq.-R.Att.-Rit.Max nel ciclo",1 : ColoreTesto 0
ScriviMatrice nu
Next

End Sub

ciao da Francesco