%vekt142.m
%Matlab Uebung "Aufgaben mit Vektoren"
%Aufgabe 2
%C.Widmer, 11.04.2002,

clear;     %Löscht vorhandene Variablen

%Variable setzen
a = 1;% nicht angegeben so setze ich die auf 1
Alfaa = (pi/180*45); %45° in RAD angegeben
Bettaa = (pi/180*90); %90° in RAD angegeben
Gamaa = (pi/180*45); %45° in RAD angegeben

b = 1;% nicht angegeben so setze ich die auf 1
Alfab = (pi/180*90); %90° in RAD angegeben
Bettab = (pi/180*30); %30° in RAD angegeben
Gamab = (pi/180*60); %60° in RAD angegeben

%Berechnungen

ax=cos(Alfaa);
ay=cos(Bettaa);
az=cos(Gamaa);

bx=cos(Alfab);
by=cos(Bettab);
bz=cos(Gamab);

a1 = norm([ax,ay,az]);
b1 = norm([bx,by,bz]);



cosPhy = ((ax*bx)+(ay*by)+(az*bz))/(a1 * b1);

ResultRAD = acos(cosPhy);% Resultat in RAD

Alpha = ResultRAD*180/pi; % Rechnet in Grad um


%Ausgabe

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








