Hallo allemaal, ik heb wat pogingen ondernomen om de ROC dynamisch te maken. Dat wil zeggen, dat als de gem. volatiliteit onder een bepaalde waarde komt de ROC argumenten worden overschreven met andere waarden. Het is mij tot op heden niet gelukt om de arumenten ook daadwerkelijk te overschrijven. Wie weet er een oplossing?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? value function DynamischeROCEMA (value xVMABars=52, value xVolBars=28) ?
begin
? value xEMA[], xROCEMA[], xVMA[], xEMABars, ? ?xROCBars, xTrend, xStopLevel, xTrendBars,
? xLongTrig, xShortTrig, xVolatility, xVMABars, xVolBars;
string xKoers;
? ? ? xKoers :=' stand'+Close:6:2;
{---- calculate gemiddelde Volatiliteit........ ----}
If xVMA >=6.25 then begin
xEMABars=26;
?xROCBars=64;
?xTrendBars=175;
xLongTrig=0;
xShortTrig=-0.45;
end;
If xVMA < 6.25 then begin
xEMABars=28;
?xROCBars=68;
?xTrendBars=190;
xLongTrig=0;
xShortTrig=-0.45;
end;
?{---- calculate EMA and ROC and........ ----}
?xEMA := XAverage(Close,xEMABars);
?xROCEMA := 100*xEMA/xEMA[xROCBars]-100;
?xTrend := XAverage(Close,xTrendBars);
xVolatility := Volatility(xVolBars);
?xVMA := Average(xVolatility,xVMABars);
?{---- let's do some plotting ----}
?plot1 (xEMA,'EMA'+NumToStr(xEMABars));
?plot2 (xROCEMA,'ROC'+NumToStr(xROCBars));
?plot3 (xTrend,'Trend'+NumToStr(xTrendBars));
plot4 (xVMA,'VMA'+NumToStr(xVMABars));
end; ? ? ? ?