OKlibrary  0.2.1.6
QuadraticForms.mac
Go to the documentation of this file.
00001 /* Oliver Kullmann, 13.8.2008 (Swansea) */
00002 /* Copyright 2008 Oliver Kullmann
00003 This file is part of the OKlibrary. OKlibrary is free software; you can redistribute
00004 it and/or modify it under the terms of the GNU General Public License as published by
00005 the Free Software Foundation and included in this library; either version 3 of the
00006 License, or any later version. */
00007 
00022 oklib_include("OKlib/ComputerAlgebra/TestSystem/Lisp/Asserts.mac")$
00023 oklib_include("OKlib/ComputerAlgebra/CombinatorialMatrices/Lisp/Basics.mac")$
00024 
00025 kill(f)$
00026 
00027 /* ***********************************************
00028    * Indices of positivity, negativity, nullity *
00029    ***********************************************
00030 */
00031 
00032 okltest_pivot_d(f) := (
00033 
00034   true)$
00035 
00036 /* Generic test function for the indices: */
00037 okltest_pnn_indices(f) := (
00038 
00039   true)$
00040 
00041 /* Generic test function for the hermitian rank: */
00042 okltest_hermitian_rank(f) := (
00043   assert(f(matrix()) = 0),
00044   assert(f(matrix([0])) = 0),
00045   assert(f(matrix([1])) = 1),
00046   for n : 2 thru 5 do
00047     assert(f(scom2m(conststdscom(n,1)) - ident(n)) = n-1),
00048   true)$
00049 
00050 /* Generic test function for the hermitian deficiency: */
00051 okltest_hermitian_def(f) := (
00052 
00053   true)$
00054