Functions | |
if (S_nr==1||S_nc==1) s | |
endif | if (nargin==1) if(isa(A |
endif | elseif (nargin!=2) print_usage() |
if (rank< cols) retval | |
if (isa(A,"single")) retval(abs(retval)< eps("single"))=0 | |
else | retval (abs(retval)< eps)=0 |
Variables | |
function | retval |
else [U, S, V] = svd (A) | |
else | s = diag (S) |
endif single | tol = max (size (A)) * s (1) * eps ("single") |
endif | rank = sum (s > tol) |
endif elseif | ( | nargin! | = 2 |
) |
if | ( | isa(A,"single") | ) | [pure virtual] |
if | ( | ) |
if | ( | S_nr | = =1||S_nc==1 |
) |
else retval | ( | ) | [pure virtual] |
else[U, S, V] = svd (A) |
else s = diag (S) |