| Ciao Miki, controlla questa soluzione.... Enplein. Sub main()
Dim nu(1),ru1(1),ru2(1),rt(2),posta(1)
posta(1)=1
w=18' Qui è possibile modificare il ritardo
rs=CInt (InputBox("In quale estrazione vuoi finire la ricerca?",,9802))
ini=9700
fin=rs
ColoreTesto 1
Scrivi Space(20)&"Numeri Isocroni Continui di Miki Listed by Enplein",1
Scrivi Space (20)&"Periodo dal "& DataEstrazione (ini)&"/"&ini&" al "& DataEstrazione (fin)&"/"&fin,1
ColoreTesto 0
Scrivi
Scrivi Space (15)&"TABELLONE",1
Scrivi "R1"& Space (2)&"R2"& Space (2)&"Num."& Space (2)&"Po1"& Space (2)&"Po2"& Space (3)&"RA"& Space (3)&"RPR1"& Space (3)&"RPR2",1
Scrivi
For es=ini To fin-1
ex=es+1
For i=1 To 90
n1=i
For r1=1 To 11
If r1=11 Then r1=12
ru1(1)=r1
sp1=Posizione (es,r1,n1)
If sp1>0 Then
For r2=1 To 11
If r2=11 Then r2=12
If r2<>r1 Then
ru2(1)=r2
sp2=Posizione (ex,r2,n1)
If sp2>0 Then
nu(1)=n1
rt(1)=r1 : rt(2)=r2
sf=SerieFreq (es,fin,nu,rt,1)
ra=SerieRitardo (ex+1,fin,nu,rt,1)
If ra>w And sf=2 Then
rar1=SerieRitardo (7000,es-1,nu,ru1,1)
rar2=SerieRitardo (7000,es,nu,ru2,1)
rsto1=SerieStorico (1,fin,nu,ru1,1)
rsto2=SerieStorico (1,fin,nu,ru2,1)
rsto=SerieStorico (1,fin,nu,rt,1)
casi=casi+1
Scrivi SiglaRuota (r1)& Space (2)& SiglaRuota (r2)& Space (2)& Format2 (n1)& Space (2)&_
FormatSpace (sp1,3,1)&"^"& Space (1)& FormatSpace (sp2,3,1)&"^"& Space (3)& FormatSpace (ra,3,1)&_
Space (3)& FormatSpace (rar1,3,1)& Space (4)& FormatSpace (rar2,3,1),1
End If
End If
End If
Next
End If
Next
Next
Next
Scrivi
ColoreTesto 1
Scrivi "Casi con ritardo > a "&w&" = "&casi,1
ColoreTesto 0
Scrivi
End Sub ...per coloro che non hanno programmi, ecco i risultati: CODICE Numeri Isocroni Continui di Miki Listed by Enplein
Periodo dal 26.10.2019/9700 al 04.08.2020/9803
TABELLONE
R1 R2 Num. Po1 Po2 RA RPR1 RPR2
Mi Ve 06 3^ 5^ 36 2 76
Ve Ca 83 2^ 4^ 36 8 9
Fi Nz 37 3^ 3^ 30 1 10
Ge Pa 89 4^ 1^ 29 48 6
Ro Fi 15 4^ 3^ 27 23 2
Ca Ba 31 3^ 1^ 27 7 2
Na Ro 56 2^ 5^ 26 10 10
Mi Nz 89 2^ 3^ 26 12 8
Fi Na 28 3^ 5^ 25 10 1
Mi Na 28 5^ 5^ 25 12 1
Ge Ba 72 5^ 3^ 24 7 13
Ge Na 72 5^ 4^ 24 7 5
Ve Ba 72 5^ 3^ 24 25 13
Ve Na 72 5^ 4^ 24 25 5
Na Pa 14 5^ 3^ 22 13 5
Ge Fi 27 4^ 2^ 22 0 3
Nz Ve 28 4^ 2^ 22 48 8
To Ro 20 1^ 5^ 21 3 10
Na Ba 22 2^ 2^ 21 19 3
Fi Na 39 1^ 1^ 21 6 10
Ro Na 39 4^ 1^ 21 3 10
Na Ca 71 1^ 2^ 21 32 19
Ge Ro 31 1^ 4^ 20 1 3
Pa Ve 41 5^ 5^ 20 5 2
Na Ba 46 2^ 3^ 20 10 8
Ve Ba 46 3^ 3^ 20 22 8
Pa Ge 83 1^ 2^ 20 23 7
Pa To 74 3^ 2^ 19 23 11
Casi con ritardo > a 18 = 28 |
