RE: Euklidische Distanz (3D)

["Nowak Robert" <robert.nowak@XXXXXXX.at>]

hi jens,

a. nachdem philipp hoffentlich auch turing vollständig ist braucht er ja gar kein MMA oder ?
b. falls er allerdings nicht turing vollständig ist wird im MMA doch auch nicht wirklich helfen oder ?

c. kann man aus a. und b. schliessen das er gar kein MMA braucht ?


mit vollständigen grüssen

:-) robert

-----Original Message-----
From: Jens-Peer Kuska [mailto:kuska@XXXXXXX.de] 
Sent: Wednesday, February 16, 2005 2:59 PM
To: Philipp Mohl; demug@XXXXXXX.ch
Subject: Re: Euklidische Distanz (3D)


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