Appunti sulla Tavola Settenaria

[imported_n/a]

Non mi direte che avete gia abbandonato il baricentro!!!
Aggiorniamo un po fino all'ultima estrazione, ce n'è da sbizzarirci come si vuole...se si vuole!!
Ciao ciao
Dalla estrazione del:
25.05.2006
Na 61.20.78.19.88
Ambo 87.39 4° colpo

Dalla estrazione del:
25.05.2006
To 27.13.72.79.81
Ambo 89.77 4° colpo

Dalla estrazione del:
27.05.2006
Ba 85.39.73.13.71
Ambo 84.07 6° colpo

Dalla estrazione del:
30.05.2006
Mi 16.82.29.17.38
Ambo 89.11 5° colpo

Dalla estrazione del:
30.05.2006
Pa 01.48.16.71.37
Ambo 73.18 5° colpo

Dalla estrazione del:
01.06.2006
Ba 51.19.68.27.55
Ambo 13.67 3° colpo

Dalla estrazione del:
01.06.2006
Fi 90.34.27.16.67
Ambo 90.07 4° colpo

Dalla estrazione del:
01.06.2006
Ge 04.06.77.57.68
Ambo 10.27 2° colpo
Ambo 81.64 3° colpo
Terno 62.29.74 2° colpo

Dalla estrazione del:
01.06.2006
Pa 87.89.71.46.24
Ambo 65.86 2° colpo

Dalla estrazione del:
01.06.2006
Ro 33.25.65.37.36
Ambo 64.03 2° colpo

Dalla estrazione del:
03.06.2006
Fi 72.38.44.69.58
Ambo 13.06 3° colpo

Dalla estrazione del:
03.06.2006
Ro 20.07.46.72.32
Ambo 74.29 3° colpo

Dalla estrazione del:
03.06.2006
To 88.82.89.23.77
Ambo 47.32 2° colpo

Dalla estrazione del:
06.06.2006
Ba 44.24.28.62.43
Ambo 84.07 2° colpo

Dalla estrazione del:
06.06.2006
Ve 01.53.24.02.55
Ambo 22.87 1° colpo

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[imported_n/a]

Anche se non interessa a nessuno aggiorniamo alle ultime due estrazioni gli appunti.
Estrazione del 03.06.2006
Ba 71.18.34.83.05
Ambo 70.51 su Ba 5° colpo 15.06.2006
**************************************
Estrazione del 06.06.2006
Ca 86.06.49.54.55
Ambo 03.88 su Ca 5° colpo 17.06.2006
**************************************
Estrazione del 06.06.2006
Ge 62.10.27.29.74
Ambo 57.21 su Ge 4° colpo 15.06.2006
*************************************
Estrazione del 10.06.2006
Ve 02.31.30.29.66
Ambo 74.29 su Ve 3° colpo 17.06.2006
*************************************
Estrazione del 13.06.2006
Ge 54.72.59.08.48
Ambo 52.39 su Ge 2° colpo 17.06.2006
*************************************
Estrazione del 13.06.2006
Pa 48.54.16.10.42
Terno 60.37.48 su Pa 2° colpo 17.06.2006
*************************************
Ciao ciao

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[imported_n/a]

Anche se non interessa a nessuno aggiorniamo alle ultime due estrazioni gli appunti.
Estrazione del 03.06.2006
Ba 71.18.34.83.05
Ambo 70.51 su Ba 5° colpo 15.06.2006
**************************************
Estrazione del 06.06.2006
Ca 86.06.49.54.55
Ambo 03.88 su Ca 5° colpo 17.06.2006
**************************************
Estrazione del 06.06.2006
Ge 62.10.27.29.74
Ambo 57.21 su Ge 4° colpo 15.06.2006
*************************************
Estrazione del 10.06.2006
Ve 02.31.30.29.66
Ambo 74.29 su Ve 3° colpo 17.06.2006
*************************************
Estrazione del 13.06.2006
Ge 54.72.59.08.48
Ambo 52.39 su Ge 2° colpo 17.06.2006
*************************************
Estrazione del 13.06.2006
Pa 48.54.16.10.42
Terno 60.37.48 su Pa 2° colpo 17.06.2006
*************************************
Ciao ciao

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[imported_n/a]

x Daniel
se puo' interessarti ho questo listato sulla tavola settenaria x torino,non so'di chi sia,lo metto a tua disposizione x studiarlo un po' e vedere se puo' essere valido.
mi puoi dare anche qualche spiegazione.............se riusciro' a capirne qualcosa!!!!!!!!!!!!!!!!!!!!!!
spero di aver fatto cosa gradita.
ciao

Scrivi"TAVOLA SETTENARIA RUOTA TORINO"
Sub main()
Dim num1(5)
Dim num2(5)
Dim num3(5)
Dim num4(5)
Dim num5(5)
Dim num6(5)
Dim num7(5)
Dim num8(5)
Dim ruote(10)
Dim poste(5)
poste(1)=0
poste(2)=1
poste(3)=1
poste(4)=0
poste(5)=0
tmp=InputBox("Quante estrazioni controllo??",,1000)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
r=9
ruote(1)=9
For p=1 To 3
For p1=p+1 To 4
a1=Estratto (es,r,p):a2=Estratto (es,r,p1)
If a1=Diametrale (a2)Then
s=Figura (a1)
If s=1 Or s=4 Or s=5 Or s=7 Or s=8 Or s=9 Then
If a1=1 Then
b1=13:b2=78:b3=1:b4=14:b5=90
End If
If a1=2 Then
b1=26:b2=65:b3=2:b4=14:b5=89
End If
If a1=3 Then
b1=39:b2=52:b3=3:b4=21:b5=88
End If
If a1=4 Then
b1=52:b2=39:b3=4:b4=28:b5=87
End If
If a1=5 Then
b1=65:b2=26:b3=5:b4=35:b5=86
End If
If a1=6 Then
b1=78:b2=13:b3=6:b4=42:b5=85
End If
If a1=7 Then
b1=1:b2=90:b3=7:b4=49:b5=84
End If
If a1=8 Then
b1=14:b2=77:b3=8:b4=56:b5=83
End If
If a1=9 Then
b1=27:b2=64:b3=9:b4=63:b5=82
End If
If a1=10 Then
b1=40:b2=51:b3=10:b4=70:b5=81
End If
If a1=11 Then
b1=53:b2=38:b3=11:b4=77:b5=80
End If
If a1=12 Then
b1=66:b2=25:b3=12:b4=84:b5=79
End If
If a1=13 Then
b1=79:b2=12:b3=13:b4=1:b5=78
End If
If a1=14 Then
b1=2:b2=89:b3=14:b4=8:b5=77
End If
If a1=15 Then
b1=15:b2=76:b3=15:b4=15:b5=76
End If
If a1=16 Then
b1=28:b2=63:b3=16:b4=22:b5=75
End If
If a1=17 Then
b1=41:b2=50:b3=17:b4=29:b5=74
End If
If a1=18 Then
b1=54:b2=37:b3=18:b4=36:b5=73
End If
If a1=19 Then
b1=67:b2=24:b3=19:b4=43:b5=72
End If
If a1=20 Then
b1=80:b2=11:b3=20:b4=50:b5=71
End If
If a1=21 Then
b1=3:b2=88:b3=21:b4=57:b5=70
End If
If a1=22 Then
b1=16:b2=75:b3=22:b4=64:b5=69
End If
If a1=23 Then
b1=29:b2=62:b3=23:b4=71:b5=68
End If
If a1=24 Then
b1=42:b2=49:b3=24:b4=78:b5=67
End If
If a1=25 Then
b1=55:b2=36:b3=25:b4=85:b5=66
End If
If a1=26 Then
b1=68:b2=23:b3=26:b4=2:b5=65
End If
If a1=27 Then
b1=81:b2=10:b3=27:b4=9:b5=64
End If
If a1=28 Then
b1=4:b2=87:b3=28:b4=16:b5=63
End If
If a1=29 Then
b1=17:b2=74:b3=29:b4=23:b5=62
End If
If a1=30 Then
b1=30:b2=61:b3=30:b4=30:b5=61
End If
If a1=31 Then
b1=43:b2=48:b3=31:b4=37:b5=60
End If
If a1=32 Then
b1=56:b2=35:b3=32:b4=44:b5=59
End If
If a1=33 Then
b1=69:b2=22:b3=33:b4=51:b5=58
End If
If a1=34 Then
b1=82:b2=9:b3=34:b4=58:b5=57
End If
If a1=35 Then
b1=5:b2=86:b3=35:b4=65:b5=56
End If
If a1=36 Then
b1=18:b2=73:b3=36:b4=72:b5=55
End If
If a1=37 Then
b1=31:b2=60:b3=37:b4=79:b5=54
End If
If a1=38 Then
b1=44:b2=47:b3=38:b4=86:b5=53
End If
If a1=39 Then
b1=57:b2=34:b3=39:b4=3:b5=52
End If
If a1=40 Then
b1=70:b2=21:b3=40:b4=10:b5=51
End If
If a1=41 Then
b1=83:b2=8:b3=41:b4=17:b5=50
End If
If a1=42 Then
b1=6:b2=85:b3=42:b4=24:b5=49
End If
If a1=43 Then
b1=19:b2=72:b3=43:b4=31:b5=48
End If
If a1=44 Then
b1=32:b2=59:b3=44:b4=38:b5=47
End If
If a1=45 Then
b1=45:b2=46:b3=45:b4=45:b5=46
End If
If a1=46 Then
b1=58:b2=33:b3=46:b4=52:b5=45
End If
If a1=47 Then
b1=71:b2=20:b3=47:b4=59:b5=44
End If
If a1=48 Then
b1=84:b2=7:b3=48:b4=66:b5=43
End If
If a1=49 Then
b1=7:b2=84:b3=49:b4=73:b5=42
End If
If a1=50 Then
b1=20:b2=71:b3=50:b4=80:b5=41
End If
If a1=51 Then
b1=33:b2=58:b3=51:b4=87:b5=40
End If
If a1=52 Then
b1=46:b2=45:b3=52:b4=4:b5=39
End If
If a1=53 Then
b1=59:b2=32:b3=53:b4=11:b5=38
End If
If a1=54 Then
b1=72:b2=19:b3=54:b4=18:b5=37
End If
If a1=55 Then
b1=85:b2=6:b3=55:b4=25:b5=36
End If
If a1=56 Then
b1=8:b2=83:b3=56:b4=32:b5=35
End If
If a1=57 Then
b1=21:b2=70:b3=57:b4=39:b5=34
End If
If a1=58 Then
b1=34:b2=57:b3=58:b4=46:b5=33
End If
If a1=59 Then
b1=47:b2=44:b3=59:b4=53:b5=32
End If
If a1=60 Then
b1=60:b2=31:b3=60:b4=60

 

[imported_n/a]

x Daniel
se puo' interessarti ho questo listato sulla tavola settenaria x torino,non so'di chi sia,lo metto a tua disposizione x studiarlo un po' e vedere se puo' essere valido.
mi puoi dare anche qualche spiegazione.............se riusciro' a capirne qualcosa!!!!!!!!!!!!!!!!!!!!!!
spero di aver fatto cosa gradita.
ciao

Scrivi"TAVOLA SETTENARIA RUOTA TORINO"
Sub main()
Dim num1(5)
Dim num2(5)
Dim num3(5)
Dim num4(5)
Dim num5(5)
Dim num6(5)
Dim num7(5)
Dim num8(5)
Dim ruote(10)
Dim poste(5)
poste(1)=0
poste(2)=1
poste(3)=1
poste(4)=0
poste(5)=0
tmp=InputBox("Quante estrazioni controllo??",,1000)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
r=9
ruote(1)=9
For p=1 To 3
For p1=p+1 To 4
a1=Estratto (es,r,p):a2=Estratto (es,r,p1)
If a1=Diametrale (a2)Then
s=Figura (a1)
If s=1 Or s=4 Or s=5 Or s=7 Or s=8 Or s=9 Then
If a1=1 Then
b1=13:b2=78:b3=1:b4=14:b5=90
End If
If a1=2 Then
b1=26:b2=65:b3=2:b4=14:b5=89
End If
If a1=3 Then
b1=39:b2=52:b3=3:b4=21:b5=88
End If
If a1=4 Then
b1=52:b2=39:b3=4:b4=28:b5=87
End If
If a1=5 Then
b1=65:b2=26:b3=5:b4=35:b5=86
End If
If a1=6 Then
b1=78:b2=13:b3=6:b4=42:b5=85
End If
If a1=7 Then
b1=1:b2=90:b3=7:b4=49:b5=84
End If
If a1=8 Then
b1=14:b2=77:b3=8:b4=56:b5=83
End If
If a1=9 Then
b1=27:b2=64:b3=9:b4=63:b5=82
End If
If a1=10 Then
b1=40:b2=51:b3=10:b4=70:b5=81
End If
If a1=11 Then
b1=53:b2=38:b3=11:b4=77:b5=80
End If
If a1=12 Then
b1=66:b2=25:b3=12:b4=84:b5=79
End If
If a1=13 Then
b1=79:b2=12:b3=13:b4=1:b5=78
End If
If a1=14 Then
b1=2:b2=89:b3=14:b4=8:b5=77
End If
If a1=15 Then
b1=15:b2=76:b3=15:b4=15:b5=76
End If
If a1=16 Then
b1=28:b2=63:b3=16:b4=22:b5=75
End If
If a1=17 Then
b1=41:b2=50:b3=17:b4=29:b5=74
End If
If a1=18 Then
b1=54:b2=37:b3=18:b4=36:b5=73
End If
If a1=19 Then
b1=67:b2=24:b3=19:b4=43:b5=72
End If
If a1=20 Then
b1=80:b2=11:b3=20:b4=50:b5=71
End If
If a1=21 Then
b1=3:b2=88:b3=21:b4=57:b5=70
End If
If a1=22 Then
b1=16:b2=75:b3=22:b4=64:b5=69
End If
If a1=23 Then
b1=29:b2=62:b3=23:b4=71:b5=68
End If
If a1=24 Then
b1=42:b2=49:b3=24:b4=78:b5=67
End If
If a1=25 Then
b1=55:b2=36:b3=25:b4=85:b5=66
End If
If a1=26 Then
b1=68:b2=23:b3=26:b4=2:b5=65
End If
If a1=27 Then
b1=81:b2=10:b3=27:b4=9:b5=64
End If
If a1=28 Then
b1=4:b2=87:b3=28:b4=16:b5=63
End If
If a1=29 Then
b1=17:b2=74:b3=29:b4=23:b5=62
End If
If a1=30 Then
b1=30:b2=61:b3=30:b4=30:b5=61
End If
If a1=31 Then
b1=43:b2=48:b3=31:b4=37:b5=60
End If
If a1=32 Then
b1=56:b2=35:b3=32:b4=44:b5=59
End If
If a1=33 Then
b1=69:b2=22:b3=33:b4=51:b5=58
End If
If a1=34 Then
b1=82:b2=9:b3=34:b4=58:b5=57
End If
If a1=35 Then
b1=5:b2=86:b3=35:b4=65:b5=56
End If
If a1=36 Then
b1=18:b2=73:b3=36:b4=72:b5=55
End If
If a1=37 Then
b1=31:b2=60:b3=37:b4=79:b5=54
End If
If a1=38 Then
b1=44:b2=47:b3=38:b4=86:b5=53
End If
If a1=39 Then
b1=57:b2=34:b3=39:b4=3:b5=52
End If
If a1=40 Then
b1=70:b2=21:b3=40:b4=10:b5=51
End If
If a1=41 Then
b1=83:b2=8:b3=41:b4=17:b5=50
End If
If a1=42 Then
b1=6:b2=85:b3=42:b4=24:b5=49
End If
If a1=43 Then
b1=19:b2=72:b3=43:b4=31:b5=48
End If
If a1=44 Then
b1=32:b2=59:b3=44:b4=38:b5=47
End If
If a1=45 Then
b1=45:b2=46:b3=45:b4=45:b5=46
End If
If a1=46 Then
b1=58:b2=33:b3=46:b4=52:b5=45
End If
If a1=47 Then
b1=71:b2=20:b3=47:b4=59:b5=44
End If
If a1=48 Then
b1=84:b2=7:b3=48:b4=66:b5=43
End If
If a1=49 Then
b1=7:b2=84:b3=49:b4=73:b5=42
End If
If a1=50 Then
b1=20:b2=71:b3=50:b4=80:b5=41
End If
If a1=51 Then
b1=33:b2=58:b3=51:b4=87:b5=40
End If
If a1=52 Then
b1=46:b2=45:b3=52:b4=4:b5=39
End If
If a1=53 Then
b1=59:b2=32:b3=53:b4=11:b5=38
End If
If a1=54 Then
b1=72:b2=19:b3=54:b4=18:b5=37
End If
If a1=55 Then
b1=85:b2=6:b3=55:b4=25:b5=36
End If
If a1=56 Then
b1=8:b2=83:b3=56:b4=32:b5=35
End If
If a1=57 Then
b1=21:b2=70:b3=57:b4=39:b5=34
End If
If a1=58 Then
b1=34:b2=57:b3=58:b4=46:b5=33
End If
If a1=59 Then
b1=47:b2=44:b3=59:b4=53:b5=32
End If
If a1=60 Then
b1=60:b2=31:b3=60:b4=60

 

[imported_n/a]

Ciao Daniel, ottimo lavoro....mi sa' che il baricentro funzioni molto meglio a quanto pare.

Buona domenica tutti

 

[imported_n/a]

Ciao Daniel, ottimo lavoro....mi sa' che il baricentro funzioni molto meglio a quanto pare.

Buona domenica tutti

 

[imported_n/a]

magari,questo listato,si puo' migliorare


ciao
DIDA

 

[imported_n/a]

magari,questo listato,si puo' migliorare


ciao
DIDA

 

[imported_n/a]

Lascia perdere quel listato Dida.
E' vecchiotto e fatto male anche, si potrebbe ridurre di due terzi tutto quel casino che c'è con lo stesso risultato (lo so perchè l'ho fatto io )
E' si Matematico interessante questo baricentro, anche se non ottimale per il numero di previsioni, ma si può diminuire di molto, con altrettanti risultati positivi.........
Ciao ciao

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[imported_n/a]

Lascia perdere quel listato Dida.
E' vecchiotto e fatto male anche, si potrebbe ridurre di due terzi tutto quel casino che c'è con lo stesso risultato (lo so perchè l'ho fatto io )
E' si Matematico interessante questo baricentro, anche se non ottimale per il numero di previsioni, ma si può diminuire di molto, con altrettanti risultati positivi.........
Ciao ciao

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[imported_n/a]

ma guarda che casualita'!!!!!!!!!!!!!!!!
ho trovato il legittimo proprietario!
scusami !ma visto che sei bravissimo ...........non potresti
fare un listato per "il baricentro"
grazie mille


ciao
DIDA

 

[imported_n/a]

ma guarda che casualita'!!!!!!!!!!!!!!!!
ho trovato il legittimo proprietario!
scusami !ma visto che sei bravissimo ...........non potresti
fare un listato per "il baricentro"
grazie mille


ciao
DIDA

 

[imported_n/a]

Pronto Dida....buon divertimento!!
Per Rudivall se mi legge......non sono riuscito...l'imbecille elettronico questa volta ha vinto!!
Non so come andare ad individuare l'estrazione con l'esito positivo.
Ciao
Sub main()
Dim num1(5)
Dim num2(5)
Dim num3(5)
Dim ruote(10)
Dim poste(3)
poste(1)=0
poste(2)=1
poste(3)=1
tmp=InputBox("Quante estrazioni controllo?",,50)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 10
a1=Estratto (es,r,1)
a2=Estratto (es,r,2)
a3=Estratto (es,r,3)
a4=Estratto (es,r,4)
a5=Estratto (es,r,5)
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r),True
b1=a2-a1
If a2<a1 Then b1=(a2+90)-a1
b2=a3-b1
If a3<b1 Then b2=(a3+90)-b1
b3=a4-b2
If a4<b2 Then b3=(a4+90)-b2
b4=a5-b3
If a5<b3 Then b4=(a5+90)-b3'B4 Giusta distanza
b5=a1+a2+a3+a4+a5
b6=Fuori90(b4+b5)'BARICENTRO
Scrivi"Giusta distanza "&Format2(b4)
Scrivi"Baricentro "&Format2(b6)
b7=b6-1
If b6=1 Then b7=90
b8=b6+1
If b6=90 Then b8=1
ruote(1)=r
num1(1)=Fuori90(b6*13)
num1(2)=91-num1(1)
num1(3)=b6
num1(4)=Fuori90(b6*7)
num1(5)=91-b6
ImpostaGiocata 1,num1,ruote,poste,10,3
num2(1)=Fuori90(b7*13)
num2(2)=91-num2(1)
num2(3)=b7
num2(4)=Fuori90(b7*7)
num2(5)=91-b7
ImpostaGiocata 2,num2,ruote,poste,10,3
num3(1)=Fuori90(b8*13)
num3(2)=91-num3(1)
num3(3)=b8
num3(4)=Fuori90(b8*7)
num3(5)=91-b8
ImpostaGiocata 3,num3,ruote,poste,10,3
Gioca es
Scrivi"*****************************************************************"
Next
Next
ScriviResoconto
End Sub

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[imported_n/a]

Pronto Dida....buon divertimento!!
Per Rudivall se mi legge......non sono riuscito...l'imbecille elettronico questa volta ha vinto!!
Non so come andare ad individuare l'estrazione con l'esito positivo.
Ciao
Sub main()
Dim num1(5)
Dim num2(5)
Dim num3(5)
Dim ruote(10)
Dim poste(3)
poste(1)=0
poste(2)=1
poste(3)=1
tmp=InputBox("Quante estrazioni controllo?",,50)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 10
a1=Estratto (es,r,1)
a2=Estratto (es,r,2)
a3=Estratto (es,r,3)
a4=Estratto (es,r,4)
a5=Estratto (es,r,5)
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r),True
b1=a2-a1
If a2<a1 Then b1=(a2+90)-a1
b2=a3-b1
If a3<b1 Then b2=(a3+90)-b1
b3=a4-b2
If a4<b2 Then b3=(a4+90)-b2
b4=a5-b3
If a5<b3 Then b4=(a5+90)-b3'B4 Giusta distanza
b5=a1+a2+a3+a4+a5
b6=Fuori90(b4+b5)'BARICENTRO
Scrivi"Giusta distanza "&Format2(b4)
Scrivi"Baricentro "&Format2(b6)
b7=b6-1
If b6=1 Then b7=90
b8=b6+1
If b6=90 Then b8=1
ruote(1)=r
num1(1)=Fuori90(b6*13)
num1(2)=91-num1(1)
num1(3)=b6
num1(4)=Fuori90(b6*7)
num1(5)=91-b6
ImpostaGiocata 1,num1,ruote,poste,10,3
num2(1)=Fuori90(b7*13)
num2(2)=91-num2(1)
num2(3)=b7
num2(4)=Fuori90(b7*7)
num2(5)=91-b7
ImpostaGiocata 2,num2,ruote,poste,10,3
num3(1)=Fuori90(b8*13)
num3(2)=91-num3(1)
num3(3)=b8
num3(4)=Fuori90(b8*7)
num3(5)=91-b8
ImpostaGiocata 3,num3,ruote,poste,10,3
Gioca es
Scrivi"*****************************************************************"
Next
Next
ScriviResoconto
End Sub

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[imported_n/a]

grazie Daniel
gentilissimo
sei un tesoro


ciao
DIDA

 

[imported_n/a]

grazie Daniel
gentilissimo
sei un tesoro


ciao
DIDA