范例

打开所有单元关闭所有单元

基本范例 (2)

计算参数为整数的 6‐ 符号：

Wolfram Language code: SixJSymbol[{1, 2, 3}, {2, 1, 2}]

用符号参数获得明确的符号结果：

Wolfram Language code: SixJSymbol[{1, 2, 3}, {2, m, 2}]

范围 (2)

SixJSymbol 对整数和半整数起作用：

Wolfram Language code: SixJSymbol[{1 / 2, 1 / 2, 1}, {5 / 2, 7 / 2, 3}]

TraditionalForm 格式：

Wolfram Language code: SixJSymbol[{j1, j2, j3}, {m1, m2, m3}]//TraditionalForm

应用 (2)

绘制作为和的函数的 6‐ 符号：

Wolfram Language code: ListPlot3D[Table[SixJSymbol[{j1, j2, j1 + j2}, {6, j1 + j2 + 6, j2 + 6}], {j1, 0, 10}, {j2, 0, 20}]]

关于 SixJSymbol 的渐进线值，确定 Wigner 公式：

Wolfram Language code:

{j1, j2, j3, j4, j5, j6} = {105, 107, 106, 106, 102, 109};
{j12, j13, j14, j23, j24, j34} = {j1, j2, j3, j6, j5, j4} + 1 / 2;
Vs = Det[{{0, j34^2, j24^2, j23^2, 1}, {j34^2, 0, j14^2, j13^2, 1}, {j24^2, j14^2, 0, j12^2, 1}, {j23^2, j13^2, j12^2, 0, 1}, {1, 1, 1, 1, 0}}] / 288;
{SixJSymbol[{j1, j2, j3}, {j4, j5, j6}] ^ 2, 1 / (24 Pi Sqrt[Vs])} // N

属性和关系 (2)

从生成函数生成一个 6-j 符号：

Wolfram Language code:

{j1, j2, j3, j4, j5, j6} = {1, 2, 3, 1, 2, 2}; 
1 / ((Sqrt[(1 + j1 + j2 + j3)!] Sqrt[(1 + j3 + j4 + j5)!] Sqrt[(1 + j2 + j4 + j6)!] Sqrt[(1 + j1 + j5 + j6)!]) / (Sqrt[(j1 + j2 - j3)!] Sqrt[(j1 - j2 + j3)!] Sqrt[(-j1 + j2 + j3)!] Sqrt[(j3 + j4 - j5)!] Sqrt[(j3 - j4 + j5)!] Sqrt[(-j3 + j4 + j5)!] Sqrt[(j2 + j4 - j6)!] Sqrt[(j1 + j5 - j6)!] Sqrt[(j2 - j4 + j6)!] Sqrt[(-j2 + j4 + j6)!] Sqrt[(j1 - j5 + j6)!] Sqrt[(-j1 + j5 + j6)!]) / SeriesCoefficient[Series[1 / (1 + u v z + u w y + v w x + x y z + u v x y + u w x z + v w y z) ^ 2, {u, 0, 2 j1}, {v, 0, 2 j2}, {w, 0, 2 j3}, {x, 0, 2 j4}, {y, 0, 2 j5}, {z, 0, 2 j6}], {2 j1, 2 j2, 2 j3, 2 j4, 2 j5, 2 j6}])

Wolfram Language code: SixJSymbol[{j1, j2, j3}, {j4, j5, j6}]

用 Clebsch–Gordan 系数表示 6‐ 符号：

Wolfram Language code:

With[{j1 = 1, j2 = 2, j12 = 1, j3 = 2, j = 3, j23 = 2, m = 0}, 
	(-1) ^ (j1 + j2 + j3 + j) / Sqrt[(2j12 + 1)(2j23 + 1)]Sum[ClebschGordan[{j12, m12}, {j3, m3}, {j, m}]ClebschGordan[{j1, m1}, {j2, m2}, {j12, m12}]ClebschGordan[{j1, m1}, {j23, m23}, {j, m}]ClebschGordan[{j2, m2}, {j3, m3}, {j23, m23}], {m1, -j1, j1}, {m2, -j2, j2}, {m3, -j3, j3}, {m12, -j12, j12}, {m23, -j23, j23}]]//Quiet

Wolfram Language code: With[{j1 = 1, j2 = 2, j12 = 1, j3 = 2, j = 3, j23 = 2, m = 0}, SixJSymbol[{j1, j2, j12}, {j3, j, j23}]]