Mercurial > hg > octave-lyh

view test/octave.test/arith/atan2-1.m @ 4457:d7d9ca19960a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-07-11 03:05:38 by jwe]
author jwe
date Fri, 11 Jul 2003 03:05:39 +0000
parents fa632c35437a
children
line wrap: on
line source

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