MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: How to treat this false singular point?


I had made a mistake again, haha, sorry.
In: Limit[(x-10)*Log[Abs[x-10]],x->10]
Out: 0



Bob Hanlon wrote:
> f[x_, xList_List] := Total[(x-xList)*Log[Abs[x-xList]]];
>
> f[x, {x1, x2, x3}]
>
> (x - x1)*Log[Abs[x - x1]] + (x - x2)*Log[Abs[x - x2]] + (x - x3)*Log[Abs[x - x3]]
>
> a singularity will exist for each value of x in xList; therefor, f[xn, xList] cannot have the value 1
>
> f[5. - 10^-15, Range[5]]
>
> 10.2273
>
> Plot[f[x,Range[5]],{x,-1,5}];
>
>
> Bob Hanlon
>
> ---- simon yang <yanshanguke at 163.com> wrote:
> > Dear everyone,
> > I have a function:
> > f[x_]:=(x-x1)Log[Abs[x-x1]] + (x-x2)Log[Abs[x-x2]] + ... +
> > (x-xn)Log[Abs[x-xn]],
> > {x1,x2,...,xn}={100,200,300,...} for instance
> > How to get value: f[x] as there are different singular at different x?
> > I know at x=xn, f[x]==1, But Mathematica return: "Indeterminate", What
> > should I do?
> >  what others do in C++, Fortran ?
> >


  • Prev by Date: Re: Converting Mathematics slides into PDF
  • Next by Date: RE: Converting Mathematics slides into PDF
  • Previous by thread: Re: How to treat this false singular point?
  • Next by thread: Re: Re: How to treat this false singular point?