shit8c

function [ ] = func_8c(C, w0, N)

x = @(n, phi0, Om, phiOm, m ) C*(1 + m * cos(Om * n + phiOm)).*cos(w0*n + phi0);

f_1 = @(n) x(n, pi/3, w0/4, pi/6, 0.5);
f_2 = @(n) x(n, 0, w0/4, 0, 0.5);
f_3 = @(n) x(n, 0, w0/4, 0, 0);
f_4 = @(n) x(n, 0, w0/4, 0, 1);

int = (0:(20*N - 1));

subplot(4,1,1), plot(int, f_1(int));
subplot(4,1,2), plot(int, f_2(int));
subplot(4,1,3), plot(int, f_3(int));
subplot(4,1,4), plot(int, f_4(int));

end