%*****************************************
%程序：EX502.M
%功能：利用擦除模式動畫顯示布朗運動效果
%*****************************************
n=20
s=0.02
x=rand(n,1)-0.5;
y=rand(n,1)-0.5;                %設置x、y的取值
h=plot(x,y, '. ');             %繪制x、y圖形
       axis([-1 1 -1 1])        %調整坐標軸范圍參數
       axis square                 %坐標軸范圍為正方形
       grid off                     %取消網格
    set(h, 'EraseMode', 'xor','MarkerSize',18)   %設置動畫顯示屬性
while 1
drawnow                               %顯示
x=x+s*randn(n,1);                  
y=y+s*randn(n,1);                 %設置x、y的變化軌跡
set(h, 'XData',x,'YData',y)    %設置動畫屬性
end