Quantita teorica ambi a tutte

« Older Newer »

genios

Posted on 14/5/2023, 11:36

Adulto

Group:: Member

Posts:: 176

Reputation:: -6

Status:

Teoricamente quanti ambi dovrebbero essere rimasti da estrarre dopo 270 estrazioni ?

Possibilmente anche la formula .

Ciao Eugenio

genios

Posted on 17/5/2023, 11:49

Adulto

Group:: Member

Posts:: 176

Reputation:: -6

Status:

Piano paiano non spingete

Beppignello

Posted on 17/5/2023, 12:57 +1

Esperto

Group:: Member

Posts:: 1,395

Reputation:: +387

Status:

ciao genios

a grandi linee la formula si avvicina a questa:

(3995 / 4005) ^ (rc-1)

(3995:4005) ^ (271-1) = 0,509156

ciò vuol indicare che al ritardo 270 hai circa il 0,51 ambi

o detto in altre parole al ritardo 270 hai il 50% di probabilità favorevole, uguale al banco.

di vincere o di perdere.

il tutto non è proprio così, ma il concetto è molto vicino.

non ho tempo di ricercare, esattamente cosa diceva il Gorgia, ed altri in merito alle formule da applicare
ai ritardi, anche perchè le cose pare si sono modificate un po con l'avvento delle venus.
le formule valgono per una indicazione generale e non per essere esatte e precise.

Edited by Beppignello - 17/5/2023, 16:21

genios

Posted on 17/5/2023, 15:56

Adulto

Group:: Member

Posts:: 176

Reputation:: -6

Status:

Ho i miei dubbi vediamo se legge il post il Prof. di Guida

salvatorediguida

Posted on 18/5/2023, 11:20

Esperto

Group:: Member

Posts:: 1,736

Reputation:: +457

Status:

ciao genios,

di questo argomento, se non ricordo male, si è occupato Nino Aspesi
per cui potresti fare una ricerca sul Forum.
ho provato a effettuare un po' di statistica e, considerando un
intervallo di 270 estrazioni per la sorte di ambo sulle 10 ruote,
ho ottenuto quanto segue

da 26/8/2021 a 16/5/2023 : 0 ambi vergini quindi in linea con quanto calcolato da Beppignello
da 16/8/2019 a 15/6/2021: 5 ambi vergini
da 1/7/2017/ a 21/3/2019: 3 ambi vergini
da 8/11/2016 a 28/7/2018: 7 ambi vergini

negli ultimi tre casi avremmo potuto mettere in gioco rispettivamente
i 5 , 3, 7 ambi vergini su Tutte e considerare chiuso il gioco alla prima vincita.
ESEMPIO
da 15/6/2021 a 4/3/2023: 2 ambi vergini 61.72 e 87.89
da mettere in gioco su Tutte
al primo colpo 7/3/2023 GE 61.72
al secondo colpo 9/3/2023 RO 87.89

naturalmente raccomando la massima prudenza perchè non sempre
il gioco si conclude in tempi così ristretti, sarebbe troppo bello!

Salvatore

genios

Posted on 18/5/2023, 13:47

Adulto

Group:: Member

Posts:: 176

Reputation:: -6

Status:

Grazie Beppignello e Prof. Di Guida come li vedete sti 3 ambi sincroni a tutte ?

Ambo 8.40 con ritardo 260
Ambo 30.63 con ritardo 260
Ambo 50.63 con ritardo 260

Beppignello

Posted on 18/5/2023, 18:38 +1

Esperto

Group:: Member

Posts:: 1,395

Reputation:: +387

Status:

il mio parere è che questi tre ambi iniziano as essere in territorio interessante

ora non ho sotto mano i ritardi massimi storici per dire se si sono estesi in piu a qualche anno fa

che mi risultavano a 279 , ora forse potrebbero essere piu' in la,

quindi se sono in questo momento a 260 c'è lo spazio ancora di 1 mese e mezzo o 2 mesi all'incirca.

se ritieni il momento utile da tentarli, ben venga.

per un premio di 8 volte la posta.

genios

Posted on 20/5/2023, 14:23

Adulto

Group:: Member

Posts:: 176

Reputation:: -6

Status:

Forse i miei dubbi sono fondati
dalla formula che mi ha dato Marco :

Costante di decadimento di un ambo a ruota è: -0,0025

Costante di decadimento di un ambo a tutte (10 ruote) è: -0,0250

4005*exp(-0,0250*270)

dal mio script:

Option Explicit
Sub Main
Dim exp1,estrazioni
estrazioni = 270
exp1 = 4005^(- 0.0250*estrazioni)
Scrivi estrazioni & " " & exp1
End Sub

Out script

in 270 estrazione teoricamente dovrebbero essere presenti 4,81318979423472E-25 AMBI .

Comunque ho altri dubbi che espliciterò poi .

Ciao Eugenio

Mettendo un ciclo for next su estrazioni come mai mi da questi risulatti ?

270 4,81318979423472E-25
271 3,91172147375299E-25
272 3,17909027949585E-25
273 2,58367449548717E-25
274 2,0997748763805E-25
275 1,70650542054734E-25
276 1,38689189165711E-25
277 1,1271391792751E-25
278 9,16035876407777E-26 278 9,16035876407777E-26 perché è 9 ? è forse 0,9 ?
279 7,44470374462382E-26
280 6,05037589385247E-26
281 4,91719344552112E-26
282 3,99624615145696E-26
283 3,24778422487753E-26
284 2,63950266615023E-26
285 2,14514691932065E-26
286 1,74337967696863E-26
287 1,41685992259672E-26
288 1,15149446031825E-26
289 9,35829626483843E-27
290 7,60556928396203E-27
291 6,18111272566609E-27
292 5,0234444130247E-27
293 4,08259724272054E-27
294 3,31796251254494E-27
295 2,69653717478082E-27
296 2,19149936368558E-27
297 1,78105071420893E-27
298 1,44747550428187E-27
299 1,17637601152004E-27
300 9,56051080924083E-28

genios

Posted on 11/8/2023, 09:50

Adulto

Group:: Member

Posts:: 176

Reputation:: -6

Status:

Beppignello potresti fare uno script che dal 1945 per ogni estrazione stampi in out gli ambi a tutte le ruote che abbiano superato le 270 estrazioni .

Ciao Eugenio

Beppignello

Posted on 11/8/2023, 10:14

Esperto

Group:: Member

Posts:: 1,395

Reputation:: +387

Status:

ciao Genios
ecco lo script questo è il risultato che si ottiene su spaziometria

se vuoi che giri su altro programma cambiano pero' le istruzioni.
ho usato le istruzioni statfrzturbo di spaziometria.

Elenca gli Ambi su TUTTE LE RUOTE aventi ritardo corrente > di 270
8.40 Ruote Tutte Rc. 301 / Rx. 301 / Pres.151
16.77 Ruote Tutte Rc. 278 / Rx. 278 / Pres.146
30.43 Ruote Tutte Rc. 306 / Rx. 306 / Pres.164
30.63 Ruote Tutte Rc. 301 / Rx. 343 / Pres.151
50.63 Ruote Tutte Rc. 301 / Rx. 301 / Pres.156
57.63 Ruote Tutte Rc. 277 / Rx. 277 / Pres.148

CODICE

Option Explicit
Sub Main
Dim a,b,r,Ini,fine,sorte,retrit,retritmax,retfre
Ini = EstrazioneIni
fine = EstrazioneFin
''' tutte le ruote esclusa nazionale
ReDim ruo(10)
For r = 1 To 10
ruo(r) = r
Next
Scrivi "Elenca gli Ambi su TUTTE LE RUOTE aventi ritardo corrente > di 270 ",1
Scrivi "Periodo: " & Ini & " " & DataEstrazione(Ini) & " : " & fine & " " & DataEstrazione(fine),1
'''''loop per i 4005 ambi
ReDim an(2)
For a = 1 To 89
For b = a + 1 To 90

an(1) = a
an(2) = b
sorte = 2
Messaggio(StringaNumeri(an," "))
Call StatFrzTurbo(an,ruo,sorte,retrit,retritmax,,retfre,,Ini,fine)
If retrit > 269 Then
Scrivi StringaNumeri(an,".") & " Ruote Tutte Rc. " & FormattaStringa(retrit,"000") & " / Rx. " & FormattaStringa(retritmax,"000") & " / Pres." & retfre,1
End If
Next
Next
End Sub

Edited by Beppignello - 11/8/2023, 13:07

genios

Posted on 11/8/2023, 16:13

Adulto

Group:: Member

Posts:: 176

Reputation:: -6

Status:

Grazie beppignello . il tuo script fa quasi quello che chiedevo . In effetti da il risultato degli ambi che attualmente superano le 269 estrazioni . Quello che ti chiedo se hai tempo e voglia di modificare lo script in modo che mi stampi in out per ogni estrazione passata gli ambi che abbiano superato le 269 estrazioni .

Ciao Grazie
Eugenio

Beppignello

Posted on 11/8/2023, 17:10

Esperto

Group:: Member

Posts:: 1,395

Reputation:: +387

Status:

ciao genios
non so perchè vuoi listare di tutte le estrazioni tutti gli ambi aventi rc >= 270
perchè molti che arrivano a 270 possono durare e resistere con i ritardi anche 100 estrazioni
quindi per 100 estrazioni avresti sempre lo stesso elenco.
forse vuoi avere dei dati che si possono rilevare in altro modo, e non solo listando migliaia di estrazioni.
comunque questo è la lista che ottiene facendo quello che mi hai chiesto.

ti dico solo questo:
1) estrazioni ini deve mettere da quale estrazione vuoi la lista
2) estrazione fin devi mettere fino a che estrazione vuoi la lista

esempio: ini = 7440 fin=10279

periodo di calcolo del ritardo io l'ho impostato attualmente dalla 3950 che vuol dire dal 3/9/1946
ma se vuoi per esempio dal 1871 devi correggere mettendo 1
oppure se vuoi calcolare il ritardo dall'avvento delle venus deve mettere 7440

in poche parole il periodo di inizio e fine lo determini tu sia per la stampa che per il calcolo del ritardo.

CODICE

Option Explicit
Sub Main
Dim a,b,r,Ini,fine,sorte,retrit,retritmax,retfre,rlim
Ini = EstrazioneIni
fine = EstrazioneFin
rlim = CInt(InputBox("Ritardo Limite minimo che vuoi > 269 ",,269))
''' tutte le ruote esclusa nazionale
ReDim ruo(10)
For r = 1 To 10
ruo(r) = r
Next
Scrivi "Elenca gli Ambi su TUTTE LE RUOTE aventi ritardo corrente >= di 270 ",1
For Ini = Ini + 1 To fine
Scrivi "-----------------------------------------------",1
Scrivi "Periodo di calcolo : " & 3950 & " " & DataEstrazione(3950) & " : " & Ini & " " & DataEstrazione(Ini),1
'''''loop per i 4005 ambi
ReDim an(2)
For a = 1 To 89
For b = a + 1 To 90
an(1) = a
an(2) = b
sorte = 2
Messaggio(Ini & " / " & StringaNumeri(an," "))
Call StatFrzTurbo(an,ruo,sorte,retrit,retritmax,,retfre,,3950,Ini)
If retrit > rlim Then
Scrivi "Estr.n. " & Ini & " " & DataEstrazione(Ini) & " " & StringaNumeri(an,".") & " Ruote Tutte Rc. " & FormattaStringa(retrit,"000") & " / Rx. " & FormattaStringa(retritmax,"000") & " / Pres." & retfre,1
End If
Next
Next
Next
End Sub

ottiene un elenco così:

io ho richiesto come listato degli ambi dal 10250 alla 10279

Elenca gli Ambi su TUTTE LE RUOTE aventi ritardo corrente >= di 270
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10251 15.06.2023
Estr.n. 10251 15.06.2023 8.40 Ruote Tutte Rc. 273 / Rx. 280 / Pres.151
Estr.n. 10251 15.06.2023 30.43 Ruote Tutte Rc. 278 / Rx. 278 / Pres.164
Estr.n. 10251 15.06.2023 30.63 Ruote Tutte Rc. 273 / Rx. 343 / Pres.151
Estr.n. 10251 15.06.2023 50.63 Ruote Tutte Rc. 273 / Rx. 273 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10252 17.06.2023
Estr.n. 10252 17.06.2023 8.40 Ruote Tutte Rc. 274 / Rx. 280 / Pres.151
Estr.n. 10252 17.06.2023 30.43 Ruote Tutte Rc. 279 / Rx. 279 / Pres.164
Estr.n. 10252 17.06.2023 30.63 Ruote Tutte Rc. 274 / Rx. 343 / Pres.151
Estr.n. 10252 17.06.2023 50.63 Ruote Tutte Rc. 274 / Rx. 274 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10253 20.06.2023
Estr.n. 10253 20.06.2023 8.40 Ruote Tutte Rc. 275 / Rx. 280 / Pres.151
Estr.n. 10253 20.06.2023 30.43 Ruote Tutte Rc. 280 / Rx. 280 / Pres.164
Estr.n. 10253 20.06.2023 30.63 Ruote Tutte Rc. 275 / Rx. 343 / Pres.151
Estr.n. 10253 20.06.2023 50.63 Ruote Tutte Rc. 275 / Rx. 275 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10254 22.06.2023
Estr.n. 10254 22.06.2023 8.40 Ruote Tutte Rc. 276 / Rx. 280 / Pres.151
Estr.n. 10254 22.06.2023 30.43 Ruote Tutte Rc. 281 / Rx. 281 / Pres.164
Estr.n. 10254 22.06.2023 30.63 Ruote Tutte Rc. 276 / Rx. 343 / Pres.151
Estr.n. 10254 22.06.2023 50.63 Ruote Tutte Rc. 276 / Rx. 276 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10255 24.06.2023
Estr.n. 10255 24.06.2023 8.40 Ruote Tutte Rc. 277 / Rx. 280 / Pres.151
Estr.n. 10255 24.06.2023 30.43 Ruote Tutte Rc. 282 / Rx. 282 / Pres.164
Estr.n. 10255 24.06.2023 30.63 Ruote Tutte Rc. 277 / Rx. 343 / Pres.151
Estr.n. 10255 24.06.2023 50.63 Ruote Tutte Rc. 277 / Rx. 277 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10256 27.06.2023
Estr.n. 10256 27.06.2023 8.40 Ruote Tutte Rc. 278 / Rx. 280 / Pres.151
Estr.n. 10256 27.06.2023 30.43 Ruote Tutte Rc. 283 / Rx. 283 / Pres.164
Estr.n. 10256 27.06.2023 30.63 Ruote Tutte Rc. 278 / Rx. 343 / Pres.151
Estr.n. 10256 27.06.2023 50.63 Ruote Tutte Rc. 278 / Rx. 278 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10257 29.06.2023
Estr.n. 10257 29.06.2023 8.40 Ruote Tutte Rc. 279 / Rx. 280 / Pres.151
Estr.n. 10257 29.06.2023 30.43 Ruote Tutte Rc. 284 / Rx. 284 / Pres.164
Estr.n. 10257 29.06.2023 30.63 Ruote Tutte Rc. 279 / Rx. 343 / Pres.151
Estr.n. 10257 29.06.2023 50.63 Ruote Tutte Rc. 279 / Rx. 279 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10258 01.07.2023
Estr.n. 10258 01.07.2023 8.40 Ruote Tutte Rc. 280 / Rx. 280 / Pres.151
Estr.n. 10258 01.07.2023 30.43 Ruote Tutte Rc. 285 / Rx. 285 / Pres.164
Estr.n. 10258 01.07.2023 30.63 Ruote Tutte Rc. 280 / Rx. 343 / Pres.151
Estr.n. 10258 01.07.2023 50.63 Ruote Tutte Rc. 280 / Rx. 280 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10259 04.07.2023
Estr.n. 10259 04.07.2023 8.40 Ruote Tutte Rc. 281 / Rx. 281 / Pres.151
Estr.n. 10259 04.07.2023 30.43 Ruote Tutte Rc. 286 / Rx. 286 / Pres.164
Estr.n. 10259 04.07.2023 30.63 Ruote Tutte Rc. 281 / Rx. 343 / Pres.151
Estr.n. 10259 04.07.2023 50.63 Ruote Tutte Rc. 281 / Rx. 281 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10260 06.07.2023
Estr.n. 10260 06.07.2023 8.40 Ruote Tutte Rc. 282 / Rx. 282 / Pres.151
Estr.n. 10260 06.07.2023 30.43 Ruote Tutte Rc. 287 / Rx. 287 / Pres.164
Estr.n. 10260 06.07.2023 30.63 Ruote Tutte Rc. 282 / Rx. 343 / Pres.151
Estr.n. 10260 06.07.2023 50.63 Ruote Tutte Rc. 282 / Rx. 282 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10261 07.07.2023
Estr.n. 10261 07.07.2023 8.40 Ruote Tutte Rc. 283 / Rx. 283 / Pres.151
Estr.n. 10261 07.07.2023 30.43 Ruote Tutte Rc. 288 / Rx. 288 / Pres.164
Estr.n. 10261 07.07.2023 30.63 Ruote Tutte Rc. 283 / Rx. 343 / Pres.151
Estr.n. 10261 07.07.2023 50.63 Ruote Tutte Rc. 283 / Rx. 283 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10262 08.07.2023
Estr.n. 10262 08.07.2023 8.40 Ruote Tutte Rc. 284 / Rx. 284 / Pres.151
Estr.n. 10262 08.07.2023 30.43 Ruote Tutte Rc. 289 / Rx. 289 / Pres.164
Estr.n. 10262 08.07.2023 30.63 Ruote Tutte Rc. 284 / Rx. 343 / Pres.151
Estr.n. 10262 08.07.2023 50.63 Ruote Tutte Rc. 284 / Rx. 284 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10263 11.07.2023
Estr.n. 10263 11.07.2023 8.40 Ruote Tutte Rc. 285 / Rx. 285 / Pres.151
Estr.n. 10263 11.07.2023 30.43 Ruote Tutte Rc. 290 / Rx. 290 / Pres.164
Estr.n. 10263 11.07.2023 30.63 Ruote Tutte Rc. 285 / Rx. 343 / Pres.151
Estr.n. 10263 11.07.2023 50.63 Ruote Tutte Rc. 285 / Rx. 285 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10264 13.07.2023
Estr.n. 10264 13.07.2023 8.40 Ruote Tutte Rc. 286 / Rx. 286 / Pres.151
Estr.n. 10264 13.07.2023 30.43 Ruote Tutte Rc. 291 / Rx. 291 / Pres.164
Estr.n. 10264 13.07.2023 30.63 Ruote Tutte Rc. 286 / Rx. 343 / Pres.151
Estr.n. 10264 13.07.2023 50.63 Ruote Tutte Rc. 286 / Rx. 286 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10265 14.07.2023
Estr.n. 10265 14.07.2023 8.40 Ruote Tutte Rc. 287 / Rx. 287 / Pres.151
Estr.n. 10265 14.07.2023 30.43 Ruote Tutte Rc. 292 / Rx. 292 / Pres.164
Estr.n. 10265 14.07.2023 30.63 Ruote Tutte Rc. 287 / Rx. 343 / Pres.151
Estr.n. 10265 14.07.2023 50.63 Ruote Tutte Rc. 287 / Rx. 287 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10266 15.07.2023
Estr.n. 10266 15.07.2023 8.40 Ruote Tutte Rc. 288 / Rx. 288 / Pres.151
Estr.n. 10266 15.07.2023 30.43 Ruote Tutte Rc. 293 / Rx. 293 / Pres.164
Estr.n. 10266 15.07.2023 30.63 Ruote Tutte Rc. 288 / Rx. 343 / Pres.151
Estr.n. 10266 15.07.2023 50.63 Ruote Tutte Rc. 288 / Rx. 288 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10267 18.07.2023
Estr.n. 10267 18.07.2023 8.40 Ruote Tutte Rc. 289 / Rx. 289 / Pres.151
Estr.n. 10267 18.07.2023 30.43 Ruote Tutte Rc. 294 / Rx. 294 / Pres.164
Estr.n. 10267 18.07.2023 30.63 Ruote Tutte Rc. 289 / Rx. 343 / Pres.151
Estr.n. 10267 18.07.2023 50.63 Ruote Tutte Rc. 289 / Rx. 289 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10268 20.07.2023
Estr.n. 10268 20.07.2023 8.40 Ruote Tutte Rc. 290 / Rx. 290 / Pres.151
Estr.n. 10268 20.07.2023 30.43 Ruote Tutte Rc. 295 / Rx. 295 / Pres.164
Estr.n. 10268 20.07.2023 30.63 Ruote Tutte Rc. 290 / Rx. 343 / Pres.151
Estr.n. 10268 20.07.2023 50.63 Ruote Tutte Rc. 290 / Rx. 290 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10269 21.07.2023
Estr.n. 10269 21.07.2023 8.40 Ruote Tutte Rc. 291 / Rx. 291 / Pres.151
Estr.n. 10269 21.07.2023 30.43 Ruote Tutte Rc. 296 / Rx. 296 / Pres.164
Estr.n. 10269 21.07.2023 30.63 Ruote Tutte Rc. 291 / Rx. 343 / Pres.151
Estr.n. 10269 21.07.2023 50.63 Ruote Tutte Rc. 291 / Rx. 291 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10270 22.07.2023
Estr.n. 10270 22.07.2023 8.40 Ruote Tutte Rc. 292 / Rx. 292 / Pres.151
Estr.n. 10270 22.07.2023 30.43 Ruote Tutte Rc. 297 / Rx. 297 / Pres.164
Estr.n. 10270 22.07.2023 30.63 Ruote Tutte Rc. 292 / Rx. 343 / Pres.151
Estr.n. 10270 22.07.2023 50.63 Ruote Tutte Rc. 292 / Rx. 292 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10271 25.07.2023
Estr.n. 10271 25.07.2023 8.40 Ruote Tutte Rc. 293 / Rx. 293 / Pres.151
Estr.n. 10271 25.07.2023 16.77 Ruote Tutte Rc. 270 / Rx. 270 / Pres.146
Estr.n. 10271 25.07.2023 30.43 Ruote Tutte Rc. 298 / Rx. 298 / Pres.164
Estr.n. 10271 25.07.2023 30.63 Ruote Tutte Rc. 293 / Rx. 343 / Pres.151
Estr.n. 10271 25.07.2023 50.63 Ruote Tutte Rc. 293 / Rx. 293 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10272 27.07.2023
Estr.n. 10272 27.07.2023 8.40 Ruote Tutte Rc. 294 / Rx. 294 / Pres.151
Estr.n. 10272 27.07.2023 16.77 Ruote Tutte Rc. 271 / Rx. 271 / Pres.146
Estr.n. 10272 27.07.2023 30.43 Ruote Tutte Rc. 299 / Rx. 299 / Pres.164
Estr.n. 10272 27.07.2023 30.63 Ruote Tutte Rc. 294 / Rx. 343 / Pres.151
Estr.n. 10272 27.07.2023 50.63 Ruote Tutte Rc. 294 / Rx. 294 / Pres.156
Estr.n. 10272 27.07.2023 57.63 Ruote Tutte Rc. 270 / Rx. 270 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10273 28.07.2023
Estr.n. 10273 28.07.2023 8.40 Ruote Tutte Rc. 295 / Rx. 295 / Pres.151
Estr.n. 10273 28.07.2023 16.77 Ruote Tutte Rc. 272 / Rx. 272 / Pres.146
Estr.n. 10273 28.07.2023 30.43 Ruote Tutte Rc. 300 / Rx. 300 / Pres.164
Estr.n. 10273 28.07.2023 30.63 Ruote Tutte Rc. 295 / Rx. 343 / Pres.151
Estr.n. 10273 28.07.2023 50.63 Ruote Tutte Rc. 295 / Rx. 295 / Pres.156
Estr.n. 10273 28.07.2023 57.63 Ruote Tutte Rc. 271 / Rx. 271 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10274 29.07.2023
Estr.n. 10274 29.07.2023 8.40 Ruote Tutte Rc. 296 / Rx. 296 / Pres.151
Estr.n. 10274 29.07.2023 16.77 Ruote Tutte Rc. 273 / Rx. 273 / Pres.146
Estr.n. 10274 29.07.2023 30.43 Ruote Tutte Rc. 301 / Rx. 301 / Pres.164
Estr.n. 10274 29.07.2023 30.63 Ruote Tutte Rc. 296 / Rx. 343 / Pres.151
Estr.n. 10274 29.07.2023 50.63 Ruote Tutte Rc. 296 / Rx. 296 / Pres.156
Estr.n. 10274 29.07.2023 57.63 Ruote Tutte Rc. 272 / Rx. 272 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10275 01.08.2023
Estr.n. 10275 01.08.2023 8.40 Ruote Tutte Rc. 297 / Rx. 297 / Pres.151
Estr.n. 10275 01.08.2023 16.77 Ruote Tutte Rc. 274 / Rx. 274 / Pres.146
Estr.n. 10275 01.08.2023 30.43 Ruote Tutte Rc. 302 / Rx. 302 / Pres.164
Estr.n. 10275 01.08.2023 30.63 Ruote Tutte Rc. 297 / Rx. 343 / Pres.151
Estr.n. 10275 01.08.2023 50.63 Ruote Tutte Rc. 297 / Rx. 297 / Pres.156
Estr.n. 10275 01.08.2023 57.63 Ruote Tutte Rc. 273 / Rx. 273 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10276 03.08.2023
Estr.n. 10276 03.08.2023 8.40 Ruote Tutte Rc. 298 / Rx. 298 / Pres.151
Estr.n. 10276 03.08.2023 16.77 Ruote Tutte Rc. 275 / Rx. 275 / Pres.146
Estr.n. 10276 03.08.2023 30.43 Ruote Tutte Rc. 303 / Rx. 303 / Pres.164
Estr.n. 10276 03.08.2023 30.63 Ruote Tutte Rc. 298 / Rx. 343 / Pres.151
Estr.n. 10276 03.08.2023 50.63 Ruote Tutte Rc. 298 / Rx. 298 / Pres.156
Estr.n. 10276 03.08.2023 57.63 Ruote Tutte Rc. 274 / Rx. 274 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10277 04.08.2023
Estr.n. 10277 04.08.2023 8.40 Ruote Tutte Rc. 299 / Rx. 299 / Pres.151
Estr.n. 10277 04.08.2023 16.77 Ruote Tutte Rc. 276 / Rx. 276 / Pres.146
Estr.n. 10277 04.08.2023 30.43 Ruote Tutte Rc. 304 / Rx. 304 / Pres.164
Estr.n. 10277 04.08.2023 30.63 Ruote Tutte Rc. 299 / Rx. 343 / Pres.151
Estr.n. 10277 04.08.2023 50.63 Ruote Tutte Rc. 299 / Rx. 299 / Pres.156
Estr.n. 10277 04.08.2023 57.63 Ruote Tutte Rc. 275 / Rx. 275 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10278 05.08.2023
Estr.n. 10278 05.08.2023 8.40 Ruote Tutte Rc. 300 / Rx. 300 / Pres.151
Estr.n. 10278 05.08.2023 16.77 Ruote Tutte Rc. 277 / Rx. 277 / Pres.146
Estr.n. 10278 05.08.2023 30.43 Ruote Tutte Rc. 305 / Rx. 305 / Pres.164
Estr.n. 10278 05.08.2023 30.63 Ruote Tutte Rc. 300 / Rx. 343 / Pres.151
Estr.n. 10278 05.08.2023 50.63 Ruote Tutte Rc. 300 / Rx. 300 / Pres.156
Estr.n. 10278 05.08.2023 57.63 Ruote Tutte Rc. 276 / Rx. 276 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10279 08.08.2023
Estr.n. 10279 08.08.2023 8.40 Ruote Tutte Rc. 301 / Rx. 301 / Pres.151
Estr.n. 10279 08.08.2023 16.77 Ruote Tutte Rc. 278 / Rx. 278 / Pres.146
Estr.n. 10279 08.08.2023 30.43 Ruote Tutte Rc. 306 / Rx. 306 / Pres.164
Estr.n. 10279 08.08.2023 30.63 Ruote Tutte Rc. 301 / Rx. 343 / Pres.151
Estr.n. 10279 08.08.2023 50.63 Ruote Tutte Rc. 301 / Rx. 301 / Pres.156
Estr.n. 10279 08.08.2023 57.63 Ruote Tutte Rc. 277 / Rx. 277 / Pres.148

no so fammi sapere se ti va bene!

genios

Posted on 11/8/2023, 17:50

Adulto

Group:: Member

Posts:: 176

Reputation:: -6

Status:

Beppignello devono essere almeno 5 gli ambi che superano le 269 estrazioni per essere stampati in out. Comunque grazie

Beppignello

Posted on 11/8/2023, 19:54

Esperto

Group:: Member

Posts:: 1,395

Reputation:: +387

Status:

lista solo quando ci sono 5 o piu' ambi, ma risulta lunghissima l'elaborazione con spaziometria, perchè deve elaborare comunque l'estrazione per sapere se ci sono meni di 5 ambi o piu ambi, ad ogni estrazione deve calcolare il ritardo dei 4005 ambi
quindi il tempo lo perde, risulta lunghissimo.

sarebbe diverso se tu utilizzassi la wrapper con le funzioni nuove che LuigiB ha creato per altri
programmi diversi da spaziometria.

so che stai cercando di utilizzare altro, quindi se hai a disposizione la funzione di classificaritardo
potresti usare quella che risulterà senz'altro piu' veloce di questa che ho usato con spaziometria.

ciao

CODICE

Option Explicit
Sub Main
Dim a,b,r,Ini,fine,sorte,retrit,retritmax,retfre,rlim,ct,k
Ini = EstrazioneIni
fine = EstrazioneFin
rlim = CInt(InputBox("Ritardo Limite minimo che vuoi > 269 ",,269))
''' tutte le ruote esclusa nazionale
ReDim ruo(10)
For r = 1 To 10
ruo(r) = r
Next
Scrivi "Elenca gli Ambi su TUTTE LE RUOTE aventi ritardo corrente >= di 270 ",1
For Ini = Ini + 1 To fine
ReDim riga(20,1)
If ct >= 5 Then

End If
'''''loop per i 4005 ambi
ReDim an(2)
For a = 1 To 89
For b = a + 1 To 90
an(1) = a
an(2) = b
sorte = 2
Messaggio(Ini & " / " & StringaNumeri(an," "))
Call StatFrzTurbo(an,ruo,sorte,retrit,retritmax,,retfre,,3950,Ini)
If retrit > rlim Then
ct = ct + 1
riga(ct,1) = "Estr.n. " & Ini & " " & DataEstrazione(Ini) & " " & StringaNumeri(an,".") & " Ruote Tutte Rc. " & FormattaStringa(retrit,"000") & " / Rx. " & FormattaStringa(retritmax,"000") & " / Pres." & retfre
End If
Next
Next
If ct >= 5 Then
For k = 1 To ct
Scrivi riga(k,1),1
Next
Scrivi "Periodo di calcolo : " & 3950 & " " & DataEstrazione(3950) & " : " & Ini & " " & DataEstrazione(Ini),1
Scrivi "--------------------------------------------------------------------------------------------tot.Ambi " & ct,1
ct = 0
Else
ct = 0
End If
Next
End Sub

esempio:

Elenca gli Ambi su TUTTE LE RUOTE aventi ritardo corrente >= di 270
Estr.n. 10276 03.08.2023 8.40 Ruote Tutte Rc. 298 / Rx. 298 / Pres.151
Estr.n. 10276 03.08.2023 16.77 Ruote Tutte Rc. 275 / Rx. 275 / Pres.146
Estr.n. 10276 03.08.2023 30.43 Ruote Tutte Rc. 303 / Rx. 303 / Pres.164
Estr.n. 10276 03.08.2023 30.63 Ruote Tutte Rc. 298 / Rx. 343 / Pres.151
Estr.n. 10276 03.08.2023 50.63 Ruote Tutte Rc. 298 / Rx. 298 / Pres.156
Estr.n. 10276 03.08.2023 57.63 Ruote Tutte Rc. 274 / Rx. 274 / Pres.148
Periodo di calcolo : 3950 14.09.1946 : 10276 03.08.2023
--------------------------------------------------------------------------------------------tot.Ambi 6
Estr.n. 10277 04.08.2023 8.40 Ruote Tutte Rc. 299 / Rx. 299 / Pres.151
Estr.n. 10277 04.08.2023 16.77 Ruote Tutte Rc. 276 / Rx. 276 / Pres.146
Estr.n. 10277 04.08.2023 30.43 Ruote Tutte Rc. 304 / Rx. 304 / Pres.164
Estr.n. 10277 04.08.2023 30.63 Ruote Tutte Rc. 299 / Rx. 343 / Pres.151
Estr.n. 10277 04.08.2023 50.63 Ruote Tutte Rc. 299 / Rx. 299 / Pres.156
Estr.n. 10277 04.08.2023 57.63 Ruote Tutte Rc. 275 / Rx. 275 / Pres.148
Periodo di calcolo : 3950 14.09.1946 : 10277 04.08.2023
--------------------------------------------------------------------------------------------tot.Ambi 6
Estr.n. 10278 05.08.2023 8.40 Ruote Tutte Rc. 300 / Rx. 300 / Pres.151
Estr.n. 10278 05.08.2023 16.77 Ruote Tutte Rc. 277 / Rx. 277 / Pres.146
Estr.n. 10278 05.08.2023 30.43 Ruote Tutte Rc. 305 / Rx. 305 / Pres.164
Estr.n. 10278 05.08.2023 30.63 Ruote Tutte Rc. 300 / Rx. 343 / Pres.151
Estr.n. 10278 05.08.2023 50.63 Ruote Tutte Rc. 300 / Rx. 300 / Pres.156
Estr.n. 10278 05.08.2023 57.63 Ruote Tutte Rc. 276 / Rx. 276 / Pres.148
Periodo di calcolo : 3950 14.09.1946 : 10278 05.08.2023
--------------------------------------------------------------------------------------------tot.Ambi 6
Estr.n. 10279 08.08.2023 8.40 Ruote Tutte Rc. 301 / Rx. 301 / Pres.151
Estr.n. 10279 08.08.2023 16.77 Ruote Tutte Rc. 278 / Rx. 278 / Pres.146
Estr.n. 10279 08.08.2023 30.43 Ruote Tutte Rc. 306 / Rx. 306 / Pres.164
Estr.n. 10279 08.08.2023 30.63 Ruote Tutte Rc. 301 / Rx. 343 / Pres.151
Estr.n. 10279 08.08.2023 50.63 Ruote Tutte Rc. 301 / Rx. 301 / Pres.156
Estr.n. 10279 08.08.2023 57.63 Ruote Tutte Rc. 277 / Rx. 277 / Pres.148
Periodo di calcolo : 3950 14.09.1946 : 10279 08.08.2023
--------------------------------------------------------------------------------------------tot.Ambi 6

genios

Posted on 11/8/2023, 19:56

Adulto

Group:: Member

Posts:: 176

Reputation:: -6

Status:

Ok grazie Beppignello

16 replies since 14/5/2023, 11:36 574 views