Lo sforzo ? ammirevole. Tuttavia ci sono alcuni errori di logica per i quali il codice non si comporta proprio come desiderato.
Eccoti una soluzione alternativa:
Dim lCount as Numeric = 0 Dim bCrossActive1 As Boolean = False Dim bCrossActive2 As Boolean = False
Function Main()
lCount = lCount + 1
if (lCount <= 3) then if (bCrossActive1 = False) then bCrossActive1 = CrossAbove(Close, MoveAv(High, 40)) endif If (bCrossActive2 = False) then bCrossActive2 = CrossBelow(Sar, Close) endif
Mi sono accorto che con questo sistema riesco a generare i segnali solamente se metto una data di partenza abbastanza lontana, ad esempio 1 Gennaio 2005. Se invece metto come data inizio 3 giorni fa non si genera mai nessun segnale. E' normale secondo voi o c'? qualcosa che non va? Grazie.
E' corretto?
Posted - 22 February 2005 : 22:40:29
