| Ciao Legend, prima di tutto ecco qui il listato Scrivi"Storico RSIL 5° numero dopo la sortita contemporanea del 4° estratto di 3 CSI(Cinzia)"&Chr(10)
Sub Main()
Dim a1(1),a2(1),a3(1),a4(1), a5(1),aa1(1),aa2(1),aa3(1), aa4(1),aa5(1),aaa1(1),aaa2(1),aaa3(1), aaa4(1),aaa5(1)
Dim sp(5),sp1(5),sp2(5),sp3(5),ru(1),ru1(1),ru2(1),bbb(3),bb(1),bb1(1),bb2(1)
fin=EstrazioneFin
ini=fin-80
For es=ini To fin
Messaggio(es)
For r=1 To 9
ru(1)=r
For r1=r+1 To 10
ru1(1)=r1
For r2=r1+1 To 11
If r2=11 Then r2=12
ru2(1)=r2
a1(1)=Estratto(es,r,1)
If a1(1)>0 Then
a2(1)=Estratto(es,r,2)
a3(1)=Estratto(es,r,3)
a4(1)=Estratto(es,r,4)
a5(1)=Estratto(es,r,5)
aa1(1)=Estratto(es,r1,1)
If aa1(1)>0 Then
aa2(1)=Estratto(es,r1,2)
aa3(1)=Estratto(es,r1,3)
aa4(1)=Estratto(es,r1,4)
aa5(1)=Estratto(es,r1,5)
aaa1(1)=Estratto(es,r2,1)
If aaa1(1)>0 Then
aaa2(1)=Estratto(es,r2,2)
aaa3(1)=Estratto(es,r2,3)
aaa4(1)=Estratto(es,r2,4)
aaa5(1)=Estratto(es,r2,5)
sp(1)=SeriePrima(es+1,fin,a1,ru,1)
sp(2)=SeriePrima(es+1,fin,a2,ru,1)
sp(3)=SeriePrima(es+1,fin,a3,ru,1)
sp(4)=SeriePrima(es+1,fin,a4,ru,1)
sp(5)=SeriePrima(es+1,fin,a5,ru,1)
sp1(1)=SeriePrima(es+1,fin,aa1,ru1,1)
sp1(2)=SeriePrima(es+1,fin,aa2,ru1,1)
sp1(3)=SeriePrima(es+1,fin,aa3,ru1,1)
sp1(4)=SeriePrima(es+1,fin,aa4,ru1,1)
sp1(5)=SeriePrima(es+1,fin,aa5,ru1,1)
sp2(1)=SeriePrima(es+1,fin,aaa1,ru2,1)
sp2(2)=SeriePrima(es+1,fin,aaa2,ru2,1)
sp2(3)=SeriePrima(es+1,fin,aaa3,ru2,1)
sp2(4)=SeriePrima(es+1,fin,aaa4,ru2,1)
sp2(5)=SeriePrima(es+1,fin,aaa5,ru2,1)
Call OrdinaMatrice (sp,1)
Call OrdinaMatrice (sp1,1)
Call OrdinaMatrice (sp2,1)
If sp(1)>0 And sp1(1)>0 And sp2(1)>0 And sp(1)<sp(2) And sp1(1)<sp1(2)And sp2(1)<sp2(2)And _
sp(4)<sp(5) And sp1(4)<sp1(5)And sp2(4)<sp2(5) Then
If sp(4)=sp1(4)And sp(4)=sp2(4) Then
casi=casi+1
bbb(1)=sp(5)
bbb(2)=sp1(5)
bbb(3)=sp2(5)
Call OrdinaMatrice (bbb,1)
ss=bbb(1)
rsil=ss-sp(4)
If rsil>max Then max=rsil
If rsil>50 Then conta=conta+1
If rsil>40 Then conta1=conta1+1
If rsil>30 Then conta2=conta2+1
If rsil>20 Then conta3=conta3+1
Scrivi String (80,"^")
Scrivi " caso "&casi
Scrivi FormatSpace(es,4,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es,r)& _
" "&SiglaRuota(r1)&" "&StringaEstratti(es,r1)&" "&SiglaRuota(r2)&" "&StringaEstratti(es,r2)
Scrivi FormatSpace(sp(4),4,1)&" "&SiglaRuota(r)&" "&StringaEstratti(sp(4),r)& _
" "&SiglaRuota(r1)&" "&StringaEstratti(sp1(4),r1)&" "&SiglaRuota(r2)&" "&StringaEstratti(sp2(4),r2)
For pp=1 To 5
bb(1)=Estratto(es,r,pp)
If SerieFreq(es+1,ss-1,bb,ru,1)=0 And SerieFreq(ss,ss,bb,ru,1)>0 Then
Scrivi FormatSpace(ss,4,1)&" "&SiglaRuota(r)&" "&Format2(bb(1))&" sto "&rsil
End If
Next
For pp1=1 To 5
bb1(1)=Estratto(es,r1,pp1)
If SerieFreq(es+1,ss-1,bb1,ru1,1)=0 And SerieFreq(ss,ss,bb1,ru1,1)>0 Then
Scrivi FormatSpace(ss,4,1)&" "&SiglaRuota(r1)&" "&Format2(bb1(1))&" sto "&rsil
End If
Next
For pp2=1 To 5
bb2(1)=Estratto(es,r2,pp2)
If SerieFreq(es+1,ss-1,bb2,ru2,1)=0 And SerieFreq(ss,ss,bb2,ru2,1)>0 Then
Scrivi FormatSpace(ss,4,1)&" "&SiglaRuota(r2)&" "&Format2(bb2(1))&" sto "&rsil
End If
Next
End If
End If
End If
End If
End If
Next
Next
Next
Next
Scrivi "Storico RSIL 5° estratto : ",0,0
ColoreTesto 2
Scrivi max,1
ColoreTesto 0
Scrivi "Casi ",0,0
ColoreTesto 1
Scrivi casi,1
ColoreTesto 0
Scrivi "RSIL > 50 : "&conta+conta
Scrivi "RSIL > 40 : "&conta1+conta1
Scrivi "RSIL > 30 : "&conta2+conta2
Scrivi "RSIL > 20 : "&conta3+conta3
End Sub che ti confermo funziona anche con Spaziometria, ma che contempla parzialmente, a mio giudizio, quanto richiesto. La ricerca proposta da Genal credo che parta dall'assunto di avere uno stesso numero residuo dalla CS (Cinquina Sincrona) iniziale, su 2 ruote. Provo a interpretare. 1_ Se le CS sono isocrone allora si avrà RC=RSL. 2_ Se le CS non sono isocrone, ovviamente la condizione guida sarà il momento in cui sortisce contemporaneamente il 4° estratto, lasciando l'isocrono da solo. Esempio: all'estrazione 100 sortiscono le seguenti due CS: BA 01_20_30_40_50 CA 90_70_01_80_90 All'estrazione 119 sono rimasti "in gioco": BA 01_20 CA 70_01 tutti gli altri numeri sono stati estratti. alla 129 cadono anche il 20 su BA e il 70 su CA. Bene, dalla 130 inizia il conteggio del ritardo della sortita dell'isocrono (per RC) 1, sulla prima delle due ruote. In questo caso RC =RSL ma ciò che conta è che abbiano lo stesso RSL. Esempio 2_: all'estrazione 100 sortisce la seguente CS su BA: BA 01_20_30_40_50 all'estrazione 110 sortisce la seguente CS su CA: CA 90_70_01_80_90 All'estrazione 119 sono rimasti "in gioco": BA 01_20 CA 70_01 alla 129 cadono anche il 20 su BA e il 70 su CA. Bene, dalla 130 inizia il conteggio del ritardo della sortita dell'isocrono (per RSL) 1, sulla prima delle due ruote. In questo caso RC <>RSL ma ciò che conta è che abbiano lo stesso RSL. Spero di aver interpretato bene il ragionamento di Genal. Saluti |
