%vekt141.m
%Matlab Uebung "Aufgaben mit Vektoren"
%Aufgabe 1
%C.Widmer, 11.04.2002,

clear;     %Löscht vorhandene Variablen

%Variable setzen
F1=80;
Alfa1=(pi/2);%90° in RAD umrechnen
Betta1=(pi/180*110);%110° in RAD umrechnen
Gama1=(pi/180*20);% 20° in RAD umrechnen
F2=120;
Alfa2=(pi/180*30);%30° in RAD umrechnen
Betta2=(pi/180*90);%90° in RAD umrechnen
Gama2=(pi/180*60);% 60° in RAD umrechnen

%Berechnungen
Fx1=F1 * cos(Alfa1);
Fy1=F1 * cos(Betta1);
Fz1=F1 * cos(Gama1);

Fx2=F2 * cos(Alfa2);
Fy2=F2 * cos(Betta2);
Fz2=F2 * cos(Gama2);

Fa=[Fx1,Fy1,Fz1]';
Fb=[Fx2,Fy2,Fz2]';

Fc = -(Fa + Fb);

F3 = norm([Fc]);


%Ausgabe

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








