www.pudn.com > fractal.rar > Pow1.m

clear all; close all; clc;  col=20; m=400; cx=0; cy=0; l=1.5; x=linspace(cx-l,cx+l,m); y=linspace(cy-l,cy+l,m); [X,Y]=meshgrid(x,y); Z=zeros(m); C=X+i*Y; for k=1:col;   Z=Z+C;   W=exp(-abs(Z)); end colormap copper(256); pcolor(W); shading flat; axis('square','equal','off');