% sinusdemo.m

hold off

% Erzeugen des Definitionsbereichs:
  phi=linspace(0,2*pi);
  
% Einheitskreis zeichnen:   
 x=cos(phi); 
 y=sin(phi);
 plot(x,y,'r')
 
 axis equal;
 hold on
 
% Sinus zeichnen:
 plot(1+phi,y,'c');
 
 % Achsen:
 plot([0 7.5],[0 0]);
 plot([1 1],[0 2]);
 
 text(7,0.3,'\phi');
 text(1.2,2,'sin(\phi)');
 
 axis off

 % Beispielwinkel einzeichnen:
 punkt1x=[0 cos(1) cos(1)];
 punkt1y=[0 sin(1) 0];
 
 fill(punkt1x,punkt1y,'y');
 fill(0.3*punkt1x,0.3*punkt1y,'m');
 
 plot([cos(1),cos(1)],[0,sin(1)],'c');
 %zugehoerigen Beispielpunkt auf dem Graphen einzeichnen
 plot([2 2],[0 sin(1)],':c');
 
 plot([cos(1),2],[sin(1) sin(1)],':c');
 
 % Titel und Kommentare:
 title('Die sin-Funktion');
 text(-0.5,-1.5,'\phi: im Ursprung liegender Winkel des Dreiecks')
 text(-0.5,-2.0,'sin(\phi): Gegenkathete des Winkels \phi im Einheitskreis')
 