Matlab - Coordenadas cilíndricas

[THETA,RHO,Z] = cart2pol(X,Y,Z)

%conversion de coordenadas polares a rectangulares y viceversa

disp('para conversion de coordenadas rectangulares a polares presione 1')

disp('y para conversion de polares a rectangulares presione 2')

ticonv=input('escoja el tipo de conversion que desea realizar');

if ticonv==1

    x=input('digite el valor de coordenada x');

    y=input('digite el valor de coordenada y');

    r=sqrt((x^2)+(y ^2));

    theta=(atan(y/x))*180/pi;

    disp('las coordenadas polares (r, theta) son:')

    disp(r)

    disp(theta)

 elseif ticonv==2

         r=input('digite el valor de r');

        theta1=input('digite el valor de theta en grados');

        if theta1>=0&&theta1<=360

            x1=r*cos(theta1*pi/180);

            y1=r*sin(theta1*pi/180);

            disp('las coordenadas rectangulares (x,y) son:')

            disp(x1)

            disp(y1)

        else disp('el angulo debe ser menor de 360 ')

        end

else  disp('error de datos introducidos')

end