User Portlet User Portlet

Ed Pegg
Discussions
How to solve something like this? Consider the problem of covering the largest possible equilateral triangle with two unit squares. I make a sketch in Geometer's Sketchpad first. ![two squares][1] Then put the equations right into...
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}->...
Manipulate[Module[{sol2}, sol2=ParametricNDSolve[{x'[t]==Cos[t],y'[t]==Sin[t],z'[t]==b*1/4,x[0]==0,y[0]==1,z[0]==0},{x,y,z},{t,0,100},{a}]; ...
Code for a nice Venn 5. ![venn5][1] pp=RootReduce[2CirclePoints[5]/(EuclideanDistance@@CirclePoints[5][[{1,2}]])]; sp=Join[Table[2.12CirclePoints[10][[Mod[n-2,10,1]]]+pp[[2]],{n,1,9}], ...
Every node has six lines. Every line has six nodes. If you like these designs You can try out my codes. ![96_6 configuration][1] base={{0,-1},{0,Root[1+2 #1+2 #1^3+#1^4&,2]},{1/2,Root[-11-8 #1+24 #1^2-32 #1^3+16...
How to label faces of a cube with numbers 1 to 6? First, I'll turn text outlines into polygons. SymbolToPolygon[symbol_, dimension_: "3D"] := Module[{pol, poly, index, pos, minmax, diffs, poly2D}, pol =...
That's very nice. Thank you for bringing it to my attention.
On 17 October 2018, [Ivan Neretin discovered the octagonal dodecahedron](https://math.stackexchange.com/questions/2869725/), a toroid made from twelve octagons. **4**, 6, 8 triangles can make a tetrahedron and up. The [Snub...
[A picture of the version I built](https://twitter.com/stephen_wolfram/status/1052280472787660800). ![Stephen Wolfram twitter][1] [1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=swtwitter.jpg&userId=21530
Can this method make the [Wallis sponge](http://community.wolfram.com/groups/-/m/t/822984)?