mageo 0.0.0

data/test/test_vector.rb

@@ -0,0 +1,73 @@
+#! /usr/bin/ruby
+
+require "test/unit"
+require "matrix"
+require "mageo/vector.rb"
+require "mageo/vector3d.rb"
+
+class TC_Vector < Test::Unit::TestCase
+	#include Math
+	$tolerance = 1.0E-10
+
+	def setup
+		@v0 = Vector[ 1.0, 2.0, 3.0 ]
+		@v1 = Vector[ 1.0, 1.0 ]
+		@v2 = Vector[ 1.0, 2.0, 3.0, 4.0 ]
+	end
+
+	def test_equal
+		assert_equal(false, @v0 == Vector[1.0, 2.0, 4.0] )
+		assert_equal(true,  @v0 == Vector[1.0, 2.0, 3.0] )
+	end
+
+	def test_unit_vector
+		assert_raise( Vector::ZeroOperation ){ Vector[0.0, 0.0, 0.0].unit_vector }
+
+		assert_in_delta( 1.0/Math::sqrt(14.0), @v0.unit_vector[0], $tolerance )
+		assert_in_delta( 2.0/Math::sqrt(14.0), @v0.unit_vector[1], $tolerance )
+		assert_in_delta( 3.0/Math::sqrt(14.0), @v0.unit_vector[2], $tolerance )
+		assert_equal( Vector[1.0, 2.0, 3.0], @v0) #非破壊であることを確認。
+	end
+
+	def test_floor
+		tmp = @v0.floor
+		assert_equal(Vector, tmp.class)
+		assert_equal(1, tmp[0])
+		assert_equal(2, tmp[1])
+		assert_equal(3, tmp[2])
+		assert_equal(3, tmp.size)
+
+		tmp = @v1.floor
+		assert_equal(1, tmp[0])
+		assert_equal(1, tmp[1])
+		assert_equal(2, tmp.size)
+		
+		tmp = Vector[ 1.1, 2.2].floor
+		assert_equal(1, tmp[0])
+		assert_equal(2, tmp[1])
+		assert_equal(2, tmp.size)
+		
+		tmp = Vector[-1.1,-2.2].floor
+		assert_equal(-2, tmp[0])
+		assert_equal(-3, tmp[1])
+		assert_equal(2, tmp.size)
+
+		# positive decimal like
+		vec = Vector[-1.1,-2.2]
+		tmp = vec - vec.floor
+		assert_in_delta(0.9, tmp[0], $tolerance)
+		assert_in_delta(0.8, tmp[1], $tolerance)
+		assert_equal(2, tmp.size)
+
+		# inherited class
+		tmp = Vector3D[1.1, 2.2, 3.3].floor
+		assert_equal(Vector3D, tmp.class)
+		assert_equal(1, tmp[0])
+		assert_equal(2, tmp[1])
+		assert_equal(3, tmp[2])
+		assert_equal(3, tmp.size)
+
+	end
+
+end
+

data/test/test_vector3d.rb

@@ -0,0 +1,429 @@
+#! /usr/bin/ruby
+
+require "test/unit"
+require "matrix"
+require "mageo/vector3d.rb"
+require "mageo/vector3dinternal.rb"
+require "mageo/polar2d.rb"
+require "mageo/polar3d.rb"
+
+class TC_Array < Test::Unit::TestCase
+	$tolerance = 10.0**(-10)
+
+	def setup
+		@a = [1.0, 2.0, 3.0]
+	end
+
+	def test_to_v3d
+		assert_equal( Vector3D, @a.to_v3d.class )
+		assert_in_delta( 1.0, @a.to_v3d[0], $tolerance )
+		assert_in_delta( 2.0, @a.to_v3d[1], $tolerance )
+		assert_in_delta( 3.0, @a.to_v3d[2], $tolerance )
+		assert_raise( Vector3D::RangeError ){ [1.0].to_v3d }
+		assert_raise( Vector3D::RangeError ){ [0.0, 1.0, 2.0, 3.0].to_v3d }
+	end
+
+end
+
+class TC_Vector < Test::Unit::TestCase
+	include Math
+
+	$tolerance = 10.0**(-10)
+
+	def setup
+		@v0 = Vector[ 1.0, 2.0, 3.0 ]
+		@v1 = Vector[ 1.0, 1.0 ]
+		@v2 = Vector[ 1.0, 2.0, 3.0, 4.0 ]
+	end
+
+	def test_to_v3d
+		assert_equal( Vector3D, @v0.to_v3d.class )
+		assert_in_delta( 1.0, @v0.to_v3d[0], $tolerance )
+		assert_in_delta( 2.0, @v0.to_v3d[1], $tolerance )
+		assert_in_delta( 3.0, @v0.to_v3d[2], $tolerance )
+		assert_raise( Vector3D::RangeError ){ Vector[1.0].to_v3d }
+		assert_raise( Vector3D::RangeError ){ Vector[0.0, 1.0, 2.0, 3.0].to_v3d }
+	end
+end
+
+class TC_Vector3D < Test::Unit::TestCase
+	$tolerance = 10.0**(-10)
+	include Math
+
+	def setup
+		@v00 = Vector3D[1.0, 0.0, 0.0]
+		@v01 = Vector3D[1.0, 0.0, 0.0]
+		@v02 = Vector3D[0.0, 1.0, 0.0]
+		@v03 = Vector3D[0.0, 0.0, 1.0]
+		@v04 = Vector3D[0.0, 0.0, 0.0]
+		@v05 = Vector3D[0.5, 0.5, 0.0]
+		@v07 = Vector3D[1.0, 2.0, 3.0]
+		@v08 = Vector3D[0.1, 0.2, 0.3]
+	end
+
+	def test_initialize
+		assert_raise( Vector3D::RangeError ){ Vector3D[0.0, 0.0] }
+		assert_raise( Vector3D::RangeError ){ Vector3D[0.0, 0.0, 0.0, 0.0] }
+
+		assert_equal( Vector3D, Vector3D[0.0, 0.0, 1.0].class )
+	end
+
+	def test_add_and_delete
+		#追加できないことを確認。
+		assert_raise( NoMethodError ){ Vector3D.push( 0.0 ) }
+		assert_raise( NoMethodError ){ Vector3D[3] = 0.0 }
+
+		assert_raise( NoMethodError ){ Vector3D.pop( 0.0 ) }
+		assert_raise( NoMethodError ){ Vector3D.delete[3] = 0.0 }
+	end
+
+	def test_access
+		# read
+		assert_equal(1.0, @v00[0])
+		assert_equal(0.0, @v00[1])
+		assert_equal(0.0, @v00[2])
+		assert_raise(Vector3D::RangeError){@v00[3]}
+		assert_raise(Vector3D::RangeError){@v00[-1]}
+
+		# write
+		@v00[0] = 2.0
+		@v00[1] = 3.0
+		@v00[2] = 4.0
+		assert_equal(2.0, @v00[0])
+		assert_equal(3.0, @v00[1])
+		assert_equal(4.0, @v00[2])
+		assert_raise(Vector3D::RangeError){@v00[3]  = 0.0}
+		assert_raise(Vector3D::RangeError){@v00[-1] = 0.0}
+	end
+
+	def test_size
+		assert_equal( 3, @v00.size )
+	end
+
+	def test_exterior_product
+		#For class method
+		assert_raise( Vector3D::TypeError ){ Vector3D.exterior_product( @v00, [1.0, 2.0, 3.0] )                 }
+		assert_raise( Vector3D::TypeError ){ Vector3D.exterior_product( @v00, Vector[1.0, 2.0, 3.0] )           }
+		assert_raise( Vector3D::TypeError ){ Vector3D.exterior_product( @v00, Vector3DInternal[1.0, 2.0, 3.0] ) }
+		assert_raise( Vector3D::TypeError ){ Vector3D.exterior_product( [1.0, 2.0, 3.0]                , @v00 ) }
+		assert_raise( Vector3D::TypeError ){ Vector3D.exterior_product( Vector[1.0, 2.0, 3.0]          , @v00 ) }
+		assert_raise( Vector3D::TypeError ){ Vector3D.exterior_product( Vector3DInternal[1.0, 2.0, 3.0], @v00 ) }
+
+		assert_equal( Vector3D, Vector3D.exterior_product( @v00, @v01 ).class)
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v01 )[0], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v01 )[1], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v01 )[2], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v02 )[0], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v02 )[1], $tolerance )
+		assert_in_delta( 1.0, Vector3D.exterior_product( @v00, @v02 )[2], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v03 )[0], $tolerance )
+		assert_in_delta(-1.0, Vector3D.exterior_product( @v00, @v03 )[1], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v03 )[2], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v04 )[0], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v04 )[1], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v04 )[2], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v05 )[0], $tolerance )
+		assert_in_delta( 0.0, Vector3D.exterior_product( @v00, @v05 )[1], $tolerance )
+		assert_in_delta( 0.5, Vector3D.exterior_product( @v00, @v05 )[2], $tolerance )
+
+		assert_in_delta( 0.5, Vector3D.cross_product( @v00, @v05 )[2], $tolerance )
+		assert_in_delta( 0.5, Vector3D.vector_product( @v00, @v05 )[2], $tolerance )
+
+		#For instance method
+		assert_raise( Vector3D::TypeError ){ @v00.exterior_product( [1.0, 2.0, 3.0] )                 }
+		assert_raise( Vector3D::TypeError ){ @v00.exterior_product( Vector[1.0, 2.0, 3.0] )           }
+		assert_raise( Vector3D::TypeError ){ @v00.exterior_product( Vector3DInternal[1.0, 2.0, 3.0] ) }
+
+		assert_equal( 0.0, @v00.exterior_product( @v01 )[0], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v01 )[1], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v01 )[2], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v02 )[0], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v02 )[1], $tolerance )
+		assert_equal( 1.0, @v00.exterior_product( @v02 )[2], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v03 )[0], $tolerance )
+		assert_equal(-1.0, @v00.exterior_product( @v03 )[1], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v03 )[2], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v04 )[0], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v04 )[1], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v04 )[2], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v05 )[0], $tolerance )
+		assert_equal( 0.0, @v00.exterior_product( @v05 )[1], $tolerance )
+		assert_equal( 0.5, @v00.exterior_product( @v05 )[2], $tolerance )
+
+		assert_equal( 0.5, @v00.cross_product( @v05 )[2], $tolerance )
+		assert_equal( 0.5, @v00.vector_product( @v05 )[2], $tolerance )
+	end
+
+	def test_class
+		assert_equal( Vector3D, @v00.class )
+		assert_equal( Vector3D, ( @v00 - @v01 ).class )
+		assert_equal( Vector3D, ( @v00 * 3.0 ).class )
+		assert_equal( Vector3D, @v00.clone.class )
+		assert_equal( Vector3D, @v00.dup.class )
+
+		#assert_equal( Vector3D, @v00.collect{|x| x }.class )
+		#assert_equal( Vector3D, @v00.map{|x| x }.class )
+		#assert_equal( Vector3D, @v00.map2{|x| x }.class )
+	end
+
+	def test_equal_in_delta?
+		assert_raise(Vector3D::TypeError){@v00.equal_in_delta?( Vector[ 1.0, 0.0, 0.0 ])}
+		assert_raise(Vector3D::TypeError){@v00.equal_in_delta?( Vector3DInternal[ 1.0, 0.0, 0.0 ])}
+		assert_equal(true , @v00.equal_in_delta?( Vector3D[ 1.0, 0.0, 0.0 ]))
+		assert_equal(false, @v00.equal_in_delta?( Vector3D[ 1.0, 0.0, 0.1 ]))
+		assert_equal(true , @v00.equal_in_delta?( Vector3D[ 1.0, 0.0, 0.1 ], 1.0))
+	end
+
+	def test_plus
+		assert_raise( Vector3D::TypeError ){ @v07 + [0.0, 1.0, 2.0] }
+		assert_raise( Vector3D::TypeError ){ @v07 + Vector[0.0, 1.0, 2.0] }
+		assert_raise( Vector3D::TypeError ){ @v07 + Vector3DInternal[0.0, 1.0, 2.0] }
+
+		assert_equal( Vector3D, ( @v07 + @v08 ).class )
+		t = @v07 + @v08
+		assert_in_delta( 1.1, t[0], $tolerance )
+		assert_in_delta( 2.2, t[1], $tolerance )
+		assert_in_delta( 3.3, t[2], $tolerance )
+	end
+
+	def test_minus
+		assert_raise( Vector3D::TypeError ){ @v07 - [0.0, 1.0, 2.0] }
+		assert_raise( Vector3D::TypeError ){ @v07 - Vector[0.0, 1.0, 2.0] }
+		assert_raise( Vector3D::TypeError ){ @v07 - Vector3DInternal[0.0, 1.0, 2.0] }
+
+		assert_equal( Vector3D, ( @v07 - @v08 ).class )
+		t = @v07 - @v08
+		assert_in_delta( 0.9, t[0], $tolerance )
+		assert_in_delta( 1.8, t[1], $tolerance )
+		assert_in_delta( 2.7, t[2], $tolerance )
+	end
+
+	def test_multiply
+		assert_raise( Vector3D::TypeError ){ @v07 * [0.0, 1.0, 2.0] }
+		assert_raise( Vector3D::TypeError ){ @v07 * Vector[0.0, 1.0, 2.0] }
+		assert_raise( Vector3D::TypeError ){ @v07 * Vector3DInternal[0.0, 1.0, 2.0] }
+
+		t = @v07 * 3
+		assert_equal( Vector3D, t.class )
+		assert_in_delta( 3.0, t[0], $tolerance )
+		assert_in_delta( 6.0, t[1], $tolerance )
+		assert_in_delta( 9.0, t[2], $tolerance )
+
+		t = @v07 * 3.0
+		assert_equal( Vector3D, t.class )
+		assert_in_delta( 3.0, t[0], $tolerance )
+		assert_in_delta( 6.0, t[1], $tolerance )
+		assert_in_delta( 9.0, t[2], $tolerance )
+	end
+
+	def test_scalar_triple_product
+		#For class method
+		assert_raise( Vector3D::TypeError ){ Vector3D.scalar_triple_product( @v00, @v02, [1.0, 2.0, 3.0] )                 }
+		assert_raise( Vector3D::TypeError ){ Vector3D.scalar_triple_product( @v00, @v02, Vector[1.0, 2.0, 3.0] )           }
+		assert_raise( Vector3D::TypeError ){ Vector3D.scalar_triple_product( @v00, @v02, Vector3DInternal[1.0, 2.0, 3.0] ) }
+		assert_raise( Vector3D::TypeError ){ Vector3D.scalar_triple_product( @v00, [1.0, 2.0, 3.0]                , @v02 ) }
+		assert_raise( Vector3D::TypeError ){ Vector3D.scalar_triple_product( @v00, Vector[1.0, 2.0, 3.0]          , @v02 ) }
+		assert_raise( Vector3D::TypeError ){ Vector3D.scalar_triple_product( @v00, Vector3DInternal[1.0, 2.0, 3.0], @v02 ) }
+		assert_raise( Vector3D::TypeError ){ Vector3D.scalar_triple_product( [1.0, 2.0, 3.0]                , @v00, @v02 ) }
+		assert_raise( Vector3D::TypeError ){ Vector3D.scalar_triple_product( Vector[1.0, 2.0, 3.0]          , @v00, @v02 ) }
+		assert_raise( Vector3D::TypeError ){ Vector3D.scalar_triple_product( Vector3DInternal[1.0, 2.0, 3.0], @v00, @v02 ) }
+
+		assert_in_delta( 0.0, Vector3D.scalar_triple_product( @v00, @v01, @v02), $tolerance )
+		assert_in_delta( 1.0, Vector3D.scalar_triple_product( @v00, @v02, @v03), $tolerance )
+		assert_in_delta(-1.0, Vector3D.scalar_triple_product( @v00, @v03, @v02), $tolerance )
+		assert_in_delta( 0.0, Vector3D.scalar_triple_product( @v00, @v03, @v04), $tolerance )
+
+		#For instance method
+		assert_raise( Vector3D::TypeError ){ @v00.scalar_triple_product( @v02, [1.0, 2.0, 3.0] )                 }
+		assert_raise( Vector3D::TypeError ){ @v00.scalar_triple_product( @v02, Vector[1.0, 2.0, 3.0] )           }
+		assert_raise( Vector3D::TypeError ){ @v00.scalar_triple_product( @v02, Vector3DInternal[1.0, 2.0, 3.0] ) }
+		assert_raise( Vector3D::TypeError ){ @v00.scalar_triple_product( [1.0, 2.0, 3.0]                , @v02 ) }
+		assert_raise( Vector3D::TypeError ){ @v00.scalar_triple_product( Vector[1.0, 2.0, 3.0]          , @v02 ) }
+		assert_raise( Vector3D::TypeError ){ @v00.scalar_triple_product( Vector3DInternal[1.0, 2.0, 3.0], @v02 ) }
+
+		assert_in_delta( 0.0, @v00.scalar_triple_product( @v01, @v02), $tolerance )
+		assert_in_delta( 1.0, @v00.scalar_triple_product( @v02, @v03), $tolerance )
+		assert_in_delta(-1.0, @v00.scalar_triple_product( @v03, @v02), $tolerance )
+		assert_in_delta( 0.0, @v00.scalar_triple_product( @v03, @v04), $tolerance )
+
+		#どれかが Vector3D 以外の、Vector クラスで3要素のものだった場合は例外。
+	end
+
+	def test_angle_radian
+		#For class method
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_radian( @v00, [1.0, 2.0, 3.0] )                 }
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_radian( @v00, Vector[1.0, 2.0, 3.0] )           }
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_radian( @v00, Vector3DInternal[1.0, 2.0, 3.0] ) }
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_radian( [1.0, 2.0, 3.0]                , @v00 ) }
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_radian( Vector[1.0, 2.0, 3.0]          , @v00 ) }
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_radian( Vector3DInternal[1.0, 2.0, 3.0], @v00 ) }
+		assert_raise( Vector3D::ZeroOperation  ) { Vector3D.angle_radian( @v00, @v04) }
+
+		assert_in_delta( 0.0,          Vector3D.angle_radian( @v00, @v01), $tolerance )
+		assert_in_delta( PI/2.0,       Vector3D.angle_radian( @v00, @v02), $tolerance )
+		assert_in_delta( PI/2.0,       Vector3D.angle_radian( @v00, @v03), $tolerance )
+		assert_in_delta( PI/4.0,       Vector3D.angle_radian( @v00, @v05), $tolerance )
+
+		#For instance method
+		assert_raise( Vector3D::TypeError ) { @v00.angle_radian( [1.0, 2.0, 3.0] )                 }
+		assert_raise( Vector3D::TypeError ) { @v00.angle_radian( Vector[1.0, 2.0, 3.0] )           }
+		assert_raise( Vector3D::TypeError ) { @v00.angle_radian( Vector3DInternal[1.0, 2.0, 3.0] ) }
+		assert_raise( Vector3D::ZeroOperation  ){ @v00.angle_radian( @v04) }
+		assert_in_delta( 0.0,         @v00.angle_radian( @v01), $tolerance )
+		assert_in_delta( PI/2.0,      @v00.angle_radian( @v02), $tolerance )
+		assert_in_delta( PI/2.0,      @v00.angle_radian( @v03), $tolerance )
+		assert_in_delta( PI/4.0,      @v00.angle_radian( @v05), $tolerance )
+
+	end
+
+	def test_angle_degree
+		#For class method
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_degree( @v00, [1.0, 2.0, 3.0] )                 }
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_degree( @v00, Vector[1.0, 2.0, 3.0] )           }
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_degree( @v00, Vector3DInternal[1.0, 2.0, 3.0] ) }
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_degree( [1.0, 2.0, 3.0]                 , @v00 ) }
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_degree( Vector[1.0, 2.0, 3.0]           , @v00 ) }
+		assert_raise( Vector3D::TypeError ) { Vector3D.angle_degree( Vector3DInternal[1.0, 2.0, 3.0] , @v00 ) }
+		assert_raise( Vector3D::ZeroOperation  ) { Vector3D.angle_degree( @v00, @v04) }
+		assert_in_delta(  0.0,        Vector3D.angle_degree( @v00, @v01), $tolerance )
+		assert_in_delta( 90.0,        Vector3D.angle_degree( @v00, @v02), $tolerance )
+		assert_in_delta( 90.0,        Vector3D.angle_degree( @v00, @v03), $tolerance )
+		assert_in_delta( 45.0,        Vector3D.angle_degree( @v00, @v05), $tolerance )
+
+		#For instance method
+		assert_raise( Vector3D::TypeError ) { @v00.angle_degree( [1.0, 2.0, 3.0] )                 }
+		assert_raise( Vector3D::TypeError ) { @v00.angle_degree( Vector[1.0, 2.0, 3.0] )           }
+		assert_raise( Vector3D::TypeError ) { @v00.angle_degree( Vector3DInternal[1.0, 2.0, 3.0] ) }
+		assert_raise( Vector3D::ZeroOperation  ){ @v00.angle_degree( @v04) }
+		assert_in_delta(  0.0,        @v00.angle_degree( @v01), $tolerance )
+		assert_in_delta( 90.0,        @v00.angle_degree( @v02), $tolerance )
+		assert_in_delta( 90.0,        @v00.angle_degree( @v03), $tolerance )
+		assert_in_delta( 45.0,        @v00.angle_degree( @v05), $tolerance )
+
+		#どれかが Vector3D 以外の、Vector クラスで3要素のものだった場合は例外。
+	end
+
+	def test_to_v3di
+		array = [ [1.0, 1.0, 1.0], [0.0, 1.0, 1.0], [0.0, 0.0, 1.0] ]
+		assert_raise(Vector3D::TypeError){ Vector3D[ 2.0, 5.0, 9.0 ].to_v3di(array) }
+
+		axes = Axes.new(array)
+		t = Vector3D[ 2.0, 5.0, 9.0 ].to_v3di( axes )
+		assert_equal( Vector3DInternal, t.class )
+		assert_in_delta( 2.0, t[0], $tolerance )
+		assert_in_delta( 3.0, t[1], $tolerance )
+		assert_in_delta( 4.0, t[2], $tolerance )
+	end
+
+	def test_to_p3d
+		vA = Vector3D[ 2.0, 2.0, 2.0]
+		vB = Vector3D[ 0.0, 2.0, 2.0]
+		vC = Vector3D[ 0.0, 0.0, 2.0]
+		vD = Vector3D[-2.0,-2.0,-2.0]
+		vE = Vector3D[ 0.0,-2.0,-2.0]
+		vF = Vector3D[ 0.0, 0.0,-2.0]
+
+		assert_in_delta( 2.0*sqrt(3.0)       , vA.to_p3d.r    , $tolerance )
+		assert_in_delta( acos( sqrt(1/3.0) ) , vA.to_p3d.theta, $tolerance )
+		assert_in_delta( 0.25*PI             , vA.to_p3d.phi  , $tolerance )
+		assert_in_delta( 2.0*sqrt(2.0)       , vB.to_p3d.r    , $tolerance )
+		assert_in_delta( 0.25*PI             , vB.to_p3d.theta, $tolerance )
+		assert_in_delta( 0.50*PI             , vB.to_p3d.phi  , $tolerance )
+		assert_in_delta( 2.0                 , vC.to_p3d.r    , $tolerance )
+		assert_in_delta( 0.00*PI             , vC.to_p3d.theta, $tolerance )
+		assert_in_delta( 0.00*PI             , vC.to_p3d.phi  , $tolerance )
+
+		assert_in_delta( 2.0*sqrt(3.0)       , vD.to_p3d.r    , $tolerance )
+		assert_in_delta( 2.0*sqrt(2.0)       , vE.to_p3d.r    , $tolerance )
+		assert_in_delta( 2.0                 , vF.to_p3d.r    , $tolerance )
+
+		assert_in_delta( acos(-sqrt(1/3.0) ) , vD.to_p3d.theta, $tolerance )
+		assert_in_delta( 0.75*PI             , vE.to_p3d.theta, $tolerance )
+		assert_in_delta( 1.00*PI             , vF.to_p3d.theta, $tolerance )
+
+		assert_in_delta( 1.25*PI             , vD.to_p3d.phi  , $tolerance )
+		assert_in_delta( 1.50*PI             , vE.to_p3d.phi  , $tolerance )
+		assert_in_delta( 0.00*PI             , vF.to_p3d.phi  , $tolerance )
+	end
+
+	def test_rotate_axis!
+		vA = Vector3D[ 2.0, 2.0, 2.0 ]
+		assert_raise( Vector3D::RangeError ){ vA.rotate_axis!( -1, 0.25*PI ) }
+		assert_raise( Vector3D::RangeError ){ vA.rotate_axis!(  3, 0.25*PI ) }
+
+		r8 = sqrt(8.0)
+		vA = Vector3D[ 2.0, 2.0, 2.0 ]
+
+		vA.rotate_axis!( 0, 0.25*PI )
+		assert_equal( Vector3D  , vA.class )
+
+		vA = Vector3D[ 2.0, 2.0, 2.0 ]
+		vA.rotate_axis!( 0, 0.25*PI )
+		assert_in_delta( 2.0, vA[0], $tolerance )
+		assert_in_delta( 0.0, vA[1], $tolerance )
+		assert_in_delta( r8 , vA[2], $tolerance )
+
+		vA = Vector3D[ 2.0, 2.0, 2.0 ]
+		vA.rotate_axis!( 1, 0.25*PI )
+		assert_in_delta( r8 , vA[0], $tolerance )
+		assert_in_delta( 2.0, vA[1], $tolerance )
+		assert_in_delta( 0.0, vA[2], $tolerance )
+
+		vA = Vector3D[ 2.0, 2.0, 2.0 ]
+		vA.rotate_axis!( 2, 0.25*PI )
+		assert_in_delta( 0.0, vA[0], $tolerance )
+		assert_in_delta( r8 , vA[1], $tolerance )
+		assert_in_delta( 2.0, vA[2], $tolerance )
+
+		vA = Vector3D[ 2.0, 2.0, 2.0 ]
+		vA.rotate_axis!( 0, -0.25*PI )
+		assert_in_delta( 2.0, vA[0], $tolerance )
+		assert_in_delta( r8 , vA[1], $tolerance )
+		assert_in_delta( 0.0, vA[2], $tolerance )
+
+		vA = Vector3D[ 2.0, 2.0, 2.0 ]
+		vA.rotate_axis!( 1, -0.25*PI )
+		assert_in_delta( 0.0, vA[0], $tolerance )
+		assert_in_delta( 2.0, vA[1], $tolerance )
+		assert_in_delta( r8 , vA[2], $tolerance )
+
+		vA = Vector3D[ 2.0, 2.0, 2.0 ]
+		vA.rotate_axis!( 2, -0.25*PI )
+		assert_in_delta( r8 , vA[0], $tolerance )
+		assert_in_delta( 0.0, vA[1], $tolerance )
+		assert_in_delta( 2.0, vA[2], $tolerance )
+	end
+
+	def test_rotate_axis
+		vA = Vector3D[ 2.0, 2.0, 2.0 ]
+		assert_raise( Vector3D::RangeError ){ vA.rotate_axis( -1, 0.25*PI ) }
+		assert_raise( Vector3D::RangeError ){ vA.rotate_axis(  3, 0.25*PI ) }
+
+		r8 = sqrt(8.0)
+		assert_equal( Vector3D                 , vA.rotate_axis( 0, 0.25*PI ).class )
+		assert_equal( Vector3D                 , vA.rotate_axis( 1, 0.25*PI ).class )
+		assert_equal( Vector3D                 , vA.rotate_axis( 2, 0.25*PI ).class )
+
+		assert_in_delta( 2.0, vA.rotate_axis( 0, 0.25*PI )[0], $tolerance )
+		assert_in_delta( 0.0, vA.rotate_axis( 0, 0.25*PI )[1], $tolerance )
+		assert_in_delta( r8 , vA.rotate_axis( 0, 0.25*PI )[2], $tolerance )
+		assert_in_delta( r8 , vA.rotate_axis( 1, 0.25*PI )[0], $tolerance )
+		assert_in_delta( 2.0, vA.rotate_axis( 1, 0.25*PI )[1], $tolerance )
+		assert_in_delta( 0.0, vA.rotate_axis( 1, 0.25*PI )[2], $tolerance )
+		assert_in_delta( 0.0, vA.rotate_axis( 2, 0.25*PI )[0], $tolerance )
+		assert_in_delta( r8 , vA.rotate_axis( 2, 0.25*PI )[1], $tolerance )
+		assert_in_delta( 2.0, vA.rotate_axis( 2, 0.25*PI )[2], $tolerance )
+
+		assert_in_delta( 2.0, vA.rotate_axis( 0, -0.25*PI )[0], $tolerance )
+		assert_in_delta( r8 , vA.rotate_axis( 0, -0.25*PI )[1], $tolerance )
+		assert_in_delta( 0.0, vA.rotate_axis( 0, -0.25*PI )[2], $tolerance )
+		assert_in_delta( 0.0, vA.rotate_axis( 1, -0.25*PI )[0], $tolerance )
+		assert_in_delta( 2.0, vA.rotate_axis( 1, -0.25*PI )[1], $tolerance )
+		assert_in_delta( r8 , vA.rotate_axis( 1, -0.25*PI )[2], $tolerance )
+		assert_in_delta( r8 , vA.rotate_axis( 2, -0.25*PI )[0], $tolerance )
+		assert_in_delta( 0.0, vA.rotate_axis( 2, -0.25*PI )[1], $tolerance )
+		assert_in_delta( 2.0, vA.rotate_axis( 2, -0.25*PI )[2], $tolerance )
+	end
+
+end
+