axiom As := matrix([ [-3,
Type: Matrix(Integer)
axiom A := subMatrix(As,
Type: Matrix(Integer)
axiom ob := orthonormalBasis(A)
Type: List(Matrix(Expression(Integer)))
axiom P : Matrix(Expression Integer) := new(3,
Type: Matrix(Expression(Integer))
axiom setsubMatrix!(P,
Type: Matrix(Expression(Integer))
axiom setsubMatrix!(P,
Type: Matrix(Expression(Integer))
axiom setsubMatrix!(P,
Type: Matrix(Expression(Integer))
axiom Pt := transpose(P)
Type: Matrix(Expression(Integer))
axiom Ps : Matrix(Expression Integer) := new(4,
Type: Matrix(Expression(Integer))
axiom Ps(1,
Type: Expression(Integer)
axiom setsubMatrix!(Ps,
Type: Matrix(Expression(Integer))
axiom PsT := transpose(Ps)
Type: Matrix(Expression(Integer))
axiom PsTAsPs := PsT * As * Ps
Type: Matrix(Expression(Integer))
axiom b1 := PsTAsPs(2,
Type: Expression(Integer)
axiom l1 := PsTAsPs(2,
Type: Expression(Integer)
axiom Us : Matrix(Expression Integer) := new(4,
Type: Matrix(Expression(Integer))
axiom Us(1,
Type: Expression(Integer)
axiom Us(2,
Type: Expression(Integer)
axiom Us(3,
Type: Expression(Integer)
axiom Us(4,
Type: Expression(Integer)
axiom Us(2,
Type: Expression(Integer)
axiom Us
Type: Matrix(Expression(Integer))
axiom PsUs := Ps * Us
Type: Matrix(Expression(Integer))
axiom PsUsT := transpose(PsUs)
Type: Matrix(Expression(Integer))
axiom PsUsTAsPsUs := PsUsT * As * PsUs
Type: Matrix(Expression(Integer))
axiom C := inverse(PsUs)
Type: Union(Matrix(Expression(Integer)),
axiom c := PsUsTAsPsUs(1,
Type: Expression(Integer)
axiom gQ := PsUsTAsPsUs / c
Type: Matrix(Expression(Integer))
axiom x1 := transpose(matrix([[1,
Type: Matrix(Integer)
axiom v1 := transpose(x1) * As * x1
Type: Matrix(Integer)
axiom x2 := C * x1
Type: Matrix(Expression(Integer))
axiom v2 := transpose(x2) * PsUsTAsPsUs * x2
Type: Matrix(Expression(Integer))
... --ren, Fri, 07 Jul 2006 14:33:03 -0500 reply axiom As := matrix([ [-c,
Type: Matrix(Expression(Integer))
axiom A := subMatrix(As,
Type: Matrix(Expression(Integer))
axiom ob := orthonormalBasis(A)
Type: List(Matrix(Expression(Integer)))
axiom P : Matrix(Expression Integer) := new(3,
Type: Matrix(Expression(Integer))
axiom setsubMatrix!(P,
Type: Matrix(Expression(Integer))
axiom setsubMatrix!(P,
Type: Matrix(Expression(Integer))
axiom setsubMatrix!(P,
Type: Matrix(Expression(Integer))
axiom Pt := transpose(P)
Type: Matrix(Expression(Integer))
axiom Ps : Matrix(Expression Integer) := new(4,
Type: Matrix(Expression(Integer))
axiom Ps(1,
Type: Expression(Integer)
axiom setsubMatrix!(Ps,
Type: Matrix(Expression(Integer))
axiom PsT := transpose(Ps)
Type: Matrix(Expression(Integer))
axiom PsTAsPs := PsT * As * Ps
Type: Matrix(Expression(Integer))
axiom Us : Matrix(Expression Integer) := new(4,
Type: Matrix(Expression(Integer))
axiom Us(1,
Type: Expression(Integer)
axiom Us(2,
Type: Expression(Integer)
axiom Us(3,
Type: Expression(Integer)
axiom Us(4,
Type: Expression(Integer)
axiom Us(2,
Type: Expression(Integer)
axiom Us(3,
Type: Expression(Integer)
axiom Us(4,
Type: Expression(Integer)
axiom Us
Type: Matrix(Expression(Integer))
axiom PsUs := Ps * Us
Type: Matrix(Expression(Integer))
axiom PsUsT := transpose(PsUs)
Type: Matrix(Expression(Integer))
axiom PsUsTAsPsUs := PsUsT * As * PsUs
Type: Matrix(Expression(Integer))
axiom cc := PsUsTAsPsUs(1,
Type: Expression(Integer)
axiom so := solve(cc = 0,
Type: Matrix(Expression(Integer))
axiom eval(PsUsTAsPsUs,7.5 |





































