DIMA Averages

inputs:
Price(numericseries),
Length(numericsimple);

Value2 = 0;
for Value1 = 0 to Length - 1
begin
Value2 = Value2 + AbsValue(Price[Value1] - Price[Value1 + 1]);
end;

Value3 = 0;
if Value2 <> 0 then
begin
for Value1 = 0 to Length - 1
begin
Value3 = Value3 + Price[Value1] * (AbsValue(Price[Value1] - Price[Value1 + 1]) / Value2);
end;
end;

Dima_MOMA = Value3;

Type : Function, Name : Dima_VOMA

inputs:
Price(numericseries),
Length(numericsimple);

variables:
vol_sum(0);

vol_sum = 0;
for Value1 = 0 to Length - 1
begin
vol_sum = vol_sum + Volume[Value1];
end;

Value2 = 0;
if vol_sum <> 0 then
begin
for Value1 = 0 to Length - 1
begin
Value2 = Value2 + Price[Value1]*(volume[Value1] / vol_sum);
end;
end;

Dima_VOMA = Value2;

Type : Function, Name : Dima_WEVOMO

inputs:
Price(numericseries),
Length(numericsimple);

Value1 = (Dima_MOMA(Price, Length) + Dima_VOMA(Price, Length) + WAverage(Price, Length)) / 3;
Dima_WEVOMO = Value1;

Type : Function, Name : Dima_VOMOMA

input:
Price(Close), Length(14);

Value1 = (Dima_MOMA(Price, Length) + Dima_VOMA(Price, Length)) / 2;
plot1(Value1, "VOMOMA");

Type : Indicator, Name : Dima_VOMOMA

input:
Price(Close), Length(14);

Value1 = (Dima_MOMA(Price, Length) + Dima_VOMA(Price, Length)) / 2;
plot1(Value1, "VOMOMA");

Type : Indicator, Name : Dima_MOMA

input:
Price(Close), Length(14);

plot1(Dima_MOMA(Price, Length), "MOMA");

Type : Indicator, Name : Dima_WEVOMO

input:
Price(Close), Length(55);

plot1(Dima_WEVOMO(Price, Length), "WEVOMO");