clear close all clc % Amplitude Modulation % c(t)=Ac*cos(2*pi*fc*t); % s(t)=Ac*(1+ka*m(t))*cos(2*pi*fc*t); % s(t)=Ac*(1+y*cos(2*pi*fm*t))*cos(2*pi*fc*t); % y=Am*ka ; % s(t)=Ac*(1+Am*ka*cos(2*pi*fm*t))*cos(2*pi*fc*t); % Ac:Carrier Amplitude, Fc:Carrier Frequenc, M(t):Message Signal; % Am:Message Signal Amplitute, S(t):Amplitute Modulation; % C(t):Carrier Signal, Ka:Amplitude Sensitivity; % Y:Modulator coefficient, Fm:Message Frequency; t = linspace(-1,1,1000); fc = 10; fm = 1; Ac = 1; Am = 1; ka = 0.5; c = Ac*cos(2*pi*fc*t); % carrier m = Am*cos(2*pi*fm*t); % message mu = Am*ka; % modulation factor env = Ac*(1 + ka*m); % envelope s = env .* c; % modulation signal subplot(311); plot([-1, 1], [0 0], 'k', t, m, 'k', 'LineWidth', 1.5); axis([-1, 1, -1-0.25, 1+0.25]); set(gca, 'FontSize', 14, 'Box', 'off', 'LineWidth', 1.5); xlabel('Time'); ylabel('Magnitude'); title('Message') subplot(312); plot([-1, 1], [0 0], 'k', t, c, 'k', 'LineWidth', 1.5); axis([-1, 1, -1-0.25, 1+0.25]); set(gca, 'FontSize', 14, 'Box', 'off', 'LineWidth', 1.5); xlabel('Time'); ylabel('Magnitude'); title('Carrier'); subplot(313); plot([-1, 1], [0, 0], 'k', t, s, 'b', t, env, 'r', 'LineWidth', 1.5); axis([-1, 1, -1-mu-0.25, 1+mu+0.25]); set(gca, 'FontSize', 14, 'Box', 'off', 'LineWidth', 1.5); title(['Amplitude Modulation. mu = ', num2str(mu)], 'Interpreter', 'tex'); xlabel('Time'); ylabel('Magnitude');