Wolfram Research

Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Mrs. Perkins's Quilts

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

Originator: Ed Pegg Jr

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

Data Resource History

  • Date Created: 1 August 2017

Source Metadata

Data Downloads

Publisher Information

  • Contributed By: Ed Pegg Jr
  • Publisher of Record: Wolfram Research