Michael Scholz 0fe686245c CE update
2013-02-20 16:20:56 +01:00

32 lines
734 B
Matlab
Executable File

function testA()
fehler = 0;
%syms x1 x2 x3;
%f = [x1^2; x2 + x3; 3 * x3];
%matlabFunction(f, 'file','myfuncA', 'vars', {[x1; x2; x3]});
[y, df] = numdiff(@myfuncA,[2;4;5],[0.25;0.5;0.5]);
disp('--------------------------------------------------------------')
if (y(1)~=4 || y(2)~=9 || y(3)~=15)
fehler =1;
disp('Testcase nicht erfuellt: a) f falsch')
end
A=[4.25 0 0;0 1 1;0 0 3];
for i=1:3
for j=1:3
if (df(i,j)~= A(i,j))
fehler =1;
disp('Testcase nicht erfuellt: a) J falsch')
end
end
end
if (fehler == 0)
disp('Testcase fuer a) erfolgreich')
end
disp('--------------------------------------------------------------')