close all;
clear all;
clc;

A_tasiyici=1; % Tasiyici İşaretin Genliği
A_mesaj=2; %Mesaj İşaretin Genliği

ft=1000; % Tasiyici İşaretin Frekansı
fm=100;% Mesaj İşaretinin Frekansı

indeks=A_mesaj/A_tasiyici;% Modülasyon Endeksi 0.8/1= %80
indeks_2=0.5;%% %60 indeks ile ikinci bir modülasyon

t=0.05;% 50 milisaniyelik bir periyodu inceleyeceğiz
t1=linspace(0,t,1000);% zaman vektörü oluşturuldu

mesaj=sin(2*pi*fm*t1); % Mesaj işareti üretildi

tasiyici=sin(2*pi*ft*t1); % Tasiyici işaret üretildi

%%%%%Modülasyon İşlemi%%%%%%
module=(1+indeks.*mesaj).*(A_tasiyici.*tasiyici);
module2=(1+indeks_2.*mesaj).*(A_tasiyici.*tasiyici);
%%%%%İŞARETLERİN ÇİZDİRİLME İŞLEMLERİ%%%%%%%%%%
subplot(311);
plot(t1,mesaj);
xlabel('Zaman');
ylabel('Genlik');
title('Mesaj İşareti')
grid on;
subplot(312)
plot(t1,tasiyici);
xlabel('Zaman');
ylabel('Genlik');
title('Taşıyıcı İşaret');
grid on;
subplot(313);
plot(t1,module);
plot(t1,module);
xlabel('Zaman');
ylabel('Genlik');
title('Moduleli İşaret, Modülasyon Endeksi 2');
grid on;
% subplot(414);
% plot(t1,module2);
% plot(t1,module2);
% xlabel('Zaman');
% ylabel('Genlik');
% title('Moduleli İşaret, Modülasyon Endeksi 0.5');
% grid on;