# Berechnung Vektorprodukt

## Problembeschreibung

******************************************
Dokumentnummer: D1177
Quelle: Papula
******************************************
Gegeben sind 3 Vektoren im R3.
Die Vektorprodukte
b x c und
(a+b) x (c-b)
sind zu berechnen.

## Problemlösung

BENUTZERDEFINIERTE FUNKTION

vp(a,b):=[a[2]*b[3]-a[3]*b[2],a[3]*b[1]-a[1]*b[3],a[1]*b[2]-a[2]*b[1]];

EINGABE

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

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

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

VERARBEITUNG

p1:vp(b,c);

p2:vp(a+b,c-b);

AUSGABE

print("Die gesuchten Vektorprodukte sind",p1,"und",p2)$