t= linspace(0,1.7,400);

typ = input('normale oder logarithmische spirale!?');

switch lower(typ(1))
case 'n'
    [x,y] = Spirale(t);
    plot(x,y);    
    title('Spirale');
    xlabel('x');
    ylabel('y');
    axis('equal');
    
case 'l'
    [x,y] = Logspirale(t);
    plot(x,y);    
    title('Logarithmische Spirale');
    xlabel('x');
    ylabel('y');
    axis('equal');
    
otherwise 
    error('Value of variable typ unknown');
end