Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

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
>



  • Prev by Date: Re: Questions about series and O[x]
  • Next by Date: Re: Easy way to autoload packages.
  • Previous by thread: Re: plotting singular functions
  • Next by thread: Re: plotting singular functions