clc;
clear all;
close all;

% pár görbe, amivel lehet b?vészkedni
tau=[0:2:720]*(pi/180);
ft=4*sin(tau)-2*sin(2.5*tau)+cos(6.3*tau);
yy=4*sin(tau)-2*sin(2.5*tau)+cos(6.3*tau)+(-2+3*rand(1,numel(tau)));

%% ÁBRÁZOLÁS

ABRA=figure; 
		% az 'abra' néven hivatkozunk majd az ábrára, amikor el akarjuk menteni
 
    hold on; % Egy ablakba több görbe
    grid on; % x és y irányú rácsozás be
    box on; % Keret (enélkül csak az x-y tengely jelenne meg)
    
plot(tau,yy,'s','markersize',4,'color','b'); % további marker és vonalstílus beállítási lehet?ségek: 2D_line_plot.pdf
plot(tau,ft,'.-','linewidth',2,'color',[128 0 64]/255); % [R G B]/255 - 1-re normált RGB-vel dolgozik a matlab
    title('Ez az abra cime','fontsize',16);
    ylabel('y-tengely','fontsize',14);
    xlabel('x-tengely: \tau','fontsize',14); % IGEN, a LaTeX-ben használatos görög bet?ket is jórészt lehet használni
    
    LL=legend({'yy(\tau)','ft(\tau)'},'location','southwest'); % jelmagyarázat; hol legyen a szövegdoboz (fönt, a ploton kívül: eastoutside)
    	set (LL, 'fontsize', 12); % szöveg mérete; 
	% legend boxoff; % lekapcsolja a szövegdoboz keretét
    % text(x, y, 'szoveg'); - további szöveg elhelyezése az ábra egy pontján
    
    axis([min(tau) max(tau) floor(min(yy)) ceil(max(yy))]); % tengelyek határainak beállítása ([xmin xmax ymin ymax])
    set(gca,'fontsize',12); % tengelyek skálafeliratának mérete 
    set(gcf, 'Units', 'Normalized', 'OuterPosition', [0, 0, 1, 1]); % ábra széthúzása teljes képernyőre

% az ábra mentése fájlba:
    kepn=strcat(pwd,'\kepek_helye\','abrazolasM_1');
    saveas(ABRA,kepn,'png');  % melyik képablak tartalmát; milyen formátumban; milyen képnévvel

% ÁBRÁZOLÁS: errorbar()
ERR=figure;
    error=2*rand(1,numel(ft));
    errorbar(tau,ft,error);
    
    axis([min(tau) max(tau) floor(min(yy)) ceil(max(yy))]); % tengelyek határainak beállítása ([xmin xmax ymin ymax])
    set(gca,'fontsize',12,'YGrid','on'); % YGrid: csak az y tengely rácsozása
    set(gcf, 'Units', 'Normalized', 'OuterPosition', [0, 0, 1, 1]);

    kepn=strcat(pwd,'\kepek_helye\','abrazolasM_error');
    
    % print() - kép mérete és felbontása állítható
    set(gcf,'PaperPositionMode','auto'); % úgy menti el a képet, ahogy a képernyőn látszik
    print(ERR,kepn,'-dpng','-r0');  % '-r0' a monitor felbontásával ment. 
    
% ÁBRÁZOLÁS: subplot()

ABR_SU=figure;
   
subplot(2,1,1) % (hány sor, hány oszlop legyen, hányadik elemet ábrázoljuk éppen)
    plot(tau,yy,'o','color','r');
        title('Egész', 'fontsize', 16);
        axis([min(tau) max(tau) floor(min(yy)) ceil(max(yy))]);
        set(gca,'fontsize',12);
    
subplot(2,2,3) % 2 sor, 2 oszlop, DE: az 1. és 2. helyeken a fenti ábra van már. Az alsó sor a 3. és 4. indexhez tartozik
    plot(tau,ft,'color','g','linewidth',2);
        title('ft(\tau)','fontsize',14);
        axis([min(tau) max(tau) floor(min(ft)) ceil(max(ft))]);
        set(gca,'fontsize',12);
    
subplot(2,2,4)
    plot(tau,ft-yy,'color','m');
        title('csak a zaj','fontsize',14);
        axis([min(tau) max(tau) floor(min(ft-yy)) ceil(max(ft-yy))]);
        set(gca,'fontsize',12);
        set(gcf, 'Units', 'Normalized', 'OuterPosition', [0, 0, 1, 1]);
        
    kepn=strcat(pwd,'\kepek_helye\','abrazolasM_2');
        set(gcf,'PaperPositionMode','auto');
        print(ABR_SU,kepn,'-dpng','-r0'); 
        
        saveas(ABR_SU,kepn,'psc'); % .ps, LaTeX-ben egyből használható
        saveas(ABR_SU,kepn,'fig'); % a .fig a Matlab saját képformátuma, ez Matlabban később is szerkeszthető
