//www.tianjin-qmedu.com/matlabcentral/fileexchange/5275-wigner3j-m
把一个从数学软件MATLAB函数
1视图(30天)
显示旧的评论
我的问题是如何编写下面的函数,在MATLAB数学软件吗?这是功能:
\[伽马]=
加入[表[{涟漪[范围[0,- - - - - - \ [ScriptL] 0, 1],
范围\ [ScriptL][0]][[我]],1},{1,2 \ [ScriptL] 0 + 1}),
范围表[{涟漪[[0,- \ [ScriptL] 0, 1],
范围\ [ScriptL][0]][[我]],1},{1,2 \ [ScriptL] 0 + 1}]];
factorFxn [\ [ScriptL]_,m2_ m1_ p1_ p2_]: =
(如果[\[伽马][[m1 2]] = = \[伽马][[p1, 2]] & & \[伽马][[平方米,
2]= = \[伽马][[p2, 2]],
如果[\[伽马][[p1, 1]] - - - - - - \[伽马][[m1, 1]] = = \[伽马][[平方米,
1]]- \[伽马][[p2 1]],
和[(2 \ [ScriptL] + 1) ^ 2和[
如果[\[伽马][[p1, 1]] - - - - - - \[伽马][[m1, 1]] = =
mval & & \[伽马][[平方米,1]]- - - - - - \[伽马][[p2, 1]] = =
mval,(1) ^(\[伽马][[m1, 1]] + \[伽马][[平方米,1]]+
mval) ThreeJSymbol [{\ [ScriptL] - \[伽马][[m1,
1]]},{\ [ScriptL] \[伽马][[p1,
1]]},{\ [ScriptL]临时-mval}] \
ThreeJSymbol [{\ [ScriptL]临时,
mval}, {\ [ScriptL], \[伽马][[平方米,
1]]},{\ [ScriptL] \[伽马][[p2,
1]]}]ThreeJSymbol [{\ [ScriptL], 0}、{\ [ScriptL],
0},{\ [ScriptL]临时,0})^ 2,
0),{mval, \ [ScriptL]临时,\ [ScriptL]临时}]\
{\ [ScriptL]临时0 2 \ [ScriptL]}), 0]
,0]
如果[\[伽马][[m1 2]] = = \[伽马][[p2, 2]] & & \[伽马][[平方米,
2]= = \[伽马][[p1, 2]],
如果[- \[伽马][[p1, 1]] + \[伽马][[平方米,
1]]= = - \[伽马][[m1, 1]] + \[伽马][[p2, 1]],
和[(2 \ [ScriptL] + 1) ^ 2和[
如果[- \[伽马][[p1, 1]] + \[伽马][[平方米,1]]= =
mval & & - \[伽马][[m1, 1]] + \[伽马][[p2, 1]] = =
mval,(1) ^(\[伽马][[m1, 1]] + \[伽马][[平方米,1]]+
mval) ThreeJSymbol [{\ [ScriptL] - \[伽马][[m1,
1]]},{\ [ScriptL] \[伽马][[p2,
1]]},{\ [ScriptL]临时-mval}] \
ThreeJSymbol [{\ [ScriptL]临时,
mval}, {\ [ScriptL], \[伽马][[平方米,
1]]},{\ [ScriptL] \[伽马][[p1,
1]]}]ThreeJSymbol [{\ [ScriptL], 0}、{\ [ScriptL],
0},{\ [ScriptL]临时,0})^ 2,
0),{mval, \ [ScriptL]临时,\ [ScriptL]临时}]\
{\ [ScriptL]临时0 2 \ [ScriptL]}), 0]
,0]);
