Ciao Sincronone
facciamo così ti posto un esempio
ad ogni estrazione devi
Rem aggiorna RITARDI DELLA RUOTA IN ESAME e azzera i ritardi di quelli usciti
For TK = 1 To 90: rit(TK) = rit(TK) + 1: Next TK
rem nr(1...5) sono i 5 numeri estratti ad ogni estrazione</u>
rit(NR(1)) = 0: rit(NR(2)) = 0: rit(NR(3)) = 0: rit(NR(4)) = 0: rit(NR(5)) = 0:
sommo i ritardi ad ogni estrazione della combinazione che mi serve esaminare
esempio per la cadenza 1, ma vale per qualsiasi combinazioni modificando indice della schiera
trfcad1 = trfcad1 + rit(1): trfcad1 = trfcad1 + rit(11): trfcad1 = trfcad1 + rit(21): trfcad1 = trfcad1 + rit(31)
trfcad1 = trfcad1 + rit(41): trfcad1 = trfcad1 + rit(51): trfcad1 = trfcad1 + rit(61): trfcad1 = trfcad1 + rit(71): trfcad1 = trfcad1 + rit(81)
a questo punto abbiamo che in tfrcad1 ho il valore totale dei ritardi della cadenza 1 o combinazione interessate alla ricerca
QCT = QCT + 1:rem conto quante estrazioni
irccad1 = trfcad1 / 9:rem calcola indice ciclo reale medio della cad.1 composta da nr.9
esempio di scrittura su foglio excel (Foglio1 aperto)
gosub calcola
Set xl = Nothing
GoTo FINE
Calcola:
Dim C As Integer, r As Integer:
'Dim xl As Excel.Application
Set xl = GetObject(, "Excel.Application")
With xl.workbooks(1).Worksheets(1)
r = r + 1: C = 1
.cells(r, C) = Mid(Combo1, 1, 9)
.cells(r, C + 1) = ini
.cells(r, C + 12) = "cad1"
.cells(r, C + 13) = trfcad1
.cells(r, C + 14) = Round(irccad1, 2)
facoltativo se vuoi avere contemporaneamente tutte le cadenze nello stesso giro di elaborazione, come facoltativi sono altri dati che potresti aggiungere in celle su foglio excel</u>
io ne ho altri, ma non indispensabili al grafico
.cells(r, C + 15) = "cad2"
.cells(r, C + 16) = trfcad2
.cells(r, C + 17) = Round(irccad2, 2)
.cells(r, C + 18) = "cad3"
.cells(r, C + 19) = trfcad3
.cells(r, C + 20) = Round(irccad3, 2)
.cells(r, C + 21) = "cad4"
.cells(r, C + 22) = trfcad4
.cells(r, C + 23) = Round(irccad4, 2)
.cells(r, C + 24) = "cad5"
.cells(r, C + 25) = trfcad5
.cells(r, C + 26) = Round(irccad5, 2)
.cells(r, C + 27) = "cad6"
.cells(r, C + 28) = trfcad6
.cells(r, C + 29) = Round(irccad6, 2)
.cells(r, C + 30) = "cad7"
.cells(r, C + 31) = trfcad7
.cells(r, C + 32) = Round(irccad7, 2)
.cells(r, C + 33) = "cad8"
.cells(r, C + 34) = trfcad8
.cells(r, C + 35) = Round(irccad8, 2)
.cells(r, C + 36) = "cad9"
.cells(r, C + 37) = trfcad9
.cells(r, C + 38) = Round(irccad9, 2)
.cells(r, C + 39) = "cad0"
.cells(r, C + 40) = trfcad0
.cells(r, C + 41) = Round(irccad0, 2)
.cells(r, C + 42) = y
End With
Return
RIASSUMENDO IL TUTTO IN 2 PAROLE
I DATI CHE SERVONO SONO:
AD OGNI ESTRAZIONE DEVI SOMMARE I RITARDI DEI SINGOLI NUMERI APPARTENENTI AD UNA COMBINAZIONE CHE VUOI ELABORARE ed OTTENERE IL VALORE TOTALE DELLA COMBINAZIONE
DEVI CALCOLARNE IL VALORE MEDIO O MEGLIO IL VALORE MEDIO REALE (o peso totale della combinazione) dividendo per la quantità di numeri della combinazione (nel caso della cadenza sono 9 nr, quindi dividerò il tot.ritardo/9)
Andrò a scrivere sul foglio di excel il numero dell'estrazione e la data di riferimento, il numero progressivo, il totale dei ritardi della combinazione ed il valore medio della combinazione.
il grafico comtemplerà tutti i movimenti in salita o in discesa del valore medio ad ogni estrazione.
quindi quando creo il grafico gli farò leggere solo la colonna dei valori medi, imposterò la scala adattandola le prime volte ai valori che mi restino all'interno del grafico.
poi per la tecnica 123Low o le flags o pennants e quant'altro,
basta ricercare in internet alle relative voci(123Low,Flags etc.)
nei siti finanziari ci sono una marea di suggerimenti al breakout.
tra Le migliori tecniche per investimenti sui mercati finanziari.
l'analisi tecnica è una questione di cultura informativa personale, per chi piace questo campo molto diverso dal lotto.
spero di essere stato abbastanza chiaro.
----------------------------------------------------------
<font color=