%Pascal/MATLABkurs Oktober 2000, Gerhard Opfer

%Wir zeichnen einen Kreis und variieren das tatsächliche 
%Achsenverhältnis.
%Außerdem bringen wir einige Beschriftungen an
clear all
axis auto %alte Form
alpha=linspace(0,2*pi); %100 Punkte werden äquidistant verteilt
z=exp(i*alpha); %Gebrauch von komplexen Zahlen führt zu einer 
                %einfachen Anweisung
plot(z)
disp('kein schöner Kreis, enter!');pause
axis square %die Achsen werden unabhängig von ihrer Beschriftung gleich lang
            %das Bild ist ein Quadrat
disp('axis square, enter!');
pause
axis equal %das Bild ist rechteckig, aber die Maßstäbe sind auf beiden
           %Achsen gleich
disp('axis equal, enter!');
pause
axis tight %equal und eng anliegend
disp('axis zusätzlich tight, enter!');
pause
axis([0,1,0,2]) %selbstgebastelte Achsenform, zuerst x- dann y-Achse
disp('axis([0,1,0,2]), enter!');
pause
axis auto %alte Form
close; %Fenster wird zugemacht
%Beschriften kann man auch mit 'legend'
%Dazu machen wir ein neues Bild:
disp('neues Bild');
x=linspace(0,2*pi,60); %nur 60 Punkte
a=sin(x);b=cos(x);
t=1:60;
stem(t,a+b); %so ähnlich wie plot aber mit 'Stamm'
hold on;
disp('stem-Graphik, enter!');
pause
plot(t,a','r.');
disp('rot gepunkteter Sinus, enter!');
pause
plot(t,b','g--');
disp('grün gestrichelter Kosinus, enter!');
pause
legend('a+b','b=cos(x)','a=sin(x)');
disp('Legende angebracht, enter!');
pause
title('\it Legend stimmt nicht ganz'); %\it (kursiv) wird von TeX übernommen
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:
disp('Text mit Maus positionieren: sin + cos');
gtext('sin+cos');
disp('Text mit Maus positionieren: sin');
gtext('sin');
disp('Text mit Maus positionieren: cos');
gtext('cos');
hold off


