Kurven in Polarkoordinaten

Das Funktions-M-File ohne Rückgabewert 'polarcurve.m' zeichnet eine in Polarkoordinaten definierte Kurve. Die mit einer String-Variablen ausgewählte Radiusfunktion vom Winkel 'w' definiert die Kurve.

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

Die Definition in Polarkoordinaten im File 'archipolexample.m' beschreibt z.B. eine archimedische Spirale.

% rad=archipolexample(win)  Beispiel einer Polarkoordinaten-Funktion
%   fuer die archimedische Spirale (win in Radiant)
function rad = archipol(win)
     rad = 0.1*win;

Durch Einsetzen dieser Funktion wie in polarcurve('archipol',winarray) wird die archimedische Spirale gezeichnet; das Einsetzen anderer Funktionen in Polarkoordinaten ergibt die entsprechenden Plots.