# Prüfen, ob drei Vektoren in einer
Ebene liegen

## Problembeschreibung

******************************************
Dokumentnummer: D1162
Quelle: Papula 423
******************************************

Es ist zu prüfen, ob drei gegebene Kraftvektoren im R3
in einer Ebene liegen. Außerdem ist die resultierende
Kraft gesucht.

## Problemlösung

EINGABE

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

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

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

VERARBEITUNG

m:matrix(
 [a[1],b[1],c[1]], 
 [a[2],b[2],c[2]], 
 [a[3],b[3],c[3]]
);

d:determinant(m);

F:a+b+c;

BF:sqrt(F[1]**2+F[2]**2+F[3]**2),numer;

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

AUSGABE

if d=0 then print("Die Vektoren liegen in einer Ebene") else print("Die Vektoren liegen
  nicht in einer Ebene")$

print("Die resultierende Kraft ist",BF,"N")$