ロゴ(こちら)…(つい、自分もやってしまう) ImageJを使う(こちら) size<-100 z<-matrix(0,size,size) z[,1:size*0.1]<-1 for(i in (size*0.1+1):(size*0.3)){ z[(i-size*0.1):(i+size*0.15),i]<-1 } for(i in (size*0.3+1):(size*0.5)){ z[(size*0.5-i):(size…