[Octave-patch-tracker] [patch #8119] Allow variable tolerance and improve error messages for assert.m script

[Dan Sebald]

Follow-up Comment #14, patch #8119 (project octave):

Apparently that isn't a bug.  The three output argument find is:

[i, j, v] = find (A)

and returns values in the third column.  I would think that the output
arguments would be the various dimensions and if there were one greater output
than dimensions that would be for the values.

No matter, just use ind2sub with an extra function call:


oarg = sprintf ("i%d ", 1:ndims (A));
eval (cstrcat ("[", oarg, "] = ind2sub (size (A), find (A != B));"));
eval (cstrcat ("idx = [", oarg, "];"));
for i = 1:length (i1)
  loc = sprintf("%d,", idx (i,:)) (1:end-1);
end


which works correctly:


>> oarg = sprintf ("i%d ", 1:ndims (A));
>> eval (cstrcat ("[", oarg, "] = ind2sub (size (A), find (A != B));"));
>> eval (cstrcat ("idx = [", oarg, "];"));
>> for i = 1:length (i1)
  loc = sprintf("%d,", idx (i,:)) (1:end-1)
end
loc = 1,1,1
loc = 2,2,2


    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/patch/?8119>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/