"Source: Text/Basics/FldForms.text";
"Line: 237";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Basics/FldForms.text, line: 237
// Example: H30E2 ()
print "Example: H30E2";
ei := GetEchoInput();
SetEchoInput(true);
K<a> := QuadraticField(-2);
J := Matrix(K,3,3,[1,2,1, 2,1,0, 1,0,2]);    
V := VectorSpace(K,3,J);
W := sub<V| [a,a,a], [1,2,3]>;
InnerProductMatrix(W);
GramMatrix(W);
DotProductMatrix([W.1,W.2]);
SetEchoInput(ei);
