r=Pi/6;​​a=α1*Conjugate[α1];​​b=αn*Conjugate[αn];​​​​a1=(1-a-b)
Tanh[r]^(2m)
Cosh[r]^2
+b
Tanh[r]^(2m-2)
Cosh[r]^4
;​​a2=a
Tanh[r]^(2m)
Cosh[r]^2
;​​a3=(1-a-b)
Tanh[r]^(2m+2)
Cosh[r]^2
;​​a4=b
Tanh[r]^(2m)
Cosh[r]^4
+a
Tanh[r]^(2m+2)
Cosh[r]^2
;​​​​​​NeABC=Table{α1,αn},NSumSqrt((a1-a4)^2)+4
ab
Cosh[r]^6
(m+1)Tanh[r]^(4m)-a1-a4,{m,0,Infinity},{α1,0,100/100,1/10},{αn,0,100/100,1/10};​​​​​​ListPlot3D[NeABC,DataRange{{0,1},{0,1}},AxesLabel{Style["αn",10,Black],Style["α1",10,Black],Style["One-Tangle",10,Black]}]