fnuvec.m

Advanced Engineering Mathematics using MATLAB by Harman, Dabney, Richert,书中全部源码

function [xnorm,xuvec]=fnuvec(x)
% CALL: [xnorm,xuvec]=fnuvec(x)
% Compute norm (xnorm) and unit vector (xuvec) of vector x
if x == 0
 xnorm =0
 xuvec =x
else
xnorm=norm(x);
xuvec=x./xnorm;
end