with(plots);
g:=1/sqrt((1-x^2)^2+(x/10^t)^2);
A:=animate(g,x=0..2,t=-0.5..0.5,numpoints=100,frames=20,
color=magenta):
B:=animate(g*x,x=0..2,t=-0.5..0.5,numpoints=100,frames=20, color=cyan):
C:=animate(g*x^2,x=0..2,t=-0.5..0.5,numpoints=100,frames=20, color=yellow):
F:=display([A,B]):
display([F,C]);