VIDYA Variation

Type : Function, Name : VIDYA2

Input:
Price(numericseries),
CMOLen(numeric),
VIDYALen(numeric),
Speed(Numeric);

Var:
NumUp(0),
NumDn(0),
Cnt(0),
SumUp(0),
SumDn(0),
Diff(0),
VIDYAPri(0),
AbsCMO(0),
Const(0);

SumUp = 0;
SumDn = 0;
NumUp=0;
NumDn=0;

For Cnt = 0 to CMOLen-1 Begin
Diff = Price[Cnt] - Price[Cnt+1];
If Diff > 0 then SumUp = SumUp + Diff else SumDn=SumDn-Diff;
If Diff > 0 then NumUp=NumUp+1 else NumDn=NumDn+1;
End;

AbsCMO = Speed*AbsValue(((NumUp-NumDn)*(SumUp-SumDn))/((SumUp+SumDn)*(NumUp+NumDn)));
Const = 2/(VIDYALen+1);

VIDYA2 = iff(Barnumber > VIDYALen,(Price * Const * AbsCMO) +
((1 - AbsCMO * Const) * VIDYA2[1]),Price);




Now create the indicator, using the following code:



Type : Function, Name : VIDYA2
Input:
Price(TypicalPrice),
CMOLen(9),
VIDYALen(12),
UBandPct(1),
LBandPct(1),
Speed(2);

Var: PlotVal(0);

PlotVal = VIDYA2(Price,CMOLen,VIDYALen,Speed);

If PlotVal > 0 then begin
Plot1(PlotVal,"VIDYA");
Plot2((1 + UBandPct*.01)*PlotVal,"Upper Band");
Plot3((1 - LBandPct*.01)*PlotVal,"Lower Band");
End;