Group testing matrices

From Optical Imaging and Spectroscopy (Wiley - OSA 2009)
By David J. Brady
www.opticalimaging.org
Figure 7.21

h[i_,j_,d_]=Mod[Floor[j/(d^i)],d];

a=ArrayPlot[Table[h[i,j,2],{i,0,6},{j,0,127}],AspectRatio->1,PlotLabel->"(a)"]

b=ArrayPlot[Table[h[i,j,4],{i,0,3},{j,0,127}],AspectRatio->1,PlotLabel->"(b)"]

Show[GraphicsArray[{a,b}]]