Listato frequenze dopo numero spia

[Joe91]

ciao mi da errore:;0 Then


forse dipende dall'ultima versione in quanto non mi ha dato ma nessun errore negli script prima d'ora.




su


If Posizione(es,r,sp)>0 Then

Come dicevo parlando di script diversi ... e di correzioni fatte a diverso titolo e livello,

diventa impossibile ... per molti mantenersi "aggiornati".

So ... Stay Tuned !

 

[Joe91]

Buonasera,
Listati riveduti e corretti.

Sub Main()
    Dim ru(2)
    Dim ru1(10)
    Dim n(90,2)
    Dim ambi(4005,5)
    Dim nn(2)
    Dim ambi1(4005,5)
    Dim nn1(2)
    r = CInt(InputBox("Quale ruota esamino?","Numeri spia",1))
    n1 = CInt(InputBox("Quale numero?","Numeri spia",1))
    p = CInt(InputBox("In che posizione?","Numeri spia",1))
    ee = CInt(InputBox("Estrazioni da controllare?","Numeri spia",1000))
    c = CInt(InputBox("Per quanti colpi?","Numeri spia",7))
    casi = 0
    co = 0
    fin = EstrazioneFin
    ini = EstrazioneFin - ee
    For es = ini To fin
    Messaggio es
    AvanzamentoElab Ini,fin,es
        a = Estratto(es,r,p)
        If a = n1 Then
            casi = casi + 1
            ess = es + c
            If ess > fin Then ess = fin End If
            For x = es + 1 To ess
                cc = 0
                For pp = 1 To 5
                    d = Estratto(x,r,pp)
                    n(d,1) = d
                    n(d,2) = n(d,2) + 1
                    cc = 1
                Next
            Next
            co = 0
            For x = 1 To 90
                For y = x + 1 To 90
            
                    co = co + 1
                    nn(1) = x
                    nn(2) = y
                    ru(1) = r
                    ambi(co,1) = co
                    ambi(co,2) = x
                    ambi(co,3) = y
                    yy = SerieFreqTurbo(es + 1,ess,nn,ru,2)
                    ambi(co,4) = ambi(co,4) + yy
                    If yy > 0 Then
                        ambi(co,5) = ambi(co,5) + 1
                    Else
                        ambi(co,5) = ambi(co,5)
                    End If
                    nn1(1) = x
                    nn1(2) = y
                    ru1(1) = 11
                    ambi1(co,1) = co
                    ambi1(co,2) = x
                    ambi1(co,3) = y
                    xx = SerieFreqTurbo(es + 1,ess,nn1,ru1,2)
                    ambi1(co,4) = ambi1(co,4) + xx
                    If xx > 0 Then
                        ambi1(co,5) = ambi1(co,5) + 1
                    Else
                        ambi1(co,5) = ambi1(co,5)
                    End If
                Next
            Next
        End If
    Next
    Scrivi
    Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
    Scrivi "NUMERO SPIA " & CInt(n1) & " su " & NomeRuota(r) & " in " & p & "° posizione",1
    Scrivi "N° casi: " & CInt(casi),1 : Scrivi
    Scrivi " Frequenti nei " & c & " colpi successivi",1
    OrdinaMatrice n,- 1,2
    OrdinaMatrice ambi,- 1,5
    OrdinaMatrice ambi1,- 1,5
    ColoreTesto 1
    Scrivi
    Scrivi "Num.Ruota| Ambi a Ruot| Ambi a Tutte"
    ColoreTesto 2
    Scrivi "  N° Fr  |  Ambo Fr   | Ambo Fr"
    ColoreTesto 0
    For x = 1 To 10
        riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & Format2(ambi(x,2)) & "-" & _
        Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & _
        Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,5)
        Scrivi riga
        riga = ""
    Next
    Scrivi "******************************************************************"
    For cc = 1 To 90
        n(cc,1) = 0
        n(cc,2) = 0
    Next
End Sub

Il secondo.

Sub Main()
    Dim ruote(1)
    Dim posta(1)
    Dim num(90,2)
    Dim uscito(90,2)
    r = InputBox("Su quale ruota?","Ruota di Controllo",1)
    colpi = InputBox("Quanti colpi?","Numero Colpi",10)
    ruote(1) = r
    ini = 7500
    fin = EstrazioneFin
    Scrivi " Analisi dal " & DataEstrazione(ini) & " ad oggi"
    Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & Format2(colpi) & " colpi",1
    For sp = 1 To 90
        Messaggio " Spia: " & Format2(sp)
        AvanzamentoElab 1,90,sp
        For i = 1 To 90
            num(i,1) = 0 : num(i,2) = 0
        Next
        co = 0
        For es = ini To fin
            If Posizione(es,r,sp) > 0 Then
                co = co + 1
                ess = es + colpi + 1
                If ess > fin Then ess = fin End If
                For a = es + 1 To ess
                    For v = 1 To 90
                        uscito(v,2) = 0
                    Next
                    For e = 1 To 5
                        n = Estratto(a,r,e)
                        num(n,1) = n
                        num(n,2) = num(n,2) + 1
                        uscito(n,1) = n
                        uscito(n,2) = uscito(n,2) + 1
                        If uscito(n,2) > 1 Then
                            num(n,2) = num(n,2) - 1
                            uscito(n,2) = 1
                        End If
                    Next
                Next
            End If
        Next
        OrdinaMatrice num,- 1,2
        per = Int((co/100)*65)
        Scrivi "_________________________________________________ ________________"
        Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " colpi " & colpi
        Scrivi
        riga = "Num. "
        riga1 = "Freq. "
        For i = 1 To 10
            riga = riga & FormatSpace(num(i,1),3) & " "
            riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
        Next
        Scrivi riga,1
        ColoreTesto 2
        Scrivi riga1
        ColoreTesto 0
    Next
End Sub

Fin qui ... in questa enorme confusione ... abbiamo appurato che gli script

Sono 2.

Sono funzionanti. (Resi funzionanti come origariamente proposti)

Ed è il messaggio #10 del 21-11-2014 ore 21:19.

Per evitare ulteriore confusione considero PER ORA solo IL PRIMO dei 2 script.

Ammettettendo che si voglia utilizzare e si sia utilizzato questo script per l'estrazione di quella sera,

con i parametri di default UNO, BARI, I° ESTRATTO, in MILLE ESTRAZIONI, e verifica nelle 7 estrazioni SUCCESSIVE ...

abbiamo questi risultati ... PARZIALMENTE diversi da quelli forniti da Spaziometria (e da altri programmi).

Come appena scritto:



E ... correggeremo!

 

[Joe91]

Quanto descritto nel messaggio precedente,

Succede perchè il nostro MILLE è diverso 1001 che poi facciamo calcolare dallo script.

Casualmente nella "MilleUnesima" estrazione c'è ... neanche a farlo apposta, quella presenza in più dell' "UNO" !

Quindi è molto meglio "far leggere" i limiti dell'intervallo, dallo script, e settare essi,

utilizzando finestre, cursori, pulsanti dedicati.

Ciò è più versatile e ci evita di inserire noi, dei numeri ... ambigui, errori.

V'è poi che l'ottimizzazione del doppio ciclo nidificato per formare gli ambi,

prevederebbe come massimo capogioco 89.

Cosi ho corretto il primo 90 in 89 ... mentre nello script era:

For x = 1 To 90
For y = x + 1 To 90

Un ... End If ... di troppo ed alcune cose di minor rilievo sugli OrdinaMatrice

cancellando anche, parti di programma inutilizzati.

In ultimo ... allineando e cambiando l'output e le descrizioni

penso i rislultati siano più facilmente interpretabili.

Sub Main()
'Presenze dopo Spia ... Rev 1.2 By Joe del 28/11/2014  
	Dim ru(2)
	Dim ru1(10)
	Dim n(90,2)
	Dim ambi(4005,5)
	Dim nn(2)
	Dim ambi1(4005,5)
	Dim nn1(2)
	r = CInt(InputBox("Quale ruota esamino?","Numeri spia",1))
	n1 = CInt(InputBox("Quale numero?","Numeri spia",1))
	p = CInt(InputBox("In che posizione?","Numeri spia",1))
	c = CInt(InputBox("Per quanti colpi?","Numeri spia",7))
	casi = 0
	co = 0
	ini = EstrazioneIni
	fin = EstrazioneFin
	For es = ini To fin
		a = Estratto(es,r,p)
		If a = n1 Then
			casi = casi + 1
			ess = es + c
			If ess > fin Then ess = fin
			For x = es + 1 To ess
				cc = 0
				For pp = 1 To 5
					d = Estratto(x,r,pp)
					n(d,1) = d
					n(d,2) = n(d,2) + 1
					cc = 1
				Next
			Next
			co = 0
			
			For x = 1 To 89
				For y = x + 1 To 90
					co = co + 1
					nn(1) = x
					nn(2) = y
					ru(1) = r
					ambi(co,1) = co
					ambi(co,2) = x
					ambi(co,3) = y
					yy = SerieFreq(es + 1,ess,nn,ru,2)
					ambi(co,4) = ambi(co,4) + yy
					If yy > 0 Then
						ambi(co,5) = ambi(co,5) + 1
					Else
						ambi(co,5) = ambi(co,5)
					End If
					nn1(1) = x
					nn1(2) = y
					ru1(1) = 11
					ambi1(co,1) = co
					ambi1(co,2) = x
					ambi1(co,3) = y
					xx = SerieFreq(es + 1,ess,nn1,ru1,2)
					ambi1(co,4) = ambi1(co,4) + xx
					If xx > 0 Then
						ambi1(co,5) = ambi1(co,5) + 1
					Else
						ambi1(co,5) = ambi1(co,5)
					End If
				Next
			Next
		End If
	Next
	Scrivi
	Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
	ColoreTesto 1 : Scrivi "Numero SPIA " & n1  & " in " & p & "° Posizione",1 : ColoreTesto 0 
	Scrivi "Presenti " & CInt(casi)  & " casi (in " & Fin-Ini+1 & " Estrazioni)."  ,1 : Scrivi
	Scrivi " Frequenti nei " & c & " colpi successivi",1
	OrdinaMatrice n,True,2
	OrdinaMatrice ambi,True,5
	OrdinaMatrice ambi1,True,5
	ColoreTesto 1
	Scrivi
	Scrivi " RUOTA = " & FormatSpace (UCase (NomeRuota(R)),9) &  "|  TUTTE",1
	ColoreTesto 2
	Scrivi " N° Fr | Ambo  Fr | Ambo  Fr"
	ColoreTesto 0
	For x = 1 To 10
		riga = " " & Format2(n(x,1)) & " " & Format2(n(x,2)) & " | " &_
		Format2 (ambi(x,2)) & "." & Format2 (ambi(x,3)) & " " & Format2(ambi(x,5)) & " | " & _
		Format2(ambi1(x,2)) & "." & Format2(ambi1(x,3)) & " " & Format2(ambi1(x,5))
		Scrivi riga
		riga = ""
	Next
	Scrivi String(35,"*")
End Sub

Così modificato lo script oltre ad avere risultati più precisi,

permette addirittura di spostare il "blocco di 1000 estrazioni" ...

in qualsiasi punto dell'archivio, per verificare cosa sia successo in quel periodo,

semplicemente trascinando col mouse, il quadratino rosa che le rappressenta ed eseguendo lo script.

 

[LuigiB]

Ciao Joe , l'importanza di quel famoso quadratino rosa e dell'uso del range principale del programma la sponsorizzo da sempre.
Ottimo !

 

[Joe91]

Wow ... lo sponsor ufficiale!

Buona Domenica

a te ed a tutte/i.