User Portlet User Portlet

Ed Pegg
Discussions
Going into algebraic number theory -NumberFieldDiscriminant[x /. Solve[x^3 == x^2 + 6 x + 5][[1]]]
&[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/47123188-de57-4f4c-8337-65939abca8a5
I finally looked at one of the major source papers, [An Update on Monitoring Stellar Orbits in the Galactic Center][1], Astrophysical Journal. "We use a fitting code we developed in Mathematica (Wolfram Research, Inc. 2016), which calculates the...
&[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/795a823c-06e9-4a97-aff5-308b29424f4c
"What is known about the maximum number of facets of a single convex polyhedron that can tile in R^3 or R^n?" For an infinite unbound polyhedron, infinite facets, formed by the Voronoi cells of equally spaced points on an infinite helix. For...
Missing—one square to four, or one equilateral triangle to four. How about one square to five? AlgebraicSubstitutionTiling[{1,{{-3,-1},{-3,1},{-1,-3},{-1,-1},{-1,1},{-1,3},{1,-3},{1,-1},{1,1},{1,3},{3,-1},{3,1}}, {{1,6,12,7}->...
SpaceGroupIrep: tool set for irreducible representations of space group, https://community.wolfram.com/groups/-/m/t/2237563 might have what you need.
&[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/f4fc4f44-1b86-4ad1-b7f5-7a1cb39fa28c
How about something like the following? ![enter image description here][1] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=satsolving.jpg&userId=21530
Currently, the prize for Megamillions is over a billion dollars. Pick 5 numbers from 1 to 70, then pick one number from 1 to 25. Odds of winning Megamillions: 25 Binomial[70, 5] = 302575350 Not sure what the odds are of just one...