% Hogyan kell legend-et csinalni. Erdemes utana megnezni fekete-feherben!

% Ez a pelda program a Gauss gorbet ( Gamma_r(x) ) abrazolja 
% kulonbozo r valasztasa eseten.

% Szukkseg van a gr(x,r) fuggvenyre, amely nem mas mint a Gamma_r(x)
% fuggveny.

close all;
clear all;

% Az N input vektorban meg lehet adni az r erteket a kovetkezo modon:

N = input(' Enter the values for r in the form [r1, r2, r3, r4 r5]  ')

% Az x-tengely egy beosztasa

x=-4:.05:4;

% A Gauss gorbe abrazolasa az N vektorban megadott r ertekekre:

plot(x,gr(x,N(1)),'->',x,gr(x,N(2)),'-+',x,gr(x,N(3)),'-.',x,gr(x,N(4)),'--',x,gr(x,N(5)));

% A legend-ben r-nek az N vektorban vallasztott ertekei lesznek
% foltuntetve. Ezeket a valos valtozokat amiket a legend-ben szeretnenk 
% latni, eloszor at kell alakitani strig tipusu valtozokka, a kovetkezo
% modon:

say1=['r=' num2str(N(1))];
say2=['r=' num2str(N(2))];
say3=['r=' num2str(N(3))];
say4=['r=' num2str(N(4))];
say5=['r=' num2str(N(5))];

% Ezen stringeket a legend-be tesszuk es azt is megmondhatjuk, hogy 
% az abra melyk reszeben legyen a legend elhelyezve:

legend(say1,say2,say3,say4,say5,'Location', 'Northeast' )

% Az abra cime:

title('The plot of the Gaussian for different values of r')

% Az x es y-tengelyek elnevezese

xlabel('x','FontSize',14);
ylabel('gr(x)','FontSize',14);