J. M.
Reputation
147/100 score
 Apr 26 comment NSolve won't act on very large powers @Jeff, did you try increasing the setting of WorkingPrecision instead? Apr 26 comment How dangerous is 'Overflow occurred in computation' message? …and by sharing your code, we just might be able to propose reformulations that avoid your overflow problems altogether. Apr 26 comment Wolfram Cloud and reCAPTCHA Maybe you can use their API with the built-in functionality for APIs? Apr 26 comment The Disc and Washer Methods Have you looked at RevolutionPlot3D[] already? Apr 25 comment Construct certain univariate functions over bounded interval having given set of moments This seems more like a math question than a Mathematica question. Apr 25 comment Find the number of $n$ such that $n!$ is a sum of three squares Huh, would've thought keeping everything in integers would be faster. Oh well. Apr 25 comment Find the number of $n$ such that $n!$ is a sum of three squares It's annoying that BitShiftRight[] is still uncompilable. Otherwise, nice! BTW: I'd use Quotient[m, 2] instead of Floor[m/2]. Apr 25 comment NSolve won't act on very large powers Huh. If you set WorkingPrecision to anything other than the default value, it works. Apr 25 comment Checking if input is a function BTW, you might also be interested in PolynomialQ[]. Apr 25 comment Checking if input is a function Variables[#^2 - # + 7] will work, tho. Apr 25 comment Getting PlotPoints value from a Plot @kglr, that's what I told Jason; the only snag in that is that it doesn't account for PlotRangePadding. Apr 25 comment Why PolarPlot can have negative $r$? @John, and I gotta say, the analytic geometry books I've seen all mention that $r$ can be negative. OTOH, they're old, and maybe the OP's newfangled books now have restrictions in place. Apr 25 comment Getting PlotPoints value from a Plot Yes, I was merely anticipating people who might ask why you didn't just extract PlotRange from the resulting Graphics[] object. Apr 25 comment Getting PlotPoints value from a Plot Did you have a look at the FullForm[] of the output of Flatten[(* stuff *)]? Apr 25 comment Getting PlotPoints value from a Plot For your perusal: TracePrint[Plot[{Sin[x], Sin[2 x], Sin[3 x]}, {x, 0, 2 π}], (MaxRecursion -> _Integer) | (PlotPoints -> _Integer), TraceInternal -> True]. You can then apply Chartingget2DPlotRange[] to the output afterwards. (N.B. PlotRange[graphics] and Chartingget2DPlotRange[graphics] will have different results in general, depending on the PlotRangePadding setting.) Apr 25 comment Is there a good way to schematically show that 3 vectors are perpendicular? Where's the code? Apr 24 comment How to generate higher dimensional convex hull? Consider for instance the 3D convex hull. The points are organized (alright, that may have been the more appropriate word to use) so that there is a polygon corresponding to each facet of the hull. In the 4D case, you have cells; how should the points be grouped in those individual cells? Or will you be satisfied with a routine that returns just the coordinates of the corners? Apr 24 comment How to generate higher dimensional convex hull? Let's restrict ourselves to the 4D case, for simplicity. How do you expect the points making up the corners of your convex hull to be arranged? Apr 24 comment Solving coupled differential equations with unknown constants What happens when you feed them into DSolve[]? Apr 24 comment How to construct the RHS of Wick's theorem @evan, even if it should turn out to not be what the OP wants, can you maybe post it (if needed, as a self-answered question)? That looks interesting in itself.