			% This script tests Herm.m for correctness

			fprintf('Test 1: zero-order polynomials ...');
			assert(Herm(0,0) == 1);
			assert(Herm(pi,0) == 1);
			assert(Herm(pi*1j,0) == 1);
			fprintf('\tpassed\n');

			fprintf('Test 2: first-order polynomials ...');
			assert(Herm(0,1) == 0);
			assert(Herm(pi,1) == 2*pi);
			fprintf('\tpassed\n');

			fprintf('Test 3: recoursive checks ...');
			for i = [3, 4, 5; pi^3, pi^-4, pi^5]
			n = i(1);
			x = i(2);
			assert(Herm(x,n+1) == 2xHerm(x,n) - 2nHerm(x,n-1));
			end
			fprintf('\tpassed\n');

			fprintf('Test 4: Herm(-pi,7) ...');
			assert(Herm(-pi,7) == -128pi^7 + 1344pi^5 - 3360pi^3 + 1680pi);
			fprintf('\tpassed\n');

			fprintf('All tests passed!\n');

compphys/exo1/test.m
33bba04159d6master

test.m
View Options