% housekeeping (i a/b)
clear;
clc;
format short g;

% defining array (i c/d)
N=100;
x=linspace(-pi,pi,N)';
x=(-pi:2*pi/(N-1):pi)';

% plotting sin (i e)
y=sin(x);
figure(1),
plot(x,y)

% define scale factor array (ii e/f)
sf=[0.1 0.5 1 2];
N_sf=numel(sf);

% plot scaled sinewave
y=sin_scale(x,sf);
figure(2),
plot(x,y)

% plot scaled array of sine
sin_array=zeros(N,N_sf);
for ndx=1:N_sf
    sin_array(:,ndx)=sin_scale(x,sf(ndx));
end
figure(3),
plot(x,sin_array)
title(['A Sine fn; limits = [-pi pi]; Scale factors=',num2str(sf)])