function [f] = auf52b(x)
% Funktion aus Aufgabe 5.2 b) (Aufgabe 2.5)
%
%s.f.
global outputname


f = [x(1,:).*x(2,:);
     -sqrt(0.5)*x(1,:);
     sqrt(0.25)*x(2,:);
     sqrt(0.5)*(2-x(1,:).^2-x(2,:).^2)];

if ~isempty(outputname), feval(outputname,x); end;

return

