DTFT ATAS RUNTUN EKSPONENSIAL RIIL

GUI MATLAB untuk kasus ini telah dirancang. Berikut adalah kode sumber callback dari tombol TAMPILKAN DFT:

function TAMPILKANDFT_Callback(hObject, eventdata, handles)

% hObject    handle to TAMPILKANDFT (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    structure with handles and user data (see GUIDATA)

%Membaca data global agar dapat dipakai untuk callback berikutnya

global x_x

x = x_x;

global a_x

a = a_x;

global n1_x

n1 = n1_x;

global n2_x

n2 = n2_x;

%Membaca parameter-parameter DFT

k = str2num(get(handles.editBanyakTitik,'String'));

F1 = str2num(get(handles.editFSampai,'String'));

%Menghitung DFT

w=[0:1:k*F1]*(pi*F1/k);

n=n1:n2;

X=exp(j*w)./(exp(j*w)-a*ones(1,length(w)));

%Akibat tunda waktu dari n1

X = X.* exp(j*w*n1);

%Menampilkan Magnitudo dari DTFT

magX=abs(X);

axes(handles.axes2), plot(w/(F1*pi),magX, 'r', 'LineWidth',2);grid

xlabel('frekuensi dalam unit pi');

title('Bagian magnitudo'); ylabel('Magnitudo')

%Memberikan grid x dan y dengan warna biru

set(gca, 'XColor', 'b')

set(gca, 'YColor', 'b')

%Memberikan warna kehijauan  pada latar sumbu

set(gca,'Color',[0.5 0.5 0.5]);

%Menampilkan Sudut dari DFT

angX=angle(X);

axes(handles.axes3), plot(w/(F1*pi),angX, 'r', 'LineWidth',2);grid

xlabel('frekuensi dalam unit pi');

title('Bagian Sudut'); ylabel('Radian')

%Memberikan grid x dan y dengan warna biru

set(gca, 'XColor', 'b')

set(gca, 'YColor', 'b')

%Memberikan warna kehijauan  pada latar sumbu

set(gca,'Color',[0.5 0.5 0.5]);

%Menampilkan Bagian riil dari DTFT

realX=real(X);

axes(handles.axes4), plot(w/(F1*pi),realX, 'r', 'LineWidth',2);grid

xlabel('frekuensi dalam unit pi');

title('Bagian Riil'); ylabel('Riil')

%Memberikan grid x dan y dengan warna biru

set(gca, 'XColor', 'b')

set(gca, 'YColor', 'b')

%Memberikan warna kehijauan  pada latar sumbu

set(gca,'Color',[0.5 0.5 0.5]);

%Menampilkan Bagian imajiner dari DTFT

imagX=imag(X);

axes(handles.axes5), plot(w/(F1*pi),imagX, 'r', 'LineWidth',2);grid

xlabel('frekuensi dalam unit pi');

title('Bagian Imajiner'); ylabel('Imajiner')

%Memberikan grid x dan y dengan warna biru

set(gca, 'XColor', 'b')

set(gca, 'YColor', 'b')

%Memberikan warna kehijauan  pada latar sumbu

set(gca,'Color',[0.5 0.5 0.5]);