aiuto per script complicato
- Creatore Discussione ghio
- Data di inizio
R
Rubino
Guest
si, ma il mio ragionamento da come vedo nel verifica esito, è che i Ripetuti continuano ad uscire, cambiando ruota,
a colpo producono almeno su 5-7-8 ruote, ancora esiti con ambi, ma molti terni e quaterne, e a volte, ma spesso cinquine.
a colpo producono almeno su 5-7-8 ruote, ancora esiti con ambi, ma molti terni e quaterne, e a volte, ma spesso cinquine.
GIUSTO ESATTO ANVHE QUESTO RAGIONAMENTO. SI RIPRODUCONO ALL INFINITO PERCHE è UN GIOCO MATEMATICO
SI RIPETONO DI CONSEGUENZA AD OGNI NUOVA ESTR ELIMANANDO I RIPETUTI POI SI RIPRESENTONO PER FORZA
ADESSO CREDO CHE SIAMO SULLO STESSO RAGIONAMENTO
PENSA SE POTESSIMO INTRECCIARE LA TABELLA 1 ANDREMMO SICURI
SI RIPETONO DI CONSEGUENZA AD OGNI NUOVA ESTR ELIMANANDO I RIPETUTI POI SI RIPRESENTONO PER FORZA
ADESSO CREDO CHE SIAMO SULLO STESSO RAGIONAMENTO
PENSA SE POTESSIMO INTRECCIARE LA TABELLA 1 ANDREMMO SICURI
Ultima modifica:
R
Rubino
Guest
Numeri Ripetuti Estrazione..n.9655 2-10-18-27-29-34-37-38-41-47-49-50-64-65-86
BA 9656 colpo 01 Neg.InCorso <<
CA 9656 colpo 01 CA .. 38 .. 86 41 Terno
FI 9656 colpo 01 Neg.InCorso <<
GE 9656 colpo 01 GE .. 37 .. .. 47 Ambo
MI 9656 colpo 01 MI 29 50 18 .. .. Terno
NA 9656 colpo 01 Neg.InCorso <<
PA 9656 colpo 01 PA .. 27 .. 49 10 Terno
RO 9656 colpo 01 RO 65 .. 47 34 29 Quaterna
TO 9656 colpo 01 Neg.InCorso <<
VE 9656 colpo 01 Neg.InCorso <<
questa è la lunghetta nata 2 concorsi fa.
al 1 colpo vedi cosa ha prodotto.
al 2 colpo usciranno ancora ambi/terni
su BA-FI-NA-TO-VE
sono 5 ruote.
io credo che almeno 3 produrranno esito positivo, nell'estrazione 9657 del 18 Luglio 2019
come vedi sono 15 numeri, ma quando sono lunghe di solito sono max 20-22 numeri
Ultima modifica di un moderatore:
R
Rubino
Guest
32 rit. su quante estrazioni
o dal quando, dal 1946 o più vicino ad oggi ??
qui ho elaborato solo i ripetuti, non tutti i 50 numeri dell'estrazione precedente
lo farò domani.
su 100 estrazioni, mi viene fuori questo dato, ma non sono sicuro che sia esatto
Ritardi Massimi sulle 10 Ruote per la sorte
ho controllato per n.colpo non specificato, quindi a qualsiasi
estrazione futura.
l'ambo si è verificato con questi ritardi massimi
BA Rit.Max. 7
CA Rit.Max. 32
FI Rit.Max. 17
GE Rit.Max. 18
MI Rit.Max. 26
NA Rit.Max. 13
PA Rit.Max. 14
RO Rit.Max. 32
TO Rit.Max. 10
VE Rit.Max. 9
o dal quando, dal 1946 o più vicino ad oggi ??
qui ho elaborato solo i ripetuti, non tutti i 50 numeri dell'estrazione precedente
lo farò domani.
su 100 estrazioni, mi viene fuori questo dato, ma non sono sicuro che sia esatto
Ritardi Massimi sulle 10 Ruote per la sorte
ho controllato per n.colpo non specificato, quindi a qualsiasi
estrazione futura.
l'ambo si è verificato con questi ritardi massimi
BA Rit.Max. 7
CA Rit.Max. 32
FI Rit.Max. 17
GE Rit.Max. 18
MI Rit.Max. 26
NA Rit.Max. 13
PA Rit.Max. 14
RO Rit.Max. 32
TO Rit.Max. 10
VE Rit.Max. 9
Ultima modifica di un moderatore:
R
Rubino
Guest
ti posto due prospetti, di ritardo Massimo Storico ed quello attuale di Ruota, calcolati dal 1946 ad oggi
il ritardo di colpo o di ruota (chiamiamolo come vogliamo) è a colpo, cioè per un solo colpo di gioco, quello sull'estrazione successiva alla loro identificazione dei cinquanta numeri, per la sorte ( 2 = ambo )
mi puoi confermare qualcosa????
sono abbastanza sicuro dei ritardi, il dubbio eventuale è solo se a colpo o a volte avevi citato che dovevo
usare i numeri rilevati sulla precedente all'ultima e calcolati su quella successiva all'ultima.
quindi il dubbio è se la verifica va fatta sul concorso dopo l'ultima, ma usando i numeri della penultima.
per esempio la situazione attuale è la seguente:
questo è il risultato per la sorte (3 = terno)
il ritardo RC 1 è da intendersi che sono appena usciti, ma o escludo l'ultima estrazione dal calcolo
oppure lo script attualmente va a cercare la nuova che verrà fatta questa sera, ma non essendoci
ancora, mette già 1 nel RC
SI Può FARE ANCHE COSì
il ritardo di colpo o di ruota (chiamiamolo come vogliamo) è a colpo, cioè per un solo colpo di gioco, quello sull'estrazione successiva alla loro identificazione dei cinquanta numeri, per la sorte ( 2 = ambo )
mi puoi confermare qualcosa????
sono abbastanza sicuro dei ritardi, il dubbio eventuale è solo se a colpo o a volte avevi citato che dovevo
usare i numeri rilevati sulla precedente all'ultima e calcolati su quella successiva all'ultima.
quindi il dubbio è se la verifica va fatta sul concorso dopo l'ultima, ma usando i numeri della penultima.
per esempio la situazione attuale è la seguente:
Codice:
T a b e l l a 0
[FONT=courier new]Riepilogo Ritardo Corrente e Massimo Storico per [B][COLOR=#FF0000]esito a colpo per la sorte...2
dei cinquanta Numeri identificati dall'ultima estrazione 9656[/COLOR][/B]
Periodo Considerato da - a : 3950 / 9656
BA...Rc. 002...Max.005
CA...Rc. 001...Max.005
FI...Rc. 003...Max.007
GE...Rc. 001...Max.007
MI...Rc. 001...Max.006
NA...Rc. 002...Max.006
PA...Rc. 001...Max.006
RO...Rc. 001...Max.005
TO...Rc. 002...Max.005
VE...Rc. 002...Max.006[/FONT]questo è il risultato per la sorte (3 = terno)
Codice:
[FONT=courier new]T a b e l l a 0
Riepilogo Ritardo Corrente e Massimo Storico per esito a colpo per la [COLOR=#FF0000]sorte...3
dei Cinquanta Numeri Identificati dall'ultima estrazione n.9656[/COLOR]
Periodo Considerato da - a : 3950 / 9656
BA...Rc. 002...Max.016
CA...Rc. 001...Max.014
FI...Rc. 004...Max.014
GE...Rc. 003...Max.022
MI...Rc. 001...Max.014
NA...Rc. 002...Max.013
PA...Rc. 001...Max.015
RO...Rc. 001...Max.016
TO...Rc. 002...Max.015
VE...Rc. 004...Max.019[/FONT]il ritardo RC 1 è da intendersi che sono appena usciti, ma o escludo l'ultima estrazione dal calcolo
oppure lo script attualmente va a cercare la nuova che verrà fatta questa sera, ma non essendoci
ancora, mette già 1 nel RC
SI Può FARE ANCHE COSì
Codice:
[FONT=courier new]T a b e l l a 0
Riepilogo Ritardo Corrente e Massimo Storico [COLOR=#FF0000]per esito a colpo per la sorte...2
dei Cinquanta Numeri Identificati dall'ultima estrazione n.9655[/COLOR]
Periodo Considerato da - a : 3950 / 9655
BA...Rc. 001...Max.005
CA...Rc. 000...Max.005
FI...Rc. 002...Max.007
GE...Rc. 000...Max.007
MI...Rc. 000...Max.006
NA...Rc. 001...Max.006
PA...Rc. 000...Max.006
RO...Rc. 000...Max.005
TO...Rc. 001...Max.005
VE...Rc. 001...Max.006[/FONT]
Ultima modifica di un moderatore:
R
Rubino
Guest
se arriva qualche risultato sulla ruota di firenze
arriva occupando le posizioni determinate 1-3-5, perchè attualmente c'è un ritardo 3 per tutte 3 le posizioni determinate.
TABELLA(0 parte seconda)
cosa può cadere in queste tre posizioni determinate ?
quali numeri attuali possono finire li?
questa è una possibile risposta:
da BARI-CAGLIARI le più frequenti nelle ultime 100 estrazioni, che portano a FIRENZE
1 di BA
1-3-4 di CA
questi i Numeri Attesi su FIRENZE a colpo:
72 86 18 64 29 88 o singoli o per ambo/terno
vediamo cosa succede questa sera.
e
arriva occupando le posizioni determinate 1-3-5, perchè attualmente c'è un ritardo 3 per tutte 3 le posizioni determinate.
TABELLA(0 parte seconda)
cosa può cadere in queste tre posizioni determinate ?
quali numeri attuali possono finire li?
questa è una possibile risposta:
da BARI-CAGLIARI le più frequenti nelle ultime 100 estrazioni, che portano a FIRENZE
1 di BA
1-3-4 di CA
questi i Numeri Attesi su FIRENZE a colpo:
72 86 18 64 29 88 o singoli o per ambo/terno
vediamo cosa succede questa sera.
e
Ultima modifica di un moderatore:
Estrazione del 18.07.2019 I II III IV V
Bari 1 1 0 0 0
Cagliari 4 0 5 0 2
Firenze 3 0 1 6 1
Genova 0 3 9 2 3
Milano 1 0 0 0 0
Napoli 2 0 1 1 5
Palermo 0 1 0 0 3
Roma 3 0 1 2 1
Torino 0 1 1 1 0
Venezia 0 0 2 1 0
Nazionale - - - - -
TERNO A BARI E VIA VIA GLI ESITI DEI RIPETUTI DALL ESTRAZIONI PRECEDENTE
Bari 1 1 0 0 0
Cagliari 4 0 5 0 2
Firenze 3 0 1 6 1
Genova 0 3 9 2 3
Milano 1 0 0 0 0
Napoli 2 0 1 1 5
Palermo 0 1 0 0 3
Roma 3 0 1 2 1
Torino 0 1 1 1 0
Venezia 0 0 2 1 0
Nazionale - - - - -
TERNO A BARI E VIA VIA GLI ESITI DEI RIPETUTI DALL ESTRAZIONI PRECEDENTE
R
Rubino
Guest
controlliamo, io ho questa situazione
con l'estrazione di questa sera.
con l'estrazione di questa sera.
R
Rubino
Guest
la caduta a colpo con questa sera , (i valori a zero) corrispondono tra i miei e i tuoi,
come mai gli altri, non hanno lo stesso ritardo?
come mai gli altri, non hanno lo stesso ritardo?
R
Rubino
Guest
posperchè metti ritardo 1 a bari???
Estrazione del 18.07.2019
I II III IV V
Bari 1 1 0 0 0
questa tabella è relativa agli ambi? No sono gli estratti
per la tabella estratti
pos.1 di BARI ha ritardo 2 dal ripetuto a colpo n.54
pos.2 di BARI ha ritardo 3 dal ripetuto a colpo n.67
gli altri pos-3-4-5 sono giuste a zero
ETC.. confermi?
Bari 1 1 0 0 0
questa tabella è relativa agli ambi? No sono gli estratti
per la tabella estratti
pos.1 di BARI ha ritardo 2 dal ripetuto a colpo n.54
pos.2 di BARI ha ritardo 3 dal ripetuto a colpo n.67
gli altri pos-3-4-5 sono giuste a zero
ETC.. confermi?
Ultima modifica di un moderatore:
R
Rubino
Guest
perchè metti ritardo 1 a bari???
io sto usando le 50 posizione e calcolo il ritardo di un numero dei 50 dell'estrazione precedente che sfaldi o esce in quella precisa posizione.
tu stai calcolando il ritardo cioè quando il primo di bari sfalda o esce da qualche parte su tutte, lo azzeri.
quale istruzioni usi?
estrattofrequenza-estrattoritardo,verificaesito
cosa facciamo?
con il tuo modo di calcolare
guardando il 2 estratto di bari
non ho un ritardo di 1, ma è di 2
perchè
9654 il 67 esce a colpo a tutte rit.=0
9655 il 31 non esce a tutte rit-=1
9656 il 82 non esce a tutte rit.=2
---------------------------------------------------------------------------
i C o n c e t t i D i f f e r e n t i d e l R i t a r d o
personalmente l'idea che preferisco
il ritardo del Primo - secondo etcc. di Bari
è dato dai 50 numeri che non sfaldano in quella casella
anziché quella casella non si riproduce da qualche parte nelle 50
Estrazione del 18.07.2019
I II III IV V
Bari 1 1 0 0 0
quando MI 19 es.9655
quando PA 05 es.9655
quando BARI 19 05 sono usciti questa sera 9657
Ritardo = 9657-9655 = 2
Bari 1 1 0 0 0
quando MI 19 es.9655
quando PA 05 es.9655
quando BARI 19 05 sono usciti questa sera 9657
Ritardo = 9657-9655 = 2
io sto usando le 50 posizione e calcolo il ritardo di un numero dei 50 dell'estrazione precedente che sfaldi o esce in quella precisa posizione.
tu stai calcolando il ritardo cioè quando il primo di bari sfalda o esce da qualche parte su tutte, lo azzeri.
quale istruzioni usi?
estrattofrequenza-estrattoritardo,verificaesito
cosa facciamo?
con il tuo modo di calcolare
guardando il 2 estratto di bari
non ho un ritardo di 1, ma è di 2
perchè
9654 il 67 esce a colpo a tutte rit.=0
9655 il 31 non esce a tutte rit-=1
9656 il 82 non esce a tutte rit.=2
---------------------------------------------------------------------------
i C o n c e t t i D i f f e r e n t i d e l R i t a r d o
personalmente l'idea che preferisco
il ritardo del Primo - secondo etcc. di Bari
è dato dai 50 numeri che non sfaldano in quella casella
anziché quella casella non si riproduce da qualche parte nelle 50
Ultima modifica di un moderatore:
R
Rubino
Guest
situazione alla 18.07.2019
questa cinquina a colpo a tutte sfalda il 10 e 65
13/7 La pos.2 (31) diventa 1 di ritardo
questa cinquina a colpo a tutte sfalda il solo il 04
16/7 la pos.2 (82) diventa 2 di ritardo
come fai ad ottenere il ritardo uguale ad 1 nella posizione 2 ???
R
Rubino
Guest
Okey, grazie per la conferma
ho fatto due prospettini
il Primo e relativo Alla Sorte minima della Ripetizione dell'Ambo a Colpo e dei Massimi A Colpo dal 1946
Il Secondo è lo specchietto dei Ritardi di Ripetizione dell'Estratto nelle 50 Posizioni A Colpo e Ritardi Massimi A colpo dal 1946
Nomescript (Ghio-20-Bep-RmaxeRcEstrattoRipetizioneAColpo)
ora Rimane a mio avviso mettere a punto il Ritardo di Caduta in Posizione Determinata
che è il concetto diverso da quello sopra che è di Ripetizione.
so che forse può non interessare a te, cosa faccio?
ho fatto due prospettini
il Primo e relativo Alla Sorte minima della Ripetizione dell'Ambo a Colpo e dei Massimi A Colpo dal 1946
Il Secondo è lo specchietto dei Ritardi di Ripetizione dell'Estratto nelle 50 Posizioni A Colpo e Ritardi Massimi A colpo dal 1946
Nomescript (Ghio-20-Bep-RmaxeRcEstrattoRipetizioneAColpo)
ora Rimane a mio avviso mettere a punto il Ritardo di Caduta in Posizione Determinata
che è il concetto diverso da quello sopra che è di Ripetizione.
so che forse può non interessare a te, cosa faccio?
Ultima modifica di un moderatore:
R
Rubino
Guest
Script sopra citato:
Contiene Molti dati e non ci sono previsioni, ma sviluppa dati e valori, serve per identificare giocate a Colpo, per tentare la sorte Immediata degli Estratti e di eventuali Ambi.
Possiamo definirlo uno script Di valori Dinamici Continui come sono dinamiche e continue le Estrazioni.
lasciate i valori così come espressi per "DEFAULT", sono già il massimo dell'ottimizzazione dello script affinchè
nel giro di 1 Minuto circa, dipende dal vs.Pc, si ottiene un discreto lavoro dello script, nel ricalcolare i Ritardi Storici dal 1946.
la modifica di valori di DEFAULT, significa sicuramente un allungamento dei tempi di elaborazione, è sempre uno script e non
un software specifico, ed oltretutto non ho avuto modo di controllarne la funzionalità totale.
Dalle Tabelle 01-02,1,2 si deve fare lo studio per reperire le nostre previsioni personali oppure per trarre deduzioni teoriche
convergenti con le nostre previsioni da altri metodi.
se ci sono dati che disturbano la visuale nell'output, per la troppa quantità, se necessariamente, li possiamo anche togliere
oppure basta non guardarli e passare oltre.
Ghio, fammi sapere !
Contiene Molti dati e non ci sono previsioni, ma sviluppa dati e valori, serve per identificare giocate a Colpo, per tentare la sorte Immediata degli Estratti e di eventuali Ambi.
Possiamo definirlo uno script Di valori Dinamici Continui come sono dinamiche e continue le Estrazioni.
lasciate i valori così come espressi per "DEFAULT", sono già il massimo dell'ottimizzazione dello script affinchè
nel giro di 1 Minuto circa, dipende dal vs.Pc, si ottiene un discreto lavoro dello script, nel ricalcolare i Ritardi Storici dal 1946.
la modifica di valori di DEFAULT, significa sicuramente un allungamento dei tempi di elaborazione, è sempre uno script e non
un software specifico, ed oltretutto non ho avuto modo di controllarne la funzionalità totale.
Dalle Tabelle 01-02,1,2 si deve fare lo studio per reperire le nostre previsioni personali oppure per trarre deduzioni teoriche
convergenti con le nostre previsioni da altri metodi.
se ci sono dati che disturbano la visuale nell'output, per la troppa quantità, se necessariamente, li possiamo anche togliere
oppure basta non guardarli e passare oltre.
Ghio, fammi sapere !
Codice:
Sub Main()
Dim dati(10,5)
Dim dati2(10,5,10) '''estratti UGUALIqta 2 estraz.consec.
Dim dati3(10,5,10) '''ambi qta
Dim dati4(10,5,10,5) '''estratti Posizioni Provenienza
Dim uestr(10,5) ''ritardo corr. (fine-Ult.a Estraz.Uscito)
Dim Nestr(10,5) ''numero Ult.uscito
Dim maxruote(10) '''ritardi massimi per sorti ambo/terno/quaterna/cinquina a richiesta
Dim rie(2999),very(2999,5),Nrit50(10,5),Nmax50(10,5)
Dim es,nsorte,r1,Inizio,oggi,ru,ru2,p
'''necessari
nsorte = InputBox("Calcola RitardoStorico x sorte 2,3,4,5",,2)
es = InputBox("Quante estrazioni vuoi controllare ?",,100)
'''' facoltativi
v = CInt(InputBox("Ambi Verifica in n.colpi",,3))
r1 = CInt(InputBox("Facoltativo Ruote Sel.di Gioco ",,"0"))
det = InputBox("Facoltativo Vuoi Lista ambi Usciti? S/N ",,"N")
es = CInt(es)
Inizio = EstrazioneFin - es
oggi = EstrazioneFin - v
For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ColoreTesto 2
Scrivi String(90,Chr(11)):ColoreTesto(0) :Scrivi "Mod. GHIO-20-Bep-RmaxeRcEstrattoRipetizioneAColpo ",1,,7,5
Scrivi "Condizione : Verifica Ambi n.colpi di gioco " & v,1
Scrivi "Condizione : Vuoi Lista degli Ambi Usciti? S/N " & det,1
If r1 > 0 Then Scrivi "Condizione : ListaParziale Ambi in Corso Ruota di " & SiglaRuota(r1),1
If r1 = 0 Then Scrivi "Condizione : ListaParziale Ambi in Corso Ruota di (Non Richiesta) ",1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''
''''calcola ritardo di colpo Sinonimo di ritardo di Ruota per le 10 ruote per la sorte richiesta
Call CalcolaRitardoStoricoCinquanta(EstrazioneFin,nsorte,Nrit50,Nmax50)
'''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Scrivi: ColoreTesto(1)
Scrivi "Tabella 1 Situazione all'Estr.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1,,1,4
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
Scrivi "Esempio: Rit1/Rc o posizione viene segnalato l'ultima estrazione che ha interessato la posizione ed il ritardo in n.colpi"
Scrivi "Esempio: n1 n2 etc. sono l'ultimo numero uscito che ha interessato la posizione"
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
For i = Inizio To EstrazioneFin
AvanzamentoElab Inizio,EstrazioneFin,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto(i,ru,p)
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
'''calcola uscite e n.con
dati(ru,p) = dati(ru,p) + 1 '' contatori uscite
ne = EstrazioneFin - i
''''ritardo concorsi
uestr(ru,p) = i & "/" & Format2(ne) '' ultima estr.uscita
Nestr(ru,p) = Format2(es1) '''numero ult.uscito
'''
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
dati4(ru,p,ru2,p2) = dati4(ru,p,ru2,p2) + 1
'''controlla se ambo uscito a colpo
ReDim an(2),ar(2),matriceestrritorno(10,5)
For rr = 1 To 10
For w = 1 To 5
matriceestrritorno(rr,w) = Estratto(i,rr,w)
Next
Next
''''
For b = 1 To 5
an(1) = es1
an(2) = Estratto(i + 1,ru2,b)
'''verifica esito
'''''
For z1 = 1 To v ''' ncolpi
'
For z2 = 1 To 10 '''' nruote
If z2 = ru Or z2 = ru2 Then
'
ca = 0:cz = 0
For z3 = 1 To 5 ''' estratti
If Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(1)) Or Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(2)) Then
ca = ca + 1
End If
Next
If ca = 2 Then
ColoreTesto(0)
dati3(ru,p,ru2) = dati3(ru,p,ru2) + 1
cg = cg + 1
cz = 1
If det = "S" Then Scrivi "-ESITO---> " & i & " e " & i + 1 & " pos." & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " nr. " & Format2(an(1)) & "." & Format2(an(2)) & " " & i + 1 + z1 & " Colpo n." & z1 & " " & an(1) & "." & an(2),1
ColoreTesto(0)
End If
End If
Next
Next
'''''riepiloga previsioni in corso
If i >= oggi And an(1) <> an(2) Then
ar(1) = ru
ar(2) = ru2
Call StatisticaFormazioneTurbo(an,ar,2,retrit,retritmax,,,3950,EstrazioneFin)
qq = qq + 1
rie(qq) = i & " / " & i + 1 & " Ruote " & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " Nr." & es1 & "-" & es2 & " In gioco per n.colpi.." &(i + 1 + v) - EstrazioneFin & " Ambo..." & an(1) & " " & FormatSpace(an(2),5) & " Ritn.colpi " & EstrazioneFin -(i + 1)
very(qq,1) = i + 1
very(qq,2) = ru
very(qq,3) = ru2
very(qq,4) = an(1)
very(qq,5) = an(2)
End If
Next
'''''
End If
Next
Next
Next
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Next
ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5 Estr/Rc Estr/Rc Estr/Rc Estr/Rc Estr/Rc n1 n2 n3 n4 n5",1,,2,5
For k = 1 To 10
Tab1 = SiglaRuota(k) & " "
Tab2 = "" : Tab3 = ""
For pp = 1 To 5
Tab1 = Tab1 & FormattaStringa(dati(k,pp),"000") & " "
Tab2 = Tab2 & uestr(k,pp) & " "
Tab3 = Tab3 & Nestr(k,pp) & " "
Next
Scrivi Tab1 & " " & Tab2 & " " & Tab3,1
Next
Scrivi:Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze, Inoltre ci indica l'esatta Provenienza Ruota/Posizione "
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
Scrivi
ColoreTesto(0)
Scrivi Space(20) & "E S T R A T T I " & Space(17) & "||| A M B I ",1,,2,5
For ru = 1 To 10
ColoreTesto(0)
Scrivi Space(13) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve" & Space(2) & "Tot. |-|" & Space(2) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|",1
ColoreTesto(1)
For p = 1 To 5
Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,4) + _
FormatSpace(dati2(ru,p,1),5) + _
FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
FormatSpace(dati2(ru,p,10),4) + FormatSpace(dati(ru,p),5) + "|" + FormatSpace(p,1) + FormatSpace("|",3) + _
FormatSpace(dati3(ru,p,1),5) + _
FormatSpace(dati3(ru,p,2),5) + FormatSpace(dati3(ru,p,3),5) + _
FormatSpace(dati3(ru,p,4),5) + FormatSpace(dati3(ru,p,5),5) + _
FormatSpace(dati3(ru,p,6),5) + FormatSpace(dati3(ru,p,7),5) + _
FormatSpace(dati3(ru,p,8),5) + FormatSpace(dati3(ru,p,9),5) + _
FormatSpace(dati3(ru,p,10),4) + "|" + FormatSpace(p,1) + FormatSpace("|",1),1,,1,4
'''''
'''''provenienza ruota e posizione
For pi = 1 To 5
ColoreTesto(2)
Scrivi FormatSpace(" >Ru.Pro.",4) + FormatSpace(pi,4) + _
FormatSpace(dati4(ru,p,1,pi),5) + _
FormatSpace(dati4(ru,p,2,pi),5) + FormatSpace(dati4(ru,p,3,pi),5) + _
FormatSpace(dati4(ru,p,4,pi),5) + FormatSpace(dati4(ru,p,5,pi),5) + _
FormatSpace(dati4(ru,p,6,pi),5) + FormatSpace(dati4(ru,p,7,pi),5) + _
FormatSpace(dati4(ru,p,8,pi),5) + FormatSpace(dati4(ru,p,9,pi),5) + _
FormatSpace(dati4(ru,p,10,pi),4) + " --- ",1
Next
ColoreTesto(0)
Scrivi String(161,"-")
Next
Scrivi String(161,"-")
Next
ColoreTesto(0)
Scrivi " Totale Ambi usciti in " & V & " colpi di gioco sulle 2 ruote di elaborazione..." & cg,1
''''' Parzializzazione con eventuale Ruota Richiesta dell'output degli Ambi
''''' Nota se non viene scelta una ruota salta il riepilogo degli ambi
''''riepilogo previsioni in corso della sola ruote scelta
If r1 > 0 Then
Scrivi
Scrivi "E l e n c o A m b i R i l e v a t i Non ancora Usciti nelle Ultime " & V & " Estrazione In Archivio ",1
For n = 1 To qq
'''controllasolo ruote sel di gioco
If Int(very(n,2)) = r1 Or Int(very(n,3)) = r1 Then
''''
key2 = Mid(rie(n),20,11)
If giro = 0 Then
ambilista = Left(rie(n),31) & " - Ambi "
End If
If key1 <> key2 And giro = 4 Then
Scrivi "----------"
Scrivi ambilista & " " & ambilista2 & " Colpo.n." & EstrazioneFin - Int(Mid(ambilista,8,4)),1
ambilista = Left(rie(n),31) & " - Ambi "
ambilista2 = ""
key1 = key2
giro = 0
End If
giro = giro + 1
'''prepara campi per verifica esito
ReDim ruote(2),num(2)
id = very(n,1)
ruote(1) = very(n,2)
ruote(2) = very(n,3)
num(1) = very(n,4)
num(2) = very(n,5)
Call VerificaEsitoTurbo(num,ruote,id + 1,2,,,,,retestratti,retidestr)
If retestratti = "" Then
ambilista2 = ambilista2 & Mid(rie(n),74,8) & " | "
Else
ColoreTesto(0)
Scrivi rie(n)
ColoreTesto(2)
Scrivi "---- esito positivo ---- " & retidestr & " colpo n. " & retidestr - id & " " & retestratti,1
csuc = csuc + 1
ColoreTesto(0)
End If
''''
End If
Next
End If
ColoreTesto(1)
Scrivi: Scrivi " Totale Ambi in Elenco x " & V & " colpi di gioco sulle 2 ruote di elaborazione..." & qq,1
'' Scrivi " Totali Ambi con esito positivo negli ultimi " & V & " colpi di gioco " & csuc,1
Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
End Sub
Function CalcolaRitardoStoricoCinquanta(EstrazioneFin,nsorte,nrit50,nmax50)
ColoreTesto(0)
ReDim MatriceEstrRitorno(10,5),maxruote(10),ritruote(10),ar(1)
Dim nec,ff1,ff2,vvt,retestratti,retidestr,zzz,nu,ritardo,rigaout,zzzz,wwww,rigaout2,num,uscito
Scrivi
Inizio = 3950
For nec = Inizio To EstrazioneFin - 1
Messaggio(nec)
ReDim Cinquanta(50)
Call GetEstrazioneCompleta(nec,MatriceEstrRitorno)
'''carico in arrays cinquanta i 50 estratti E calcola ritardi x estratto a colpo
vvt = 0
For ff1 = 1 To 10
For ff2 = 1 To 5
vvt = vvt + 1
Cinquanta(vvt) = Estratto(nec,ff1,ff2)
num = Estratto(nec,ff1,ff2)
uscito = EstrattoRitardoTurbo(11,num,nec,nec + 1)
If uscito = 0 Then
If nrit50(ff1,ff2) > nmax50(ff1,ff2) Then
nmax50(ff1,ff2) = nrit50(ff1,ff2)
End If
nrit50(ff1,ff2) = 0
Else
nrit50(ff1,ff2) = nrit50(ff1,ff2) + 1
End If
Next
Next
'*********************************************************************************************
Call EliminaRipetuti(Cinquanta) '' elimino i nr.ripetuti
'''verifica esito a colpo sulle 10 ruote della sorte RICHIESTA (AMBO/TERNO/QUATERNA)
For ff1 = 1 To 10
ar(1) = ff1
Call StatisticaFormazioneTurbo(Cinquanta,ar,nsorte,ritardo,,,,nec,nec + 1)
If ritardo <> 0 Then
ritruote(ff1) = ritruote(ff1) + 1 '''accumula ritardo
Else
If ritruote(ff1) > maxruote(ff1) Then
maxruote(ff1) = ritruote(ff1)
End If
ritruote(ff1) = 0 ''''Azzera ritardo corrente
End If
Next
'''utility facoltativa per controllo dati Ritardi
''''' If nec >= EstrazioneFin - 7 Then
''''' Scrivi nec & "...nr." & StringaNumeri(Cinquanta,"-")
''''' End If
'***********************************************************************************************
Next
'''' Riepilogo prospetto
Scrivi " T a b e l l a 0 - Parte 1 Relativa alle sorti Ambo-Terno-Quaterna-Cinquina ",1,,1,4
Scrivi "Riepilogo Ritardo Corrente e Massimo Storico per esito a colpo per la sorte..." & nsorte,1
Scrivi "dei Cinquanta Numeri Identificati dall'ultima estrazione n." & EstrazioneFin,1
Scrivi
Scrivi "Periodo Considerato da - a : " & Inizio & " / " & EstrazioneFin,1
Scrivi
Scrivi "Ritardo Ripetizione dell'Ambo a Colpo",1,,1,4
Scrivi
For zzz = 1 To 10
Scrivi SiglaRuota(zzz) & " Rit.Ripet. " & FormattaStringa(ritruote(zzz),"00") & " Rit.Max. " & FormattaStringa(maxruote(zzz),"000"),1
Next
'''''''
'''''riepiloga ritardo e Massimo delle 50 posizioni
Scrivi
Scrivi " T a b e l l a 0 - Parte 2 Relativa alle sorti Estratto e le 5 Posizione",1,,2,4
Scrivi "Riepilogo Ritardo Ripetizione e Massimo Storico per esito a colpo per sorte Estratto",1
Scrivi
Scrivi "Periodo Considerato da - a : " & Inizio & " / " & EstrazioneFin,1
Scrivi
Scrivi " Ritardo Ripetizione Massimo dal 1946 ",1,,2,4
Scrivi "Ru P1 P2 P3 P4 P5 | 1x 2x 3x 4x 5x ",1
For zzzz = 1 To 10
rigaout = SiglaRuota(zzzz) & " "
rigaout2 = " "
For wwww = 1 To 5
rigaout = rigaout & nrit50(zzzz,wwww) & " "
rigaout2 = rigaout2 & nmax50(zzzz,wwww) & " "
Next
Scrivi rigaout & " | " & rigaout2,1
Next
Scrivi:Scrivi
End FunctionUltima estrazione Lotto
-
Estrazione del lotto
sabato 27 aprile 2024Bari0274347278Cagliari6062435838Firenze8870853850Genova1861700880Milano8581160326Napoli3431014151Palermo5259543505Roma3483236761Torino8659616248Venezia6950400579Nazionale3130854567Estrazione Simbolotto
Genova
3702213413
