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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
function stats = UFweb (matrix, opts)
%UFWEB opens the URL for a matrix.
%
% UFweb(matrix) opens the URL for a matrix. This parameter can be a string,
% or an integer. If it is a string with no "/" character, the web page for a
% matrix group is displayed. With no arguments, a list of all the matrix
% groups is displayed.
%
% Example:
%
% If Problem = UFget ('HB/arc130'), the first four examples display
% the same thing, the web page for the HB/arc130 matrix:
%
% UFweb (6)
% UFweb ('HB/arc130')
% stats = UFweb (6)
%
% The latter also returns statistics about the matrix or matrix group.
% To display the web page for the HB (Harwell-Boeing) group:
%
% UFweb ('HB')
%
% To display the home page for the UF sparse matrix collection:
%
% UFweb
% UFweb (0)
% UFweb ('')
%
% The latter two are useful if a second optional parameter is specified.
% The second optional argument is a string passed as additional parameters to
% the MATLAB web command. To use the system web browser instead of the MATLAB
% browser, for example, use UFweb ('HB/arc130', '-browser').
%
% See also web, UFget, UFget_defaults.
% Copyright 2007, Tim Davis, University of Florida.
params = UFget_defaults ;
UF_Index = UFget ;
if (nargin < 1)
matrix = '' ;
end
if (nargin < 2)
opts = '' ;
end
% get the matrix group, name, and id
[group name id] = UFget_lookup (matrix, UF_Index) ;
url = params.url ;
len = length (url) ;
if (strcmp (url ((len-3):len), '/mat'))
% remove the trailing '/mat'
url = url (1:(len-4)) ;
end
% open the web page for the matrix, group, or whole collection
if (id == 0)
if (isempty (group))
eval (['web ' url '/matrices/index.html ' opts])
else
eval (['web ' url '/matrices/' group '/index.html ' opts])
end
else
eval (['web ' url '/matrices/' group '/' name '.html ' opts])
end
% return stats
if (nargout > 0)
if (id == 0)
if (isempty (group))
% return stats about the whole collection
stats.nmatrices = length (UF_Index.nrows) ;
stats.LastRevisionDate = UF_Index.LastRevisionDate ;
stats.DownloadTime = datestr (UF_Index.DownloadTimeStamp) ;
else
% return stats about one matrix group
nmat = length (UF_Index.nrows) ;
ngroup = 0 ;
for i = 1:nmat
if (strcmp (group, UF_Index.Group {i}))
ngroup = ngroup + 1 ;
end
end
stats.nmatrices = ngroup ;
stats.LastRevisionDate = UF_Index.LastRevisionDate ;
stats.DownloadTime = datestr (UF_Index.DownloadTimeStamp) ;
end
else
% look up the matrix statistics
stats.Group = group ;
stats.Name = name ;
stats.nrows = UF_Index.nrows (id) ;
stats.ncols = UF_Index.ncols (id) ;
stats.nnz = UF_Index.nnz (id) ;
stats.nzero = UF_Index.nzero (id) ;
stats.pattern_symmetry = UF_Index.pattern_symmetry (id) ;
stats.numerical_symmetry = UF_Index.numerical_symmetry (id) ;
stats.isBinary = UF_Index.isBinary (id) ;
stats.isReal = UF_Index.isReal (id) ;
stats.nnzdiag = UF_Index.nnzdiag (id) ;
stats.posdef = UF_Index.posdef (id) ;
stats.amd_lnz = UF_Index.amd_lnz (id) ;
stats.amd_flops = UF_Index.amd_flops (id) ;
stats.amd_vnz = UF_Index.amd_vnz (id) ;
stats.amd_rnz = UF_Index.amd_rnz (id) ;
stats.metis_lnz = UF_Index.metis_lnz (id) ;
stats.metis_flops = UF_Index.metis_flops (id) ;
stats.metis_vnz = UF_Index.metis_vnz (id) ;
stats.metis_rnz = UF_Index.metis_rnz (id) ;
stats.nblocks = UF_Index.nblocks (id) ;
stats.sprank = UF_Index.sprank (id) ;
stats.nzoff = UF_Index.nzoff (id) ;
stats.dmperm_lnz = UF_Index.dmperm_lnz (id) ;
stats.dmperm_unz = UF_Index.dmperm_unz (id) ;
stats.dmperm_flops = UF_Index.dmperm_flops (id) ;
stats.dmperm_vnz = UF_Index.dmperm_vnz (id) ;
stats.dmperm_rnz = UF_Index.dmperm_rnz (id) ;
stats.RBtype = UF_Index.RBtype (id,:) ;
stats.cholcand = UF_Index.cholcand (id) ;
stats.ncc = UF_Index.ncc (id) ;
end
end
|
