User Portlet
| Discussions |
|---|
| Hello everyone, I am trying to calculate a Product, P1, that is a function of NIntegrate. This product is performed over j terms, where j is the number of elements in the list entitled Times1. a = 3/100; b = d = 1; c = 1/2; k = HMax = 2000;... |
| Please delete this question when possible. I asked the wrong question. Apologies for the inconvenience/confusion! |
| It seems that Reduce cannot solve inequalities involving `InterpolatingFunction`. However, you may check the inequality numerically in the midpoint of each interval provided by `RootSearch`. |
| [DiscretePlot][1] does what you want f = Exp[-0.07*t]*500; DiscretePlot[f, {t, 0, 40, 10}] [1]: https://reference.wolfram.com/language/ref/DiscretePlot.html?q=DiscretePlot |
| Wow I did not know about this function; thank you so much! |
| The problem is that for `g = 0.093` there is no gradient sign change in the domain of the `y3` solution so the `tMax` returned by `FindMaximum` is `2.2518*10^15` which is way outside the domain. Plot[y3, {t, 0, 5000}] ![enter image... |
| If you need the input and output (* As a List of pairs *) Map[{#, 1000 Exp[-#]} &, Range[0, 1, .01]] (* As an Association *) AssociationMap[1000 Exp[-#] &, Range[0, 1, .01]] |
| Oh, I did not think it could be done that easily. Thank you! I am new to Mathematica, so I apologize for all of the really specific questions. Your help is much appreciated. Alex |
| This is such a cool way to do it; wish I had thought of that! Thank you so much! And, the lists vary from about 8-15 elements, so I think this will work great. Alex |
| Thank you!! I see what I was doing wrong now. |