Ambi particolari

Cinzia27

Posted on 13/4/2009, 09:47

Ciao a tutti
questo è lo script per la formazione della tabella dei pentambi di cui vi ho parlato.
Da inserire nella tabella utente.

SPOILER (click to view)

'Pentambi composti da ambo principale + 2 coppie con uno degli elementi differenti di un' unità
'(Cinzia)
Sub main()
Dim n(2),n1(2),n2(2),n3(2),n4(2)
For i=2 To 88
n(1)=i
For j=i +1 To 89
n(2)=j
OrdinaMatrice n
n1(1)=i
n1(2)=j+1
n2(1)=i
n2(2)=j-1
n3(1)=j
n3(2)=i+1
n4(1)=j
n4(2)=i-1
If n1(1)<>n1(2)And n2(1)<>n2(2)And n3(1)<>n3(2)And n4(1)<>n4(2)Then
Scrivi StringaNumeri(n)&";"&StringaNumeri(n1)&";"&StringaNumeri(n2)&";"& _
StringaNumeri(n3)&";"&StringaNumeri(n4)
End If
Next
Next
End Sub

Edited by Cinzia27 - 13/4/2009, 14:20

Cinzia27

Posted on 14/4/2009, 21:11

Ciao a tutti
incoraggiata dall' approvazione di Matteo , essenziale per la sua competenza ed obiettività,
vi risparmio i passaggi che mi hanno portato a questo listato.
Di tutti i 3741 pentambi esso sceglie quelli con 4 ritardi consecutivi di uguale segno precedenti all' attuale. Non ho ancora gli storici per questi casi ma a prima vista i risultati sembrano buoni.
Spero di fare cosa gradita .

SPOILER (click to view)

'Ritardi attuali e precedenti Pentambi composti da ambo principale + 2 coppie con uno degli _
'elementi differenti di un' unità su TUTTE e NZ - 5 ritardi consecutivi(Cinzia)

Sub main()
Dim n(2),n1(2),n2(2),n3(2),n4(2), m(3741,16),ru(2),rt(5),rt1(5),rt2(5),rt3(5),rt4(5)
r=11
r1=12
ru(1)=r
ru(2)=r1
Scrivi "Alla "&EstrazioneFin&" Ruote unite : "&Siglaruota(r)&" "&Siglaruota(r1)&" at ult. pen. terz. quart."
co=0
For i=2 To 88
n(1)=i
For j=i +1 To 89
n(2)=j
OrdinaMatrice n
n1(1)=i
n1(2)=j+1
n2(1)=i
n2(2)=j-1
n3(1)=j
n3(2)=i+1
n4(1)=j
n4(2)=i-1
If n1(1)<>n1(2)And n2(1)<>n2(2)And n3(1)<>n3(2)And n4(1)<>n4(2)Then
rt(1)=SerieRitardo(1,EstrazioneFin,n,ru,2)
rt(2)=SerieRitardo(1,EstrazioneFin,n1,ru,2)
rt(3)=SerieRitardo(1,EstrazioneFin,n2,ru,2)
rt(4)=SerieRitardo(1,EstrazioneFin,n3,ru,2)
rt(5)=SerieRitardo(1,EstrazioneFin,n4,ru,2)
OrdinaMatrice rt
u=EstrazioneFin-(rt(1))
rt1(1)=SerieRitardo(1,u-1,n,ru,2)
rt1(2)=SerieRitardo(1,u-1,n1,ru,2)
rt1(3)=SerieRitardo(1,u-1,n2,ru,2)
rt1(4)=SerieRitardo(1,u-1,n3,ru,2)
rt1(5)=SerieRitardo(1,u-1,n4,ru,2)
OrdinaMatrice rt1

u1=u-1-(rt1(1))
rt2(1)=SerieRitardo(1,u1-1,n,ru,2)
rt2(2)=SerieRitardo(1,u1-1,n1,ru,2)
rt2(3)=SerieRitardo(1,u1-1,n2,ru,2)
rt2(4)=SerieRitardo(1,u1-1,n3,ru,2)
rt2(5)=SerieRitardo(1,u1-1,n4,ru,2)
OrdinaMatrice rt2

u2=u1-1-(rt2(1))
rt3(1)=SerieRitardo(1,u2-1,n,ru,2)
rt3(2)=SerieRitardo(1,u2-1,n1,ru,2)
rt3(3)=SerieRitardo(1,u2-1,n2,ru,2)
rt3(4)=SerieRitardo(1,u2-1,n3,ru,2)
rt3(5)=SerieRitardo(1,u2-1,n4,ru,2)
OrdinaMatrice rt3
u3=u2-1-(rt3(1))
rt4(1)=SerieRitardo(1,u3-1,n,ru,2)
rt4(2)=SerieRitardo(1,u3-1,n1,ru,2)
rt4(3)=SerieRitardo(1,u3-1,n2,ru,2)
rt4(4)=SerieRitardo(1,u3-1,n3,ru,2)
rt4(5)=SerieRitardo(1,u3-1,n4,ru,2)
OrdinaMatrice rt4

If rt2(1)= rt1(1)And rt2(1)= rt3(1) And rt3(1)= rt4(1)Then

co=co+1
m(co,1)=co
m(co,2)=n(1)
m(co,3)=n(2)
m(co,4)=n1(1)
m(co,5)=n1(2)
m(co,6)=n2(1)
m(co,7)=n2(2)
m(co,8)=n3(1)
m(co,9)=n3(2)
m(co,10)=n4(1)
m(co,11)=n4(2)
m(co,12)=rt(1)
m(co,13)=rt1(1)
m(co,14)=rt2(1)
m(co,15)=rt3(1)
m(co,16)=rt4(1)

End If
End If
Next
Next
OrdinaMatrice m,-1,12
For w=1 To 5'modificare 5 per visualizzare una diversa quantità di pentambi
Scrivi Format2(m(w,2))&"."&Format2(m(w,3))&";"&Format2(m(w,4))&"."& Format2(m(w,5))&";"& _
Format2(m(w,6))&"."&Format2(m(w,7))&";"& Format2(m(w,8))&"."&Format2(m(w,9))&";"& _
Format2(m(w,10))&"."&Format2(m(w,11))&" "&formatspace(m(w,12),4,1)&" "&formatspace(m(w,13),4,1)& _
" "&formatspace(m(w,14),4,1)&" "&formatspace(m(w,15),4,1)&" "&formatspace(m(w,16),4,1)

Next
End Sub

Cinzia

Cinzia27

Posted on 16/4/2009, 16:31

Script dei ritardi attuali sulle 11 ruote. Nelle note sono contenuti i dati importantissimi forniti
da Matteo , inoltre è spiegato l' ultimo valore.

SPOILER (click to view)

'Ritardi attuali Pentambi composti da da ambo principale + 2 coppie con uno degli elementi
'differenti di un' unità sulle 11 ruote
'(Cinzia )
' IMPORTANTE : con la preziosa collaborazione di Matteo abbiamo i seguenti dati :
' max sto su Ro :1207(13.78;13.79;13.77;78.14;78.12)
'15 casi oltre le 1000 estraz.
' 44 casi oltre le 900 estraz.

'Nota : se l' ultimo valore è negativo significa che sono state superate 900 estrazioni

Sub main()
Dim n(2),n1(2),n2(2),n3(2),n4(2), m(3741,14),ru(1),rt(5)
For r=1 To 11
If r=11 Then r=12
ru(1)=r
Scrivi
co=0
For i=2 To 88
n(1)=i
For j=i +1 To 89
n(2)=j
OrdinaMatrice n
n1(1)=i
n1(2)=j+1
n2(1)=i
n2(2)=j-1
n3(1)=j
n3(2)=i+1
n4(1)=j
n4(2)=i-1
If n1(1)<>n1(2)And n2(1)<>n2(2)And n3(1)<>n3(2)And n4(1)<>n4(2)Then
rt(1)=SerieRitardo(1,EstrazioneFin,n,ru,2)
rt(2)=SerieRitardo(1,EstrazioneFin,n1,ru,2)
rt(3)=SerieRitardo(1,EstrazioneFin,n2,ru,2)
rt(4)=SerieRitardo(1,EstrazioneFin,n3,ru,2)
rt(5)=SerieRitardo(1,EstrazioneFin,n4,ru,2)
OrdinaMatrice rt
co=co+1
m(co,1)=co
m(co,2)=n(1)
m(co,3)=n(2)
m(co,4)=n1(1)
m(co,5)=n1(2)
m(co,6)=n2(1)
m(co,7)=n2(2)
m(co,8)=n3(1)
m(co,9)=n3(2)
m(co,10)=n4(1)
m(co,11)=n4(2)
m(co,12)=SiglaRuota(r)
m(co,13)=rt(1)
m(co,14)=900-rt(1)

End If
Next
Next
OrdinaMatrice m,-1,13
For w=1 To 30
Scrivi Format2(m(w,2))&"."&Format2(m(w,3))&";"&Format2(m(w,4))&"."& Format2(m(w,5))&";"& _
Format2(m(w,6))&"."&Format2(m(w,7))&";"& Format2(m(w,8))&"."&Format2(m(w,9))&";"& _
Format2(m(w,10))&"."&Format2(m(w,11))&" "&m(w,12)&" "&(m(w,13))&" (a 900 "&(m(w,14))&")"

Next
Next
End Sub

Cinzia

Cinzia27

Posted on 16/4/2009, 22:23

Ritardo attuale con 3 ritardi consecutivi uguali

SPOILER (click to view)

'Ritardi attuali e precedenti Pentambi composti da ambo principale + 2 coppie con uno degli _
'elementi differenti di un' unità su TUTTE e NZ - 4 ritardi consecutivi(Cinzia)

Sub main()
Dim n(2),n1(2),n2(2),n3(2),n4(2), m(3741,15),ru(2),rt(5),rt1(5),rt2(5),rt3(5)
r=11
r1=12
ru(1)=r
ru(2)=r1
Scrivi "Alla "&EstrazioneFin&" Ruote unite : "&Siglaruota(r)&" "&Siglaruota(r1)&" at ult. pen. terz. quart."
co=0
For i=2 To 88
n(1)=i
For j=i +1 To 89
n(2)=j
OrdinaMatrice n
n1(1)=i
n1(2)=j+1
n2(1)=i
n2(2)=j-1
n3(1)=j
n3(2)=i+1
n4(1)=j
n4(2)=i-1
If n1(1)<>n1(2)And n2(1)<>n2(2)And n3(1)<>n3(2)And n4(1)<>n4(2)Then
rt(1)=SerieRitardo(1,EstrazioneFin,n,ru,2)
rt(2)=SerieRitardo(1,EstrazioneFin,n1,ru,2)
rt(3)=SerieRitardo(1,EstrazioneFin,n2,ru,2)
rt(4)=SerieRitardo(1,EstrazioneFin,n3,ru,2)
rt(5)=SerieRitardo(1,EstrazioneFin,n4,ru,2)
OrdinaMatrice rt
u=EstrazioneFin-(rt(1))
rt1(1)=SerieRitardo(1,u-1,n,ru,2)
rt1(2)=SerieRitardo(1,u-1,n1,ru,2)
rt1(3)=SerieRitardo(1,u-1,n2,ru,2)
rt1(4)=SerieRitardo(1,u-1,n3,ru,2)
rt1(5)=SerieRitardo(1,u-1,n4,ru,2)
OrdinaMatrice rt1

u1=u-1-(rt1(1))
rt2(1)=SerieRitardo(1,u1-1,n,ru,2)
rt2(2)=SerieRitardo(1,u1-1,n1,ru,2)
rt2(3)=SerieRitardo(1,u1-1,n2,ru,2)
rt2(4)=SerieRitardo(1,u1-1,n3,ru,2)
rt2(5)=SerieRitardo(1,u1-1,n4,ru,2)
OrdinaMatrice rt2

u2=u1-1-(rt2(1))
rt3(1)=SerieRitardo(1,u2-1,n,ru,2)
rt3(2)=SerieRitardo(1,u2-1,n1,ru,2)
rt3(3)=SerieRitardo(1,u2-1,n2,ru,2)
rt3(4)=SerieRitardo(1,u2-1,n3,ru,2)
rt3(5)=SerieRitardo(1,u2-1,n4,ru,2)
OrdinaMatrice rt3

If rt2(1)= rt1(1)And rt2(1)= rt3(1) Then

co=co+1
m(co,1)=co
m(co,2)=n(1)
m(co,3)=n(2)
m(co,4)=n1(1)
m(co,5)=n1(2)
m(co,6)=n2(1)
m(co,7)=n2(2)
m(co,8)=n3(1)
m(co,9)=n3(2)
m(co,10)=n4(1)
m(co,11)=n4(2)
m(co,12)=rt(1)
m(co,13)=rt1(1)
m(co,14)=rt2(1)
m(co,15)=rt3(1)

End If
End If
Next
Next
OrdinaMatrice m,-1,12
For w=1 To 20
Scrivi Format2(m(w,2))&"."&Format2(m(w,3))&";"&Format2(m(w,4))&"."& Format2(m(w,5))&";"& _
Format2(m(w,6))&"."&Format2(m(w,7))&";"& Format2(m(w,8))&"."&Format2(m(w,9))&";"& _
Format2(m(w,10))&"."&Format2(m(w,11))&" "&formatspace(m(w,12),4,1)&" "&formatspace(m(w,13),4,1)& _
" "&formatspace(m(w,14),4,1)&" "&formatspace(m(w,15),4,1)

Next
End Sub

Cinzia

Cinzia27

Posted on 19/4/2009, 23:08

Ciao a tutti.
Dopo aver completato grazie a Matteo l' analisi sugli storici, posto lo
script dei ritardi attuali su ruote unite dei pentambi con ambo principale e 4 ambi differenziati da esso
di un' unità . Data la completezza della ricerca vi invito a tener conto di questo script e dell' altro
già pubblicato su ruota .
Per quanto concerne i pentambi con ritardo uguali, per il momento, finché non abbiamo gli storici, consiglio di non tenerne conto.

SPOILER (click to view)

'Ritardi attuali Pentambi composti da ambo principale + 2 coppie con uno degli elementi differenti
' di un' unità su TUTTE e NZ (Cinzia)
'Dati ricavati con l' aiuto di Matteo
'dal 07/01/1939
'10 ruote
'Casi :2.094.234
'Max Sto 119
'>= 100 16
'>= 90 43

Sub main()
Dim n(2),n1(2),n2(2),n3(2),n4(2), m(3741,13),ru(2),rt(5)
r=11
r1=12
ru(1)=r
ru(2)=r1
Scrivi " Ruote unite : "&Siglaruota(r)&" "&Siglaruota(r1)&" all' estrazione n. "&EstrazioneFin
co=0
For i=2 To 88
n(1)=i
For j=i +1 To 89
n(2)=j
OrdinaMatrice n
n1(1)=i
n1(2)=j+1
n2(1)=i
n2(2)=j-1
n3(1)=j
n3(2)=i+1
n4(1)=j
n4(2)=i-1
If n1(1)<>n1(2)And n2(1)<>n2(2)And n3(1)<>n3(2)And n4(1)<>n4(2)Then
rt(1)=SerieRitardo(1,EstrazioneFin,n,ru,2)
rt(2)=SerieRitardo(1,EstrazioneFin,n1,ru,2)
rt(3)=SerieRitardo(1,EstrazioneFin,n2,ru,2)
rt(4)=SerieRitardo(1,EstrazioneFin,n3,ru,2)
rt(5)=SerieRitardo(1,EstrazioneFin,n4,ru,2)
OrdinaMatrice rt
co=co+1
m(co,1)=co
m(co,2)=n(1)
m(co,3)=n(2)
m(co,4)=n1(1)
m(co,5)=n1(2)
m(co,6)=n2(1)
m(co,7)=n2(2)
m(co,8)=n3(1)
m(co,9)=n3(2)
m(co,10)=n4(1)
m(co,11)=n4(2)
m(co,12)=rt(1)
End If
Next
Next
OrdinaMatrice m,-1,12
For w=1 To 40'modificare 40 per visualizzare una quantità diversa di ambi
Scrivi Format2(m(w,2))&"."&Format2(m(w,3))&";"&Format2(m(w,4))&"."& Format2(m(w,5))&";"& _
Format2(m(w,6))&"."&Format2(m(w,7))&";"& Format2(m(w,8))&"."&Format2(m(w,9))&";"& _
Format2(m(w,10))&"."&Format2(m(w,11))&" "&m(w,12)
Next
End Sub

Cinzia

4 replies since 13/4/2009, 09:47 148 views