Richiesta Script (Spie in decina)

[desperaux]

Buongiorno a tutti

Sarebbe possibile creare uno script che faccia quanto di seguito spiegato?

Il discorso lo faccio su singola ruota ma vorrei che poi fosse allargato a tutte e 11 le ruote.

Allora consideriamo BARI x esempio

Ad ogni sortita del num 1 ,lo script deve rintracciare a ritroso le ultime 27 sortite del numero spia 1 e stilare 2 colonne

Nella prima colonna tutti i numeri della stessa decina ( naturale ) sortiti in ordine cronologico al 1 colpo utile ossia quello successivo alla sortita del numero 1.

Nella seconda colonna tutti i numeri della stessa decina (naturale) sortiti al 1 colpo utile dopo la spia ma in ordine di Frequenza .quindi percentualizzata.

Questo discorso deve essere allargato a tutti i 90 numeri
Quindi avremo la statistica per ogni decina naturale su BARi poi CAGLIARI ecc.

Quindi lo script deve chiedermi:

RUOTA

SPIA

In uscita la statistica su due colonne.

Poi vedro' nel caso questo script venisse realizzato di inserire dell'altro.

Spero che qualcuno mi aiuti

Grazie

 

[desperaux]

porto su
nella speranza
grazie

 

[rabberto]

Ciao desperaux lo script non lo so fare pero' ho alcuni listati per le spie fammi saper se ti possono interessare che te li posto , oppure dai un'occhiata qui se c'e' qualcosa che ti puo servire : http://forum.lottoced.com/f12/raccolta-listati-spie-4117/ , ciao.

 

[desperaux]

Ciao Rabberto
come sempre disponibile
Se vuoi fallo pure,gli do un'occhiata ma uno che mi elenchi come da "prima colonna" non so se esiste
per questo l'ho chiesto

grazie

 

[rabberto]

Ciao desperaux lo so che uno che mi elenchi come da "prima colonna" forse non esiste pero' vedi qualcosa che si avvicina un po alla tua ricerca in attesa che qualcuno abbia il tempo di fare lo script , ho modificato il messaggio di prima vedi c'e' un link RACCOLTA LISTATI: SPIE oppure qui : http://forum.lottoced.com/f12/mega-raccolta-"script"-315/ cliccalì e vedi se c'e' qualcosa che ti possa servire per le tue ricerche , ciao.

 

[desperaux]

Ciao Rabberto

grazie dei link,quelli pero' li avevo gia' letti
Anzi me li sono salvati,non si sa mai
Cmq vediamo se qualcuno si rende disponibile

grazie ancora e buona domenica

 

[rabberto]

Ciao desperaux mi spiace ma e tutto quello che posso fare , buona domenica anche a te , ciao.

 

[paololotto]

ciao
ho qualcosa di simile salvato sul pc... ma non è uguale alla tua richiesta desperaux
magari qualcuno lo puo modificare a piacimento
questo dopo l'uscita di un numero x mi segnala i numeri piu frequenti in decina usciti nelle estrazioni successive

'Ricerca frequenze dopo estratto in decina di appartenenza.
' X Antonio1 da pfca
Sub Main()
Dim num(90,3)
r = ScegliRuota
dec = InputBox("Quale Decina scegli di verificare:","",1)
colpi = InputBox("Quante Estrazioni successive o Colpi:","",6)
ric = InputBox("Su quante Estrazioni vuoi fare la ricerca:","",1000)
ini = EstrazioneFin - ric
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin)
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia"
　
dec1 = dec * 10 + 1
dec2 = dec * 10 + 10
For sp = dec1 To dec2
casi = 0
For i = 1 To 90
num(i,1) = 0 : num(i,2) = 0 : num(i,3) = 0
Next
For es = ini To fin
Messaggio " Spia: " & sp & " Estrazione : " & es
If Posizione(es,r,sp) > 0 Then
casi = casi + 1
ess = es + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
segno = 0 : co = 0
For v = dec1 To dec2'1 To 90
co = co + 1
n1 = Estratto(a,r,1)
n2 = Estratto(a,r,2)
n3 = Estratto(a,r,3)
n4 = Estratto(a,r,4)
n5 = Estratto(a,r,5)
If n1 = v Or n2 = v Or n3 = v Or n4 = v Or n5 = v Then
num(co,1) = co
num(co,2) = v
num(co,3) = num(co,3) + 1
segno = 1
End If
If segno > 0 Then
Exit For
Exit For
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,3
per = Int((casi/100)*80)
Scrivi "_________________________________________________ ________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & casi & " entro i " & colpi & " colpi"
Scrivi
riga = "Num. "
riga1 = "Freq. "
For i = 1 To 10
riga = riga & FormatSpace(num(i,2),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,3)),3) & " "
Next
Scrivi riga,1
Scrivi riga1
Next
End Sub
　

 

[desperaux]

Ciao Paololotto

grazie x il listato ma non fa quello che ho chiesto
Cmq sei stato gentilissimo a postarlo

 

[Antonin]

Ciao se non sbaglio c'e' gia'quello che chiedi sulle spie uscite 27 volte e in 9 successive ti dice le uscite di ogni singolo numero in decina data compresa.
Si chiama TUTOR.

 

[desperaux]

Ciao Antonio1

lo so ma nemmeno quello soddisfa la prima richiesta ( ved post di apertura)

grazie

 

[Antonin]

Capisco,per me e' l'unica soluzione,nessuno i piu'bravi di script riusciranno a capire,se non si specifica bene uno cio'che vuole.
Anche se riescono,ci sono tanti passagi da fare,e siamo sempre a punto e accapo.!
casi reali,comferme,evoluzione,casi evolutivi ed involutivi,lascia stare e' un enigma.