# Kraftkomponenten

## Problembeschreibung

******************************************
Dokumentnummer: D1179
Quelle: Papula 424
******************************************
Eine Kraft mit bekanntem Betrag soll senkrecht
auf eine Ebene mit bekannten Richtungsvektoren
a und b stehen. Die Komponenten dieser Kraft
sollen ermittelt werden.

## 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

Betrag:read("Gib den Betrag der Kraft ein");

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

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

VERARBEITUNG

n:vp(a,b);

bn:sqrt(n[1]**2+n[2]**2+n[3]**2);

e:n/bn;

F1:Betrag*e;

F2:-F1;

AUSGABE

print("Die skalaren Kraftkomponenten sind",F1,"oder",F2)$