求助，解方程解不出来，想求解tf，然后画出Kappa范围在0到10区间内的tf，应该怎么办，谢谢
s=Solve[(Sqrt[229] (-15+Sqrt[229])^((-1+\[Kappa])/(1+\[Kappa])) (tf+Sqrt[4+tf^2])^((1-\[Kappa])/(1+\[Kappa])))/Sqrt[4+tf^2]==1,tf]
Plot[s,{\[Kappa],0,10}]

s[\[Kappa]_]:=FindRoot[(Sqrt[229] (-15+Sqrt[229])^((-1+\[Kappa])/(1+\[Kappa])) (tf+Sqrt[4+tf^2])^((1-\[Kappa])/(1+\[Kappa])))/Sqrt[4+tf^2]==1,{tf,0}]
Plot[tf/.s[\[Kappa]],{\[Kappa],0,10},PlotRange->All]

直接ContourPlot啊……