function [x,y] = polar_to_rectangular (r, angulo,modo)
    if strcmp(modo,"grados")
       x = r*cosd(angulo);
       y = r*sind(angulo); 
    else
       x = r*cos(angulo);
       y = r*sin(angulo);
    end   
endfunction