www.gusucode.com > matlab通信工程仿真源码（张德丰等编著）程序书籍 > matlab_code/matlab通信工程仿真源码（张德丰等编著）/第3章/tran.m

    %建立函数文件tran.m
function [rho,theta]=tran(x,y)
rho=sqrt(x*y+y*y);
theta=atan(y/x);
%调用tran.m的脚本文件main.m：
x=input('Please input x=:');
y=input('Please input y=:');
[rho,theta]=tran(x,y);
rho
theta