機能：

ウィグナー回転演算子の要素を計算する。また球面規約テンソルの回転操作を行う。

関数：

• WignerD[{k_,m_,n_}, {alpha_,beta_,gamma_}]
  
• WignerD[{k_,m_,n_}, beta_]
  
• RotateTensor[a_List, k_Integer, {alpha_, beta_, gamma_}]
  
  
  

使用例：

パッケージのロード

<<"(Wigner.mへのパス)/Wigner.m"

たとえば、Wigner.mをc:\math\packagesに置いたなら



<<"c:/math/packages/Wigner.m"

とします。

球面既約テンソルに作用するウィグナー回転行列の生成

• オイラー角(α,β,γ)の回転行列の(1,-1)要素は
  
  

  WignerD[{1,1,-1}, {α,β,γ}]

  
  
  
• ウィグナー行列そのものは次のようにして出力できます。

  Table[ WignerD[{1, i, j }, {α,β,γ}], {i, -1, 1}, {j, -1, 1}] // TableForm

  
  
  ２階のテンソルに作用するウィグナー回転行列は以下のように。

  Table[ WignerD[{2, i, j }, {α,β,γ}], {i, -2, 2}, {j, -2, 2}] // TableForm

  ３階、４階、・・・についても同様です。
  
  
• βのみの回転についてのウィグナー回転行列を計算したければ、 WignerD[{k, m, n}, {α,β,γ}] のかわりに WignerD[{k, m, n}, β]　を用います。

Version information

• Version1.1 : October 2005
• Version1.0 : September 1996