FM_wave

clc ;
clear all;
close all;
t=0:0.000001:0.1;
Am=1;
Ac=2;
fm=50;
fc=1000;
b=50;
k=10000;
%ploting baseband signal
x=Am*cos(2*pi*fm*t);
subplot(4,1,1);
plot(t,x)
xlabel('Time');
ylabel('Amplitude');
grid on;
title('Baseband signal');
%carrier signal
y=Ac*cos(2*pi*fc*t);
subplot(4,1,2);
plot(t,y)
xlabel('Time');
ylabel('Amplitude');
grid on;
title('Carrier signal');
%FM signal
z=Ac*cos((2*pi*fc*t)+(Am*b*sin(2*pi*fm*t)));
subplot(4,1,3);
plot(t,z)
xlabel('Time');
ylabel('Amplitude');
grid on;
title('Baseband signal');
%Narrow band FM
%FM signal
r=Ac*cos(2*pi*fc*t)-Ac*k*((Am/2*pi*fm)*sin(2*pi*fm*t)).*sin(2*pi*fc*t)
subplot(4,1,4);
plot(t,r)
xlabel('Time');
ylabel('Amplitude');
grid on;
title('Baseband signal');