hierclust 0.1.4 → 0.1.5

data/History.txt

@@ -1,3 +1,10 @@
+== 0.1.5 2008-03-21
+
+* 1 minor enhancement:
+  * added cluster radius
+* 1 new example script:
+  * demonstrates SVG rendering of points and clusters
+
 == 0.1.4 2008-02-13
 
 * 1 minor enhancement:

data/lib/hierclust/cluster.rb

@@ -37,6 +37,14 @@ module Hierclust
       @items.size
     end
     
+    # Returns the distance from the center of this Cluster to the edge.
+    def radius
+      return nil if @items.empty?
+      return 0 if @items.size == 1
+      return (@items[0].distance_to(@items[1]) + @items[0].radius + @items[1].radius) / 2.0
+      raise "radius not implemented for clusters with more than two items"
+    end
+    
     # Returns a flat list of all the points contained in either this cluster
     # or any of the clusters it contains.
     def points

data/lib/hierclust/point.rb

@@ -23,6 +23,11 @@ module Hierclust
       1
     end
     
+    # Simplifies code by letting us treat Clusters and Points interchangeably
+    def radius #:nodoc:
+      0
+    end
+    
     # Simplifies code by letting us treat Clusters and Points interchangeably
     def points #:nodoc:
       [self]

data/lib/hierclust/version.rb

@@ -2,7 +2,7 @@ module Hierclust #:nodoc:
   module VERSION #:nodoc:
     MAJOR = 0
     MINOR = 1
-    TINY  = 4
+    TINY  = 5
 
     STRING = [MAJOR, MINOR, TINY].join('.')
   end

data/spec/hierclust/cluster_spec.rb

@@ -13,6 +13,10 @@ module Hierclust
     it "should have nil y-coordinate" do
       @c.y.should be_nil
     end
+
+    it "should have nil radius" do
+      @c.radius.should be_nil
+    end
   end
 
   describe Cluster, " with one point" do
@@ -30,6 +34,10 @@ module Hierclust
     it "should have the same y-coordinate as the point" do
       @c.y.should == @p.y
     end
+
+    it "should have 0 radius" do
+      @c.radius.should == 0
+    end
   end
 
   describe Cluster, " with two points" do
@@ -57,6 +65,11 @@ module Hierclust
     it "should include both points" do
       @points.should include(@p_1, @p_2)
     end
+
+    it "should have correct radius" do
+      radius = Math.sqrt((@x_1 - @x_2) ** 2 + (@y_1 - @y_2) ** 2) / 2.0
+      @c.radius.should == radius
+    end
   end
 
   describe Cluster, " with one point and one cluster" do

data/spec/hierclust/point_spec.rb

@@ -14,5 +14,9 @@ module Hierclust
     it "should calculate distance to other" do
       @p.distance_to(@p2).should == 1.0
     end
+
+    it "should have zero radius" do
+      @p.radius.should == 0.0
+    end
   end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: hierclust
 version: !ruby/object:Gem::Version 
-  version: 0.1.4
+  version: 0.1.5
 platform: ruby
 authors: 
 - Brandt Kurowski
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2008-02-13 00:00:00 -05:00
+date: 2008-03-21 00:00:00 -04:00
 default_executable: 
 dependencies: []