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 >