image(hadamard(30))
plot(sapply(2:80,function(i) ncol(hadamard(i))),type="S",
ylab="Matrix size",xlab="n",xlim=c(1,100),ylim=c(1,100))
abline(0,1,lty=2)
lines(2:80, 2:80-(2:80 %% 4)+4,col="purple",type="S")
legend(c(x=10,y=80),legend=c("Actual size","Minimum possible size"),
lty=c(1,1),col=c("black","purple"),bty="n")
Run the code above in your browser using DataLab