%vekt145.m
%Matlab Uebung "Aufgaben mit Vektoren"
%Aufgabe 5
%C.Widmer, 11.04.2002,

clear;     %Löscht vorhandene Variablen

%Variable setzen
a = [1,2,-3];
b = [5,-1,-5];
ax=a(1,1);ay=a(1,2);az=a(1,3);
bx=b(1,1);by=b(1,2);bz=b(1,3);

%Berechnungen

Q1=norm([ax,ay,az]);
Q2=norm([bx,by,bz]);

cosAlpha=((ax*bx)+(ay*by)+(az*bz))/(Q1*Q2);

RADAlpha= acos(cosAlpha);%Ergebniss in RAD

Alpha=RADAlpha/pi*180;




%Ausgabe

disp ('  ')
disp ('  ')
disp ('Das Resultat der Auggabe 1.4.5 ist:')
disp ('  ')
disp (['Alpha =', num2str(Alpha),'°'])
disp ('  ')








