A script to create an animated surface in Matlab from wikipedia

gauss_fomwiki.m (text/plain), 401 bytes, created by Christian Kotz on 2007-11-30 10:42:19 UTC

A = 1;
x0 = 0; y0 = 0;
for theta = 0:pi/100:pi
sigma_x = 1;
sigma_y = 2;
a = (cos(theta)/sigma_x)^2 + (sin(theta)/sigma_y)^2;
b = -sin(2*theta)/(sigma_x)^2 + sin(2*theta)/(sigma_y)^2 ;
c = (sin(theta)/sigma_x)^2 + (cos(theta)/sigma_y)^2;
[X, Y] = meshgrid(-5:.1:5, -5:.1:5);
Z = A*exp( - (a*(X-x0).^2 + b*(X-x0).*(Y-y0) + c*(Y-y0).^2)) ;
surf(X,Y,Z);shading interp;view(-36,36);axis equal;drawnow
end