Sincronismo-Isocronismo 2-3-4-5 ambi residui dai 100 iniziali, (Ritardi Storici e Attuali)

« Older Newer »

Gam73

Posted on 21/5/2008, 17:09

Top Member

Group:: Administrator

Posts:: 1,706

Status:

Ciao a tutti,
allego il listato per la ricerca di cui sopra. All'inizio dello script una breve spiegazione dei dati in output.
A presto

Download attachment
Sincro_Isocronismo_x_2_3_4_5_Ambi_a_TUTTE__STO_ATT_.txt ( Number of downloads: 80 )

Cinzia27

Posted on 15/12/2008, 18:48

Ciao, Gam
ho interpretato la tua interessante ricerca in questo modo.

SPOILER (click to view)

Sub main()
Dim a(2),ru(1),ru1(1)
Scrivi "ritardi intere estrazioni (Cinzia)"
ru1(1)=11
For es=7550 To EstrazioneFin
Messaggio(es)
c=0
mx=0
For r=1 To 10
ru(1)=r
For p=1 To 4
For p1=p+1 To 5
a(1)=Estratto(es,r,p)
a(2)=Estratto(es,r,p1)
ex=es+1
If ex>EstrazioneFin Then ex=EstrazioneFin
s=SeriePrima(ex, EstrazioneFin,a,ru1,2)
If s>mx Then mx=s
If s=0 Then
c=c+1
If SerieFreq(EstrazioneFin+1,EstrazioneFin+1,a,ru1,2)>0 Then
ColoreTesto 2
Scrivi FormatSpace(c,4)&")"&FormatSpace(es,4)&" "&dataestrazione(es)&" "& _
FormatSpace(SiglaRuota(r),5,1)&" "&format2(a(1))& _
" "&format2(a(2))&" sortito a tutte ",1
Else
ColoreTesto 0
Scrivi FormatSpace(c,4)&")"&FormatSpace(es,4)&" "&dataestrazione(es)&" "& _
FormatSpace(SiglaRuota(r),5,1)&" "&format2(a(1))& _
" "&format2(a(2))
ColoreTesto 0
End If
End If
Next
Next
Next
ColoreTesto 0
If c>0 Then
Scrivi "situazione vigente dall' estr "&dataestrazione(mx)&" "&mx
rit=EstrazioneFin-mx
Scrivi "rit "&rit
If rit>max Then max=rit
Scrivi String(60,"-")
End If
Next
Scrivi "rit max"&max
End Sub

Cinzia

Cinzia27

Posted on 22/2/2009, 16:43

Ciao a tutti
In aggiunta all' ottimo script di Gam,
questo list rileva le estrazioni ove è rimasto un solo ambo residuo e il suo RDL.
Chiedo cortesemente un vostro controllo sia scriptico che statistico.

Buona domenica
Cinzia

SPOILER (click to view)

Sub main()
Dim a(2),ru(1),ru1(2)
Scrivi " 1 AMBO RESIDUO PER ESTRAZIONE (Cinzia)"
ru1(1)=11
ru1(2)=12
For es=7550 To EstrazioneFin
Messaggio(es)
c=0
mx=0
For r=1 To 11
If r=11 Then r=12
ru(1)=r
For p=1 To 4
For p1=p+1 To 5
a(1)=Estratto(es,r,p)
a(2)=Estratto(es,r,p1)
ex=es+1
If ex>EstrazioneFin Then ex=EstrazioneFin
s=SeriePrima(ex, EstrazioneFin,a,ru1,2)
If s>mx Then mx=s
If s=0 Then
c=c+1
If SerieFreq(EstrazioneFin+1,EstrazioneFin+1,a,ru1,2)>0 Then
ColoreTesto 2
ri= FormatSpace(c,4)&")"&FormatSpace(es,4)&" "&dataestrazione(es)&" "& FormatSpace(SiglaRuota(r),5,1)&" "&format2(a(1))& " "&format2(a(2))&" sortito a tutte "
Else
ColoreTesto 0
ri= FormatSpace(c,4)&")"&FormatSpace(es,4)&" "&dataestrazione(es)&" "& _
FormatSpace(SiglaRuota(r),5,1)&" "&format2(a(1))&" "&format2(a(2))
ColoreTesto 0
End If
End If
Next
Next
Next
ColoreTesto 0
If c=1 Then
Scrivi ri
Scrivi "situazione vigente dall' estr "&dataestrazione(mx)&" "&mx
rit=EstrazioneFin-mx
Scrivi "rit "&rit
If rit>max Then max=rit
Scrivi String(60,"-")
End If
Next
Scrivi "rit max"&max
End Sub

2 replies since 21/5/2008, 17:09 136 views