RubyGems - algebra - Versions diffs - 0.2.1 - Mend

algebra 0.2.1

Files changed (199) hide show

checksums.yaml +7 -0
data/.gitignore +53 -0
data/.travis.yml +7 -0
data/CODE_OF_CONDUCT.md +49 -0
data/Gemfile +7 -0
data/Gemfile.lock +28 -0
data/LICENSE.txt +21 -0
data/README-ja.txt +60 -0
data/README.md +61 -0
data/Rakefile +43 -0
data/algebra.gemspec +33 -0
data/bin/console +14 -0
data/bin/setup +8 -0
data/doc-ja/README-ja.html +69 -0
data/doc-ja/README-ja.rd +60 -0
data/doc-ja/README.html +0 -0
data/doc-ja/README.rd +0 -0
data/doc-ja/algebra-ja.html +66 -0
data/doc-ja/algebra-ja.rd +60 -0
data/doc-ja/algebraic-equation-ja.html +36 -0
data/doc-ja/algebraic-equation-ja.rd +26 -0
data/doc-ja/algebraic-extension-field-ja.html +122 -0
data/doc-ja/algebraic-extension-field-ja.rd +118 -0
data/doc-ja/algebraic-parser-ja.html +87 -0
data/doc-ja/algebraic-parser-ja.rd +95 -0
data/doc-ja/changes.html +161 -0
data/doc-ja/changes.rd +119 -0
data/doc-ja/elementary-divisor-ja.html +56 -0
data/doc-ja/elementary-divisor-ja.rd +45 -0
data/doc-ja/euclidian-ring-ja.html +78 -0
data/doc-ja/euclidian-ring-ja.rd +69 -0
data/doc-ja/finite-group-ja.html +285 -0
data/doc-ja/finite-group-ja.rd +276 -0
data/doc-ja/finite-map-ja.html +224 -0
data/doc-ja/finite-map-ja.rd +227 -0
data/doc-ja/finite-set-ja.html +393 -0
data/doc-ja/finite-set-ja.rd +408 -0
data/doc-ja/index-ja.html +113 -0
data/doc-ja/index-ja.rd +112 -0
data/doc-ja/jordan-form-ja.html +106 -0
data/doc-ja/jordan-form-ja.rd +99 -0
data/doc-ja/localized-ring-ja.html +121 -0
data/doc-ja/localized-ring-ja.rd +131 -0
data/doc-ja/m-polynomial-ja.html +542 -0
data/doc-ja/m-polynomial-ja.rd +596 -0
data/doc-ja/matrix-algebra-ja.html +686 -0
data/doc-ja/matrix-algebra-ja.rd +727 -0
data/doc-ja/matrix-algebra-triplet-ja.html +124 -0
data/doc-ja/matrix-algebra-triplet-ja.rd +129 -0
data/doc-ja/permutation-group-ja.html +159 -0
data/doc-ja/permutation-group-ja.rd +151 -0
data/doc-ja/polynomial-converter-ja.html +64 -0
data/doc-ja/polynomial-converter-ja.rd +54 -0
data/doc-ja/polynomial-ja.html +446 -0
data/doc-ja/polynomial-ja.rd +473 -0
data/doc-ja/residue-class-ring-ja.html +112 -0
data/doc-ja/residue-class-ring-ja.rd +113 -0
data/doc-ja/sample-algebraic-equation01.rb.v.rd +11 -0
data/doc-ja/sample-algebraic-equation02.rb.v.rd +11 -0
data/doc-ja/sample-algebraic-root01.rb.v.rd +20 -0
data/doc-ja/sample-algebraicfield01.rb.v.rd +26 -0
data/doc-ja/sample-algebraicfield02.rb.v.rd +15 -0
data/doc-ja/sample-cayleyhamilton01.rb.v.rd +14 -0
data/doc-ja/sample-diagonalization01.rb.v.rd +48 -0
data/doc-ja/sample-divmod01.rb.v.rd +17 -0
data/doc-ja/sample-elementary-divisor01.rb.v.rd +48 -0
data/doc-ja/sample-factorize01.rb.v.rd +11 -0
data/doc-ja/sample-factorize02.rb.v.rd +13 -0
data/doc-ja/sample-factorize03.rb.v.rd +14 -0
data/doc-ja/sample-factorize04.rb.v.rd +14 -0
data/doc-ja/sample-factorize05.rb.v.rd +53 -0
data/doc-ja/sample-galois-group01.rb.v.rd +27 -0
data/doc-ja/sample-gaussian-elimination01.rb.v.rd +19 -0
data/doc-ja/sample-geometry01.rb.v.rd +33 -0
data/doc-ja/sample-geometry02.rb.v.rd +34 -0
data/doc-ja/sample-geometry03.rb.v.rd +45 -0
data/doc-ja/sample-geometry04.rb.v.rd +33 -0
data/doc-ja/sample-geometry07.rb.v.rd +62 -0
data/doc-ja/sample-groebner01.rb.v.rd +13 -0
data/doc-ja/sample-groebner02.rb.v.rd +18 -0
data/doc-ja/sample-groebner03.rb.v.rd +19 -0
data/doc-ja/sample-group01.rb.v.rd +21 -0
data/doc-ja/sample-jordan-form01.rb.v.rd +56 -0
data/doc-ja/sample-jordanform01.rb.v.rd +55 -0
data/doc-ja/sample-lagrange-multiplier01.rb.v.rd +35 -0
data/doc-ja/sample-m-factorize01.rb.v.rd +15 -0
data/doc-ja/sample-m-factorize02.rb.v.rd +12 -0
data/doc-ja/sample-m-polynomial01.rb.v.rd +10 -0
data/doc-ja/sample-map01.rb.v.rd +9 -0
data/doc-ja/sample-polynomial01.rb.v.rd +9 -0
data/doc-ja/sample-polynomial02.rb.v.rd +11 -0
data/doc-ja/sample-primefield01.rb.v.rd +13 -0
data/doc-ja/sample-quotientfield01.rb.v.rd +11 -0
data/doc-ja/sample-quotientfield02.rb.v.rd +18 -0
data/doc-ja/sample-quotientfield03.rb.v.rd +16 -0
data/doc-ja/sample-quotientfield04.rb.v.rd +16 -0
data/doc-ja/sample-set01.rb.v.rd +18 -0
data/doc-ja/sample-splitting-field01.rb.v.rd +19 -0
data/doc-ja/samples-ja.html +885 -0
data/doc-ja/samples-ja.rd +221 -0
data/doc-ja/style.css +85 -0
data/doc-ja/todo.html +20 -0
data/doc-ja/todo.rd +9 -0
data/lib/algebra.rb +36 -0
data/lib/algebra/algebraic-equation.rb +56 -0
data/lib/algebra/algebraic-extension-field.rb +135 -0
data/lib/algebra/algebraic-parser.rb +160 -0
data/lib/algebra/algebraic-system.rb +224 -0
data/lib/algebra/annihilate.rb +52 -0
data/lib/algebra/array-supplement.rb +53 -0
data/lib/algebra/auto-require.rb +84 -0
data/lib/algebra/chinese-rem-th.rb +135 -0
data/lib/algebra/combinatorial.rb +145 -0
data/lib/algebra/elementary-divisor.rb +193 -0
data/lib/algebra/euclidian-ring.rb +161 -0
data/lib/algebra/factors.rb +305 -0
data/lib/algebra/finite-group.rb +374 -0
data/lib/algebra/finite-map.rb +201 -0
data/lib/algebra/finite-set.rb +456 -0
data/lib/algebra/galois-group.rb +129 -0
data/lib/algebra/gaussian-elimination.rb +385 -0
data/lib/algebra/groebner-basis-coeff.rb +228 -0
data/lib/algebra/groebner-basis.rb +197 -0
data/lib/algebra/import-module-single-thread.rb +86 -0
data/lib/algebra/import-module.rb +491 -0
data/lib/algebra/jordan-form.rb +114 -0
data/lib/algebra/linear-algebra.rb +143 -0
data/lib/algebra/localized-ring.rb +294 -0
data/lib/algebra/m-index.rb +282 -0
data/lib/algebra/m-polynomial-factor-int.rb +186 -0
data/lib/algebra/m-polynomial-factor-zp.rb +114 -0
data/lib/algebra/m-polynomial-factor.rb +315 -0
data/lib/algebra/m-polynomial-gcd.rb +40 -0
data/lib/algebra/m-polynomial.rb +875 -0
data/lib/algebra/matrix-algebra-triplet.rb +292 -0
data/lib/algebra/matrix-algebra.rb +929 -0
data/lib/algebra/numeric-supplement.rb +123 -0
data/lib/algebra/permutation-group.rb +257 -0
data/lib/algebra/polynomial-converter.rb +193 -0
data/lib/algebra/polynomial-factor-alg.rb +148 -0
data/lib/algebra/polynomial-factor-int.rb +252 -0
data/lib/algebra/polynomial-factor-zp.rb +165 -0
data/lib/algebra/polynomial-factor.rb +140 -0
data/lib/algebra/polynomial.rb +592 -0
data/lib/algebra/powers.rb +31 -0
data/lib/algebra/prime-gen.rb +32 -0
data/lib/algebra/rational.rb +81 -0
data/lib/algebra/residue-class-ring.rb +219 -0
data/lib/algebra/sets-system.rb +43 -0
data/lib/algebra/splitting-field.rb +103 -0
data/lib/algebra/version.rb +3 -0
data/sample/Makefile +10 -0
data/sample/do-testscripts.rb +100 -0
data/sample/sample-algebraic-equation01.rb +6 -0
data/sample/sample-algebraic-equation02.rb +6 -0
data/sample/sample-algebraic-root01.rb +15 -0
data/sample/sample-algebraicfield01.rb +21 -0
data/sample/sample-algebraicfield02.rb +10 -0
data/sample/sample-cayleyhamilton01.rb +9 -0
data/sample/sample-diagonalization01.rb +43 -0
data/sample/sample-divmod01.rb +12 -0
data/sample/sample-elementary-divisor01.rb +43 -0
data/sample/sample-factorize01.rb +6 -0
data/sample/sample-factorize02.rb +8 -0
data/sample/sample-factorize03.rb +9 -0
data/sample/sample-factorize04.rb +9 -0
data/sample/sample-factorize05.rb +48 -0
data/sample/sample-galois-group01.rb +22 -0
data/sample/sample-gaussian-elimination01.rb +14 -0
data/sample/sample-geometry01.rb +28 -0
data/sample/sample-geometry02.rb +29 -0
data/sample/sample-geometry03.rb +40 -0
data/sample/sample-geometry04.rb +28 -0
data/sample/sample-geometry07.rb +58 -0
data/sample/sample-groebner01.rb +8 -0
data/sample/sample-groebner02.rb +13 -0
data/sample/sample-groebner03.rb +14 -0
data/sample/sample-group01.rb +16 -0
data/sample/sample-jordan-form01.rb +51 -0
data/sample/sample-lagrange-multiplier01.rb +30 -0
data/sample/sample-m-factorize01.rb +10 -0
data/sample/sample-m-factorize02.rb +7 -0
data/sample/sample-m-polynomial01.rb +5 -0
data/sample/sample-map01.rb +4 -0
data/sample/sample-polynomial01.rb +4 -0
data/sample/sample-polynomial02.rb +6 -0
data/sample/sample-primefield01.rb +8 -0
data/sample/sample-quotientfield01.rb +6 -0
data/sample/sample-quotientfield02.rb +13 -0
data/sample/sample-quotientfield03.rb +11 -0
data/sample/sample-quotientfield04.rb +11 -0
data/sample/sample-set01.rb +13 -0
data/sample/sample-splitting-field01.rb +14 -0
data/sample/test-00-cayley-hamilton.rb +76 -0
data/sample/test-00-groebner-basis.rb +274 -0
data/sample/test-00-polynomial-factor-alg.rb +89 -0
data/sample/test-00.list +4 -0
data/sample/time-trial.rb +65 -0
metadata +373 -0

data/doc-ja/residue-class-ring-ja.html ADDED

@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<!DOCTYPE html
+  PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+<meta http-equiv="Content-type" content="text/html; charset=utf-8" />
+<title>doc-ja/residue-class-ring-ja.rd</title>
+<link href="style.css" type="text/css" rel="stylesheet" />
+</head>
+<body>
+<p>[<a href="index-ja.html">index-ja</a>] </p>
+<h1><a name="label-0" id="label-0">Algebra::ResidueClassRing</a></h1><!-- RDLabel: "Algebra::ResidueClassRing" -->
+<p><em>(剰余環クラス)</em></p>
+<p>環からその1つの元を法とした剰余環を構成します。実際のクラスを生成するには環
+と法とを指定して、クラスメソッド <a href="#label-7">::create</a> あるいは
+関数 <a href="#label-5">Algebra.ResidueClassRing</a>() を用います。</p>
+<h2><a name="label-1" id="label-1">ファイル名:</a></h2><!-- RDLabel: "ファイル名:" -->
+<ul>
+<li><var>residue-class-ring.rb</var></li>
+</ul>
+<h2><a name="label-2" id="label-2">スーパークラス:</a></h2><!-- RDLabel: "スーパークラス:" -->
+<ul>
+<li><var>Object</var></li>
+</ul>
+<h2><a name="label-3" id="label-3">インクルードしているモジュール:</a></h2><!-- RDLabel: "インクルードしているモジュール:" -->
+<p>なし</p>
+<h2><a name="label-4" id="label-4">関連する関数:</a></h2><!-- RDLabel: "関連する関数:" -->
+<dl>
+<dt><a name="label-5" id="label-5"><code>Algebra.ResidueClassRing(<var>ring</var>, <var>mod</var>)</code></a></dt><!-- RDLabel: "Algebra.ResidueClassRing" -->
+<dd>
+<a href="#label-7">::create</a>(ring, mod) と同じです。</dd>
+</dl>
+<h2><a name="label-6" id="label-6">クラスメソッド:</a></h2><!-- RDLabel: "クラスメソッド:" -->
+<dl>
+<dt><a name="label-7" id="label-7"><code>::create(<var>ring</var>, <var>mod</var>)</code></a></dt><!-- RDLabel: "::create" -->
+<dd>
+<p>クラス <var>ring</var> で表現されるを環とその環の元 <var>mod</var> から、
+その元を法とした剰余環を表現するクラスを返します。</p>
+<p>この戻り値は <a href="#label-0">Algebra::ResidueClassRing</a> クラスのサブクラスです。
+このサブクラスにはクラスメソッドとして <var>::ground</var> と
+<var>::modulus</var> と <code>[x]</code> が定義され、それぞれ、基礎環 <var>ring</var>、
+法 <var>mod</var>、x を代表元とする剰余類を返します。</p>
+<p>例: 多項式環を法 <code>x**2 + x + 1</code> で割る。</p>
+<pre>require "rational"
+require "polynomial"
+require "residue-class-ring"
+Px = Algebra.Polynomial(Rational, "x")
+x = Px.var
+F = Algebra.ResidueClassRing(Px, x**2 + x + 1)
+p F[x + 1]**100     #=&gt; -x - 1</pre>
+<p><var>ring</var> が Integer である場合に限り、全ての逆数を予め計算して
+保管します。また <code>0, 1, ... , mod-1</code> に対応する剰余類の配列を
+<var>to_ary</var> で得ることができます。</p>
+<p>例: modulo 7 の素体</p>
+<pre>require "residue-class-ring"
+F7 = Algebra::ResidueClassRing.create(Integer, 7)
+a, b, c, d, e, f, g = F7
+p [e + c, e - c, e * c, e * 2001, 3 + c, 1/c, 1/c * c]
+  #=&gt; [6, 2, 1, 3, 5, 4, 1]
+p( (1...7).collect{|i| F7[i]**6} )
+  #=&gt; [1, 1, 1, 1, 1, 1]</pre></dd>
+<dt><a name="label-8" id="label-8"><code>::[<var>x</var>]</code></a></dt><!-- RDLabel: "::[]" -->
+<dd>
+<var>x</var> で代表される剰余類を返します。</dd>
+<dt><a name="label-9" id="label-9"><code>::zero</code></a></dt><!-- RDLabel: "::zero" -->
+<dd>
+零元を返します。</dd>
+<dt><a name="label-10" id="label-10"><code>::unity</code></a></dt><!-- RDLabel: "::unity" -->
+<dd>
+単位元を返します。</dd>
+</dl>
+<h2><a name="label-11" id="label-11">メソッド:</a></h2><!-- RDLabel: "メソッド:" -->
+<dl>
+<dt><a name="label-12" id="label-12"><code>lift</code></a></dt><!-- RDLabel: "lift" -->
+<dd>
+剰余類の代表元を返します。</dd>
+<dt><a name="label-13" id="label-13"><code>zero?</code></a></dt><!-- RDLabel: "zero?" -->
+<dd>
+零元であるとき真を返します。</dd>
+<dt><a name="label-14" id="label-14"><code>zero</code></a></dt><!-- RDLabel: "zero" -->
+<dd>
+零元を返します。</dd>
+<dt><a name="label-15" id="label-15"><code>unity</code></a></dt><!-- RDLabel: "unity" -->
+<dd>
+単位元を返します。</dd>
+<dt><a name="label-16" id="label-16"><code>==(<var>other</var>)</code></a></dt><!-- RDLabel: "==" -->
+<dd>
+等しいとき真を返します。</dd>
+<dt><a name="label-17" id="label-17"><code>+(<var>other</var>)</code></a></dt><!-- RDLabel: "+" -->
+<dd>
+和を計算します。</dd>
+<dt><a name="label-18" id="label-18"><code>-(<var>other</var>)</code></a></dt><!-- RDLabel: "-" -->
+<dd>
+差を計算します。</dd>
+<dt><a name="label-19" id="label-19"><code>*(<var>other</var>)</code></a></dt><!-- RDLabel: "*" -->
+<dd>
+積を計算します。</dd>
+<dt><a name="label-20" id="label-20"><code>**(<var>n</var>)</code></a></dt><!-- RDLabel: "**" -->
+<dd>
+<var>n</var> 乗を計算します。</dd>
+<dt><a name="label-21" id="label-21"><code>/(<var>other</var>)</code></a></dt><!-- RDLabel: "/" -->
+<dd>
+<a href="#label-22">inverse</a> を利用して商を計算します。</dd>
+<dt><a name="label-22" id="label-22"><code>inverse</code></a></dt><!-- RDLabel: "inverse" -->
+<dd>
+基礎環がユークリッド環であることを仮定して、逆数を返します。
+逆数が存在しない場合の値は nil です。</dd>
+</dl>
+</body>
+</html>

data/doc-ja/residue-class-ring-ja.rd ADDED

@@ -0,0 +1,113 @@
+=begin
+[((<index-ja|URL:index-ja.html>))]
+= Algebra::ResidueClassRing
+((*(剰余環クラス)*))
+環からその1つの元を法とした剰余環を構成します。実際のクラスを生成するには環
+と法とを指定して、クラスメソッド ((<::create>)) あるいは
+関数 ((<Algebra.ResidueClassRing>))() を用います。
+== ファイル名:
+* ((|residue-class-ring.rb|))
+== スーパークラス:
+* ((|Object|))
+== インクルードしているモジュール:
+なし
+== 関連する関数:
+--- Algebra.ResidueClassRing(ring, mod)
+    ((<::create>))(ring, mod) と同じです。
+== クラスメソッド:
+--- ::create(ring, mod)
+    クラス ((|ring|)) で表現されるを環とその環の元 ((|mod|)) から、
+    その元を法とした剰余環を表現するクラスを返します。
+    この戻り値は ((<Algebra::ResidueClassRing>)) クラスのサブクラスです。
+    このサブクラスにはクラスメソッドとして ((|::ground|)) と
+    ((|::modulus|)) と (({[x]})) が定義され、それぞれ、基礎環 ((|ring|))、
+    法 ((|mod|))、x を代表元とする剰余類を返します。
+    例: 多項式環を法 (({x**2 + x + 1})) で割る。
+      require "rational"
+      require "polynomial"
+      require "residue-class-ring"
+      Px = Algebra.Polynomial(Rational, "x")
+      x = Px.var
+      F = Algebra.ResidueClassRing(Px, x**2 + x + 1)
+      p F[x + 1]**100     #=> -x - 1
+    ((|ring|)) が Integer である場合に限り、全ての逆数を予め計算して
+    保管します。また (({0, 1, ... , mod-1})) に対応する剰余類の配列を
+    ((|to_ary|)) で得ることができます。
+    例: modulo 7 の素体
+      require "residue-class-ring"
+      F7 = Algebra::ResidueClassRing.create(Integer, 7)
+      a, b, c, d, e, f, g = F7
+      p [e + c, e - c, e * c, e * 2001, 3 + c, 1/c, 1/c * c]
+        #=> [6, 2, 1, 3, 5, 4, 1]
+      p( (1...7).collect{|i| F7[i]**6} )
+        #=> [1, 1, 1, 1, 1, 1]
+--- ::[](x)
+    ((|x|)) で代表される剰余類を返します。
+#--- ::indeterminate(obj)
+--- ::zero
+    零元を返します。
+--- ::unity
+    単位元を返します。
+== メソッド:
+--- lift
+    剰余類の代表元を返します。
+#--- monomial?
+--- zero?
+    零元であるとき真を返します。
+--- zero
+    零元を返します。
+--- unity
+    単位元を返します。
+--- ==(other)
+    等しいとき真を返します。
+--- +(other)
+    和を計算します。
+--- -(other)
+    差を計算します。
+--- *(other)
+    積を計算します。
+--- **(n)
+    ((|n|)) 乗を計算します。
+--- /(other)
+    ((<inverse>)) を利用して商を計算します。
+--- inverse
+    基礎環がユークリッド環であることを仮定して、逆数を返します。
+    逆数が存在しない場合の値は nil です。
+#--- to_s
+=end

data/doc-ja/sample-algebraic-equation01.rb.v.rd ADDED

@@ -0,0 +1,11 @@
+=begin
+  # sample-algebraic-equation01.rb
+  require "algebra"
+  PQ = MPolynomial(Rational)
+  a, b, c = PQ.vars("abc")
+  p AlgebraicEquation.minimal_polynomial(a + b + c, a**2-2, b**2-3, c**2-5)
+  #=> x^8 - 40x^6 + 352x^4 - 960x^2 + 576
+((<_|CONTENTS>))
+=end

data/doc-ja/sample-algebraic-equation02.rb.v.rd ADDED

@@ -0,0 +1,11 @@
+=begin
+  # sample-algebraic-equation02.rb
+  require "algebra"
+  PQ = MPolynomial(Rational)
+  a, b, c = PQ.vars("abc")
+  p AlgebraicEquation.minimal_polynomial(a + b + c, a**2-2, b**2-3, c**2-5)
+  #=> x^8 - 40x^6 + 352x^4 - 960x^2 + 576
+((<_|CONTENTS>))
+=end

data/doc-ja/sample-algebraic-root01.rb.v.rd ADDED

@@ -0,0 +1,20 @@
+=begin
+  # sample-algebraic-root01.rb
+  require "algebra"
+  R2, r2, r2_ = Root(Rational, 2) # r2 = sqrt(2), -sqrt(2)
+  p r2 #=> sqrt(2)
+  R3, r3, r3_ = Root(R2, 3)       # r3 = sqrt(3), -sqrt(3)
+  p r3 #=> sqrt(3)
+  R6, r6, r6_ = Root(R3, 6)       # R6 = R3, r6 = sqrt(6), -sqrt(6)
+  p r6 #=> -r2r3
+  p( (r6 + r2)*(r6 - r2) ) #=> 4
+  F, a, b =  QuadraticExtensionField(Rational){|x| x**2 - x - 1}
+  # fibonacci numbers
+  (0..100).each do |n|
+    puts( (a**n - b**n)/(a - b) )
+  end
+((<_|CONTENTS>))
+=end

data/doc-ja/sample-algebraicfield01.rb.v.rd ADDED

@@ -0,0 +1,26 @@
+=begin
+  # sample-algebraicfield01.rb
+  require "algebra"
+  Px = Polynomial(Rational, "x")
+  x = Px.var
+  F = ResidueClassRing(Px, x**2 + x + 1)
+  x = F[x]
+  p( (x + 1)**100 )
+      #=> -x - 1
+  p( (x-1)** 3 / (x**2 - 1) )
+      #=> -3x - 3
+  G = Polynomial(F, "y")
+  y = G.var
+  p( (x + y + 1)** 7 )
+      #=> y^7 + (7x + 7)y^6 + 8xy^5 + 4y^4 + (4x + 4)y^3 + 5xy^2 + 7y + x + 1
+  H = ResidueClassRing(G, y**5 + x*y + 1)
+  y = H[y]
+  p( 1/(x + y + 1)**7 )
+    #=> (1798/3x + 1825/9)y^4 + (-74x + 5176/9)y^3 +
+    #     (-6886/9x - 5917/9)y^2 + (1826/3x - 3101/9)y + 2146/9x + 4702/9
+((<_|CONTENTS>))
+=end

data/doc-ja/sample-algebraicfield02.rb.v.rd ADDED

@@ -0,0 +1,15 @@
+=begin
+  # sample-algebraicfield02.rb
+  require "algebra"
+  F = AlgebraicExtensionField(Rational, "x") {|x| x**2 + x + 1}
+  x = F.var
+  p( (x + 1)**100 )
+  p( (x-1)** 3 / (x**2 - 1) )
+  H = AlgebraicExtensionField(F, "y") {|y| y**5 + x*y + 1}
+  y = H.var
+  p( 1/(x + y + 1)**7 )
+((<_|CONTENTS>))
+=end

data/doc-ja/sample-cayleyhamilton01.rb.v.rd ADDED

@@ -0,0 +1,14 @@
+=begin
+  # sample-cayleyhamilton01.rb
+  require "algebra"
+  n = 4
+  R = MPolynomial(Integer)
+  MR = SquareMatrix(R, n)
+  m = MR.matrix{|i, j| R.var("x#{i}#{j}") }
+  Rx = Polynomial(R, "x")
+  ch = m.char_polynomial(Rx)
+  p ch.evaluate(m) #=> 0
+((<_|CONTENTS>))
+=end

data/doc-ja/sample-diagonalization01.rb.v.rd ADDED

@@ -0,0 +1,48 @@
+=begin
+  # sample-diagonalization01.rb
+  require "algebra"
+  M = SquareMatrix(Rational, 3)
+  a = M[[1,-1,-1], [-1,1,-1], [2,1,-1]]
+  puts "A = "; a.display; puts
+  #A =
+  #  1,  -1,  -1
+  # -1,   1,  -1
+  #  2,   1,  -1
+  e = a.diagonalize
+  puts "Charactoristic Poly.: #{e.chpoly} => #{e.facts}";puts
+  #Charactoristic Poly.: t^3 - t^2 + t - 6 => (t - 2)(t^2 + t + 3)
+  puts "Algebraic Numbers:"
+  e.roots.each do |po, rs|
+    puts "#{rs.join(', ')} : roots of #{po} == 0"
+  end; puts
+  #Algebraic Numbers:
+  #a, -a - 1 : roots of t^2 + t + 3 == 0
+  puts "EigenSpaces: "
+  e.evalues.uniq.each do |ev|
+    puts "W_{#{ev}} = <#{e.espaces[ev].join(', ')}>"
+  end; puts
+  #EigenSpaces:
+  #W_{2} = <[4, -5, 1]>
+  #W_{a} = <[1/3a + 1/3, 1/3a + 1/3, 1]>
+  #W_{-a - 1} = <[-1/3a, -1/3a, 1]>
+  puts "Trans. Matrix:"
+  puts "P ="
+  e.tmatrix.display; puts
+  puts "P^-1 * A * P = "; (e.tmatrix.inverse * a * e.tmatrix).display; puts
+  #P =
+  #  4, 1/3a + 1/3, -1/3a
+  # -5, 1/3a + 1/3, -1/3a
+  #  1,   1,   1
+  #
+  #P^-1 * A * P =
+  #  2,   0,   0
+  #  0,   a,   0
+  #  0,   0, -a - 1
+((<_|CONTENTS>))
+=end

data/doc-ja/sample-divmod01.rb.v.rd ADDED

@@ -0,0 +1,17 @@
+=begin
+  # sample-divmod01.rb
+  require "algebra"
+  P = MPolynomial(Rational)
+  x, y, z = P.vars("xyz")
+  f = x**2*y + x*y**2 + y*2 + z**3
+  g = x*y-z**3
+  h = y*2-6*z
+  P.set_ord(:lex) # lex, grlex, grevlex
+  puts "(#{f}).divmod([#{g}, #{h}]) =>", "#{f.divmod(g, h).inspect}"
+  #=> (x^2y + xy^2 + 2y + z^3).divmod([xy - z^3, 2y - 6z]) =>
+  #   [[x + y, 1/2z^3 + 1], xz^3 + 3z^4 + z^3 + 6z]
+  #   = [[Quotient1,Quotient2], Remainder]
+((<_|CONTENTS>))
+=end

data/doc-ja/sample-elementary-divisor01.rb.v.rd ADDED

@@ -0,0 +1,48 @@
+=begin
+  # sample-elementary-divisor01.rb
+  require "algebra"
+  M = SquareMatrix(Rational, 4)
+  a = M[
+    [2, 0, 0, 0],
+    [0, 2, 0, 0],
+    [0, 0, 2, 0],
+    [5, 0, 0, 2]
+  ]
+  P = Polynomial(Rational, "x")
+  MP = SquareMatrix(P, 4)
+  ac = a._char_matrix(MP)
+  ac.display; puts #=>
+  #x - 2,   0,   0,   0
+  #  0, x - 2,   0,   0
+  #  0,   0, x - 2,   0
+  # -5,   0,   0, x - 2
+  p ac.elementary_divisor #=> [1, x - 2, x - 2, x^2 - 4x + 4]
+  require "algebra/matrix-algebra-triplet"
+  at = ac.to_triplet.e_diagonalize
+  at.body.display; puts #=>
+  #  1,   0,   0,   0
+  #  0, x - 2,   0,   0
+  #  0,   0, x - 2,   0
+  #  0,   0,   0, x^2 - 4x + 4
+  at.left.display; puts #=>
+  #  0,   0,   0, -1/5
+  #  0,   1,   0,   0
+  #  0,   0,   1,   0
+  #  5,   0,   0, x - 2
+  at.right.display; puts #=>
+  #  1,   0,   0, 1/5x - 2/5
+  #  0,   1,   0,   0
+  #  0,   0,   1,   0
+  #  0,   0,   0,   1
+  p at.left * ac * at.right == at.body #=> true
+((<_|CONTENTS>))
+=end