# Vektoren im R3

## Problembeschreibung

******************************************
Dokumentnummer: D1160
Quelle: Papula, 418
******************************************

Gegeben sind 3 Vektoren a,b,c sowie eine Kombination
dieser Vektoren.

## Problemlösung

LADEN EINES UNTERPROGRAMMES

load(vect);

EINGABE

a:read("Gib den Vektor a ein");

b:read("Gib den Vektor b ein");

c:read("Gib den Vektor c ein");

s:read("Gib den resultierenden Vektor ein");

VERARBEITUNG

betrag:sqrt(s[1]**2+s[2]**2+s[3]**2),numer;

betrag:floor(betrag*100+0.5)/100.0;

alpha:acos(s[1]/betrag);

alpha:alpha*180/%pi,numer;

alpha:floor(alpha*100+0.5)/100.0;

beta:acos(s[2]/betrag);

beta:beta*180/%pi,numer;

beta:floor(beta*100+0.5)/100.0;

gamma:acos(s[3]/betrag);

gamma:gamma*180/%pi,numer;

gamma:floor(gamma*100+0.5)/100.0;

AUSGABE

print("Der Betrag ist",betrag)$

print("Der Winkel",%alpha,"ist",alpha)$

print("Der Winkel",%beta,"ist",beta)$

print("Der Winkel",%gamma,"ist",gamma)$