*** Matteuppgiftstråden [För de som inte vill skapa en egen tråd] ***

%% Sinusfunktioner
% Börja med att rätta till alla eventuellt förvanskade svenska tecken med
% Text-> Find and Replace från menyn i editorn.
% Innan du börjar så bör du läsa igenom hjälptexten för kommandot plot
% nogrannt. Titta särskilt på olika linjetyper och färger.

%% Anonym funktion med fyra in-parametrar.
% Skapa ett funktionshandtag fkn1 som tar en tid t, en amplitud A, en
% fasförskjutning k och en vinkelfrekvens w som inargument och beräknar
% värdet av funktionen f(t,A,k,w)=Asin(wt-k). Se till att den är
% vektoriserad.

fkn1=@(t,A,k,w)(A.*sin((w.*t)-k));

%% Anonym funktion som anropar funktionshandtag
% Skapa ett funktinshandtag fkn2 som tar en tid t som inargument och
% anropar fkn1 ovan med detta värde samt sätter A, k respektive w till de 
% tre sista sifforna i ditt personnummer.
A=7;
k=1;
w=6;
fkn2=@(t,A,k,w) fkn1(t,A,k,w);
  
%% Rita en graf
% Rita funktionsgrafen av funktionen som defineras av funktionshandtaget
% fkn2 ovan. Sätt namn på axlar och titel. Välj definitionsmängden så att
% några perioder visas.
figure(1) %Öppnar figurfönster nummer ett
t=linspace(0,pi,1000);
y=fkn2(t,A,k,w);


plot(t,y,'-r') %tex
hold on
xlabel('x')
ylabel('y')
title('7*sin(1*t-6)');
%% Rita flera grafer
% Med p menar vi parmetrarna p=(A,k,w). Använd funktionshandtaget fkn1 från
% ovan och rita fem grafer i samma figur med värdena på p givna av 
% p=(1,1,0), p=(2,1,0), p=(1,2,0), p=(1,1,pi/4) respektive p=(1,1,pi/2).
% Välj lagom stort intervall och olika linjfärger till de olika graferna.
% Sätt ut axelnamn, bildtitel och använd legend för att förklara vad de
% olika graferna beskriver för funktion.
figure(2)
t=linspace(0,pi,1000);

A=1;
k=0;
w=1; 

y1=fkn1(t,A,k,w);
plot(t,y1,'r')
hold on
A=2
k=0
w=1
y2=fkn1(t,A,k,w);
plot(t,y2,'b')
A=1
k=0
w=2

y3=fkn1(t,A,k,w);
plot(t,y3,'y')
A=1
k=pi/4
w=1
y4=fkn1(t,A,k,w);
plot(t,y4,'k')
A=1
k=pi/2
w=1
y5=fkn1(t,A,k,w);
plot(t,y5,'g')