Enlarge figure axis by a given factor

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

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

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

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

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

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