MathGroup Archive 1997

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

Search the Archive

Re: Discontinuity

  • To: mathgroup at smc.vnet.net
  • Subject: [mg6437] Re: Discontinuity
  • From: Pasquale Nardone <pnardon at ulb.ac.be>
  • Date: Fri, 21 Mar 1997 22:59:21 -0500 (EST)
  • Organization: Université Libre de Bruxelles
  • Sender: owner-wri-mathgroup at wolfram.com

Larry Smith wrote:
> 
>      I have the following function which is defined as:
> 
>       f(t)=t +10t^2 Sin[1/t]
> 
>      When you take the derivative of this function and evaluate it at
>      f'[0] it is indeterminate at t=0, I would like to adjust the function
>      so that the function is differentiable at t=0.  I'm trying to state a
>      function y=f(t) such that f'(0)=1 but t is not a function of y in any
>      neighborhood of 0.  If you look at the plot of the derivative like
> 
>         Plot[Evaluate[D[f[t],t],{t,-.02,-0.01}]] or
>         Plot[Evaluate[D[f[t],t],{t,-.002,-0.001}]] where
>         f[t] is defined as  f[t_]:=t-10t^2Sin[1/t].
> 
>      I want to use the function as defined and adjust it so that I get a
>      derivative of 1 at f'(0) without using a step function.
> 
>      Larry
> 
>      601-939-8555 extension 255
> 
>      larry.smith at clorox.com

Why don't you try the following
f[t_]:=t +10t^2 Sin[1/t]
g[t_]=D[f[t],t]

hh[t_]:=g[t]/;(t>0 || t<0);
hh[0]:=1;
hh[0.0]:=1;
then you can Plot what you want:
Plot[hh[x],{x,-1,2}]
--------------------------------------------
 Pasquale Nardone                          *
                                           *
 Université Libre de Bruxelles             *
 CP 231, Sciences-Physique                 *
 Bld du Triomphe                           *
 1050 Bruxelles, Belgium                   *
 tel: 650,55,15 fax: 650,57,67 (+32,2)     *
http://homepages.ulb.ac.be/~pnardon/       *
        ,,,
       (o o)
----ooO-(_)-Ooo----


  • Prev by Date: Re: Attributes
  • Next by Date: Re: Curve Fitting
  • Previous by thread: Discontinuity
  • Next by thread: Re: Discontinuity