| Original Message (ID '47997') By Bill Simpson: |
| In[1]:= f[x_]:=Simplify[Integrate[Sqrt[t]/(1+Exp[t-x]),{t,0,Infinity}]]
In[2]:= FindRoot[f[x]==1,{x,1}]
Out[2]= {x->0.5136+2.6772*^-15I
In[3]:= Plot[f[x]-1,{x,-5,5}]
From In[3]:=
Integrate::gener : Unable to check convergence.
Integrate::gener : Unable to check convergence.
Integrate::gener : Unable to check convergence.
General::stop, :Further output of Integrate:: gener will be suppressed during this calculation.
From In[14]:= |
|
