Vestics Beleggers Netwerk

De EL code van deze indicator geeft de editor een foutmelding. Kan iemand hier een oplossing voor geven?

Vr. Gr. Willie

Stochastic trend indicator

Using stochastic as a trend indicator requires that it be modified. Several well known charting programs package
it in this fashion so it is nothing new. Usually a 14 period %K and a 7 period %D is a good place to start.
It uses two functions as posted below. I'll send an ela if requested.Shorter periods produce a v
ery smooth oscillator and Using a longer %D than %k is also something worth looking at it produces
interesting crosses of K and D.


{Type : Function, Name : TAFastK }

Inputs: AvgLen(NumericSimple),Length(NumericSimple);

Value1 = Lowest(Average(Low,AvgLen),Length);
Value2 = Highest(Average(High,AvgLen),Length) - Value1;
Value3 = Average(Close,AvgLen);

if Value2 > 0 then
TAFastK ?= (Value3 - Value1) / Value2*100
else

TAFastK = 0;

{ Type : Function, Name : TAFastD }



Inputs: AvgLen(NumericSimple),Length(NumericSimple);
Vars: Factor(0);

if CurrentBar <=1
then begin
Factor = 2 / (3 + 1);
TAFastD = TAFastK(AVGLEN, LENGTH);
end
else
TAFastD = TAFastD[1] + (Factor * (TAFastK(AVGLEN,LENGTH) - TAFastD[1]));
?
{ Type : Indicator, Name : TAStoch Indicator }

Input: AvgLen(13), LengthK(5), LengthD(9);

Plot1 ( TAFastK(AVGLEN, LENGTHK),"TAK");
Plot2 ?(TAFastD(AVGLEN, LENGTHD),"TAD");
Plot3 (35,"BuyZone");
Plot4 (80,"SellZone");



?

Functie zeTAFastK:

Inputs: AvgLen(NumericSimple),Length(NumericSimple);

Value1 = Lowest(Average(Low,AvgLen),Length);
Value2 = Highest(Average(High,AvgLen),Length) - Value1;
Value3 = Average(Close,AvgLen);

if Value2 > 0 then
zeTAFastK ?= (Value3 - Value1) / Value2*100
else

zeTAFastK = 0;
end;

Functie zeTAFastD:

Inputs: AvgLen(NumericSimple),Length(NumericSimple);
Vars: Factor(0);

if CurrentBar <=1
then begin
Factor = 2 / (3 + 1);
zeTAFastD = zeTAFastK(AVGLEN, LENGTH);
end
else
zeTAFastD = zeTAFastD[1] + (Factor * (zeTAFastK(AVGLEN,LENGTH) - zeTAFastD[1]));
end;

Indicator zeTAStoch:
Input: AvgLen(13), LengthK(5), LengthD(9);

Plot1 ( zeTAFastK(AVGLEN, LENGTHK),"TAK");
Plot2 ?(zeTAFastD(AVGLEN, LENGTHD),"TAD");
Plot3 (35,"BuyZone");
Plot4 (80,"SellZone");

end;

Paul.

Hallo Paul

ook deze geeft een foutcode
kon overigens geen verschil tussen beide EL's constateren

groet



Joop Henzen

Ik weet niet wat jullie doen, maar bij mij doet hij het.

Paul.

Ps. Joop ik zet niet iets op forum als ik niet eerst getest heb of het werkt.

(Edited by Paul M at 5:52 pm op 15,nov. 2003)

Hallo Paul

Sorry maar ik heb niet bedoeld te zeggen dat je het niet getest hebt echter ; ik heb vaker het probleem gehad dat een getest programma dat op het Forum kwam toch niet werkte

Na opzenden van het Vestics bestand werkte het vervolgens wel.
Derhalve de vraag : zou je het bestand even kunnen e-mailen

groet


joop.henzen@hccnet.nl

Hallo Paul

Ook via het Forum nog bedankt voor het opzenden van de files. Door mijn opnieuw gebleken rudimentaire kennis van EL bleek temeer dat jouw hierboven vermelde indicator in comb. met 2 functies prima werkt.

Groet

Joop Henzen

Joop,

Dank je wel!

Paul