# Problem In using Finding Root for an infinite series involving Hypergeometric function [closed]

Tc[κ_] := t /. Chop[
FindRoot[
1 == (4 κ^4 NSum[ 2/3 Hypergeometric1F1[3/2, 5/2, -((2 κ^2 l)/t)], {l, 1, Infinity}]
+ 2 κ^2 t (PolyLog[1, Exp[(-2 κ^2)/t]])
+ 2 t^2 (PolyLog[2, Exp[(-2 κ^2)/t]]
+ (2 κ^2)/t PolyLog[1, Exp[(-2 κ^2)/t]])),
{t, tstart}, AccuracyGoal -> 8, PrecisionGoal -> 8]
]

tstart = 0.5; ni = 100; κmin = 0; κmax = 1;
dκ := (κmax - κmin)/(ni - 1);
dat = Chop[ Table[{κ = κmax - (i - 1) dκ, Tc[κ]}, {i, ni}] ];
ListLinePlot[dat]


Mathematica keeps on running and doesn't produce the plot for Tc

-

## closed as off-topic by Oleksandr R., m_goldberg, Karsten 7., ilian, KubaSep 27 at 5:34

• The question does not concern the technical computing software Mathematica by Wolfram Research. Please see the help center to find out about the topics that can be asked here.
If this question can be reworded to fit the rules in the help center, please edit the question.

The (2/3)[ part doesn't seem right –  ssch Oct 30 '13 at 13:07
@ssch I agree. It looks as if the OP meant NSum[2/3 Hypergeometric1F1[3/2, 5/2, -(2 κ^2 l)/t], {l, 1, Infinity}]. Perhaps that't the problem? (Woah, post edited as I typed this!) –  Peltio Oct 30 '13 at 13:17
I'm voting to close this question as too localized and abandoned: OP has not been seen for almost 2 years. –  Oleksandr R. Sep 27 at 2:21