Enlarge figure axes by a given factor

Given a figure with (eg. tight) axes, this simple code automatically recalculates and enlarges axes them by a prescribed factor.

5 examples (the code works in both normal and logarithmic scales):

figure; x=1:100; y=sqrt(x); plot(x,y); axis tight; enlarge_axis(0.1,0.05);

figure; x=1:100; y=sqrt(x); semilogy(x,y); axis tight; enlarge_axis(0.1,0.05);

figure; x=1:100; y=sqrt(x); semilogx(x,y); axis tight; enlarge_axis(0.1,0.05);

figure; x=1:100; y=sqrt(x); loglog(x,y); axis tight; enlarge_axis(0.1,0.05);

figure; sphere; axis image; enlarge_axis;