Mercurial > hg > octave-lojdl
diff src/DLD-FUNCTIONS/gammainc.cc @ 11586:12df7854fa7c
strip trailing whitespace from source files
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 20 Jan 2011 17:24:59 -0500 |
| parents | 01f703952eff |
| children | 72c96de7a403 |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/gammainc.cc +++ b/src/DLD-FUNCTIONS/gammainc.cc @@ -115,7 +115,7 @@ float a = a_arg.float_value (); if (! error_state) - retval = lower ? gammainc (x, a) + retval = lower ? gammainc (x, a) : static_cast<float>(1) - gammainc (x, a); } else @@ -123,7 +123,7 @@ FloatNDArray a = a_arg.float_array_value (); if (! error_state) - retval = lower ? gammainc (x, a) + retval = lower ? gammainc (x, a) : static_cast<float>(1) - gammainc (x, a); } } @@ -139,7 +139,7 @@ float a = a_arg.float_value (); if (! error_state) - retval = lower ? gammainc (x, a) + retval = lower ? gammainc (x, a) : static_cast<float>(1) - gammainc (x, a); } else @@ -147,7 +147,7 @@ FloatNDArray a = a_arg.float_array_value (); if (! error_state) - retval = lower ? gammainc (x, a) + retval = lower ? gammainc (x, a) : static_cast<float>(1) - gammainc (x, a); } } @@ -216,7 +216,7 @@ %! v3 = gammainc(x.*x,a); %! assert(v1, v3, sqrt(eps)); -%!assert (gammainc(0:4,0.5,"upper"), 1-gammainc(0:4,0.5),1e-10) +%!assert (gammainc(0:4,0.5,"upper"), 1-gammainc(0:4,0.5),1e-10) %!test %! a = single ([.5 .5 .5 .5 .5]); @@ -225,6 +225,6 @@ %! v3 = gammainc(x.*x,a); %! assert(v1, v3, sqrt(eps('single'))); -%!assert (gammainc(single(0:4),single(0.5),"upper"), single(1)-gammainc(single(0:4),single(0.5)),single(1e-7)) +%!assert (gammainc(single(0:4),single(0.5),"upper"), single(1)-gammainc(single(0:4),single(0.5)),single(1e-7)) */