function [cateto1,cateto2]=cateti(r,theta)

cateto1=r*cos(theta);
cateto2=r*sin(theta);