怎么样用mathematica画图Julia Set的图像?

mathematica

Julia Set见 http://www.mcgoodwin.net/julia/juliajewels.html

mathematica

Some Julia sets http://www.ijon.de/mathe/julia/some_julia_sets_1_en.html

mathematica

Clear["Global`*"]; (*Clear all variables*) z=0; (*迭代的初始值*) c=0.3+0.6*I; (*公式中的常数*) m=200; (*迭代次数*) data=Table[0,{x,m},{y,2}]; (*定义绘图数据的形状,矩阵*) Do[z=z^2+c; (*迭代公式*) data[[n,1]]=Re[z]; (*实数部分赋值给第一列*) data[[n,2]]=Im[z], (*虚数部分赋值给第二列*) {n,1,m}]; (*循环控制*) ListLinePlot[data] (*绘图*) 为什么我的这个命令就是不行呢?

1. Clear["Global`*"]; (*Clear all variables*)
2. z=0; (*迭代的初始值*)
3. c=0.3+0.6*I; (*公式中的常数*)
4. m=200; (*迭代次数*)
5. data=Table[0,{x,m},{y,2}]; (*定义绘图数据的形状,矩阵*)
6. Do[z=z^2+c; (*迭代公式*)
7. data[[n,1]]=Re[z]; (*实数部分赋值给第一列*)
8. data[[n,2]]=Im[z], (*虚数部分赋值给第二列*)
9. {n,1,m}]; (*循环控制*)
10. ListLinePlot[data] (*绘图*)

复制代码

还是写在代码框里面好