library(caTools) j.colors = colorRampPalette(c("#000022", "#110066", "#3366AA", "#2200FF", "#55DDFF", "#6622FF", "#0022DD", "#22AAFF", "#00FFFF")) #統計グラフ用のパレットを使用します。色は適当に付けます。 m = 350 #画像のサイズ C = complex(real=rep(seq(-1.8,0.6, length.out=m), each=m), imag=rep(seq(-1.2,1.2, length.out=m), m ) ) C = matrix(C,m,m) Z = 0 X = array(0, c(m,m,15)) #15枚の発散を格納する配列 for (k in 1:15) { Z = Z^2+C #漸化式 X[,,k] =