FFTinGUI(varargin)

function varargout = FFTinGUI(varargin)
% FFTINGUI M-file for FFTinGUI.fig
%      FFTINGUI, by itself, creates a new FFTINGUI or raises the existing
%      singleton*.
%
%      H = FFTINGUI returns the handle to a new FFTINGUI or the handle to
%      the existing singleton*.
%
%      FFTINGUI('CALLBACK',hObject,eventData,handles,...) calls the local
%      function named CALLBACK in FFTINGUI.M with the given input arguments.
%
%      FFTINGUI('Property','Value',...) creates a new FFTINGUI or raises the
%      existing singleton*.  Starting from the left, property value pairs are
%      applied to the GUI before FFTinGUI_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property application
%      stop.  All inputs are passed to FFTinGUI_OpeningFcn via varargin.
%
%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
%      instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help FFTinGUI

% Last Modified by GUIDE v2.5 10-Oct-2008 18:47:31

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @FFTinGUI_OpeningFcn, ...
                   'gui_OutputFcn',  @FFTinGUI_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
% End initialization code - DO NOT EDIT

% --- Executes just before FFTinGUI is made visible.
function FFTinGUI_OpeningFcn(hObject, eventdata, handles, varargin)
% This function has no output args, see OutputFcn.
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% varargin   command line arguments to FFTinGUI (see VARARGIN)

load mtlb;
N=1024;
N_short_FFT=128;
Fs=7418;
set(handles.fft_order,'string',num2str(N));
set(handles.short_fourier_interval,'string',num2str(N_short_FFT));
str=get(handles.Fs_units,'string');
val=get(handles.Fs_units,'value');
switch(str{val})
    case 'Hz'
        set(handles.sampling_frequency,'string',num2str(Fs));
    case 'kHz'
        set(handles.sampling_frequency,'string',num2str(Fs/1e3));
    case 'MHz'
        set(handles.sampling_frequency,'string',num2str(Fs/1e6));
end
axes(handles.time_axes);
plot([0:length(mtlb)-1],mtlb);
ylabel('Amplitude');
xlabel('Time [samples]');
title('Signal in the time domain');
axes(handles.fft_frequency_axes);
MyFFT(mtlb,N,Fs);
title('Signal in the frequency domain');
axes(handles.spectrogram_axes);
spectrogram(mtlb,N_short_FFT,32,N,Fs);
title('Short Fourier Transform of the signal');

% Choose default command line output for FFTinGUI
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes FFTinGUI wait for user response (see UIRESUME)
% uiwait(handles.figure1);
function MyFFT(x,N,Fs)
Y=fft(x,N).*conj(fft(x,N));
if(Fs>N)
    f=[0:Fs/N:Fs/2-1];
else
    f=(Fs/N)*[0:N/2];
end;
if(Fs/2<10e3)
    semilogy(f,Y(1:N/2)/N);
    xlabel('Frequency [Hz]');
    ylabel('Magnitude [dB]');
end;
if(Fs/2>1e3 && Fs/2<1e6)
    semilogy(f/1e3,Y(1:N/2)/N);
    xlabel('Frequency [kHz]');
    ylabel('Magnitude [dB]');
end;
if(Fs/2>1e6)
    semilogy(f/1e6,Y(1:N/2)/N);
    xlabel('Frequency [MHz]');
    ylabel('Magnitudine [dB]');
end;


% --- Outputs from this function are returned to the command line.
function varargout = FFTinGUI_OutputFcn(hObject, eventdata, handles) 
% varargout  cell array for returning output args (see VARARGOUT);
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;


% --- Executes on button press in load_data.
function load_data_Callback(hObject, eventdata, handles)
% hObject    handle to load_data (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
str=get(handles.select_data,'string');
val=get(handles.select_data,'value');
global file_name;
switch(str{val})
    case '.dat'
        file_name=uigetfile('*.dat', 'Alege un fisier .dat');
        file_name=importdata(file_name);
    case '.mat'
        file_name=uigetfile('*.mat', 'Alege un fisier .mat');
        file_name=load(file_name);
        file_name=file_name.data;
    case '.wav'
        file_name=uigetfile('*.wav', 'Alege un fisier .wav');
        file_name=wavread(file_name);
        file_name=file_name(:,1);
end



function fft_order_Callback(hObject, eventdata, handles)
% hObject    handle to fft_order (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of fft_order as text
%        str2double(get(hObject,'String')) returns contents of fft_order as a double


% --- Executes during object creation, after setting all properties.
function fft_order_CreateFcn(hObject, eventdata, handles)
% hObject    handle to fft_order (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function sampling_frequency_Callback(hObject, eventdata, handles)
% hObject    handle to sampling_frequency (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of sampling_frequency as text
%        str2double(get(hObject,'String')) returns contents of sampling_frequency as a double



% --- Executes during object creation, after setting all properties.
function sampling_frequency_CreateFcn(hObject, eventdata, handles)
% hObject    handle to sampling_frequency (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function short_fourier_interval_Callback(hObject, eventdata, handles)
% hObject    handle to short_fourier_interval (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of short_fourier_interval as text
%        str2double(get(hObject,'String')) returns contents of short_fourier_interval as a double


% --- Executes during object creation, after setting all properties.
function short_fourier_interval_CreateFcn(hObject, eventdata, handles)
% hObject    handle to short_fourier_interval (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on selection change in Fs_units.
function Fs_units_Callback(hObject, eventdata, handles)
% hObject    handle to Fs_units (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = get(hObject,'String') returns Fs_units contents as cell array
%        contents{get(hObject,'Value')} returns selected item from Fs_units

guidata(hObject,handles);

% --- Executes during object creation, after setting all properties.
function Fs_units_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Fs_units (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in plot_data.
function plot_data_Callback(hObject, eventdata, handles)
% hObject    handle to plot_data (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
global file_name;
str=get(handles.Fs_units,'string');
val=get(handles.Fs_units,'value');
Fs=str2double(get(handles.sampling_frequency,'string'));
switch(str{val})
    case 'kHz'
        Fs=1e3*Fs;
    case 'MHz'
        Fs=1e6*Fs;
end
N=str2double(get(handles.fft_order,'string'));
N_short_FFT=str2double(get(handles.short_fourier_interval,'string'));
if(length(file_name)>1e5)
    file_name=file_name(2e4:4.4e5,1);
end
axes(handles.time_axes);
plot([0:length(file_name)-1],file_name);
ylabel('Amplitude');
xlabel('Time [samples]');
title('Signal in the time domain');
axes(handles.fft_frequency_axes);
MyFFT(file_name,N,Fs);
axes(handles.spectrogram_axes);
spectrogram(file_name,N_short_FFT,32,N,Fs);
title('Short Fourier Transform of the signal');

% --- Executes on selection change in select_data.
function select_data_Callback(hObject, eventdata, handles)
% hObject    handle to select_data (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = get(hObject,'String') returns select_data contents as cell array
%        contents{get(hObject,'Value')} returns selected item from select_data


% --- Executes during object creation, after setting all properties.
function select_data_CreateFcn(hObject, eventdata, handles)
% hObject    handle to select_data (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end