%Pascal/MATLABkurs Oktober 2000 und Oktober 2001, Gerhard Opfer

%Wir zeichnen einen Kreis und variieren das tatsaechliche Achsenverhaeltnis.
%Ausserdem bringen wir einige Beschriftungen an.
alpha=linspace(0,2*pi); %100 Punkte werden aequidistant verteilt
z=exp(i*alpha); %Gebrauch von komplexen Zahlen fuehrt zu einer 
            %einfachen Anweisung, i=sqrt(-1) ist vordefiniert.
h=plot(z);  %wird unten gebraucht 
%get(h);    %auch get(plot(z)) moeglich, umfangreiche Anzeige
disp('kein schoener Kreis, enter!'); pause
axis square %die Achsen werden unabhaengig von ihrer Beschriftung gleich lang
            %das Bild ist ein Quadrat
disp('axis square, enter!');
pause
axis equal  %das Bild ist rechteckig, aber die Massstaebe sind auf beiden
            %Achsen gleich
disp('axis equal, enter!');
pause
axis tight  %Der aeussere Rahmen ist jetzt eng anliegend
disp('axis zusaetzlich tight, enter!');
pause
axis([0,1,0,2]) %selbstgebastelte Achsenform, zuerst x- dann y-Achse
disp('axis([0,1,0,2]), enter!');
pause
disp('Aeusseren Rahmen dicker machen, enter!');
set(gca,'linewidth',4); pause
disp('Aeusseren Rahmen wieder in Normaldicke bringen, enter!');
set(gca,'linewidth','default'); pause
disp('Kurve dicker machen, enter!');
set(h,'linewidth',4); pause
%Das h kommt von oben, Zeile 8
disp('Kurve wieder in Normaldicke bringen, enter!');
set(h,'linewidth','default'); pause
close; %Fenster wird zugemacht
axis auto   %alte Form
clear all   %die Bedeutung und Besetzung aller Variablen werden eliminiert

%Beschriften kann man auch mit 'legend' machen. Um griechische Buchstaben
%und Hoeher- und Tieferstellungen zu bewirken, koennen Anleihen aus dem
%Satzsystem TeX uebernommen werden: \alpha, \beta, etc auch a^3 fuer 
%Exponenten und x_2 fuer Indizes, \it fuer Kursivdruck.
%Dazu machen wir ein neues Bild:
disp('neues Bild');
t=0:63;
a=sin(2*pi/63*t); b=cos(2*pi/63*t);
stem(t,a+b); %so aehnlich wie plot aber mit 'Stamm'
hold on;
disp('stem-Graphik: sin+cos, enter!');
pause
plot(t,a,'r.');
disp('rot gepunkteter Sinus, enter!');
pause
plot(t,b,'g--');
disp('gruen gestrichelter Kosinus, enter!');
pause
legend('a+b','b=cos(x)','a=sin(x)');
disp('Legende angebracht, enter!');
pause
title('\it Legend stimmt nicht ganz'); 
xlabel('[0,2\pi]');
set(gca,'ytick',[-1.5:0.1:1.5]); %Neubeschriftung der y-Achse
disp('neue y-Achse, enter!');
pause;
%Textposition (nicht der Text) kann auch mit Mausklick 
%an die Zeichnung gebracht werden (sehr bequem):
disp('Text mit Maus positionieren (dreimal): sin + cos');
gtext('sin+cos');
disp('Text mit Maus positionieren: sin');
gtext('sin');
disp('Text mit Maus positionieren: cos');
gtext('cos');
hold off
