clc;
clear;
close all;

% Parameters
fs = 1000;          % Sampling frequency
t = 0:1/fs:1;       % Time vector
fm = input("Enter message frequency: ");             % Message frequency
fc = input("Enter carrier frequency: ");   % Carrier frequency
Ac = input("Enter carrier amplitude: ");             % Carrier amplitude
Am = input("Enter message signal amplitude: ");
ka = 0.8;           % Modulation index (keep <= 1)

% Message signal
m = sin(2*pi*fm*t);

% AM signal
am_signal = Ac * (1 + ka*m) .* cos(2*pi*fc*t);

% Plot
figure;

subplot(3,1,1);
plot(t, m);
title('Message Signal');
xlabel('Time'); ylabel('Amplitude');

subplot(3,1,2);
plot(t, am_signal);
title('AM Signal');
xlabel('Time'); ylabel('Amplitude');