ИНДИКАТОР TASTOCH

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»);