function iretvoid = polarcurve(funcnam, win)
% polarcurve(fnam, winarray)  Polarkoordinaten-Plot mit 
% dem Funktionsnamen der Polarkoordinaten-Funktion als Parameter
%   und einem Array von Winkelwerten in Radian 
iretvoid = 0;
x = feval(funcnam, win).*cos(win);
y = feval(funcnam, win).*sin(win);
plot (x,y)
axis equal
axis square

