Omega[Nm_,e_]:=((Gamma[Nm+1])/(Gamma[(Nm/2)(1+e)+1]Gamma[(Nm/2)(1-e)+1]))

TS[Nm_,e_]:=(Nm((Omega[Nm,e])/((D[Omega[Nm,x],x]/.x->e))))

TSnae[Nm_,e_]:=-2(Log[((1+e)/(1-e))])^(-1)

TV[Nm_,e_]:=(Nm((NIntegrate[Omega[Nm,l],{l,-1,e}])/(Omega[Nm,e])))

Plot[{TS[100,r],TV[100,r],TSnae[100,r]},{r,-1,1},PlotRange->35,Exclusions->{r==0}]