DRAFT: This module has unpublished changes.

function SMA_vector=npma(data_vector,n)
sma=[];
day=1;
while day<=length(data_vector)
sum=0;
if day<=n
for i=1:day
sum=sum+data_vector(i);
end
sma=[sma sum/day];
else
for i=(day-n+1):day
sum=sum+data_vector(i);
end
sma=[sma sum/n];
end
day=day+1;
end
SMA_vector=sma;

DRAFT: This module has unpublished changes.