figurate_numbers 0.0.9

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 5db66d95b652260cf17eb02c7cb04ee509e327a736541fa957b3050b68cb0fbd
+  data.tar.gz: 3d4e572eb205c255cefa638e7730be18b0115d749b60892cf018aa5e88e94312
+SHA512:
+  metadata.gz: c2aaec998a13c0baa7a6251e1926f3bd4a63e0dd48523c6d995d286184f4266bcb3617d5352e7cf27a5197f52e2341419bc68f2097d99d086cd9bf8df218da79
+  data.tar.gz: 4b49273eac1939259f938ae07bc1f3c34feb3bd4e868bf8e04a0b734f9ef17f7e448f551907868b4950f8af96cafde568aa3e75a8605e926c629f0d1ce8d31a8

data/lib/figurate_numbers.rb

@@ -0,0 +1,516 @@
+# A module based on the book Figurate Numbers(2012) by Elena Deza & Michel Deza
+
+module FigurateNumbers
+
+  # Plane figurate numbers
+  def FigurateNumbers.polygonal_numbers(m)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << ((m - 2) * delta**2 - (m - 4) * delta) / 2
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_pol_numbers(k)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (k * delta**2 - k * delta + 2) / 2
+      end
+    end
+  end
+
+  def FigurateNumbers.pronic_numbers
+    (1..Float::INFINITY).lazy.collect { |delta| delta * (delta + 1)}
+  end
+
+  def FigurateNumbers.cross_numbers
+    (1..Float::INFINITY).lazy.collect { |delta| 4 * delta - 3}
+  end
+
+  def FigurateNumbers.aztec_diamond_numbers
+    (1..Float::INFINITY).lazy.collect { |delta| (2 * delta) * (delta + 1)}
+  end
+
+  def FigurateNumbers.polygram_numbers(m)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << m  * delta**2 - m * delta + 1
+      end
+    end
+  end
+
+  def FigurateNumbers.gnomic_numbers
+    (1..Float::INFINITY).lazy.collect { |delta| 2 * delta - 1}
+  end
+
+  def FigurateNumbers.truncated_triangular_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (3 * delta**2) - (3 * delta) + 1
+      end
+    end
+  end
+
+  def FigurateNumbers.truncated_square_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (7 * delta**2) - (10 * delta) + 4
+      end
+    end
+  end
+
+  def FigurateNumbers.truncated_pronic_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (7 * delta**2) - (7 * delta) + 2
+      end
+    end
+  end
+
+  def FigurateNumbers.truncated_center_pol_numbers(k)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << 1 + (k * (7 * delta**2 - 11 * delta + 4)) / 2
+      end
+    end
+  end
+
+  ## Space figurate numbers
+  def FigurateNumbers.r_pyramidal_numbers(r = 3)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+          y << (3 * delta**2 + delta**3 * (r - 2) - delta * (r - 5)) / 6
+      end
+    end
+  end
+
+  def FigurateNumbers.cubic_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << delta**3
+      end
+    end
+  end
+
+  def FigurateNumbers.tetrahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta * (delta + 1) * (delta + 2)) / 6
+      end
+    end
+  end
+
+  def FigurateNumbers.octahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta * (2 * delta**2 + 1)) / 3
+      end
+    end
+  end
+
+  def FigurateNumbers.dodecahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta * (3 * delta -1) * (3 * delta - 2)) / 2
+      end
+    end
+  end
+
+  def FigurateNumbers.icosahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta * (5 * delta**2 - 5 * delta + 2)) / 2
+      end
+    end
+  end
+
+  def FigurateNumbers.truncated_tetrahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (23 * delta**2 - 27 * delta + 10) * delta / 6
+      end
+    end
+  end
+
+  def FigurateNumbers.truncated_cubic_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (3 * delta - 2)**3 - ((8 * (delta - 1) * delta * (delta + 1)) / 6)
+      end
+    end
+  end
+
+  def FigurateNumbers.truncated_octahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (16 * delta**3 - 33 * delta**2 + 24 * delta - 6)
+      end
+    end
+  end
+
+  def FigurateNumbers.stella_octangula_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << delta * (2 * delta**2 - 1)
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_cube_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * (delta**2 - delta + 1)
+      end
+    end
+  end
+
+  def FigurateNumbers.rhombic_dodecahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * (2 * delta**2 - 2 * delta + 1)
+      end
+    end
+  end
+
+  def FigurateNumbers.hauy_rhombic_dodecahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * (8 * delta**2 - 14 * delta + 7)
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_tetrahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * ((delta**2 - delta + 3)) / 3
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_square_pyramid_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * ((delta**2 - delta + 2)) / 2
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_pentagonal_pyramid_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * ( 2 * delta**2 - 2 * delta + 3) / 3
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_hexagonal_pyramid_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * (5 * delta**2 - 5 * delta + 6) / 6
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_heptagonal_pyramid_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * (delta**2 - delta + 1)
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_octagonal_pyramid_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * (7 * delta**2 - 7 * delta + 6) / 6
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_icosahedron_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * (5 * delta**2 - 5 * delta + 3) / 3
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_dodecahedron_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta - 1) * (3 * delta**2 - 3 * delta + 1)
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_mgonal_pyramid_numbers(m)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (m - 1) * ((delta - 1) * delta * (2 * delta - 1)) / 6 + (2 * delta - 1)
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_mgonal_pyramidal_numbers(m)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (m * delta**3 + delta * (6 - m)) / 6
+      end
+    end
+  end
+
+  def FigurateNumbers.hexagonal_prism_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y <<  delta * ( 3 * delta**2 - 3 * delta + 1)
+      end
+    end
+  end
+
+  def FigurateNumbers.generalized_mgonal_pyramidal_numbers(m, left_index = 0)
+    Enumerator.new do |y|
+      ((-1 * left_index.abs)..Float::INFINITY).each do |delta|
+        y << (delta * (delta + 1) * ((m - 2) * delta - m + 5 )) / 6
+      end
+    end
+  end
+
+  def FigurateNumbers.generalized_icosahedral_numbers(left_index = 0)
+    Enumerator.new do |y|
+      ((-1 * left_index.abs)..Float::INFINITY).each do |delta|
+        y << ( 5 * delta**2 - 5 * delta + 2 ) * delta /  2
+      end
+    end
+  end
+
+  def FigurateNumbers.generalized_dodecahedral_numbers(left_index = 0)
+    Enumerator.new do |y|
+      ((-1 * left_index.abs)..Float::INFINITY).each do |delta|
+        y << (9 * delta**2 - 9 * delta + 2) * delta /  2
+      end
+    end
+  end
+
+  def FigurateNumbers.generalized_hexagonal_prism_numbers(left_index = 0)
+    Enumerator.new do |y|
+      ((-1 * left_index.abs)..Float::INFINITY).each do |delta|
+        y << delta * (3 * delta**2 - 3 * delta + 1)
+      end
+    end
+  end
+
+  ## Multidimensional figurate numbers
+  def FigurateNumbers.factorial_iter(num)
+    t = 1
+    (1..num).each do |i|
+      t = t * i
+    end
+    t
+  end
+
+  def FigurateNumbers.binomial_coefficient(n, k)
+    factorial_iter(n) / (factorial_iter(k) * factorial_iter(n - k))
+  end
+
+  private_class_method :factorial_iter
+  private_class_method :binomial_coefficient
+
+  def FigurateNumbers.pentatope_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta * (delta + 1) * (delta + 2) * (delta + 3)) / 24
+      end
+    end
+  end
+
+  def FigurateNumbers.k_dimensional_hypertetrahedron_numbers(k)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << binomial_coefficient(delta + (k - 1), k)
+      end
+    end
+  end
+
+  def FigurateNumbers.biquadratic_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << delta**4
+      end
+    end
+  end
+
+  def FigurateNumbers.k_dimensional_hypercube_numbers(k)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << delta**k
+      end
+    end
+  end
+
+  def FigurateNumbers.hyperoctahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta**2 * (delta**2 + 2)) / 3
+      end
+    end
+  end
+
+  def FigurateNumbers.hypericosahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta  * (145 * delta ** 3 - 280 * delta**2 + 179 * delta - 38)) / 6
+      end
+    end
+  end
+
+  def FigurateNumbers.hyperdodecahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta  * (261 * delta**3 - 504 * delta**2 + 283 * delta - 38)) / 2
+      end
+    end
+  end
+
+  def FigurateNumbers.polyoctahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << delta**2 * (3 * delta**2 - 4 * delta + 2)
+      end
+    end
+  end
+
+  def FigurateNumbers.four_dimensional_pyramidal_numbers(m)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta * (delta + 1) * (delta + 2) *  ((m - 2) * delta - m + 6)) / 24
+      end
+    end
+  end
+
+  def FigurateNumbers.five_dimensional_pyramidal_numbers(m)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta * (delta + 1) * (delta + 2) * (delta + 3) *  ((m - 2) * delta - m + 7)) / 120
+      end
+    end
+  end
+
+  def FigurateNumbers.six_dimensional_pyramidal_numbers(m)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (delta * (delta + 1) * (delta + 2) * (delta + 3) * (delta + 4) * ((m - 2) * delta - m + 8)) / 720
+      end
+    end
+  end
+
+  def FigurateNumbers.pseudo_rising_factorial(n, k)
+    t = 1
+    (n..(n + k - 2)).each do |i|
+      t *= i
+    end
+    t
+  end
+
+  def FigurateNumbers.pseudo_pochhammer_function(n, k)
+    (n..(n + k - 2)).reduce(:*)
+  end
+
+  private_class_method :pseudo_rising_factorial
+  private_class_method :pseudo_pochhammer_function
+
+  def FigurateNumbers.k_dimensional_pyramidal_numbers(k, m)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |n|
+        y << (pseudo_pochhammer_function(n, k) * ((m - 2) * n - m + k + 2)) /
+        factorial_iter(k)
+      end
+    end
+  end
+
+  def FigurateNumbers.k_dimensional_centered_hypercube_numbers(k)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << delta**k + (delta - 1)**k
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_polytope_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (5 * delta**4 - 10 * delta**3 + 55 * delta**2 - 50 * delta + 24) / 24
+      end
+    end
+  end
+
+  def FigurateNumbers.helper_centered_hypertetrahedron(k, n)
+    return 1 if n == 1
+    t =  binomial_coefficient(k + 1, k)
+    return t if n == 2
+    tau = 0
+    (0..k-1).each do |i|
+      tau += binomial_coefficient(k + 1, k - i) * binomial_coefficient(n - 2, i)
+    end
+    tau
+  end
+
+  def FigurateNumbers.acc_helper_centered_hypertetrahedron(k, n)
+    a = 0
+    (1..n).each do |j|
+      a += helper_centered_hypertetrahedron(k, j)
+    end
+    a
+  end
+
+  private_class_method :helper_centered_hypertetrahedron
+  private_class_method :acc_helper_centered_hypertetrahedron
+
+  def FigurateNumbers.k_dimensional_centered_hypertetrahedron_numbers(k)
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |n|
+        y << acc_helper_centered_hypertetrahedron(k, n)
+      end
+    end
+  end
+
+  def FigurateNumbers.centered_hyperotahedral_numbers
+    Enumerator.new do |y|
+      (1..Float::INFINITY).each do |delta|
+        y << (2 * delta**4 - 4 * delta**3 + 10 * delta**2 - 8 * delta + 3) / 3
+      end
+    end
+  end
+
+  def FigurateNumbers.nexus_numbers(k)
+    Enumerator.new do |y|
+      (0..Float::INFINITY).each do |n|
+        y << (n + 1)**(k + 1) - (n**(k + 1))
+      end
+    end
+  end
+
+  def FigurateNumbers.ext_int_double_summation(k, n)
+    t = ((2**(1)) * binomial_coefficient(k, 1) * binomial_coefficient(1, 0))
+    return (t + 1) if n == 1
+    a = 0
+    (1..(n - 1)).each do |j|
+      (0..(k - 1)).each do |i|
+        a += (2**(1 + i)) * binomial_coefficient(k, 1 + i) * binomial_coefficient(j, i)
+      end
+    end
+    (1 + t + a)
+  end
+
+  private_class_method :ext_int_double_summation
+
+  def FigurateNumbers.k_dimensional_centered_hyperoctahedron_numbers(k)
+    Enumerator.new do |y|
+      y << 1
+      (1..Float::INFINITY).each do |n|
+        y << ext_int_double_summation(k, n)
+      end
+    end
+  end
+
+end

metadata

@@ -0,0 +1,45 @@
+--- !ruby/object:Gem::Specification
+name: figurate_numbers
+version: !ruby/object:Gem::Version
+  version: 0.0.9
+platform: ruby
+authors:
+- Edgar Armando Delgado Vega
+autorequire:
+bindir: bin
+cert_chain: []
+date: 2024-06-15 00:00:00.000000000 Z
+dependencies: []
+description: Implementation of sequences of figurate numbers in the plane, space and
+  multidimensional using the enumerator class. Intended for use in Sonic Pi.
+email: edelve91@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/figurate_numbers.rb
+homepage: https://rubygems.org/gems/figurate_numbers
+licenses:
+- MIT
+metadata: {}
+post_install_message:
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.3.7
+signing_key:
+specification_version: 4
+summary: Generates sequences of figurative numbers based on the book Figurate Numbers(2012)
+  by Elena Deza and Michel Deza
+test_files: []