Cortesemente un aiuto per questo script

[joe]

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:

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]

Ecco lo script commentato per chi lo volesse trascrivere.

 

[fillotto]

Ecco lo script commentato per chi lo volesse trascrivere.

Vedi l'allegato 2233246

scusa Joe ma come si fa a copiare lo script di cui sopra , è un immagine e non viene accettato nell'editor oppure bisogna copiarlo piano piano, oppure non so ...??

 

[joe]

Ciao Filotto.

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

 

[herat]

Ecco lo script commentato per chi lo volesse trascrivere.

Vedi l'allegato 2233246

Caro Joe grazie infinite. ❤
Non riesci a mettere il codice qui nel post per fare copia e incolla ?

 

[herat]

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

 

[joe]

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]

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

 

[joe]

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]

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

 

[herat]

Vedi l'allegato 2233268

Salve Enplein!
grazie mille, si potrebbe avere lo script?

 

[Enplein]

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]

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

 

[herat]

Grazie mille Enplein!

 

[herat]

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

 

[Enplein]

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

 

[herat]

Certamente! grazie infinite!

 

[Enplein]

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]

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]

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:



Vedremo se produrrà qualcosa di redditizio.