Diff of /@mp/abs.m [e19005] .. [dc5f16] Maximize Restore

  Switch to side-by-side view

--- a/@mp/abs.m
+++ b/@mp/abs.m
@@ -1,25 +1,21 @@
-function out=abs(x)
+function out = abs(x)
 
-if isempty(x), out=x; return; end
-precision=x(1).precision;
-out_rval=cell(size(x));
-out_ival=cell(size(x));
+if (isempty (x)) out = x; return; end
+precision = x(1).precision;
+out_rval = cell (size (x));
+out_ival = cell (size (x));
 
-for ii=1:numel(x)
- imag=false;
- [xrval,xival]=getVals(x,ii);
- if hasimag(xival), imag=true; end
- if imag
-  out_rval{ii}=mpfr_absc(precision,xrval,xival);
- else  
-  if strncmp(xrval,'-',1)
-   out_rval{ii}=xrval(2:end);
-  else
-   out_rval{ii}=xrval;
-  end
+for ii=(1:numel (x))
+  [xrval, xival] = getVals (x, ii);
+ if (hasimag (xival))
+   out_rval{ii} = mpfr_absc (double (precision), xrval, xival);
+ elseif (strncmp (xrval, '-', 1))
+   out_rval{ii} = xrval(2:end);
+ else
+   out_rval{ii} = xrval;
  end
 end % for ii=1:max(ex,
-out=class(struct('rval',out_rval,...
-                  'ival',out_ival,...
-                  'precision',precision),'mp');
+out = class (struct ('rval', out_rval,...
+                     'ival', out_ival,...
+                     'precision', precision), 'mp');