User Portlet User Portlet

Frank Kampas
Discussions
&[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/68498321-fd6f-422a-bd77-7cd34e38a11a
&[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/9653b1b8-eca3-4396-a907-967e7ba1210a
&[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/fbc9708d-fe0a-4fad-8365-a1530a9f23bd
In[1]:= (* Square of the distance between two points *) distsqr[{{x1_, y1_}, {x2_, y2_}}] = (x1 - x2)^2 + (y1 - y2)^2; In[2]:= (* Derivative of the distance squared between a point {x,y} \ and a point on a line passing...
distPolygons[poly1_, poly2_] := {Sqrt[(x1 - x2)^2 + (y1 - y2)^2] /. #, #} & @ QuadraticOptimization[(x1 - x2)^2 + (y1 - y2)^2, {Element[{x1, y1}, poly1], Element[{x2, y2}, poly2]}, {x1, y1, x2, y2}] p1 =...
The documentation only includes examples of RandomPoint used with built-in regions ListPlot[ RandomPoint[ ImplicitRegion[1/2 1] ![enter image description here][1] [1]:...
In[1]:= (* This problem was posted on LinkedIn by Songxin (Derek)Liang 16^(x^2-y)+16^(y^2-x) == 1 *) In[2]:= (* Solve and Reduce cannot get a solution *) Solve[16^(x^2 - y) + 16^(y^2 - x) == 16, {x, y}] During...
I've done searches but haven't found any.
In[1]:= f = 2 x1 + 3 x2 + 3 y1/2 + 2 y2 - y3/2; c = {x1^2 + y1 == 5/4, x2^(3/2) + 3 y2/2 == 3, x1 + y1 {"DifferentialEvolution", "SearchPoints" -> n}][[ 1]]], {n, 2, 10}] Out[4]= {{0.432374, 8.47632}, {2.24204,...
How Does FindMinimum Handle "Or" Constraints? In[37]:= FindMinimum[{x + y, Or[(x - 2)^2 + y^2 == 1, (x + 2)^2 + (y + 1)^2 == 1]}, {x, y}, Method -> "IPOPT"] Out[37]= {-4.41421, {x -> -2.70711, y ->...