Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Euclidean distance of all pairwise combinations (redundants)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg128683] Re: Euclidean distance of all pairwise combinations (redundants)
  • From: Dana DeLouis <dana01 at me.com>
  • Date: Sat, 17 Nov 2012 03:47:35 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net

> Any ideas on how to get the euclidean distance between all the points 
including redundants and self references?

Just for fun, and to add complexity, heres one more but with the output 
in table form.   :>)


list={{1,1},{2,2},{3,3},{4,5}};

(* Edge List - el  *)

el=UndirectedEdge@@@Subsets[list,{2}];

g=Graph[el,EdgeWeight->EuclideanDistance@@@el];


MatrixForm[GraphDistanceMatrix[g],TableHeadings->{VertexList[g],VertexList[g]}]


= = = = = = = = = =
HTH   :>)
Mac & Math 8
=E2=80=A8Dana DeLouis
=E2=80=A8= = = = = = = = = =




On Tuesday, November 13, 2012 10:35:53 PM UTC-8, Jesse Pisel wrote:
> I have been having a tough time trying to figure out how to include =
all red undant pairwise combinations in my results for the euclidean =
distance between a set of points. I have a set of points with xy =
coordinates and want the euclidean distance between each point including =
the point and itself. So if my points in xy space are list = {{1, 1}, =
{2, 2}, {3, 3}} for example, I want the distance from {1, 1} to {1, 1}, =
{1, 1} to {2, 2}, and {2, 2} to {3, 3} etc. for each point for a total =
of 9 distances all together. The EuclideanDistance function removes the =
redundant distances that I want retained in the results. I have been =
using this code just to play with data but would like to be able to =
expand up to 500+ points:
>
>
>
> list = {{1, 1}, {2, 2}, {3, 3}}
>
> EuclideanDistance @@@ Subsets[list, {2}]
>
>
>
> Any ideas on how to get the euclidean distance between all the points =
including redundants and self references?





  • Prev by Date: Re: Relational operators on intervals: bug?
  • Next by Date: Re: Problem with SetDelayed lhs:=rhs
  • Previous by thread: Re: Euclidean distance of all pairwise combinations (redundants)
  • Next by thread: Re: Euclidean distance of all pairwise combinations (redundants)