Novità

Cortesemente un aiuto per questo script

joe

Advanced Member >PLATINUM PLUS<
Grazie ad Ilegend -anche- per la conferma.

Effettivamente la Nazionale io non la considererei perché il gestore non la paga come ambo a tutte.

Più ancora perché obbliga a raddoppiare il costo delle giocate.

In ultimo perché creando un "diviso 11" crea un periodico pari a 0.9999 ... che "complica"

ed obbliga di fatto agli arrotondamenti tanto inutili quanto altrettanto dannosi nell'introdurre errori.

Herat ... come dicevo tutto è possibile e tutto è lecito.

Escludere le presenze-multiple sicuramente sinonimo di "Frequenza"

da una ricerca dei "Frequenti" appare quasi una contraddizione in termini. comunque sia ...

Come ho intuito sin dal principio i contorni della ricerca essendo incerti,

fanno si che anche i risultati possano essere altrettanto incerti.

Pertanto ho già scritto alcune versioni totalmente differenti per questa ricerca ed in quest'ultima,

si tenta escludere le coppie di estratti isotopi che producono PIU' DI UNA "coppia per ambo".

Ma ... l'aleatorietà dei confini di ogni singola condizione e dell'interpretazione che si da della stessa,

rendono fortemente aleatoria la seguente tabella dei risultati ottenuti.

:)

Aggiornato e da verificare:

Codice:
Inizio[10054] 12.03.2022
Fine  [10071] 21.04.2022
Estr. [18]

E.Iso Pres
27.65  5
31.62  5
56.85  5
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Filotto.

Si è una immagine dunque il contenuto deve essere trascritto in VBScript.

:)
 

herat

Advanced Member
Altra cosa Joe, se è possibile, si può mettere anche la parte riguardante "imposta giocata" e resoconto per vedere statisticamente cosa è successo in passato?
 

joe

Advanced Member >PLATINUM PLUS<
Non è che io non posso ma reputo non sia giusto che non mi venga consentito di correggere i miei errori.

Dunque evito ... di farne!

:)
 

Enplein

Super Member >PLATINUM<
ALTRO ESEMPIO REALE ATTUALMENTE IN GIOCO
36 ESTRAZIONI DAL 20/01/2022 AL 12/04/2022

20/01/2022 NZ 39 - MI 54 ISOTOPI IN SECONDA POSIZIONE
25/01/2022 VE 39 - TO 54 ISOTOPI IN SECONDA POSIZIONE
01/02/2022 PA 39 - TO 54 ISOTOPI IN SECONDA POSIZIONE
02/04/2022 MI 39 - VE 54 ISOTOPI IN QUINTA POSIZIONE
12/04/2022 NA 39 - PA 54 ISOTOPI IN QUINTA POSIZIONE

NELL'ARCO DELLE 36 ESTRAZIONI DAL 20/01/2022 AL 12/04/2022 I NUMERI 39-54 NON SI SONO MAI UNITI IN AMBO SU TUTE LE 11 RUOTE E PERTANTO DAL 14 APRILE è IN GIOCO L'AMBO 39-54 SU TT-NZ
Ambi ripetuti in isotopia.jpg
 

joe

Advanced Member >PLATINUM PLUS<
Nel ringranziare anche Enplein, Ilegend e Salvo,

per il supporto e nell'augurare il buon Week-End a tutte/i ...

... Mi sembra di rilevare dall'output postato ad esempio che:

le istruzioni "nelle ultime 36 estrazioni senza mai legarsi in ambo"

siano state interpretate come "non meno di 180 Estrazioni senza ...".

Questo tipo di riduzione delle quantità di ambi del tutto legittimo (specie per un ritardista)

rende tuttavia molto diversa l'impostazione dello script

la quantità e la qualità degli ambi sottopposti all'eventuale test di gioco.

Tuttavia, se ci sono risultati ... ben vengano.

:)
 

i legend

Premium Member
Ciao a tutti:)
Enplain ho visto che hai utilizzato un altro programma, rispetto spaziometria è più veloce? Solo curiosità.
Cuao e buon weekend a tutti
 

Enplein

Super Member >PLATINUM<
Buon pomeriggio.
Anche se il programma di LuigiB "Spaziometria" è più completo,
personalmente uso Lottodesk.
Lo script realizzato gira anche su Spaziometria che impiega circa 3 minuti,
invece con il programma che uso, impiega 1'38''.
Buon Week-End a tutte/i , Enplein.


'Evidenzia le coppie di numeri che sono usciti almeno 5 volte nelle stesse posizioni
'e nelle stesse estrazioni (isocroni e isotopi ) sulle 11 ruote nelle ultime 36 estrazioni
'senza mai legarsi in ambo
'Lo script deve mettere in gioco per 18 colpi la coppia rilevata


Sub Main() Dim ee(36),ru(36),po(36),rtt(2),ab(2),poste(2) poste(2)=1 cl=CInt(InputBox("Di Quante Estrazioni componiamo il Ciclio ?","ESTRAZIONI",36)) fine=CInt(InputBox("Con quale estrazione vuoi iniziare?","Estrazione ",10067)) test=(cl-1) Scrivi "Ricerca dall'estrazione del "& DataEstrazione (fine)&"/"&fine&" Listed by Enplein",1 Scrivi co=0 es=fine Messaggio es For j1=1 To 89 n1=j1 For j2=j1+1 To 90 n2=j2 g1=0 : g=0 : ex=0 : Erase ee : Erase ru : Erase po For x=0 To test ex=es-x For p=1 To 5 For r1=1 To 10 po1=Posizione (ex,r1,n1) : po2=Posizione (ex,r1,n2) If (po1>0 And po1=p) Or (po2>0 And po2=p)Then If po1>0 Then nn1=n1 Else nn1=n2 For r2=r1+1 To 11 If r2=11 Then r2=12 If nn1=n1 Then nn2=n2 Else nn2=n1 po3=Posizione (ex,r2,nn2) If (po3>0 And po3=p) Then g1=g1+1 : ee(g1)=ex : po(g1)=p g=g+1 : ru(g)=r1 : g=g+1 : ru(g)=r2 End If Next End If Next Next Next If g1=>5 Then ab(1)=n1 : ab(2)=n2 rtt(1)=11 : rtt(2)=12 ra=SerieRitardo (es-400,es,ab,rtt,2) If ra=>36 Then co=co+1 Scrivi Scrivi "Coppia in posizione isotopa "& Format2 (n1)&"."& Format2 (n2)&_ " Prs. "&g1&" Rit. su Tutte + Nz "&ra,1 j=0 For i=1 To g1 j=j+1 Scrivi DataEstrazione (ee(i))&" ",0,0 Scrivi SiglaRuota (ru(j))&"/",0,0 j=j+1 Scrivi SiglaRuota (ru(j))&" Pos. "&po(i)&"^" Next Scrivi Scrivi "----------------------------Giocata n°"&co,1 ImpostaGiocata 1,ab,rtt,poste,18,2 Gioca es End If End If Next Next ScriviResoconto End Sub
 

i legend

Premium Member
Grazie enplain per la risposta. vedo che il tuo script è diverso da quello di joe
Complimenti anche a te :)ciao:)
 

herat

Advanced Member
Enplein, scusa nuovamente, è possibile evidenziare una sola ripetizione isotopa ad estrazione?
 

Enplein

Super Member >PLATINUM<
...per il tipo di ricerca le modifiche sono complicate, vi chiedo
gentilmente di accettare quello che ho realizzato.
Grazie , Enplein.
 

Enplein

Super Member >PLATINUM<
le istruzioni "nelle ultime 36 estrazioni senza mai legarsi in ambo"

siano state interpretate come "non meno di 180 Estrazioni senza ...".

Questo tipo di riduzione delle quantità di ambi del tutto legittimo (specie per un ritardista)

rende tuttavia molto diversa l'impostazione dello script
Ciao Joe, per precisare...lo script filtra la condizione che nel ciclo di 36 estrazioni,
non si sia verificata la sortita dell'ambo; quindi il ritardo di 180 estrazioni
o più, dimostra che tale valore rispetta la condizione.
Con stima, Enplein.
 

joe

Advanced Member >PLATINUM PLUS<
Grazie Enplein hai fatto bene a correggere.

Quando ho scritto non era ancora presente lo script in cui leggere,

la fondatezza delle tue ragioni, mentre per contro nell'immagine al post #28

erano presenti (forse casualmente) 3 grandi ritardi (180-182-183).

Dunque ho riferito erroneamente di una ipotesi di riduzione ... che non c'è.

Per il resto ho cercato di uniformare i risultati del tuo script con quelli ricavati

dal programma che ho inserito qui. Qualche messaggio fa.

Coincidono quasi perfettamente.

Non so se cercherò di capire il perché di queste piccole ed ininfluenti differenze.

:)
 

joe

Advanced Member >PLATINUM PLUS<
Buona Serata a tutte/i.

Modificando lo script che ho già proposto affinché

* NON consideri la Nazionale,

* ricerchi nelle 36 Estrazioni

* Le Coppie-Isotope che abbiano:

* una sola presenza nella posizione per ogni Estrazione

* abbiano totalizzato almeno 5 casi

* NON abbiano prodotto nessun Ambo a tutte (nel medesimo periodo),

le coppie-isotope trovate sono riassunte S.E.&O. in questa tabella:

Immagine.png

:) Vedremo se produrrà qualcosa di redditizio.
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto