Hoi,
Moge het iemand behagen om de volgende Easylanguage-codes genadig te vertalen naar Metaquotes.
Alvast bedankt.
Trendbanden
Variabelen: BandDays(28), DevConstant(3.500000);
Variabelen: keltnerTop(0), keltnerMid(0), keltnerBot(0), expSmoothPrice(0);
Variabelen: expSmoothRange(0);
Variabelen: altu(0),altd(0),up(0),down(0),dir(0),n(0),p(0);
ALS (CURRENTBAR = 1) DAN
BEGINNEN
expSmoothPrice = SLUITEN;
expSmoothRange = HOOG-LAAG;
EINDE ANDERS
BEGINNEN
expSmoothPrice = (expSmoothPrice*(BandDays-1) CLOSE)/BandDays ;
expSmoothRange = (expSmoothRange*(BandDays-1) (HIGH-LOW))/BandDays ;
EINDE ;
keltnerTop = expSmoothPrice (expSmoothRange*DevConstant) ;
keltnerMid = expSmoothPrijs;
keltnerBot = expSmoothPrice-(expSmoothRange*DevConstant) ;
indien dichtbij lt;= KeltnerMid dan altd = 1 anders altd = 0;
als altd = 1 en hoog[1] lt;= KeltnerMid en sluit lt; Laag[1] en begin dan
richt = -1;
einde;
indien dichtbij gt;= KeltnerMid dan altu = 1 anders altu = 0;
if altu = 1 en low[1] gt;= KeltnerMid en close gt; hoog [1] en begin dan
richting = 1;
einde;
als dir = -1 stel dan plotkleur in (2, magenta);
als dir = 1 stel dan plotkleur(2,groen) in;
PLOT1 (keltnerTop, TBand Top) ;
PLOT2 (keltner mi, band midden);
PLOT3 (keltnerBot, TBand Bot) ;
Triggerlijnen
variabelen: Lengte(20), TrigAvg(5), UpColor(groen), DnColor(magenta);
Variabelen: xAvg(0),yAvg(0);
yAvg = TimeSeriesForecast (Lengte, 0) ;
xAvg = XAverage (yAvg, TrigAvg) ;
PLOT1 (yAvg, trigger);
PLOT2 (xAvg, AverageTSF) ;
ALS (PLOT2 gt;= PLOT1) DAN
BEGINNEN
INSTELLENKLEUR (1, DnKleur) ;
INSTELLENKLEUR (2, DnKleur) ;
EINDE ANDERS
BEGINNEN
INSTELLINGPLOTKLEUR (1, UpColor) ;
INSTELLINGPLOTKLEUR (2, UpColor) ;
EINDE ;
Plot3(yAvg,Sy);
Handel activator
Eerst de TSI-functie
Ingangen:
Prijs(NumeriekeSerie), r(NumeriekeEenvoudige), s(NumeriekeEenvoudige),
u(NumeriekEenvoudig);
Waarde1= 100*TXGemiddelde(Prijs-Prijs[1],r,s,u) ; { Teller }
Waarde2=TXGemiddelde(AbsWaarde(Prijs-Prijs[1]),r,s,u) ; { noemer }
Als Waarde2 lt;gt; 0 dan TSI = Waarde1Waarde2
Anders TSI = 0;
De Binnen
Ingangen: Prijs(c), r(7), s(27), u(1), SmthLen(7);
Waarde1= TSI(Prijs, r, s, u);
Waarde2= XGemiddelde(TSI(Prijs, r, s, u), SmthLen);
plot1(waarde2,XGemiddeld);
plot2(waarde2,SXGemiddeld);
plot3(waarde1,TSI);
ALS (PLOT1 gt;= PLOT3) DAN
BEGINNEN
INSTELKLEUR (1, magenta) ;
INSTELKLEUR (3, magenta) ;
EINDE ANDERS
BEGINNEN
INSTELLINGSKLEUR (1, groen) ;
INSTELLINGSKLEUR (3, groen) ;
EINDE ;
plot4(waarde1,STSI);
plot5(waarde1,Histogram);