Re: Euklidische Distanz (3D)

[Thomas Hahn <hahn@XXXXXXX.de>]

> daher meine frage:
> (1) ist es möglich das ganze zu automatisieren, d.h.: ich habe die 25 mal 3
> matrix gegeben plus mittelpunkt und mathematica berechnet automatisch den
> abstand jedes einzelnen punktes?
> (2) wenn ja, wie ist das möglich?
> (3) wenn nein: gibt es ein programm, mit dem dies möglich wäre?

pts = {{-1.296, -0.023, -0.899 },
{-0.395, 0.427, -0.721},
{-1.370, -0.706, -0.175},
{-0.383, 0.460, -0.080},
{0.075, 1.326, 0.171},
{0.110, 1.679, 1.096},
{-0.425, -1.213, -0.793},
{2.221, 0.532, 0.462},
{0.093, -0.945, 0.500},
{-1.180, -0.223, -0.763} }

schwerPunkt = {-0.0968, 0.1705, 0.2025}

dist[x_] := Sqrt[x.x]

dist[# - schwerPunkt]&/@ pts


Gruß,

Thomas