Code: Select all
Inputs:
Double price(close),
Double bxo(0.2),
Double sxo(-0.04),
Double length(14);
Variables:
Double num(0),
Double denom(0),
Double PM(0),
Double accuD(0),
Double accuN(0);
For N = 1 to length - 1 begin
accuN = accuN + (price - getValue(price, N, length)) / Sqrt[N];
end;
For P = 1 to length - 1 begin
accuD = accuD + Sqrt[D];
end;
PM = (num / denom) * 7;
SetPlotColor(1, PMColor);
SetPlotWidth(1,2);
plot1(PM, "PM");
Code: Select all
Inputs:
price ( Close ),
length ( 8 );
Variables:
num ( 0 ),
indexN ( 0 ),
accuN ( 0 ),
denom ( 0 ),
indexD ( 0 ),
accuD ( 0 ),
offset ( 0 ),
PM ( 0 );
accuN = 0;
for indexN = 1 to length+1 begin
if indexN > length then offset = length else offset = indexN;
accuN = accuN + (price - price[offset]) / SquareRoot(indexN);
end;
num = accuN;
accuD = 0;
for indexD = 1 to length+1 begin
accuD = accuD + SquareRoot(indexD);
end;
denom = accuD;
PM = (num / denom) * 7;
plot1(PM, "PM");
begin
SetPlotColor(1, PM);
SetPlotWidth(1, 3);
Alert(getsymbolname + "PM");
end