Mercurial > octave-nkf

view test/octave.test/arith/sin-1.m @ 2743:fa632c35437a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-02-26 06:58:05 by jwe]
author jwe
date Wed, 26 Feb 1997 06:58:40 +0000
parents
children
line wrap: on
line source

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