1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#(C) Graham Ellis, 2005-2006
#####################################################################
#####################################################################
DeclareCategory("IsHapSparseMat",IsObject);
DeclareRepresentation( "IsHapSparseMatRep",
IsComponentObjectRep,
["rows",
"cols",
"characteristic",
"mat",
]);
HapSparseMatFamily:=NewFamily( "HapSparseMatFamily",
IsHapSparseMat,
IsHapSparseMat);
HapSparseMat:=NewType(HapSparseMatFamily,IsHapSparseMatRep);
InstallMethod( ViewObj,
"for HapSparseMat",
[IsHapSparseMat],
function(M)
Print("Sparse matrix with ", M!.rows, " rows and ", M!.cols, " columns in characteristic ", M!.characteristic,"\n");
end);
InstallMethod( PrintObj,
"for HapSparseMat",
[IsHapSparseMat],
function(M)
Print("Sparse matrix with ", M!.rows, " rows and ", M!.cols, " columns in characteristic ", M!.characteristic,"\n");
end);
#####################################################################
#####################################################################
|
