Roots of an equation using Maple

Question

I am using Maple to find the roots of a non-linear equation in one variable. When I solve the equation, I get only 2 negative roots whereas if I plot the graph of the function, it also shows that the graph cuts the positive x-axis at least once,

I have attached the graph and the code as an image.

What do I do to get that positive root?

P.S. I did the same thing on MATLAB too, but the program gave me the same negative roots.

Answer 1

Using Maple,

restart:

ee:=-1410+2.518380702e-8*H
    +0.00000909090909*H*(arcsinh(8.04024700e7/H)
                         +arcsinh(7.750000000e7/H)):

#plot(ee,H=-10^9..10^9);

solve(ee);

                                8                 8
                 -9.455498998 10 , -2.796395661 10 

fsolve(ee,H=0..infinity);

                                         8
                           2.135901827 10 

Student:-Calculus1:-Roots(ee, -10^9..10^9);

        [               8                 8                8]
        [-9.455498998 10 , -2.796395661 10 , 2.135901827 10 ]