Re: Euklidische Distanz (3D)

["Jens-Peer Kuska" <kuska@XXXXXXX.de>]

Hallo,

also das muß ich nicht verstehen oder ?
Ob der Versuch, es besser zu formulieren
gelungen ist, erscheint recht zweifelhaft.

Insbesondere ist unklar wieso die 25 mal 3 Matrizen
einmal Matrizen sind aber unten bolß noch 25 Punkte ...

So jetzt die Antworten
(1) ja
(2) das habe ich schon beim ersten Versuch die Frage zu stellen
   geschrieben, allerdings scheint das entweder nicht gelesen
   oder nicht verstanden worden zu sein.
data = Table[Random[], {25}, {3}];
center = {0.5, 0.5, 0.5};
Sqrt[#.#] &[# - center] & /@ data


oder

doStrangeComputation[data_,center_]:=Sqrt[#.#] &[# - center] & /@ data

und wenn es alle zehn Zentren und Punktlisten
MapThread[doStrangeComputation,{zehnPunktListenA25Punkten,zehnZentren}]

(3) wenn es mit Mathematica nicht geht, dan geht es garnicht, den 
Mathematica

   ist Turing-Vollständig, d.h. es kann alles berechnen was man mit einem

   Computer berechnen kann



Gruß

 Jens


----- Original Message ----- 
From: "Philipp Mohl" <philmo@XXXXXXX.de>
To: <demug@XXXXXXX.ch>
Sent: Wednesday, February 16, 2005 2:09 AM
Subject: Euklidische Distanz (3D)


> liebes Forum,
>
> meine letzte Frage war schlecht formuliert: daher ein neuer versuch:
>
> ich habe zehn 25 mal 3 matrizen in folgender form gegeben:
> {-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},
> ..
> {-0.398, -0.591, 0.689}}];
>
> dazu habe ich für jede der zehn matrizen einen schwerpunkt gegeben 
> {-0.0968,
> 0.1705, 0.2025}!
>
>
> Nun möchte ich von jedem der 25 Punkte aus den zehn Matrizen die 
> euklidische
> Distanz zu dem jeweiligen Schwerpunkt berechnen:
> jetzt könnte ich natürlich mit copy und paste jeden wert in folgende 
> formel
> eintragen:
>
> ((-0.395 - (-0.0968))^2 + ( 0.427 - (0.1705))^2 + (-0.721 - 
> (0.2025))^2)^0.5
>
> das wäre aber angesichts der zehn matrizen mit enormem aufwand verbunden.
>
> 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?
>
>
> vielen dank.
> gruß
> philipp