Mrs. Perkins's Quilts

Divide a square into a minimum number of integer-sided squares with a relatively prime subset

Originator: Ed Pegg Jr

(4 columns, 10000 rows)

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["Mrs. Perkins's Quilts"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["Mrs. Perkins's Quilts"]
Out[2]=

Additional Examples

Show data for the quilt of size 276:

In[3]:=
ResourceData["Mrs. Perkins's Quilts"][276]
Out[3]=

Show the quilt of size 276:

In[4]:=
With[{patches = 
   Transpose[{Normal[
      ResourceData["Mrs. Perkins's Quilts"][276]["PatchCoordinates"]],
      Normal[ResourceData["Mrs. Perkins's Quilts"][276][
       "PatchSizes"]]}]}, 
 Graphics[{EdgeForm[Black], White, 
   Rectangle[#[[1]], #[[1]] + #[[2]]] & /@ patches, Black, 
   Text[Style[#[[2]], #[[2]]/2], #[[1]] + #[[2]]/2] & /@ patches}]]
Out[4]=

Show behavior of the log(size)/order up to size 10000:

In[5]:=
With[{data = ResourceData["Mrs. Perkins's Quilts"]},
 ListPlot[Table[N[Log[n]/data[n]["PatchCount"]], {n, 1, 10000}], 
  PlotRange -> {.238, .268}, AspectRatio -> 1/5, 
  ImageSize -> {600, 140}]]
Out[5]=

Wolfram Research, "Mrs. Perkins's Quilts" from the Wolfram Data Repository. (2017) https://doi.org/10.24097/wolfram.95323.data

Source Metadata

Data Downloads

Publisher Information