Error with the Sin

%Using a script file (I)

clear;

format short g

%plot of sin with interval from [-pi,pi]

N=100;

x=linspace(-pi,pi,N)'

y=sin(x)

figure(1)

plot(x,y)

sf = 0.1

y = sin_scale(x,sf);

figure(2),

plot(x,y)

sf=[0.1 0.5 2];

N_sf = numel(sf);

sin_array = zeros(N,N_sf);

for ndx = 1: N_sf

sin_array(:,ndx) = sin_function_sf(x,sf(ndx));

end

figure(3),

plot(x,sin_array)

title(['A Sine fn; limits = [-pi pi]; Scale factors = ',num2str(sf)])