Functions | |
endif | if (any(imag(theta))) theta |
endif | if (any(imag(rho))) rho |
endif | if (isscalar(theta)) if(isscalar(rho)) x |
else | error ("__plr2__: invalid data for plotting") |
endif | elseif (isvector(theta)) if(isvector(rho)) if(length(theta)! |
endif | if (rows(rho)==1) rho |
endif | if (rows(theta)==1) theta |
elseif (ismatrix(rho))[t_nr | |
if (t_nr==1) theta | |
if (t_nr!=r_nr) rho | |
Variables | |
function | retval |
y = rho * sin (theta) | |
endif | x = rho .* cos (theta) |
t_nc = size (theta) | |
tmp = t_nr | |
t_nr = t_nc | |
endif [r_nr, r_nc] = size (rho) | |
r_nr = r_nc | |
r_nc = tmp |
elseif | ( | ismatrix(rho) | ) |
if | ( | t_nr! | = r_nr |
) |
if | ( | t_nr | = =1 |
) |
r_nc = tmp |
tmp = t_nr |