       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' 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:=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