Mercurial > hg > octave-nkf

view test/octave.test/arith/tan-1.m @ 7217:c8abc18322b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-29 20:50:24 by jwe]
author jwe
date Thu, 29 Nov 2007 20:50:24 +0000
parents fa632c35437a
children
line wrap: on
line source

rt2 = sqrt (2);
rt3 = sqrt (3);
x = [0, pi/6, pi/4, pi/3, 2*pi/3, 3*pi/4, 5*pi/6, pi];
v = [0, rt3/3, 1, rt3, -rt3, -1, -rt3/3, 0];
all (abs (tan (x) - v) < sqrt (eps))