0
$\begingroup$

I am trying to solve the following system for d:

1/(3 + d) < 
 1/(6 (1 + d)) E^(-3 (1 + d) t) (1 + 3 d + 2 E^(3 (1 + d) t) - 
    E^((-3 - d) t + 3 (1 + d) t) - 3 d E^((-3 - d) t + 3 (1 + d) t) + 
    6 E^((-3 - d) t + 3 (1 + d) t) (1 + 3 d + E^(2 d t) + 
        3 d E^(2 d t) + 2 E^(3 (1 + d) t))/(6 (1 + d) E^(2 d t)) + 
    6 d E^((-3 - d) t + 3 (1 + d) t) (1 + 3 d + E^(2 d t) + 
        3 d E^(2 d t) + 2 E^(3 (1 + d) t))/(6 (1 + d) E^(2 d t)))

So I tried Reduce[] on the expression. But the run time is way too long. It has been half an hour. I want to see what solutions exist for 0<d<1, 0<t. How can I do this faster?

$\endgroup$
5
  • 4
    $\begingroup$ Simplify[YourInequality,0<d<1&&0<t] instantly returns True so that says every d,t in that domain is a solution to your inequality. Table[d=RandomReal[{0,1}]; t=RandomReal[{-10,0}]; YourInequality,{1000}] returns a list of 1000 True $\endgroup$
    – Bill
    Commented Jul 23, 2019 at 13:33
  • $\begingroup$ Strange. When I try your approach it says running and never resolves. $\endgroup$ Commented Jul 23, 2019 at 14:00
  • $\begingroup$ But it works on the online version $\endgroup$ Commented Jul 23, 2019 at 14:15
  • $\begingroup$ Have you tried restarting Mathematica? Perhaps you have previously assigned something to d or t. Can you list the version numbers you are using? I used 12.0.0 $\endgroup$
    – Bill
    Commented Jul 23, 2019 at 14:49
  • $\begingroup$ Yep. That fixed it $\endgroup$ Commented Jul 23, 2019 at 17:38

0

Your Answer

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

Browse other questions tagged or ask your own question.