Posts written by santani

Ciao , Possibile script ? Grazie
Da ogni estrazione su Bari si somma il primo estratto col terzo e il quinto.
Dal risultato ( fuori 90 ) si cerca lo stesso risultato su un'altra ruota in 1° 2° 3° posizione.

Se si trova si somma questo numero con il numero uscito su Bari nella stessa colonna

e il rusultato è il primo numero da mettere in gioco come
ambata determinata in 2° e 4° posizione.
Per il secondo numero da mettere in gioco si fa la stessa procedura con il vertibile del primo numero trovato dalla somma del 1° 3° 5° di Bari



I due numeri trovati sono da mettere in gioco in 2° e 4° posizione sulla ruota di Bari e quella in cui si è trovato il risultato di Bari.

Si deve poter scegliere con quale ruota iniziare il gioco ( in questo caso Bari ) e per quante estrazioni

Facendo un esempio pratico è molto più facile capire.
Estrazione del 4 gennaio 2020


Bari 15 57 03 27 85


15 + 03 + 85 = 103 fuori 90 = 13 ( primo numero da ricercare sulle altre ruote in 1° 3° 5° posizione )

31 ( secondo numero da ricercare sulle altre ruote in 1° 3° 5° posizione )

Trovato 31 in 1° posizione su Milano
Sommare 31 + 15 ( 1° posizione di Bari ) = 46

Giocare il 46 e 64 suo vertibile in 2° e 4° posizione su Bari e Milano

Risultato : dopo tre estrazioni esce il 46 in 2° posizione su Bari-

Ciao G73 , perfetto grazie!

Salve a tutti,cortesemente qualcuno è pratico di excel ?
Avrei una domanda:
Come faccio a far calcolare in modo automatico la distanza fra una sortita e l'altra di varie previsioni.
Per esempio all'estrazione n.186 è sortita la previsione poi alla 188 , quindi dopo 2 estrazioni e cosi' via

Per capire meglio allego una foto esempio.
Grazie!

Saluti a tutti.
Saluti a G73
Nelle mie ricerche quando quasi tutto ciò che mi può essere utile si basa sulle ricerche di vari tipi di ambi e su tutti gli ambi.
Meglio se incolonnati in base al ritardo attuale.
Ho cercato in spaziometria il tipo di ricerca che hai menzionato sopra , ma non l'ho trovata.
Qual'è il percorso che hai eseguito?

Grazie!

Ringrazio tutti per l'aiuto

Cinzia27--- G73--- New Mat--- J-Gio91


ORA ALMENO CON SPAZIOMETRIA FUNZIONA , è un pò lento ma funziona

Grazie!

Edited by santani - 16/12/2018, 08:19

Grazie Cinzia27 ma purtroppo non va , ho provato anche con spaziometria, ma niente

Purtroppo non va da me.
Io uso L8+ , mi da errore 450

Ciao Cinzia27, purtroppo mi da errore riga 33

Scrivi " "&FormatSpace(cc,4,1)&" "&FormatSpace(es,4,1)&" "&siglaruota(r)&" "&siglaruota(r1)&" "&_

Cosa posso fare?

Ciao a tutti.
X Cinzia 27 mi sembra vada bene.

Ciao G73 , se ho ben capito nel tuo esempio bisogna specificare quale ambo mettere in gioco.
Se invece si può mettere in gioco tutti quelli con un minimo di ritardo programmabile ( circa maggiore di 1000, poi vedrò ) ,
allora va bene!

L'ideale sarebbe poter mettere in gioco solamente i 10 ambi migliori cioè più ritardatari al posto del ritardo minimo di 1000 di cui accennato prima.
Il tutto su una ruota a scelta oppure due tre ruote a scelta

Tutto questo lo userei per verificare se quello che mi risulta dalle relativamente poche analisi fatte a "mano" , dopo un certo tipo di ritardo "minimo" fra uno sfaldamento e l'altro, la probabilità di un'altra uscita in tempi molto brevi aumenta notevolmente.

Ciao Cinzia27, lo script che mi hai preparato è molto interessante, però non è come mi servirebbe.
Questo script ricerca 2 ambi usciti alla stessa estrazione su 2 ruote diverse, ne ricava il ritardo raggiunto prima dello sfaldamento e calcola il ritardo fra un'uscita e l'altra.
Questo è un esempio di come esce:

7757 Ba ambo 38.68-Ca ambo 18.90 sortito alla 9002 con rit 1244 3
7674 Ba ambo 41.79-Ca ambo 08.29 sortito alla 9006 con rit 1331 4
7347 Ba ambo 22.52-Ca ambo 49.63 sortito alla 9008 con rit 1660 2
7694 Ba ambo 22.48-Ca ambo 15.40 sortito alla 9010 con rit 1315 2
7430 Ba ambo 13.55-Ca ambo 28.58 sortito alla 9011 con rit 1580 1
7807 Ba ambo 69.85-Ca ambo 09.66 sortito alla 9012 con rit 1204 1
7807 Ba ambo 69.85-Ca ambo 66.78 sortito alla 9012 con rit 1204 0
7379 Ba ambo 18.37-Ca ambo 47.49 sortito alla 9017 con rit 1637 5
7802 Ba ambo 08.83-Ca ambo 56.81 sortito alla 9017 con rit 1214 0
7340 Ba ambo 17.47-Ca ambo 35.80 sortito alla 9019 con rit 1678 2

A me però servirebbe che la ricerca fosse con un ambo su una o più ruote (in questo esempio è su una ruota)
( potendo comunque scegliere il ritardo minimo )

ES:

7287 BA ambo 88.90 è sortito alla 8005 nella ruota di BA con rit 717
7367 BA ambo 42.77 è sortito alla 8018 nella ruota di BA con rit 650 ----13
7133 BA ambo 39.71 è sortito alla 8025 nella ruota di BA con rit 891-----7
7422 BA ambo 9.68 è sortito alla 8052 nella ruota di BA con rit 629 ------27
6816 BA ambo 16.58 è sortito alla 8072 nella ruota di BA con rit 1255 ---20
7466 BA ambo 9.73 è sortito alla 8077 nella ruota di BA con rit 610 ------5
7445 BA ambo 61.79 è sortito alla 8106 nella ruota di BA con rit 660 ----29
(esempio non reale, solo per rendere meglio l'idea)

La differenza è che l'ambo è uno solo su una o più ruote invece di due ambi
Spero di non aver fatto confusione
Saluti
Santani

Edited by santani - 14/12/2018, 20:06

Ciao Cinzia27, l'ordine rimane lo stesso dello script sopra ,( cioè per estrazione ) deve cambiare solo il tipo di ambi da ricercare(cioè tutti) e poter scegliere su quale e quante ruote.

Santani

Ciao Cinzia27, la ricerca è su tutti gli ambi non su quelli isocroni.
Con l8+ c'è gia la sezione che fa questa ricerca,(statistica,ambi,tabella ambi) ma non mi dice a che estrazione sono usciti e sopratutto il ritardo fra un'uscita e l'altra.
Poi devo poter scegliere quali e quante ruote impostare per la ricerca.

ES: BARI-CAGLIARI
RITARDO MINIMO 1000 ESTRAZIONI
SU TUTTI I 4005 AMBI

Grazie.

Circa un anno fa grazie all'aiuto di Cinzia ho potuto provare questo listato che mi fa la ricerca sugli ambi bivalenti con un minimo di 600 estrazioni di ritardo e mi ricava il ritardo di ogni uscita più il ritardo fra un'uscita e l'altra


Sub Main()
Dim n(2),ru(1),ru1(1),rur(1),rur1(2)

rur1(1) = 11
rur1(2) = 12
fin = EstrazioneFin
ini = InputBox("inizio",,8000)
For es = 8000 To EstrazioneFin
cc = cc + 1
For rr = 1 To 11
If rr = 11 Then rr = 12
rur(1) = rr
For pp = 1 To 4
For pp1 = pp + 1 To 5
n(1) = Estratto(es,rr,pp)
n(2) = Estratto(es,rr,pp1)
OrdinaMatrice n,1
If n(1) > 0 Then
rt = SerieRitardo(1,es - 1,n,rur,2)

If rt > 600 Then
u = es - rt - 1
frr = SerieFreq(u,u,n,rur1,2)
If frr > 1 And frr < 3 Then

For r = 1 To 10
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
Messaggio(es)
If r = rr Xor r1 = rr Then
ru(1) = r
ru1(1) = r1
If SerieFreq(u + 1,es - 1,n,ru,2) = 0 And SerieFreq(u + 1,es - 1,n,ru1,2) = 0 Then
If SerieFreq(u,u,n,ru,2) > 0 And SerieFreq(u,u,n,ru1,2) > 0 Then
Scrivi FormatSpace(u,4,1) & " " & SiglaRuota(r) & "-" & SiglaRuota(r1) & " ambo bivalente " & StringaNumeri(n) _
& " è sortito alla " & FormatSpace(es,4,1) & " nella ruota di " & SiglaRuota(rr) & " con rit " & FormatSpace(rt,4,1) & " " & FormatSpace(cc,4,1)
cc = 0

End If
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
End Sub

Ora la mia richiesta è: come posso cambiarlo per fare la ricerca su tutti gli ambi ( al posto degli ambi bivalenti ) e magari scegliere su quali ruote?
Grazie

Perfetto grazie!