Do​​
NeABC
r
=2N
Infinity
∑
n=0
3+2n+Cosh[2r]
2
Sech[r]
2n
Tanh[r]
3
1+Cosh[2r]
;​​​​
NeCAB
r
=2N
Infinity
∑
n=0
2
1+n
2
Sech[r]
2n
Tanh[r]
3
1+Cosh[2r]
;​​,{r,0.01,3,0.001};​​​​ListLinePlot{Table[
NeABC
r
,{r,0.01,3,0.001}],Table[
NeCAB
r
,{r,0.01,3,0.001}]},DataRange{0,3},FrameLabel{Style["r",15,Black],Style["One-Tangle",15,Black]},FrameTrue,RotateLabelTrue,PlotStyle{{Dashing[Block],Red},{Dashing[Block],Green}},​​PlotLegendsText"
N
A(
BC
1
)
",Text"
N
C
1
(AB)
"
SequenceLimit
:The general form of the sequence could not be determined, and the result may be incorrect.
SequenceLimit
:The general form of the sequence could not be determined, and the result may be incorrect.
SequenceLimit
:The general form of the sequence could not be determined, and the result may be incorrect.
General
:Further output of SequenceLimit::seqlim will be suppressed during this calculation.
N
A(
BC
1
)
N
C
1
(AB)