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('--------------------------------------------------------------')