Metodi Sommativi no frequenza ma ritardo

[fillotto]

Abbiamo visto come si fa per ricavare dei numeri con l'utilizzo del programma spaziometria ---> Metodi sommativi , i numeri che si ottengono non sono altro che le "frequenze" che si sono verificate in precedenza nell'intervallo che noi abbiamo impostato nei parametri.
Ora , mi domando è possibile nel programma (o con gli script) fare l'inverso? cioè trovare dei numeri adattatori che addizionati fuori 90 mi danno ad esempio: che addizionando al 1° di bari (prima estraz del mese x 9 turni facendo in definitiva controllare un numro sufficente di estrazioni ) quegli ambi che non sono mai usciti con adattatori (output 53 e 12).
Io penso che i ritardi siano più credibili, nella fattispecie, delle frequenze perchè quest'ultime prima o poi si interrompono (e state sicuri che ci capiterà prorio a noi) mentre i ritardi prima o poi escono sia pure, come in questi casi che trattasi di "ritardi relativi"
Siccome io non saprei come fare sia con il programma o con gli script
chiedo aiuto a chiunque e in primis a LUIGI per il programma o a RUBINO x lo script.
Saluti Fill

 

[fillotto]

Per trovare i ritardi ma sempre "sommativamente" ho cercato di utilizzare uno script di Blackmore "QUESTO SCRIPT TROVA 1 AMBATA SU RUOTA E CALCOLA QUANTE VOLTE è USCITA (Con InputBox Per Ruota Percentuale,colpi etc..)"

Ho messo questi parametri :
1)Ruota di BARI
2)1^ estraz mensile
3)30 estrazioni (in modo da far un rapido riscontro)
4)Percentuale minima 0% (in modo che mi facesse vedere anche i num che non siano mai apparsi)
5)controllo sulle successive 8 estrazioni
Ebbene lo script sembra non funzionare perchè mi da questo output:
ANALISI Dal 22.03.2011 al 31.05.2011

ESTRAZIONE DI CALCOLO : 1° del mese
RUOTE DI GIOCO : Bari -
COLPI DI GIOCO : 8
CASI ANALIZZATI : 2

1°Ba * 01 su Bari- è uscito 1 su 2 casi - AMBATE TOTALI: 1
1°Ba * 02 su Bari- è uscito 2 su 2 casi - AMBATE TOTALI: 4 1°Ba * 03 su Bari- è uscito 2 su 2 casi - AMBATE TOTALI: 3
0° * 00 su Bari- è uscito 0 su 2 casi - AMBATE TOTALI: 0 ecc ecc
non riesco a capire :1°Ba * 02 su Bari- è uscito 2 su 2 casi - AMBATE TOTALI: 4 perchè le ambate Totali sono 2 e non 4 in quanto le altre 2 sono fuori dalle 8 estrazioni da considerare.
Blackmore potresti vedere??
Sub Main()
Dim ambi(4500,6),nn(10),ruota(10)
nru1 = InputBox("ruota : ",,1)
nes = InputBox("Inserisci 0 ultima, 1 prima, ....",,1)
ne = InputBox("Numero estrazioni:",,200)
perc = InputBox("Percentuale minima (60-99%):",,95)
ncg = InputBox("Numero colpi di gioco",,8)
ruota(1) = eval(nru1)
casi = 0
ini = EstrazioneFin - ne
fin = EstrazioneFin
For x = 1 To 4500
ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0
Next
For es = ini To fin
If eval(nes) = 0 Then
If IndiceMensile(es + 1) = 1 Then
casi = casi + 1
co = 0
For r = 1 To 10
For p = 1 To 5
For nu = 1 To 90
co = co + 1
c = 0
a = Estratto(es,r,p)
b = Fuori90(a*nu)
nn(1) = b
esncg = es + eval(ncg)
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
c = SerieFreq(es + 1,esncg,nn,ruota,1)
If c > 0 Then
ambi(co,1) = co
ambi(co,2) = r
ambi(co,3) = p
ambi(co,4) = nu
ambi(co,5) = ambi(co,5) + 1
ambi(co,6) = ambi(co,6) + c
End If
Next
Next
Next
End If
Else
If IndiceMensile(es) = eval(nes) Then
casi = casi + 1
co = 0
For r = 1 To 10
For p = 1 To 5
For nu = 1 To 90
co = co + 1
c = 0
a = Estratto(es,r,p)
b = Fuori90(a*nu)
nn(1) = b : nn(2) = Vert(b)
esncg = es + eval(ncg)
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
c = SerieFreq(es + 1,esncg,nn,ruota,1)
If c > 0 Then
ambi(co,1) = co
ambi(co,2) = r
ambi(co,3) = p
ambi(co,4) = nu
ambi(co,5) = ambi(co,5) + 1
ambi(co,6) = ambi(co,6) + c
End If
Next
Next
Next
End If
End If
Next
ca = 0
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi
If eval(nes) = 0 Then
Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1
Else
Scrivi "ESTRAZIONE DI CALCOLO : " & eval(nes) & "° del mese",1
End If
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1) & " - " & NomeRuota(nru2),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
Scrivi : ColoreTesto 0
per = Int((casi/100)*perc)
For ca = 1 To 4500
If eval(ambi(ca,5)) => per Then
Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " * " & _
Format2(ambi(ca,4)) & " su " & NomeRuota(nru1) & "-" & NomeRuota(nru2) & _
" è uscito " & FormatSpace(ambi(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - AMBATE TOTALI: " & _
FormatSpace(ambi(ca,6),3)
End If
Next
End Sub

 

[Roby]

Fillotto, lo script su Spaziometria gira benissimo,
l'ho fatto girare 12 volte di seguito e non mi da nessun errore,
Quando scelgo i colpi si blocca, ma solo perchè sta eseguendo il calcolo,
difatti dopo qualche minuto mi da i risultati

Riguardo alla tua ricerca, questo script trova le ambate più frequenti e non
quelle mai uscite, ho modificato lo script e le ambate mai uscite..NON LE SEGNALA,
IL RISULTATO RIMANE IN BIANCO PROPRIO PERCHè IL SUO COMPITO FA L'OPPOSTO

E come se tu hai uno script che ti trova le ambate più
ritardatarie e gli vorresti chiedere le più frequenti, IMPOSSIBILE
QUESTO è IL MIO PENSIERO, MAGARI ADESSO ARRIVA QUALCUNO CHE
SMONTA CLAMOROSAMENTE LA MIA TESI.... (PROBABILE)


Sub Main()

Dim ambi(4500,6),nn(10),ruota(10)

nru1 = InputBox("ruota : ",,1)

nes = InputBox("Inserisci 0 ultima, 1 prima, ....",,1)

ne = InputBox("Numero estrazioni:",,300)

perc = InputBox("Percentuale minima (0-100%):",,0)

ncg = InputBox("Numero colpi di gioco",,8)

ruota(1) = eval(nru1)

casi = 0

ini = EstrazioneFin - ne

fin = EstrazioneFin

For x = 1 To 4500

ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0

Next

For es = ini To fin

If eval(nes) = 0 Then

If IndiceMensile(es + 1) = 1 Then

casi = casi + 1

co = 0

For r = 1 To 10

For p = 1 To 5

For nu = 1 To 90

co = co + 1

c = 0

a = Estratto(es,r,p)

b = Fuori90(a*nu)

nn(1) = b

esncg = es + eval(ncg)

If esncg > EstrazioneFin Then esncg = EstrazioneFin End If

c = SerieFreq(es + 1,esncg,nn,ruota,1)

If c > 0 Then

ambi(co,1) = co

ambi(co,2) = r

ambi(co,3) = p

ambi(co,4) = nu

ambi(co,5) = ambi(co,5) + 1

ambi(co,6) = ambi(co,6) + c

End If

Next

Next

Next

End If

Else

If IndiceMensile(es) = eval(nes) Then

casi = casi + 1

co = 0

For r = 1 To 10

For p = 1 To 5

For nu = 1 To 90

co = co + 1

c = 0

a = Estratto(es,r,p)

b = Fuori90(a*nu)

nn(1) = b : nn(2) = Vert(b)

esncg = es + eval(ncg)

If esncg > EstrazioneFin Then esncg = EstrazioneFin End If

c = SerieFreq(es + 1,esncg,nn,ruota,1)

If c > 0 Then

ambi(co,1) = co

ambi(co,2) = r

ambi(co,3) = p

ambi(co,4) = nu

ambi(co,5) = ambi(co,5) + 1

ambi(co,6) = ambi(co,6) + c

End If

Next

Next

Next

End If

End If

Next

ca = 0

ColoreTesto 1

Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1

Scrivi

If eval(nes) = 0 Then

Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1

Else

Scrivi "ESTRAZIONE DI CALCOLO : " & eval(nes) & "° del mese",1

End If

Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1) & " - " & NomeRuota(nru2),1

Scrivi "COLPI DI GIOCO : " & ncg,1

Scrivi "CASI ANALIZZATI : " & casi,1

Scrivi : ColoreTesto 0

per = Int((casi/100)*perc)

For ca = 1 To 4500

If eval(ambi(ca,5)) = per Then

Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " * " & _
Format2(ambi(ca,4)) & " su " & NomeRuota(nru1) & "-" & NomeRuota(nru2) & " è uscito " & FormatSpace(ambi(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - AMBATE TOTALI " & _
FormatSpace(ambi(ca,6),3)

End If

Next

End Sub


Blackmore

 

[DjNomade]

Ciauz forse intendete cosi'???


Scrivi : Scrivi"QUESTO SCRIPT TROVA 1 AMBATA SU RUOTA E CALCOLA QUANTE VOLTE è USCITA (Con InputBox Per Ruota Percentuale MASSIMA RICHIESTA ,colpi etc..)"


Sub Main()

Dim ambi(4500,6),nn(10),ruota(10)

nru1 = InputBox("ruota : ",,1)

nes = InputBox("Inserisci 0 ultima, 1 prima, ....",,1)

ne = InputBox("Numero estrazioni:",,300)

perc = InputBox("Percentuale MASSIMA (0-100%):",,30)

ncg = InputBox("Numero colpi di gioco",,8)

ruota(1) = eval(nru1)

casi = 0

ini = EstrazioneFin - ne

fin = EstrazioneFin

For x = 1 To 4500

ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0

Next

For es = ini To fin

If eval(nes) = 0 Then

If IndiceMensile(es + 1) = 1 Then

casi = casi + 1

co = 0

For r = 1 To 10

For p = 1 To 5

For nu = 1 To 90

co = co + 1

c = 0

a = Estratto(es,r,p)

b = Fuori90(a*nu)

nn(1) = b

esncg = es + eval(ncg)

If esncg > EstrazioneFin Then esncg = EstrazioneFin End If

c = SerieFreq(es + 1,esncg,nn,ruota,1)

If c > 0 Then

ambi(co,1) = co

ambi(co,2) = r

ambi(co,3) = p

ambi(co,4) = nu

ambi(co,5) = ambi(co,5) + 1

ambi(co,6) = ambi(co,6) + c

End If

Next

Next

Next

End If

Else

If IndiceMensile(es) = eval(nes) Then

casi = casi + 1

co = 0

For r = 1 To 10

For p = 1 To 5

For nu = 1 To 90

co = co + 1

c = 0

a = Estratto(es,r,p)

b = Fuori90(a*nu)

nn(1) = b : nn(2) = Vert(b)

esncg = es + eval(ncg)

If esncg > EstrazioneFin Then esncg = EstrazioneFin End If

c = SerieFreq(es + 1,esncg,nn,ruota,1)

If c > 0 Then

ambi(co,1) = co

ambi(co,2) = r

ambi(co,3) = p

ambi(co,4) = nu

ambi(co,5) = ambi(co,5) + 1

ambi(co,6) = ambi(co,6) + c

End If

Next

Next

Next

End If

End If

Next

ca = 0

ColoreTesto 1

Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1

Scrivi

If eval(nes) = 0 Then

Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1

Else

Scrivi "ESTRAZIONE DI CALCOLO : " & eval(nes) & "° del mese",1

End If

Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1) & " - " & NomeRuota(nru2),1

Scrivi "COLPI DI GIOCO : " & ncg,1

Scrivi "CASI ANALIZZATI : " & casi,1

Scrivi "NUMERO ESTRAZIONI : " & ne,1

Scrivi "PERCENTUALE MASSIMA RICHIESTA DEL : " & perc&"%",1

Scrivi : ColoreTesto 0

per = Int((casi/100)*perc)

For ca = 1 To 4500

If eval(ambi(ca,5)) <=per Then

Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " * " & _
Format2(ambi(ca,4)) & " su " & NomeRuota(nru1) & "-" & NomeRuota(nru2) & " è uscito " & FormatSpace(ambi(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - AMBATE TOTALI " & _
FormatSpace(ambi(ca,6),3)

End If

Next

End Sub


«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[fillotto]

Grazie per le risposte comunque non mi trovo o ho capito male
Premesso che ho impostato in questa maniera
Ho messo questi parametri :
1)Ruota di BARI
2)1^ estraz mensile
3)30 estrazioni (in modo da far un rapido riscontro)
4)Percentuale massima 100% (in modo che mi facesse vedere anche i num che non siano mai apparsi)
5)controllo sulle successive 8 estrazioni
Ebbene lo script sembra non funzionare perchè mi da questo output:
ANALISI Dal 22.03.2011 al 31.05.2011

ESTRAZIONE DI CALCOLO : 1° del mese
RUOTE DI GIOCO : Bari -
COLPI DI GIOCO : 8
CASI ANALIZZATI : 2
NUMERO ESTRAZIONI : 30
PERCENTUALE MASSIMA RICHIESTA DEL : 100%


1°Ba * 01 su Bari- è uscito 1 su 2 casi - AMBATE TOTALI: 1
1°Ba * 02 su Bari- è uscito 2 su 2 casi - AMBATE TOTALI: 4
1°Ba * 03 su Bari- è uscito 2 su 2 casi - AMBATE TOTALI: 3
0° * 00 su Bari- è uscito 0 su 2 casi - AMBATE TOTALI: 0 ecc ecc
Ora controlliamo la ruota di bari, con i parametri immessi dobbiamo
controllare solo 2 casi perche nelle 30 etrazioni capitano solo 2 mesi
il 1° num di BA della 1^ estraz del mese di Aprile è " 20 "
il 1° num di BA della 1^ estraz del mese di Maggio è " 64 "
L'output mi dice ,fra l'altro, che dovrei trovare il n° 60 (20 moltiplicato 3 fuori90)nelle successive 8 estraz di Aprile
e il n° 12 (64 moltiplicato 3 fuori90)nelle successive 8 estraz di Maggio
EBBENE nell'output dice che dovrei trovare 2 uscite
3 uscite totali ma di 60 e 12 non ci sono!!
Questo sia utilizzando loscript di Bleckmore (% 0)sia di DjNomade (%100)
Dove sbaglio?

 

[Roby]

Fillotto, scrivimi "ESATTAMENTE" i parametri che hai impostato

Blackmore

 

[DjNomade]

Forse ci sono!!!!
'nn(2)=Vert(b)


togli per un attimo questo forse cercava pure il vertibile infatti il 6 è uscito 3 volte

1°Ba * 03 su Bari- è uscito 2 su 2 casi - AMBATE TOTALI: 3
20 * 03 =60 >Vert 06 su Bari- è uscito 2 su 2 casi - AMBATE TOTALI: 3

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[oruam]

listato di Danilo,a cui mando i piu sinceri saluti.
Nel fare il copia e incolla e nel modificarlo avete saltato
qualche punto,nel caso vogliate la giocata del vertibile basta togliere l'apice a tutte due le righe( quelle parti dipendono
le scelte dell'indice mensile..attenzione)


Sub Main()

Dim ambi(4500,6),nn(10),ruota(10)

nru1 = InputBox("ruota : ",,1)

nes = InputBox("Inserisci 0 ultima, 1 prima, ....",,1)

ne = InputBox("Numero estrazioni:",,100)

perc = InputBox("Percentuale minima (0-100%):",,90)

ncg = InputBox("Numero colpi di gioco",,12)

ruota(1) = eval(nru1)

casi = 0

ini = EstrazioneFin - ne

fin = EstrazioneFin

For x = 1 To 4500

ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0

Next

For es = ini To fin

If eval(nes) = 0 Then

If Indicemensile(es + 1) = 1 Then

casi = casi + 1

co = 0

For r = 1 To 10

For p = 1 To 5

For nu = 1 To 90

co = co + 1

c = 0

a = Estratto(es,r,p)
b = Fuori90(a*nu)

nn(1) = b : ' nn(2) = Vert(b) '<<<<con il vert


esncg = es + eval(ncg)

If esncg > EstrazioneFin Then esncg = EstrazioneFin End If

c = SerieFreq(es + 1,esncg,nn,ruota,1)

If c > 0 Then

ambi(co,1) = co

ambi(co,2) = r

ambi(co,3) = p

ambi(co,4) = nu

ambi(co,5) = ambi(co,5) + 1

ambi(co,6) = ambi(co,6) + c

End If

Next

Next

Next

End If

Else

If Indicemensile(es) = eval(nes) Then

casi = casi + 1

co = 0

For r = 1 To 10

For p = 1 To 5

For nu = 1 To 90

co = co + 1

c = 0

a = Estratto(es,r,p)

b = Fuori90(a*nu)

nn(1) = b : ' nn(2) = Vert(b) '<<<<con il vert

esncg = es + eval(ncg)

If esncg > EstrazioneFin Then esncg = EstrazioneFin End If

c = SerieFreq(es + 1,esncg,nn,ruota,1)

If c > 0 Then

ambi(co,1) = co

ambi(co,2) = r

ambi(co,3) = p

ambi(co,4) = nu

ambi(co,5) = ambi(co,5) + 1

ambi(co,6) = ambi(co,6) + c

End If

Next

Next

Next

End If

End If

Next

ca = 0

ColoreTesto 1

Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1

Scrivi

If eval(nes) = 0 Then

Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1

Else

Scrivi "ESTRAZIONE DI CALCOLO : " & eval(nes) & "° del mese",1

End If

Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1) ,1

Scrivi "COLPI DI GIOCO : " & ncg,1

Scrivi "CASI ANALIZZATI : " & casi,1

Scrivi : ColoreTesto 0

per = Int((casi/100)*perc)

For ca = 1 To 4500

If eval(ambi(ca,5)) = per Then

Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " * " & _
Format2(ambi(ca,4)) & " e il vert. su " & NomeRuota(nru1) & " è uscito " & FormatSpace(ambi(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - AMBATE TOTALI " & _
FormatSpace(ambi(ca,6),3)

End If

Next

End Sub

 

[fillotto]

Grazie a tutti adesso finalmete ho capito, in effetti non avevo visto quella riga di codice del vertibile per cui non mi quadrava il tutto.
Adesso quello che cerco riesco a trovarlo per deduzione li dove ci sono degli 0 significa che ancora non si è verificato alcun caso ecco il nuovo output(giusto secondo la mia visuale):
ANALISI Dal 22.03.2011 al 31.05.2011

ESTRAZIONE DI CALCOLO : 1° del mese
RUOTE DI GIOCO : Bari -
COLPI DI GIOCO : 8
CASI ANALIZZATI : 2
NUMERO ESTRAZIONI : 30
PERCENTUALE MASSIMA RICHIESTA DEL : 100%

1°Ba * 01 su Bari- è uscito 1 su 2 casi - AMBATE TOTALI 1
1°Ba * 02 su Bari- è uscito 2 su 2 casi - AMBATE TOTALI 2
0° * 00 su Bari- è uscito 0 su 2 casi - AMBATE TOTALI 0
0° * 00 su Bari- è uscito 0 su 2 casi - AMBATE TOTALI 0
0° * 00 su Bari- è uscito 0 su 2 casi - AMBATE TOTALI 0
ecc ecc
Certo l'ideale sarebbe avere anche un altra colonna dove fosse indicato il ritardo dell'ultima uscita, se qualcuno mi ha capito....
Riepilogando per i miei scopi(desiderata) vanno bene sia lo script
di Blackmore sia quello di DjNomadi a tutti e due mettere l'apice
al vertibile come individuato da DjNomadi e segnalato da Ouram solo che in quello di Blackmore la percentuale deve essere impostata a 0
e in quello di DjNomadi la % impostata a 100.
Comunque grazie a tutti fill

 

[Roby]

Chiedo scusa per quel apice vertibile non segnalato, ma in questi giorni sono stato bombardato dagli script (e anche dalle richieste)
Comunque felice se hai risolto il problema, per la 2a colonna, se vuoi metterla chiedi a qualche esperto io purtroppo non sono capace
Ciao Fillotto


Blackmore

 

[fillotto]

Grazie Blackmore xchè ho avuto la possibilità di intravvedere la soluzione anche se quegli 0 mi complicano un po la situazione, comunque un passo alla volta,volevo domandare a chi lo sapesse se c'è la possibilità di esportare l'output di uno script su excel e ai più bravi di ordinare secondo il n° di uscite l'output sullo script
buona serata a tutti

 

[claudio8]

quote:Originally posted by fillotto

Grazie Blackmore xchè ho avuto la possibilità di intravvedere la soluzione anche se quegli 0 mi complicano un po la situazione, comunque un passo alla volta,volevo domandare a chi lo sapesse se c'è la possibilità di esportare l'output di uno script su excel e ai più bravi di ordinare secondo il n° di uscite l'output sullo script
buona serata a tutti

Posta lo script finale con le richieste e vediamo cosa poter fare.
Ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

 

[fillotto]

quote:Originally posted by claudio8

quote:Originally posted by fillotto

Grazie Blackmore xchè ho avuto la possibilità di intravvedere la soluzione anche se quegli 0 mi complicano un po la situazione, comunque un passo alla volta,volevo domandare a chi lo sapesse se c'è la possibilità di esportare l'output di uno script su excel e ai più bravi di ordinare secondo il n° di uscite l'output sullo script
buona serata a tutti

Posta lo script finale con le richieste e vediamo cosa poter fare.
Ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

Ciao Claudio, grazie x l'interessamento ecco lo script di esempio
l'ho modificato con impostato i parametri voluti in modo che tirasse fuori un output facilmente comprensibile
Qui di seguto metto lo script e parte dell'output poi quello da cambiare

Scrivi : Scrivi"QUESTO SCRIPT TROVA 1 AMBATA SU RUOTA E CALCOLA QUANTE VOLTE è USCITA (Con InputBox Per Ruota Percentuale MASSIMA RICHIESTA ,colpi etc..)"


Sub Main()

Dim ambi(4500,6),nn(10),ruota(10)

nru1 = InputBox("ruota : ",,1)

nes = InputBox("Inserisci 0 ultima, 1 prima, ....",,1)

ne = InputBox("Numero estrazioni:",,160)

perc = InputBox("Percentuale MASSIMA (0-100%):",,100)

ncg = InputBox("Numero colpi di gioco",,8)

ruota(1) = eval(nru1)

casi = 0

ini = EstrazioneFin - ne

fin = EstrazioneFin

For x = 1 To 4500

ambi(x,1) = 0 : ambi(x,2) = 0 : ambi(x,3) = 0 : ambi(x,4) = 0 : ambi(x,5) = 0 : ambi(x,6) = 0

Next

For es = ini To fin

If eval(nes) = 0 Then

If IndiceMensile(es + 1) = 1 Then

casi = casi + 1

co = 0

For r = 1 To 10

For p = 1 To 5

For nu = 1 To 90

co = co + 1

c = 0

a = Estratto(es,r,p)

b = Fuori90(a*nu)

nn(1) = b

esncg = es + eval(ncg)

If esncg > EstrazioneFin Then esncg = EstrazioneFin End If

c = SerieFreq(es + 1,esncg,nn,ruota,1)

If c > 0 Then

ambi(co,1) = co

ambi(co,2) = r

ambi(co,3) = p

ambi(co,4) = nu

ambi(co,5) = ambi(co,5) + 1

ambi(co,6) = ambi(co,6) + c

End If

Next

Next

Next

End If

Else

If IndiceMensile(es) = eval(nes) Then

casi = casi + 1

co = 0

For r = 1 To 10

For p = 1 To 5

For nu = 1 To 90

co = co + 1

c = 0

a = Estratto(es,r,p)

b = Fuori90(a*nu)

nn(1) = b ': nn(2) = Vert(b)

esncg = es + eval(ncg)

If esncg > EstrazioneFin Then esncg = EstrazioneFin End If

c = SerieFreq(es + 1,esncg,nn,ruota,1)

If c > 0 Then

ambi(co,1) = co

ambi(co,2) = r

ambi(co,3) = p

ambi(co,4) = nu

ambi(co,5) = ambi(co,5) + 1

ambi(co,6) = ambi(co,6) + c

End If

Next

Next

Next

End If

End If

Next

ca = 0

ColoreTesto 1

Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1

Scrivi

If eval(nes) = 0 Then

Scrivi "ESTRAZIONE DI CALCOLO : " & "Ultima del mese",1

Else

Scrivi "ESTRAZIONE DI CALCOLO : " & eval(nes) & "° del mese",1

End If

Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1) & " - " & NomeRuota(nru2),1

Scrivi "COLPI DI GIOCO : " & ncg,1

Scrivi "CASI ANALIZZATI : " & casi,1

Scrivi "NUMERO ESTRAZIONI : " & ne,1

Scrivi "PERCENTUALE MASSIMA RICHIESTA DEL : " & perc & "%",1

Scrivi : ColoreTesto 0

per = Int((casi/100)*perc)

For ca = 1 To 4500

If eval(ambi(ca,5)) <= per Then

Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " * " & _
Format2(ambi(ca,4)) & " su " & NomeRuota(nru1) & "-" & NomeRuota(nru2) & " è uscito " & FormatSpace(ambi(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - AMBATE TOTALI " & _
FormatSpace(ambi(ca,6),3)

End

 

[claudio8]

LO script che hai postato opera con gli ambi e non con le ambate, costruisce una matrice ambi in modo scorretto e ti da gli zero di cui vuoi disfartene ma non è possibile farlo se non modificando completmente il listato.

L'output degli script possono essere esportati in formato txt e poi caricati in excel file apri-tipo file txt(testo) direttamente facendoli trasformare autom. dopo avergli definito le larg. colonne in fase di apertura con excel.
Ti allego uno script per le ambate di Danilo che ripeto trova i frequenti non i non frequenti. Ragionandoci sopranon so se è sufficiente cambiare il > con < o viceversa ma bisognerebbe provare.

' Cerca Ambate con parametro di ricerca in percentuale di sortita ecco il listato di Danilo
' ATTENZIONE ! ---> Analizza tutte le ruote in una sola scansione

'Ricerca per indice mese i numeri convergenti
Sub Main()
	ColoreTesto 2
	Scrivi "ATTENZIONE !!!",1
	Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
	Dim som(5,90)
	Dim estr(5)
	Dim Val(5,90)
	Dim amb(90)
	perc = InputBox("Imposta la percentuale esiti (10% - 100%)",,99)
	es = InputBox("Inserisci 0 ultima, 1 prima, ....:",,0)
	nmc = InputBox("Quanti mesi da analizzare ?",,4)
	ncg = InputBox("Quanti colpi di gioco ?",,3)
	ultest = 7404
	n = EstrazioneFin
	z = 0
	trovato = False
	While z < eval(nmc)
		If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
			z = z + 1
		End If
		n = n - 1
	Wend
	nn = n + 1
	For r2 = 1 To 10
		For i = 1 To 90
			amb(i) = 0
		Next
		ColoreTesto 0
		Scrivi
		Scrivi "***********************************************************",1
		ColoreTesto 0
		Scrivi "IMPOSTAZIONI:",1
		If eval(es) = 0 Then
			s = "(All'ultima"
		Else
			s = "Alla (" + es
		End If
		s = s + "°) estrazione del mese per ("
		If eval(ncg) = 0 Then
			s = s + "un mese:"
		Else
			If eval(ncg) = 1 Then
				s = s + ncg + ") colpo:"
			Else
				s = s + ncg + ") colpi:"
			End If
		End If
		ColoreTesto 0
		Scrivi s
		ColoreTesto 1
		Scrivi "Quantità mesi Impostati: (" & nmc & ")",1
		ColoreTesto 0
		Scrivi "Statistica dal: " + DataEstrazione(nn) + " al: " + DataEstrazione(EstrazioneFin),1
		ColoreTesto 2
		Scrivi "Percentuale Impostata: " & perc & "%",1
		Scrivi
		For r = 1 To 10
			z = 0
			For i = 1 To 5
				For j = 1 To 90
					som(i,j) = 0
					Val(i,j) = True
				Next
			Next
			For i = 1 To 5
				estr(i) = 0
			Next
			valido = False
			For n = nn To EstrazioneFin
				If eval(es) = 0 Then m = n + 1 Else m = n End If
				If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
					z = z + 1
					For i = 1 To 5
						estr(i) = Estratto(n,r,i)
					Next
					For i = 1 To 5
						For j = 1 To 90
							Val(i,j) = True
						Next
					Next
					k2 = eval(ncg)
					k3 = n + k2
					If k3 > EstrazioneFin Then k3 = EstrazioneFin End If
					For nv = n + 1 To k3
						For i = 1 To 5
							For j = 1 To 5
								k = Estratto(nv,r2,j) - estr(i)
								While k <= 0
									k = k + 90
								Wend
								If Val(i,k) = True Then
									som(i,k) = som(i,k) + 1
									Val(i,k) = False
								End If
							Next
						Next
					Next
				End If
			Next
			For i = 1 To 5
				For j = 1 To 90
					zz = Int((z/100)*perc)
					s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su "
					ColoreTesto 1
					s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(i,j)) + "/" + CStr(eval(z))
					s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
					If(Val(i,j) = True) Then s = s + " in corso" Else s = s + "----> sfaldato" End If
					If som(i,j) <= zz Then
						Scrivi s
						amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
					End If
				Next
			Next
		Next
		ColoreTesto 2
		Scrivi
		Scrivi "***** NUMERI - CONVERGEN

 

[fillotto]

Ciao Claudio lo script postato va bene , tira fuori ben 45000 situazioni virtuali 4500 x ogni ruota !! e questo va bene ma saresti capace di modificare l'output
da così:
1° di Bari + 01 su Bari è uscito 1/13 : 81 in corso

a così :
1° di Bari + 01 su Bari è uscito 1/13 : 81 in corso ultima uscita estr: 01/02/2010
Con l'ordinamento secondo quest'ultimo parametro
01/02/2010 sarebbe l'ultima uscita positiva

 

[claudio8]

quote:Originally posted by fillotto

Ciao Claudio lo script postato va bene , tira fuori ben 45000 situazioni virtuali 4500 x ogni ruota !! e questo va bene ma saresti capace di modificare l'output
da così:
1° di Bari + 01 su Bari è uscito 1/13 : 81 in corso

a così :
1° di Bari + 01 su Bari è uscito 1/13 : 81 in corso, ultima uscita estr: 01/02/2010 che sarebbe l'ultima uscita positiva
Con l'ordinamento secondo quest'ultimo parametro l'ultima uscita positiva

Non è possibile ordinarlo con l'ultima uscita positiva.

 

[fillotto]

quote:Originally posted by claudio8

quote:Originally posted by fillotto

Ciao Claudio lo script postato va bene , tira fuori ben 45000 situazioni virtuali 4500 x ogni ruota !! e questo va bene ma saresti capace di modificare l'output
da così:
1° di Bari + 01 su Bari è uscito 1/13 : 81 in corso

a così :
1° di Bari + 01 su Bari è uscito 1/13 : 81 in corso, ultima uscita estr: 01/02/2010 che sarebbe l'ultima uscita positiva
Con l'ordinamento secondo quest'ultimo parametro l'ultima uscita positiva

Non è possibile ordinarlo con l'ultima uscita positiva.

TRALASCIANDO l'ordinamento è possibile far apparire SOLO l'indicazione dell'ultima uscita?

 

[claudio8]

Ti ho rimesso lo script modificato, fai attenzione che dovresti sempre aggirnare il valre di
ultest = 8387 'aggiornare all'ultima estrazione.
Fai delle prove e dei controlli sui numeri e ritardi per vedere se va tutto bene, inoltre ti ho inserito ilritardo del n° che va in previsione non del numero che ha azzeccato l'ultima volta

' Cerca Ambate con parametro di ricerca in percentuale di sortita ecco il listato di Danilo
' ATTENZIONE ! ---> Analizza tutte le ruote in una sola scansione

'Ricerca per indice mese i numeri convergenti
Sub Main()
	ColoreTesto 2
	Scrivi "ATTENZIONE !!!",1
	Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
	Dim som(5,90)
	Dim estr(5)
	Dim Val(5,90)
	Dim amb(90)
	perc = InputBox("Imposta la percentuale esiti (10% - 100%)",,20)
	es = InputBox("Inserisci 0 ultima, 1 prima, ....:",,1)
	nmc = InputBox("Quanti mesi da analizzare ?",,10)
	ncg = InputBox("Quanti colpi di gioco ?",,3)
	ultest = 8387 'aggiornare all'ultima estrazione  
	n = EstrazioneFin
	z = 0
	trovato = False
	While z < eval(nmc)
		If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
			z = z + 1
		End If
		n = n - 1
	Wend
	nn = n + 1
	For r2 = 1 To 10
		For i = 1 To 90
			amb(i) = 0
		Next
		ColoreTesto 0
		Scrivi
		Scrivi "***********************************************************",1
		ColoreTesto 0
		Scrivi "IMPOSTAZIONI:",1
		If eval(es) = 0 Then
			s = "(All'ultima"
		Else
			s = "Alla (" + es
		End If
		s = s + "°) estrazione del mese per ("
		If eval(ncg) = 0 Then
			s = s + "un mese:"
		Else
			If eval(ncg) = 1 Then
				s = s + ncg + ") colpo:"
			Else
				s = s + ncg + ") colpi:"
			End If
		End If
		ColoreTesto 0
		Scrivi s
		ColoreTesto 1
		Scrivi "Quantità mesi Impostati: (" & nmc & ")",1
		ColoreTesto 0
		Scrivi "Statistica dal: " + DataEstrazione(nn) + " al: " + DataEstrazione(EstrazioneFin),1
		ColoreTesto 2
		Scrivi "Percentuale Impostata: " & perc & "%",1
		Scrivi
		For r = 1 To 10 ' x ruote di partenza 
			z = 0
			For i = 1 To 5
				For j = 1 To 90
					som(i,j) = 0
					Val(i,j) = True
				Next
			Next
			For i = 1 To 5
				estr(i) = 0
			Next
			valido = False
			For n = nn To EstrazioneFin
				If eval(es) = 0 Then m = n + 1 Else m = n End If
				If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
					z = z + 1
					For i = 1 To 5
						estr(i) = Estratto(n,r,i)
					Next
					For i = 1 To 5
						For j = 1 To 90
							Val(i,j) = True
						Next
					Next
					k2 = eval(ncg)
					k3 = n + k2
					If k3 > EstrazioneFin Then k3 = EstrazioneFin End If
					For nv = n + 1 To k3
						For i = 1 To 5
							For j = 1 To 5
								k = Estratto(nv,r2,j) - estr(i)
								While k <= 0
									k = k + 90
								Wend
								If Val(i,k) = True Then
									som(i,k) = som(i,k) + 1
									Val(i,k) = False
								End If
							Next
						Next
					Next
				End If
			Next
			For i = 1 To 5
				For j = 1 To 90
					zz = Int((z/100)*perc)
					s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su "
					ColoreTesto 1
					s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(i,j)) + "/" + CStr(eval(z))
					s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
					If(Val(i,j) = True) Then
					 s = s + " in corso con ritardo di "& RitardoEstratto(Fuori90(eval(estr(i)+j)),EstrazioneFin,r2)& " estrazioni" '
					 Else s = s + "----> sfaldato"
					 End If
					If som(i,j) <= zz Then
						Scrivi s
						amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
					End If
				Next
			Next 
		Next
		ColoreTesto 2
		Scrivi
		Scrivi "***** NUMERI - CONVERGENTI *****",1
		For i = 1 To 90
			If(amb(i) > 1) Then
				ColoreTesto 1

 

[fillotto]

Grazie Claudio lo sto studiando, cosi a occhio non mi sembra il ritardo che avrei voluto in effetti il ritardo mostrato è quello
"naturale" visto però all'estrazione impostata
Esempio se si imposta alla 1° estrazione del mese e siamo alla terza
l'output da il ritardo del numero appunto alla 1^ del mese
ovvero se segnala un ritardo di 5 estrazioni sono in realtà 7 (con l'aggiunta appunto delle estrazioni succedutosi dopo la prima del mese).
Ora il ritardi di ciascuna ruota è facilmente osservabile in qualunque tabella .
Interessante invece sarebbe trovare il ritardo virtuale o relativo
cioè il ritardo di quel numero che è formato dal 1° estratto di BA
con l'aggiunta di 1... 2... 3...90 giocato sulla ruota di BA...
CA... VE posti in gioco ad intervalli di 8 estrazioni da quanto tempo
estrazioni non esce, avremmo una visione allargata della realtà moltiplicata per 4500 visioni diverse dove sicuramente avremo una dilatazione inevitabile dei ritardi ma anche un occasione di vederedelle situazioni di equilibrio instabile altrimenti non visibili diversamente .
Immagina una situazione simile:
il 1° di BA della prima estrazione del mese con aggiunto il 23 se lo gioco su BA x 8 estrazioni al mese e per 20 mesi e non lo becco mai
quel numero così formato (ad ogni mese diverso) avrebbe un ritardo di 160 estrazioni.
Se rintraccio, su una massa di 4500 visioni diverse un altro caso analogo, la situazione si farebbe interessante e tutto questo non facendo strani calcoli ma semplice statistica.

 

[claudio8]

quote:Originally posted by fillotto

Grazie Claudio lo sto studiando, cosi a occhio non mi sembra il ritardo che avrei voluto in effetti il ritardo mostrato è quello
"naturale" visto però all'estrazione impostata
Esempio se si imposta alla 1° estrazione del mese e siamo alla terza
l'output da il ritardo del numero appunto alla 1^ del mese
ovvero se segnala un ritardo di 5 estrazioni sono in realtà 7 (con l'aggiunta appunto delle estrazioni succedutosi dopo la prima del mese).
Ora il ritardi di ciascuna ruota è facilmente osservabile in qualunque tabella .
Interessante invece sarebbe trovare il ritardo virtuale o relativo
cioè il ritardo di quel numero che è formato dal 1° estratto di BA
con l'aggiunta di 1... 2... 3...90 giocato sulla ruota di BA...
CA... VE posti in gioco ad intervalli di 8 estrazioni da quanto tempo
estrazioni non esce, avremmo una visione allargata della realtà moltiplicata per 4500 visioni diverse dove sicuramente avremo una dilatazione inevitabile dei ritardi ma anche un occasione di vederedelle situazioni di equilibrio instabile altrimenti non visibili diversamente .
Immagina una situazione simile:
il 1° di BA della prima estrazione del mese con aggiunto il 23 se lo gioco su BA x 8 estrazioni al mese e per 20 mesi e non lo becco mai
quel numero così formato (ad ogni mese diverso) avrebbe un ritardo di 160 estrazioni.
Se rintraccio, su una massa di 4500 visioni diverse un altro caso analogo, la situazione si farebbe interessante e tutto questo non facendo strani calcoli ma semplice statistica.

Fai un esempio pratico perchè non ti ho capito.
Se hai bisogno di una tabella dei ritardi multipli credo che con questa base di script sia difficile farlo, forse Rubino potrebbe aiutarti. Comunque entra nel dettaglioco un esempio.

Ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"