normest.m File Reference

Functions
endif	if (isa(A,"single")) if(tol< eps("single")) tol
endif else	if (tol< eps) tol
	if (maxA==0) e1=0else[m
	if (m > n) tmp
	if (issparse(A)) while(abs(e1-e0) > tol *e1) e0
	while (abs(e1-e0) > tol *e1) e0
Variables
	function [e1, c]
endif	maxA = max (max (abs (A)))
	c = 0
	n = size (A)
	B = A / maxA
	Bt = B'
endif	e0 = 0
	x = randn (min (m, n), 1)
	e1 = norm (x)

---

Function Documentation

if

(

issparse(A)

)

if	(	m	,
		n
	)

if

(

maxA

= = 0

)

[pure virtual]

endif else if

(

)

endif if

(

isa(A,"single")

)

while	(	abs(e1-e0)	,
		tol *	e1
	)

---

Variable Documentation

endwhile else B = A / maxA

Bt = B'

c = 0

endif e0 = 0

endwhile endif e1 = norm (x)

function[e1, c]

Initial value:

 normest (A, tol)
  if (nargin < 2)
    tol = 1e-6

endif maxA = max (max (abs (A)))

n = size (A)

x = randn (min (m, n), 1)