% Plotten in Zwei Dimensionen
% Winfried Kernbichler

% Definition von Funktionen
f1 = inline('2*exp(-x/pi)','x');
f2 = inline('exp(-x.^2 / pi)','x');

% Auswertung
x  = linspace(-pi,pi,101);
y1 = f1(x);
y2 = f2(x);

% Anlegen einer Figur
fih1 = figure(1); clf;

% In der Folge werden vier Subplots erzeugt

% Variante 1: Mehrere Plots mit einem plot Befehl 
axh1 = subplot(2,2,1);
plh1 = plot(x,y1,'b:',x,y2,'r-',x(1:10:end),y2(1:10:end),'ro');
xlh1 = xlabel('x');          % Beschriftung der x-Achse
ylh1 = ylabel('f_1, f_2');   % Beschriftung der y-Achse
tih1 = title('Funktionen');  % Titel
leh1 = legend('f_1','f_2');  % Legende

% Variante 2: Mehrere Plots hintereinander (hold on)
axh2    = subplot(2,2,2);
plh2(1) = plot(x,y1,'b:');
hold on                      % hold on ermoeglicht das Weiterzeichnen
plh2(2) = plot(x,y2,'r-');
plh2(3) = plot(x(1:10:end),y2(1:10:end),'ro');
hold off                     % hold off stoppt diese Moeglichkeit
xlh2    = xlabel('x'); 
ylh2    = ylabel('f_1, f_2');
tih2    = title('Funktionen');
leh2    = legend(plh2([1,3]),'f_1','f_2'); % Legende fuer 1. und 3. Plot
% Dinge koennen auch nachtraeglcih veraendert werden
set([xlh2,ylh2,tih2],'Color','blue');
set(leh2,'Box','off','XColor','white','YColor','white','Color',[0.95,0.95,0.95]);

% Variante 3: Mehrere Plots mit line Befehlen
axh3 = subplot(2,2,3);
plh3(1) = line(x,y1,'Color','b','LineStyle','-','LineWidth',2);
plh3(2) = line(x,y2,'Color','r','LineStyle','-');
plh3(3) = line(x(1:10:end),y2(1:10:end),'LineStyle','none', ...
    'Marker','o','MarkerFaceColor','r');
xlh3 = xlabel('x'); 
ylh3 = ylabel('f_1, f_2');
tih3 = title('Funktionen');
leh3 = legend(plh3([1,3]),'f_1','f_2');

% Variante 4: Unsichtbare Achse, zusaetzlich Beschriftung 
axh4    = subplot(2,2,4);
plh4(1) = line(x,y1,'Color','b','LineStyle','-','LineWidth',2);
plh4(2) = line(x,y2,'Color','r','LineStyle','-');
plh4(3) = line(x(1:10:end),y2(1:10:end),'LineStyle','none', ...
    'Marker','o','MarkerFaceColor','r');
xlh4    = xlabel('x'); 
ylh4    = ylabel('f_1, f_2');
tih4    = title('Funktionen');
% Beschriftung in der Zeichnung
teh4(1) = text(x(30),y1(30),'  \leftarrow  2e^{-x/\pi}', ...
    'FontSize',16,'Rotation',30);
teh4(2) = text(x(51),y2(51),'  exp(-x^{2}/\pi)  \rightarrow    ', ...
    'FontSize',16,'HorizontalAlignment','right','Rotation',-30);
set(axh4,'Visible','off');