DEFPARAM NoCashUpdate = True
// ---------------------------------------------------------------------
// Sdema Stocastico
// -------------------------- VARIABILI
// GGEma1 = 9
// GGEma2 = 9
// K = 17
// D = 3
// Ottimizzare GGema1 e GGema2: da 3 a 30 con passo 3
// Ottimizzare K e D: da 3 a 30 con passo 3
// ---------------------------------------------------------------------
// --- calcola Lotti per Valute
Lotti = 1
// --- calcola Lotti per Azioni
//Lotti = 2000 / Close
// ---------------------------------------------------------------------
Prezzo = TypicalPrice
Alfa1 = 2/(GGema1 + 1)
Alfa2 = 2/(GGema2 + 1)
IF BarIndex=0 THEN
Ema1 = Prezzo
Ema2 = Prezzo
Sdema = 2 * Prezzo - Prezzo
ELSE
Ema1 = Ema1[1] * ( 1 - Alfa1) + Prezzo * Alfa1
Ema2 = Ema2[1] * ( 1 - Alfa2) + Ema1 * Alfa2
Sdema = 2 * Ema1 - Ema2
ENDIF
SdemaStocastico = Stochastic[K,D](Sdema)
// ---------------------------------------------------------------------
// -------------------------- Verifica TREND
Long = (SdemaStocastico[2] > SdemaStocastico[1]) AND (SdemaStocastico[1] < SdemaStocastico[0]) AND (SdemaStocastico[0] > SdemaStocastico[2])
Short = (SdemaStocastico[2] < SdemaStocastico[1]) AND (SdemaStocastico[1] > SdemaStocastico[0]) AND (SdemaStocastico[0] < SdemaStocastico[2])
// ---------------------------------------------------------------------
// Condizioni per entrare su posizioni long
IF NOT LongOnMarket AND Long THEN
BUY Lotti CONTRACTS AT MARKET NEXTBAROPEN
ENDIF
// Condizioni per entrare su posizioni short
IF NOT ShortOnMarket AND Short THEN
SELLSHORT Lotti CONTRACTS AT MARKET NEXTBAROPEN
ENDIF
// Stop e target:
// ---------------------------------------------------------------------