BARI: atteso ambo da rigo rc45 del Tabellone Ambi

[FABIO60]

Dopo aver dato il terno 26.89.90 il 12-3-2015, il rigo 45

dopo 284 estrazioni non ha più dato ambi.

Come segnalato il rigo 42 a Firenze nella stessa situazione ha dato ambo

(doppio ambo e quindi terno nella cinquina intera 10.35.87) dopo 336 estr.

'Visualizzazione rigo Tabellone provenienza Ambi
Sub Main()
r = 1'
ruota = r
partenza = EstrazioneFin-290
'9103 '2-1-2016
fine = EstrazioneFin
For es = partenza To fine
inizio = es - 90
i = 45' RIGO
Scrivi DataEstrazione(es) & "| "&formatspace(fine-es,5),0,0
'numero=Estratto(es,r,)
numero1 = Estratto(es,r,1)
numero2 = Estratto(es,r,2)
numero3 = Estratto(es,r,3)
numero4 = Estratto(es,r,4)
numero5 = Estratto(es,r,5)
A1 = AmboRitardo(ruota,numero1,numero2,inizio,es - 1)
If a1 = i Then f = f + 1
A2 = AmboRitardo(ruota,numero1,numero3,inizio,es - 1)
If a2 = i Then f = f + 1
A3 = AmboRitardo(ruota,numero1,numero4,inizio,es - 1)
If a3 = i Then f = f + 1
A4 = AmboRitardo(ruota,numero1,numero5,inizio,es - 1)
If a4 = i Then f = f + 1
A5 = AmboRitardo(ruota,numero2,numero3,inizio,es - 1)
If a5 = i Then f = f + 1
A6 = AmboRitardo(ruota,numero2,numero4,inizio,es - 1)
If a6 = i Then f = f + 1
A7 = AmboRitardo(ruota,numero2,numero5,inizio,es - 1)
If a7 = i Then f = f + 1
A8 = AmboRitardo(ruota,numero3,numero4,inizio,es - 1)
If a8 = i Then f = f + 1
A9 = AmboRitardo(ruota,numero3,numero5,inizio,es - 1)
If ai = i Then f = f + 1
A10 = AmboRitardo(ruota,numero4,numero5,inizio,es - 1)
If a10 = i Then f = f + 1
If a1 = i Then ColoreTesto 2
If a1 = 90 Then a1 = ".."
Scrivi FormatSpace(a1,4),1,0
ColoreTesto 0
If a2 = i Then ColoreTesto 2
If a2 = 90 Then a2 = ".."
Scrivi FormatSpace(a2,4),1,0
ColoreTesto 0
If a3 = i Then ColoreTesto 2
If a3 = 90 Then a3 = ".."
Scrivi FormatSpace(a3,4),1,0
ColoreTesto 0
If a4 = i Then ColoreTesto 2
If a4 = 90 Then a4 = ".."
Scrivi FormatSpace(a4,4),1,0
ColoreTesto 0
If a5 = i Then ColoreTesto 2
If a5 = 90 Then a5 = ".."
Scrivi FormatSpace(a5,4),1,0
ColoreTesto 0
If a6 = i Then ColoreTesto 2
If a6 = 90 Then a6 = ".."
Scrivi FormatSpace(a6,4),1,0
ColoreTesto 0
If a7 = i Then ColoreTesto 2
If a7 = 90 Then a7 = ".."
Scrivi FormatSpace(a7,4),1,0
ColoreTesto 0
If a8 = i Then ColoreTesto 2
If a8 = 90 Then a8 = ".."
Scrivi FormatSpace(a8,4),1,0
ColoreTesto 0
If a9 = i Then ColoreTesto 2
If a9 = 90 Then a9 = ".."
Scrivi FormatSpace(a9,4),1,0
ColoreTesto 0
If a10 = i Then ColoreTesto 2
If a10 = 90 Then a10 = ".."
Scrivi FormatSpace(a10,4),1,1
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi "frequenza dal " & DataEstrazione(partenza),1,1
ColoreTesto 2
Scrivi f,1
End Sub


12.03.2015| 284 58 .. 45 45 .. .. .. .. .. 45

'Tabellone Ambi
'script scritto da Cinzia, modificato dal sottoscritto
Sub Main()
Dim n(2),ru(1)
ee = EstrazioneFin - 50
fin = EstrazioneFin
ini = ee
r = 1
Scrivi Space(9) & NomeRuota(r) & Space(5),1,0
Scrivi "TABELLONE AMBI al " & DataEstrazione(fin)
Scrivi
Scrivi
For es = ini To fin
co = 0
Messaggio(es)
r = 1
rc = fin - es
If rc = 45 Then ColoreTesto 2
Scrivi "RC " & FormatSpace(rc,4,1) & Space(2),1,0
Scrivi DataEstrazione(es) & " " & StringaEstratti(es,r) & Space(2),0,0
'ColoreTesto 0
For p = 1 To 4
For p1 = p + 1 To 5
n(1) = Estratto(es,r,p)
n(2) = Estratto(es,r,p1)
ru(1) = r
x = SeriePrima(es + 1,fin,n,ru,2)
If n(1) > 0 Then
If x > 0 Then
ColoreTesto 4
Scrivi Format2(n(1)) & "." & Format2(n(2)) & Space(2),1,0
ColoreTesto 0
Else
co = co + 1
Scrivi Format2(n(1)) & "." & Format2(n(2)) & Space(2),1,0
End If
End If
Next
Next
ColoreTesto 1
Scrivi Format2(co) & " ambi "
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(9) & NomeRuota(r) & Space(5),1,0
Scrivi "TABELLONE AMBI al " & DataEstrazione(fin)
End Sub



TABELLONE AMBI al 03.01.2017

RC 45 20.09.2016 76.87.12.84.80 76.87 76.12 76.84 76.80 87.12 87.84 87.80 12.84 12.80 84.80 09 ambi

Saluti

 

[sorujoe]

ciao Fabio
ho visual lotto 7, lottodesk ultima versione e spaziometria
con quale software di questi posso calcolare lo storico di un rigo del tabellona analitico per ambi?
Grazie

 

[jp4]

TABELLONE AMBI al 03.01.2017

RC 45 20.09.2016 76.87.12.84.80 76.87 76.12 76.84 76.80 87.12 87.84 87.80 12.84 12.80 84.80 09 ambi

Saluti

ciao Fabio60,
se la cinquina ospitata dal rigo 45 è in ritardo per ambo,
perchè in fondo alla riga, per essendo elencati tutti e 10 i possibili ambi, ne sono indicati 9 ? (l'ho evidenziato in blu)
non dovrebbero esserne indicati 10?

 

[FABIO60]

per jp4:

gli ambi sono 9, copiando il rigo 45 si è tolto il colore

giallo che nello script evidenzia gli ambi già sortiti (12.80)

per BYRON

io ho spaziometria e L8+(predecessore di lottodesk) e

non ci sono statistiche sul ritardo di rigo del Tabellone Ambi.

Riporto il ritardo cronologico, i ritardi storici dal 1948,

le freq, dei primi 50 righi della ruota di Bari

precisando che 1 è il rigo 0

2 è il rigo 1

......

44 è il rigo 43
45 è il rigo 44
46 è il rigo 45
47 è il rigo 46

.....

Da sab 29.05.1948 [1] a mar 03.01.2017 [5222]


Num Rc Sto Fre
---------------------
1 28 211 133
2 134 195 116
3 55 154 136
4 6 220 120
5 76 256 131
6 10 282 146
7 62 353 121
8 47 295 144
9 33 186 140
10 22 228 115
11 10 185 151
12 52 176 153
13 68 239 100
14 17 200 130
15 42 220 123
16 64 259 126
17 44 177 133
18 38 209 114
19 63 233 112
20 74 194 129
21 137 254 140
22 15 418 124
23 29 227 114
24 39 169 136
25 10 228 122
26 15 186 136
27 28 169 149
28 34 260 133
29 4 278 123
30 112 171 137
31 20 247 124
32 20 292 118
33 84 249 127
34 10 435 114
35 4 190 125
36 37 277 114
37 102 213 115
38 70 212 118
39 21 213 114
40 30 161 125
41 119 332 92
42 69 222 107
43 81 187 124
[COLOR=#FF0000]44 106 269 128
45 191 296 106
46 284 180 121
47 117 249 112[/COLOR]
48 4 179 127
49 5 293 108
50 83 260 91




Saluti [/FONT][/RIGHT]

​

 

[jp4]

Ciao Fabio,
Il rigo 45 è ancora valido x ambo?
Ho capito bene?: bisogna giocare tutta la cinquina x ambo?