Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

An exponential decay curve has been plotted asymptoting at approximately x=30 (correct for what I am looking at)

How can I find the exact value from the curve? I was hoping to be able to use something similar to the FindMinimum function, or draw a line along the asymptote and find the intersection with the x-axis.

This is the function used to plot the curve:

    Plot[((5/Log[2])*Log[(80046.8 - ((0.79) (101325 + (1030*9.81*d))))/((313545. + 2.17341d) - ((0.79) (101325 + (1030*9.81*d))))]), {d, 0, 60}, AxesLabel -> {Depth - m, Time - mins}]
share|improve this question
    
This site is for questions about the software Mathematica. Did you mean to ask this here, or at math.SE? –  J. M. Apr 19 '13 at 13:52
    
Yes, the curve has been plotted on mathematica –  emma Apr 19 '13 at 13:54
2  
Surely you can see that your question is underspecified. How and what do you plot? Yes, an exponential curve; but what do you do? Plot[1+Exp[-x/5],{x,0,50}]? something else? Try to be specific. Pretend that you don't know what you are doing; would you understand your explanation? If not, neither will we... –  acl Apr 19 '13 at 13:58
4  
A hint: Apply Rationalize[] to your function first, and then feed this to Limit[]: Limit[(* your function *), d -> ∞] –  J. M. Apr 19 '13 at 14:18
2  
Try Series[(* your function *), {d, ∞, 2}]. –  Silvia Apr 19 '13 at 14:41
show 4 more comments

1 Answer

The vertical asymptote is caused by the denominator of the Log function going through zero. Therefore, find the value of $d$ such that your denominator is zero.

Solve[(313545. + 2.17341 d - 0.79 (101325 + 1030*9.81*d)) == 0, d

The result is 29.259612511.

share|improve this answer
add comment

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.