四元数パッケージ

このパッケージは，ハミルトン(Hamilton)の四元数を実装する．四元数は という形式で表される．ここで ，，， はすべて実数である．記号 ，， は規則 に則って乗算される．四元数は複素数の拡張でありほとんど同じように動作するが，四元数では乗法が可換ではないという点が異なる．例えば， となるのである．

四元数と複素数は類似しているため，このパッケージでは，Wolfram言語が複素数を取扱う方法を模倣している部分が多くある．四元数と複素数との違いを明確にするために，四元数はすべてQuaternion[a,b,c,d]という形式（a，b，c，d は実数）で入力しなければならない．記号形式の a+Ib+Jc+Kd に提供されるサポートは限られている．

Quaternion[a,b,c,d]四元数
QuaternionQ[w]w が四元数であるかどうかテストする
FromQuaternion[w]Quaternionオブジェクト w を記号形式 a+Ib+Jc+Kd に変換する
ToQuaternion[w]可能な場合に w をQuaternionオブジェクトに変換する

四元数の定義・テスト・変換

以下でパッケージをロードする．
QuaternionオブジェクトはComplexあるいはRealの数に，自動的には簡約されない．
FromQuaternionを使って，上記のQuaternionオブジェクトを，頭部Complexを持つオブジェクトに変換する．

このパッケージの主な目的は四元数の演算を定義することなので，Plus，Minus，Times，Divide，さらにNonCommutativeMultiplyに規則を加える．Timesが使えるのは，四元数ではない2つの数の乗法および1つの四元数とスカラー数（実数）の乗法だけである．2つの四元数の乗法には，NonCommutativeMultiplyを使わなければならい．

加法は要素ごとに行われる．
四元数同士の乗法には*ではなく必ず**を使う．
以下の乗法は非可換である．
DivideはWolfram言語の内部規則により即座にTimesに変換されるので注意する．

四元数は複素数と同様で代数的オブジェクトであるが，各要素を見ることが役に立つことがある．これらのオブジェクトは実数上に，標準基底を{1,i,j,k}とするベクトル空間を形成する．各要素は，Wolfram言語の標準的な手法を使って抽出することができる．この他，長さや向きのような他のベクトル型のパラメータもあるので，これらも見ておいた方がよいであろう．

四元数の ijk 空間への射影，つまり四元数の実数でない部分は，純四元数と呼ばれる．これは複素数の純虚数部分と同様の働きをする．

Re[w]実数部分 Re w
Conjugate[w]四元数の共役 w*
Abs[w]絶対値 w
AbsIJK[w]w の純四元数の大きさ
Norm[w]w の要素の平方和
Sign[w]四元数 w の符号
AdjustedSignIJK[w]最初の非零要素が正となるよう調整された w の純四元数

四元数の要素関数

四元数の共役では，実数要素以外の符号が逆になる．
四元数の符号は複素数の符号と同様に定義されている．符号は四元数の「向き」である．
以下はノルム1，実数部分0の四元数を返す．
以下は標準的なユークリッド長を返す．
I要素にゼロのある四元数でも，ゼロではない純四元数を持つ．

複素数 では， は によって定義される．このパッケージも同様に eq を定義しており，複素数の純虚数部分の代りに純四元数 q を使っている．この定義は次の初級関数の定義と同様である：Exp，Log，Cos，Sin，Tan，Sec，Csc，Cot，ArcCos，ArcSin，ArcTan，ArcSec，ArcCsc，ArcCot，Cosh，Sinh，Tanh，Sech，Csch，Coth，ArcCosh，ArcSinh，ArcTanh，ArcSech，ArcCsch，ArcCoth．

四元数の指数は非常に複雑になる可能性がある．
複素数でも同様であるが，分枝切断に注意することが大切である．
四元数のベキ乗の計算にはド・モアブルの定理(deMoivre's theorem)の四次元形が使われる．

これまではこの関数で，要素が任意の実数である四元数を扱ってきた．整数とガウス整数が実数および複素数の面白い部分集合であるように，四元整数と呼ばれる四元数の特殊な部分集合がある．この部分集合は，想像するよりも範囲が広い．これには，すべてが整数要素からなる四元数だけでなく，全要素がの奇数倍である四元数も含まれる．この部分集合には，逆元を持つ四元数が24個ある．これらはこの代数の単位であり，ほぼガウス整数の，，， に相当する．

Round[w]w に最も近い四元整数
OddQ[w]w が奇数かどうかをテストする
EvenQ[w]四元数 w が偶数かどうかをテストする
IntegerQuaternionQ[w]四元数 w が四元整数であるかどうかをテストする
UnitQuaternionsハミルトン(Hamilton)の非可換体の24の単位のリストを返す
UnitQuaternionQ[w]w が単位四元数であるかどうかをテストする

整数四元関数

四元数のRoundは，すべての要素が整数またはの奇数倍であるQuaternionを返す．
ノルムが偶数ならば，その四元数は偶数である．
四元整数の要素はすべて整数あるいはすべて奇数の整数の半分である．

四元数 と単位四元数 があるとき， と はそれぞれ の右結合および左結合である．任意の結合要素を選び，それを主結合と呼ぶと便利である．このパッケージでは最大の実数要素を持つ結合要素を選ぶ．

LeftAssociates[w]四元数 w の24の左結合のリスト
RightAssociates[w]四元数 w の24の右結合のリスト
PrimaryLeftAssociate[w,side]四元数 w の主左結合
PrimaryRightAssociate[w,side]四元数 w の主右結合

整数の四元数の結合

以下は四元数の主左結合である．
通常，主右結合も非常に類似したものとなる．

四元数の乗算は非可換であるため，左側と右側の両方に1つずつ最大公約数がある．この関数はPrimaryLeftAssociateとPrimaryRightAssociateによって返される値に依存しているので，RightGCDとLeftGCDは一意ではない．

LeftGCD[w,u]w と u の左の最大公約数
RightGCD[w,u]w と u の右の最大公約数
Mod[w,u]u を法とする w（w を u で乗算したときの剰余）

整数の除算関数の例

この2つの四元数をともに割り切る最大の四元数はQuaternion[1,0,0,0]である．
LeftGCDとRightGCDでは，全く異なる．
Modは複素数の場合と同じように，四元数にも使える．
四元数を剰余として指定することができる．

PrimeQには，任意の数がガウス整数に対して素であるかどうかを調べるオプションGaussianIntegers->Trueがある．このパッケージではPrimeQをさらに拡張して，数が四元数に対して素であるかどうかを調べる．

ラグランジュ(Lagrange)は，すべての整数は最大で4つの平方数の和として表せることを証明した．つまり，整数 n がある場合，q**Conjugate[q]==n となるような整数要素を持つ四元数 q があるということになる．したがって，四元数に対して素である整数は存在しない．実際に，四元数整数は，そのノルムが通常の意味で素数である場合のみ素数である．

PrimeQ[n,Quaternions->True]n が四元数に素であるかどうかをテストする

PrimeQ の拡張

19はガウス整数に対して素である．
以下は四元数に対して素ではない．これはQuaternion[1,4,1,1]とQuaternion[1,-4,-1,-1]に因数分解できるからである．
Quaternion[1,3,0,1]は素な四元数である．