0
$\begingroup$

I have this function

$$ f(x)=\frac{1-25 x^2}{\left| 25 x^2-1\right| }\;\frac{2500 x}{\sqrt{\left(25 x^2-1\right)^2 \sinh (\pi x)+9}}+\cosh ^{-1}\left(\frac{1000 x^2+\left(25 x^2-1\right)^2}{\left(25 x^2+1\right)^2}\right) $$

 f[x_] := ArcCosh[(1000 x^2 + (-1 + 25 x^2)^2)/(1 + 25 x^2)^2] + (
    1 - 25 x^2)/Abs[-1 + 25 x^2] (2500 x )/ Sqrt[
    9 + (-1 + 25 x^2)^2 Sinh[π  x]]; 

for $0<x<5$. I plot this function and I get

enter image description here

As can be seen, for $0.2<x<1$, function is decreasing first and then increasing. Therefore $f'(x)$ must be negative and positive. Also, $f'(x)$ must be zero at one point. But when I use RegionPlot to see where $f'(x)$ is negative, it says nowhere. Also, I try to Plot $f'(x)$, but I get no answer. Does someone know where I am making mistake?

RegionPlot[a (f'[x]) < 0, {x, 0.2, 1}, {a, 0, 1}]
Plot[f'[x], {x, 0.2, 1}]
ContourPlot[a (f'[x]) == 0, {x, 0, 1}, {a, 0, 1}]
$\endgroup$

1 Answer 1

1
$\begingroup$

The problem is that Abs has no built in derivative.

One solution is setting

Abs'[x_] := HeavisideTheta[x]

Then you can do

Plot[f'[x], {x, 0, 1}]

Plot of the first derivative of the OP's function

$\endgroup$
2
  • 2
    $\begingroup$ Or to use RealAbs. $\endgroup$
    – Greg Hurst
    Commented Jul 20, 2020 at 19:40
  • $\begingroup$ Or the replacement Abs[x_] :> Sqrt[x^2] $\endgroup$
    – Bob Hanlon
    Commented Jul 20, 2020 at 20:24

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.