Plabic tiling

Plabic tilingのためのRソースメモ

V <- matrix(0,13,18) F <- matrix(0,15,18) E <- matrix(0,18,18) V[1,c(12,14,7,3,4,5,6,10,8)] <- 1 V[2,c(14,7,16,11,5,6,8,10,12)] <- 1 V[3,c(14,7,16,9,8,11,10,15,12)] <- 1 V[4,c(14,2,16,11,9,13,12,10,15)] <- 1 V[5,c(14,2,16,11,15,13,6,18,12)…