Mercurial > octave-nkf

changeset 4033:ac5ed096b496

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-10 06:13:57 by jwe]
author jwe
date Sat, 10 Aug 2002 06:14:28 +0000
parents 20d706a6740f
children 6c40e6c7a1ae
files test/octave.test/arith/betainc-1.m test/octave.test/arith/gammainc-1.m
diffstat 2 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/test/octave.test/arith/betainc-1.m	Sat Aug 10 06:04:40 2002 +0000
+++ b/test/octave.test/arith/betainc-1.m	Sat Aug 10 06:14:28 2002 +0000
@@ -1,8 +1,8 @@
 a=[1, 1.5, 2, 3];
 b=[4, 3, 2, 1];
-v1=betainc(a,b,1);
+v1=betainc(1,a,b);
 v2=[1,1,1,1];
 x = [.2, .4, .6, .8];
-v3=betainc(a, b, x);
-v4 = 1-betainc(b, a, 1.-x);
+v3=betainc(x, a, b);
+v4 = 1-betainc(1.-x, b, a);
 all(abs(v1-v2)<sqrt(eps)) && all(abs(v3-v4)<sqrt(eps))
--- a/test/octave.test/arith/gammainc-1.m	Sat Aug 10 06:04:40 2002 +0000
+++ b/test/octave.test/arith/gammainc-1.m	Sat Aug 10 06:14:28 2002 +0000
@@ -2,4 +2,4 @@
 x = [0 1 2 3 4];
 v1 = sqrt(pi)*erf(x)./gamma(a);
 v3 = gammainc(x.*x,a);
-all (abs(v1 - v2) < sqrt(eps))
+all (abs(v1 - v3) < sqrt(eps))