WOLFRAM NOTEBOOK

SixJSymbol[{10, 10, 10}, {10, 10, 10}]
481673
-(---------)
165002460
N[%]
-0.00291919
Table[SixJSymbol[{i,i,i}, {i,i,i}], {i, 20}]
1 3 1 467 1 309 359 12219
{-, -(--), -(--), -(-----), --, -----, -----, -(------),
6 70 14 18018 52 10868 41990 965770

16277 481673 520259 42625163
-(-------), -(---------), --------, ----------,
1040060 165002460 55000820 4360779300

171577 606038161 41604313
---------, -(-----------), -(----------),
413126460 80926883220 6450693590

3535935973 2355200175247 1610203774281
-------------, ---------------, ---------------,
4051622001210 386254630782020 372209007844492

2892431473 33188637458619
-(-------------), -(----------------)}
1833541910564 6598917336119836
N[%]
{0.166667, -0.0428571, -0.0714286, -0.0259185, 0.0192308,

0.0284321, 0.00854965, -0.0126521, -0.0156501,

-0.00291919, 0.00945911, 0.00977467, 0.000415314,

-0.00748871, -0.00644959, 0.000872721, 0.00609753,

0.00432607, -0.00157751, -0.00502941}
Abs[%]
{0.166667, 0.0428571, 0.0714286, 0.0259185, 0.0192308,

0.0284321, 0.00854965, 0.0126521, 0.0156501,

0.00291919, 0.00945911, 0.00977467, 0.000415314,

0.00748871, 0.00644959, 0.000872721, 0.00609753,

0.00432607, 0.00157751, 0.00502941}
%557^-(2/3)//ListPlot ;
Table[SixJSymbol[{i,i,i}, {i,i,i}], {i, 1., 40.}]
1 3 1 467 1 309 359 12219
{-, -(--), -(--), -(-----), --, -----, -----, -(------),
6 70 14 18018 52 10868 41990 965770

16277 481673 520259 42625163
-(-------), -(---------), --------, ----------,
1040060 165002460 55000820 4360779300

171577 606038161 41604313
---------, -(-----------), -(----------),
413126460 80926883220 6450693590

3535935973 2355200175247 1610203774281
-------------, ---------------, ---------------,
4051622001210 386254630782020 372209007844492

2892431473 33188637458619
-(-------------), -(----------------),
1833541910564 6598917336119836

1218670736253 64558090487087
-(---------------), -----------------,
425736602330312 32912714257074120

31972339311243 1219909268901028113
----------------, ---------------------,
7679633326650628 676660172044513483708

1494973110276697829 296357099913822068403
-(---------------------), -(-----------------------),
694948284802473307592 86272865641907043471064

28454624791576271 34131006005397280747
-(--------------------), -----------------------,
28131233090487492980 15410289486969048654444

30499199262960483 36082186869033479581
--------------------, -----------------------,
10859964402374241476 87954851694828981714124

424667822213806709857
-(------------------------),
193687811710953183136422

1242107127019795241579 1105344803724726063
-(------------------------), -----------------------,
549348471811767800123770 22422386604561951025460

1476476152998762142512587 602315972116342145459
---------------------------, ------------------------,
699780263541773929553581140 338548748689779356339420

4723886877701110983755549
-(-----------------------------),
11845482167906689898959966380

54297250058533033420320877717
-(--------------------------------),
27363063807864453666597522337800

1102728221616945026298586691
-(------------------------------),
814763164766451453050202904920

4362179193631280714567707991
-------------------------------,
6607867361707576614991899830580

15532984259505189067801665773
-------------------------------}
8495829465052598504989585496460
N[%]
{0.166667, -0.0428571, -0.0714286, -0.0259185, 0.0192308,

0.0284321, 0.00854965, -0.0126521, -0.0156501,

-0.00291919, 0.00945911, 0.00977467, 0.000415314,

-0.00748871, -0.00644959, 0.000872721, 0.00609753,

0.00432607, -0.00157751, -0.00502941, -0.0028625,

0.00196149, 0.00416326, 0.00180284, -0.0021512,

-0.00343511, -0.0010115, 0.00221482, 0.00280841,

0.000410235, -0.00219254, -0.00226106, 0.0000492965,

0.00210991, 0.00177911, -0.000398792, -0.00198433,

-0.00135343, 0.000660149, 0.00182831}
ListPlot[ Abs[%562]^-2/3 ];
sj[i_] := SixJSymbol[N[{i,i,i}], N[{i,i,i}]]
sj[10]
481673
-(---------)
165002460
sj[5.7]
1/5 67 2 124
-(((-1) Gamma[--] Gamma[---]
10 5

57 57 57 57
HypergeometricPFQ[{-(--), -(--), -(--), -(--)},
10 10 10 10

119 191 2
{-(---), 1, 1}, 1]) / Gamma[---] )
5 10
N[%]
-0.024039 - 0.0174654 I
Table[SixJSymbol[{i,i,i}, {i,i,i}], {i, 200}] ;
b1= %573;
ListPlot[ Abs[%]^-(2/3)];
$Aborted
N[%573] ;
%575 >> /swolf/Complexity/Book/Layout/Results/Chapter-9/6j.m ;
ListPlot[ Abs[%]^-(2/3)];
Date[ ]
{1995, 8, 15, 4, 47, 20}
b2 = Table[SixJSymbol[{i,i,i}, {i,i,i}], {i, 201, 400}] ;
Date[ ]
{1995, 8, 15, 14, 13, 40}
b3 = Table[SixJSymbol[{i,i,i}, {i,i,i}], {i, 401, 500}] ;
$Aborted
Date[ ]
{1995, 8, 15, 15, 10, 52}
b4 = Table[SixJSymbol[{i,i,i}, {i,i,i}], {i, 501, 1000}] ;
$Aborted
b12 = Join[b1, b2];
N[%];
ListPlot[ Abs[%590]^-(2/3)];
ListPlot[Log[Abs[%590]], PlotRange->All];
Show[%593, AspectRatio->.1];
N[b12] >> /swolf/Complexity/Book/Layout/Results/Chapter-9/6j.m ;
Max[Log[Abs[%590]]]
-1.79176
Show[ BookListPlot[ Log[Abs[b12]], PlotRange->Actual, Grayed->False, Lined->False, Dotted->True] ];
Show[%];
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.