Answer:
Mean.m
fid = fopen('input.txt');
Array = fscanf(fid, '%g');
Amean = AM(Array);
Gmean = GM(Array);
Rmean = RMS(Array);
display('Amlan Das Statistical Package')
display(['arithmetic mean = ', sprintf('%.5f',Amean)]);
disp(['geometric mean = ', sprintf('%.5f',Gmean)]);
disp(['RMS average = ', sprintf('%.5f',Rmean)]);
AM.m
function [ AMean ] = AM( Array )
n = length(Array);
AMean = 0;
for i = 1:n
AMean = AMean + Array(i);
end
AMean = AMean/n;
end
GM.m
function [ GMean ] = GM(Array)
n = length(Array);
GMean = 1;
for i = 1:n
GMean = GMean*Array(i);
end
GMean = GMean^(1/n);
end
RMS.m
function [ RMean ] = RMS( Array)
n = length(Array);
RMean = 0;
for i = 1:n
RMean = RMean + Array(i)^2;
end
RMean = (RMean/n)^(0.5);
end