function testB()

 fehler = 0;
 
% syms x1 x2 x3;
% f=[x1^2];
 %jac=jacobian(f)
 %matlabFunction(f, 'file','myfuncB', 'vars', {[x1]});
 %matlabFunction(jac, 'file','myjacB', 'vars', {[x1]});
 
 disp('--------------------------------------------------------------')
 if exist('diffplot.m')==0
     disp('Keine Loesung fuer Aufgabe b) gefunden ')
 else
     diffplot(@myfuncB, @myjacB, [1])
 end
 
 disp('--------------------------------------------------------------')