Novità

buon giorno per chi mi puo aiutare su uno script

ghio

Super Member >PLATINUM<
sono in cerca di uno script o di qualcuno che riesca a farlo ,provo a fare una richiesta ringraziando anticipatamente tutti.
in sostanza lo script dovrebbe riuscire ad analizzare il ritardo 0 di ogni singola ruota,faccio un esempio per essere più chiaro
il 12/1/2019 i numeri 73-72 -64-27 di venezia anno un ritardo che rispetto a tutte le ruote è pari a 0 cioè erano tutti presenti nell estrazione precedente.
e fino qui basterebbe quardare l archivio estrazione in l8 controllando il ritardo degli estratti su tutte.
sarebbe per me interessante sapere analizzando come detto prima questo ritardo.cioè so che 4 numeri con ritardo zero li ritrovo a venezia solo 8 estrazioni prima il 24/12/2018.
e cosi via ,lo script appunto mi servirebbe per determinare il ritardo storico di tale combinazione.4 numeri o 3numeri su ogni ruota.
ringrazio anticipatamente tutti coloro che vorranno aiutarmi.
 

Cinzia27

Premium Member
Ciao, spero che lo script corrisponda alla ricerca.
Cinzia
Codice:
Sub main()
Dim n(1),ru(1),rur(1)
'Ricerca di Ghio: sortita su ruota di un tot numeri a ritardo 0 su tutte (Cinzia)
q=4'qui fissa la quantità di numeri
rr=11
rur(1)=rr
For r=1 To 10
Scrivi
ru(1)=r
c=0
cc=0
For es=EstrazioneFin-40 To EstrazioneFin ' estrazioni da esaminare
c=0
cc=cc+1
Scrivi DataEstrazione(es)&" "&FormatSpace(es,4,1)&" ",0,0
Scrivi SiglaRuota(r)&" ",0,0
For p=1 To 5
n(1)=Estratto(es,r,p)
If SerieFreq(es-1,es-1,n,rur,1)>0 Then c=c+1:Scrivi n(1)&" ",0,0

Next
If c=q Then
ColoreTesto 1
Scrivi "usciti "&c&" al "&cc&"° colpo ",1
ColoreTesto 0
cc=0
Else
Scrivi
End if
Next
Next
End Sub
 

ghio

Super Member >PLATINUM<
GRAZIE, QUASI PERFETTO,SOLO UN PROBLEMA CHE CREDO CHE POI PER LEI NON LO SIA,
è POSSIBILE AGGIUNGERE UN RESOCONTO'??
DEI RITARDI.
 

ghio

Super Member >PLATINUM<
NOTAVO ANCHE CHE AD ESEMPIO FISSANDO I NUMERI A DUE IL LISTATO NON TIRNE CONTO CHE IL RITARDO DELLO STESSO 2 NON è REALE PERCHHE NELL ESTRAZIONE CHE NE ESCONO 3 IN REALTA IL RITARDO DEI 2 SI ANULLA ,UGUALMENTE FISSANDO A 3 NON TIENE CONTO QUANDO NE ESCONO 4 ,GRAZIE E SPERO DI ESSERE STATO CHIARO,
 

Cinzia27

Premium Member
GUARDA SE COSI' VA BENE


Codice:
Sub main()
Dim n(1),ru(1),rur(1)
'Ricerca di Ghio: sortita su ruota di un tot numeri a ritardo 0 su tutte (Cinzia)
q=4'qui fissa la quantità di numeri
qq=5:qq1=10:qq2=15'qui fissa i ritardi minimi
rr=11
rur(1)=rr
For r=1 To 10
Scrivi
ru(1)=r
c=0
cc=0
For es=EstrazioneFin-20 To EstrazioneFin ' estrazioni da esaminare
c=0
cc=cc+1
Scrivi DataEstrazione(es)&" "&FormatSpace(es,4,1)&" ",0,0
Scrivi SiglaRuota(r)&" ",0,0
For p=1 To 5
n(1)=Estratto(es,r,p)
If SerieFreq(es-1,es-1,n,rur,1)>0 Then c=c+1:Scrivi Format2(n(1))&" ",0,0

Next
If c=q Then
ColoreTesto 1
Scrivi "usciti "&c&" al "&cc&"° colpo ",1
If cc>mx Then mx=cc
If cc>=qq Then conta=conta+1
If cc>=qq1 Then conta1=conta1+1
If cc>=qq2 Then conta2=conta2+1
ColoreTesto 0
cc=0
Else
Scrivi
End If
Next
Next
Scrivi
Scrivi "Numero massimo di colpi " &mx
Scrivi "N. colpi >= " &FormatSpace(qq,4,1)&"  " &conta
Scrivi "N. colpi >= " &FormatSpace(qq1,4,1)&"  " &conta1
Scrivi "N. colpi >= " &FormatSpace(qq2,4,1)&"  " &conta2
End Sub
 
Ultima modifica:

Cinzia27

Premium Member
Se metti If c>=q Then al posto di if c=q then hai anche le uscite superiori.
Ciao
Cinzia
 
Ultima modifica:

ghio

Super Member >PLATINUM<
RIMANE IL FATTO SOLO CHE NON COTTEGGIA SE SI USA 2 AL POSTO DI 4 DOVE FISSA I NUMERI ESEMPIO
02.03.2019 9597 Ve 42 76 usciti 2 al 2° colpo QUESTO NON è REALE IL RIT DICO
28.02.2019 9596 Ve 85 47 84 13 INFATTI L ESTRAZIONE PRIMA
NE SONO USCITI 4 CHE QUINDI CONPRENDONO ANCHE IL 2 GIUSTO
GRAZIE
 

ghio

Super Member >PLATINUM<
cinzia domanda ma se imposto a 3 e metto il segno di maggiore mi trova i 4 ma non mi conteggia che i 4 numeri danno origine a 3 terni che
poi andrebbero conteggiati è possibile
 
Ultima modifica:

Cinzia27

Premium Member
Guarda se va bene.

Codice:
Sub main()
Dim n(1),ru(1),rur(1)
'Ricerca di Ghio: sortita su ruota di un tot numeri a ritardo 0 su tutte (Cinzia)
q=3'qui fissa la quantità di numeri
qq=5:qq1=10:qq2=15'qui fissa i ritardi minimi
rr=11
rur(1)=rr
For r=1 To 10
Scrivi
ru(1)=r
c=0
cc=0
co=0
For es=EstrazioneFin To EstrazioneFin-20 step -1 ' estrazioni da esaminare
c=0
cc=cc+1
Scrivi DataEstrazione(es)&" "&FormatSpace(es,4,1)&" ",0,0
Scrivi SiglaRuota(r)&" ",0,0
For p=1 To 5
n(1)=Estratto(es,r,p)
If SerieFreq(es-1,es-1,n,rur,1)>0 Then c=c+1:Scrivi Format2(n(1))&" ",0,0

Next

If c>=q Then
co=co+1

ColoreTesto 1
Scrivi "usciti "&c&" al "&cc&"° colpo ",1,0
If co=1 Then Scrivi " Ritardo attuale "& FormatSpace(EstrazioneFin -es,4,1),1 Else Scrivi
If cc>mx Then mx=cc
If cc>=qq Then conta=conta+1
If cc>=qq1 Then conta1=conta1+1
If cc>=qq2 Then conta2=conta2+1
ColoreTesto 0
cc=0
Else
Scrivi
End If

Next

Next
Scrivi
Scrivi "Numero massimo di colpi " &mx
Scrivi "N. colpi >= " &FormatSpace(qq,4,1)&"  " &conta
Scrivi "N. colpi >= " &FormatSpace(qq1,4,1)&"  " &conta1
Scrivi "N. colpi >= " &FormatSpace(qq2,4,1)&"  " &conta2
End Sub
 

ghio

Super Member >PLATINUM<
cinzia grazie si riesce a far una cosa del genere io sono un ignorante

Resoconto complessivo di 7 giocate
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 56
in corso: 7
casi finali: 49
positivi: 30
negativi: 19
Pronostici generati: 144
Pronostici vincenti: 50 (34,7 %)
Estrazioni di gioco: 707
Tentativi (scontrini giocati): 1818
Vincite (scontrini vincenti): 50 (2,75 %)
Attesa media: 7,14




Resoconto totale giocate
Dettaglio Ruote (Pronostici)

Ruota Vincenti Giocati
---------------------------------
Bari 0 ( 0,00 % ) 112
Cagliari 2 ( 1,11 % ) 180
Firenze 0 ( 0,00 % ) 68
Genova 0 ( 0,00 % ) 56
Milano 3 ( 2,42 % ) 124
Napoli 0 ( 0,00 % ) 168
Palermo 4 ( 2,38 % ) 168
Roma 3 ( 2,68 % ) 112
Torino 0 ( 0,00 % ) 56
Venezia 0 ( 0,00 % ) 112
Tutte 30 ( 9,90 % ) 303
Nazionale 8 ( 2,23 % ) 359
Totale 50 ( 2,75 % ) 1818




Resoconto totale giocate
Resoconto economico

Sorte Spese [€] Real. Vincite [€] -6% Guadagno [€]
---------------------------------------------------------------
Ambata 0,00 0 0,00 0,00 0,00
Ambo 1.818,00 51 1.675,00 1.574,50 -243,50
Terno 0,00 0 0,00 0,00 0,00
Quaterna 0,00 0 0,00 0,00 0,00
Cinquina 0,00 0 0,00 0,00 0,00
E.Det.1 0,00 0 0,00 0,00 0,00
E.Det.2 0,00 0 0,00 0,00 0,00
E.Det.3 0,00 0 0,00 0,00 0,00
E.Det.4 0,00 0 0,00 0,00 0,00
E.Det.5 0,00 0 0,00 0,00 0,00
Totale: 1.818,00 1.675,00 -143,00 -243,50




Resoconto totale giocate
Dettaglio Successi

Giocata Successi Colpo Perc. Entro
-----------------------------------------
Tutte 7 1 14,0 % 14,0 %
Tutte 5 2 10,0 % 24,0 %
Tutte 3 3 6,0 % 30,0 %
Tutte 3 4 6,0 % 36,0 %
Tutte 3 6 6,0 % 42,0 %
Tutte 15 9 30,0 % 72,0 %
Tutte 5 10 10,0 % 82,0 %
Tutte 2 11 4,0 % 86,0 %
Tutte 1 12 2,0 % 88,0 %
Tutte 2 13 4,0 % 92,0 %
Tutte 4 14 8,0 % 100,0 %
 

ghio

Super Member >PLATINUM<
04.04.2019 9611 Ba 83 28 69 72 usciti 4 al 5° colpo, esempio non è giusto perché i numeri con rit 0 erano quelli del 2 aprile quindi sono a rit 0
o faccio confusione io
 

ghio

Super Member >PLATINUM<
Ogni estrazione ha una sua posizione tra le 43.949.268. La posizione nr. 43949268 è l'ultima possibile ed individua la seguente combinazione:
86.87.88.89.90. Se si decide di effettuare un pronostico su 8 caselle, tramite il LISTATO andremo a selezionare i numeri ammessi per ogni casella. Se dico che alla casella 1 è ammesso solo il numero 4, alla casella 2 il numero 3, alla casella 3 il numero 9...........alla casella 8 il numero 8, sto di fatto ammettendo una unica combinazione che è la 43949268 ovvero la cinquina 86.87.88.89.90
Quindi il LISTATO tramite un pronostico svilupperà le combinazioni ammesse, espresse in numeri compresi tra 1 e 43.949.268, per poi trasformarle nelle cinquine da porre in gioco. Questo per un sistema numerico in base 10.
è possibile
 

ghio

Super Member >PLATINUM<
ogni cinquina restituiamo un codice la prima 1.2.3.4.5 avra 0.0.0.0.1 la seconda 1.2.3.4.6 0.0.0.0.2 e cosi via fino all ultima
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto