Mercurial > octave

view test/octave.test/arith/betai-1.m @ 3170:7050b5006ef9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-04-23 06:29:49 by jwe]
author jwe
date Thu, 23 Apr 1998 06:29:55 +0000
parents
children
line wrap: on
line source

a=[1, 1.5, 2, 3];
b=[4, 3, 2, 1];
v1=betai(a,b,1);
v2=[1,1,1,1];
x = [.2, .4, .6, .8];
v3=betai(a, b, x);
v4 = 1-betai(b, a, 1.-x);
all(abs(v1-v2)<sqrt(eps)) && all(abs(v3-v4)<sqrt(eps))