invhilb.m File Reference

Functions
	if (nmax==1) retval
	p (2:2:n)
	if (n< 203) for l
endfor endif else	error ("invhilb: expecting scalar argument, found something else")
	!assert ((invhilb(1)==1 &&invhilb(2)==[4,-6;-6, 12]%!&&invhilb(4)==result4%!&&abs(invhilb(7)*hilb(7)-eye(7))< sqrt(eps)))
!error	invhilb ([1, 2])
!error	invhilb (1, 2)
Variables
function	retval
endif	nmax = length (n)
	k = [1:n]
	p = k .* bincoeff (k+n-1, k-1) .* bincoeff (n, k)
endfor else for	l
endif endfunction!test	!result4 = [16, -120, 240, -140

---

Function Documentation

!assert

(

(invhilb(1)==1 &&invhilb(2)==[4,-6;-6, 12]%!&&invhilb(4)==result4%!&&abs(invhilb(7)*hilb(7)-eye(7))< sqrt(eps))

)

endfor endif else error	(	"invhilb: expecting scalar	argument,
		found something else"
	)

if

(

)

if

(

nmax

= =1

)

!error invhilb	(	1	,
		2
	)

error invhilb

(

)

p

(

2:2:n

)

---

Variable Documentation

endif endfunction !test !result4 = [16, -120, 240, -140

k = [1:n]

endfor else for l

Initial value:

 1:n
        retval(l,:) = p(l) * (p ./ [l:l+n-1])

endif nmax = length (n)

p = k .* bincoeff (k+n-1, k-1) .* bincoeff (n, k)

function retval

Initial value:

 invhilb (n)

  if (nargin != 1)
    print_usage ()