(* Data Driven Kelly Plot *) |
Off[General::spell]; |
Off[General::spell1]; |
col = 10; (* number of columns *) |
b = 3; (* number of bins = number of colors *) |
dlst = {}; |
(* paste the data between the {} in dlst = {}, comma separated numbers *) |
dmax = Max[dlst]; |
dmin = Min[dlst]; |
drng = dmax - dmin; |
lngth = Length[dlst]; |
Do[rs[i]=Rectangle[{Mod[i,col],-Floor[i/col]}, {Mod[i,col]+1,-Floor[i/col]-1}], {i,0,lngth-1}] |
(* This defines the array of boxes *) |
color[1]=RGBColor[1,0,0]; |
color[2]=RGBColor[0,1,0]; |
color[3]=RGBColor[0,0,1]; |
color[4]=RGBColor[1,1,0]; |
color[5]=RGBColor[1,0,1]; |
color[6]=RGBColor[0,1,1]; |
color[7]=RGBColor[.5,0,0]; |
color[8]=RGBColor[0,.5,0]; |
color[9]=RGBColor[0,0,.5]; |
color[10]=RGBColor[1,1,1]; |
(* Here are 10 assigned colors - add more if you want more than 10 bins *) |
cList={}; |
Do[{ind = Min[b,1+Floor[b*(dlst[[i+1]] - dmin)/drng]], AppendTo[cList,{color[ind],rs[i]}]}, {i,0,lngth-1}] |
Show[Graphics[cList],AspectRatio->((Floor[lngth/col]+1)/col)] |