%vekt143.m
%Matlab Uebung "Aufgaben mit Vektoren"
%Aufgabe 3
%C.Widmer, 11.04.2002,

clear;     %Löscht vorhandene Variablen

%Variable setzen
a=40;%cm
b=50;%cm
F=80;%Wirkende Kraft in N

%Berechnungen

%erster schritt Berechnen der Winkel


Alpha = (acos(a/b))*180/pi;%ergibt Alpha in Grad
RADAlpha= Alpha/180*pi;%Umrechnung in RAD
CosAlpha = cos(RADAlpha);
Betta = 90 - Alpha;% ergibt Betta in Grad
RADBetta = Betta/180*pi;% Umrechnen in RAD
CosBetta = cos(RADBetta);

%zweiters Schritt berechnen von Fd

Fd=F/CosBetta;

%dritter Schritt berechnen von Fk

Fk = Fd*CosAlpha;


%Ausgabe

%Ausgabe

disp ('  ')
disp ('  ')
disp ('Das Resultat der Auggabe 1.4.3 ist:')
disp ('  ')
disp (['Fd =', num2str(Fd),'N'])
disp ('  ')
disp (['Fk =', num2str(Fk),'N'])
disp ('  ')






