Sander Heinsalu
Reputation
Top tag
Next privilege 250 Rep.
 Apr15 accepted Results of ArgMax as a function of a parameter with InterpolatingFunctions Apr15 asked Results of ArgMax as a function of a parameter with InterpolatingFunctions Feb28 awarded Commentator Mar14 revised Integration gives ComplexInfinity when it shouldn't Added my attempts to bypass the problem Mar11 comment NumericQ prevents evaluation at a numerical value sometimes The variables started out as parameters, the gradual changes in the code led to the final error. I was trying workarounds for the problem I described in mathematica.stackexchange.com/questions/21013/… Mar11 accepted NumericQ prevents evaluation at a numerical value sometimes Mar11 awarded Editor Mar11 revised NumericQ prevents evaluation at a numerical value sometimes Formatted code correctly Mar11 asked NumericQ prevents evaluation at a numerical value sometimes Mar11 awarded Scholar Mar11 accepted Forcing evaluation of ArgMax Mar11 comment Integration gives ComplexInfinity when it shouldn't Maybe a more precise question would be: how to force the dummy variable of integration to be real. Non-working code Assuming[{k, l} \[Element] Reals, Integrate[Exp[l]/((1 + Exp[l])*Exp[k*l]), l]] /. {k -> 2} Mar11 awarded Supporter Mar11 comment Integration gives ComplexInfinity when it shouldn't Thank you, this info helps me in the right direction. Any workarounds for the ComplexInfinity problem would be appreciated. I'm only working with real numbers, would like to force Mathematica to stick to them. Mar11 comment Integration gives ComplexInfinity when it shouldn't The plot of the integrals strangely contains negative values. All the Exp functions are positive, so the function under the integral is positive everywhere. How can the integral then be negative? Mar11 asked Integration gives ComplexInfinity when it shouldn't Mar5 awarded Student Mar5 comment Forcing evaluation of ArgMax Success! Thank you, the following does it: Clear[p, qa, qb, qachosen, qbchosen] \$Assumptions = {p, qa, qb, qachosen, qbchosen} >= 0 p[qa_, qb_] := 1 - qa - qb qa[qb_] = qa /. Last@Maximize[qa*p[qa, qb], qa] qb[qa_] = qb /. Last@Maximize[qb*p[qa, qb], qb] Solve[{qa[qb] == qa, qb[qa] == qb}, {qa, qb}] Mar5 comment Forcing evaluation of ArgMax Remains unevaluated. Mar5 comment Forcing evaluation of ArgMax Same error occurs with ´:=´ and after using ´Clear´. I'm using Mathematica 6 with Windows XP.