Re: plotting singular functions
- To: mathgroup at smc.vnet.net
- Subject: [mg12787] Re: [mg12770] plotting singular functions
- From: "Jens-Peer Kuska" <kuska at linmpi.mpg.de>
- Date: Fri, 12 Jun 1998 04:05:22 -0400
- Sender: owner-wri-mathgroup at wolfram.com
-----Original Message-----
From: James Perry <perryj at rpi.edu>
To: mathgroup at smc.vnet.net
Subject: [mg12787] [mg12770] plotting singular functions
Hi James,
Try
hugeVal=1.0/$MachineEpsilon
f[r_,r0_?NumericQ]:=If[TrueQ[r==r0],hugeVal,Log[r-r0]]
and
Plot[f[x,1],{x,1,2}]
You can still put a value You like as hugeVal.
Hope that helps
Jens
>Hello Mathgroup,
>
> Does anyone know a way of setting up a singular function, say something
>like f[r_,ro_]:=Log[r - ro] so that it has a finite but perhaps large
>value at the singular point so that it can be plotted? I'm looking
>through the manual (Mathematica Book) now, hoping to find something
>there. Thought someone may have a way of doing this or have some
>experience with plotting singular functions....
>
>Thanks for any help,
>JP
>