Mercurial > octave

comparison scripts/specfun/betainc.m @ 30326:cd7c824f3f22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate use of .+ and .- operators in Octave sources * bsxfun.cc, graphics.cc, annotation.m, __interp_cube__.m, __marching_cube__.m, subplot.m, spline.m, betainc.m, gallery.m: Use + and - instead of .+ and .- in Octave sources and tests. * pt-eval.cc (get_operator_function_name): Note that .+ and .- are deprecated.
author John W. Eaton <jwe@octave.org>
date Tue, 23 Nov 2021 12:36:01 -0500
parents ad6a57b215e8
children 01de0045b2e3
comparison
equal deleted inserted replaced
30325:f18f5cae2b06 30326:cd7c824f3f22
221 %! b = [4, 3, 2, 1]; 221 %! b = [4, 3, 2, 1];
222 %! v1 = betainc (1,a,b); 222 %! v1 = betainc (1,a,b);
223 %! v2 = single ([1,1,1,1]); 223 %! v2 = single ([1,1,1,1]);
224 %! x = [.2, .4, .6, .8]; 224 %! x = [.2, .4, .6, .8];
225 %! v3 = betainc (x, a, b); 225 %! v3 = betainc (x, a, b);
226 %! v4 = 1-betainc (1.-x, b, a); 226 %! v4 = 1 - betainc (1. - x, b, a);
227 %! assert (v1, v2, sqrt (eps ("single"))); 227 %! assert (v1, v2, sqrt (eps ("single")));
228 %! assert (v3, v4, sqrt (eps ("single"))); 228 %! assert (v3, v4, sqrt (eps ("single")));
229 229
230 %!test <*51157> 230 %!test <*51157>
231 %! y = betainc ([0.00780;0.00782;0.00784],250.005,49750.995); 231 %! y = betainc ([0.00780;0.00782;0.00784],250.005,49750.995);