A = [0.1 1 4];
%B = 2 * ones(1, 3);
h = figure(1);
for i = 1:15
bar(A);
axis([0 4 0 80000]);
set(gca,'xtick',[0:1:4]);
set(gca,'ytick',[0:4000:80000]);
%A = A .* B;
A = 2*A;
F(i) = getframe(h);
end
movie2avi(F, 'increase.avi', 'compression', 'None');