sec-1.m

来自「GNU Octave is a high-level language, pri」· M 代码 · 共 6 行

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 = [1, 2*rt3/3, rt2, 2, -2, -rt2, -2*rt3/3, -1];
all (abs (sec (x) - v) < sqrt (eps))