14 lines
180 B
Mathematica
14 lines
180 B
Mathematica
|
function [nnz,ind, val] = pennlp_congrad(i,x)
|
||
|
|
|
||
|
|
|
||
|
|
try
|
||
|
|
f = datasaver(5,x,i+1);
|
||
|
|
[ind,dummy,val] = find(f(:));
|
||
|
|
nnz = length(ind);
|
||
|
|
catch
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
%[nnz,ind, val] = dg(i,x);
|
||
|
|
|