function h = h10(t0,t1,t2,t3) % h = h10(t0,t1,t2,t3) % length 10 orthogonal scaling filter as a function of 4 angles. % Ivan Selesnick, 1997 t4 = 1/4*pi-t0-t1-t2-t3; h(1) = cos(t4)*cos(t3)*cos(t2)*cos(t1)*cos(t0); h(2) = cos(t4)*cos(t3)*cos(t2)*cos(t1)*sin(t0); h(3) = -cos(t4)*cos(t3)*cos(t2)*sin(t1)*sin(t0)-cos(t4)*cos(t3)*sin(t2)*sin(t1)*cos(t0)-... cos(t4)*sin(t3)*sin(t2)*cos(t1)*cos(t0)-sin(t4)*sin(t3)*cos(t2)*cos(t1)*cos(t0); h(4) = cos(t4)*cos(t3)*cos(t2)*sin(t1)*cos(t0)-cos(t4)*cos(t3)*sin(t2)*sin(t1)*sin(t0)-... cos(t4)*sin(t3)*sin(t2)*cos(t1)*sin(t0)-sin(t4)*sin(t3)*cos(t2)*cos(t1)*sin(t0); h(5) = -cos(t4)*cos(t3)*sin(t2)*cos(t1)*sin(t0)+cos(t4)*sin(t3)*sin(t2)*sin(t1)*sin(t0)-... cos(t4)*sin(t3)*cos(t2)*sin(t1)*cos(t0)+sin(t4)*sin(t3)*cos(t2)*sin(t1)*sin(t0)+... sin(t4)*sin(t3)*sin(t2)*sin(t1)*cos(t0)-sin(t4)*cos(t3)*sin(t2)*cos(t1)*cos(t0); h(6) = cos(t4)*cos(t3)*sin(t2)*cos(t1)*cos(t0)-cos(t4)*sin(t3)*sin(t2)*sin(t1)*cos(t0)-... cos(t4)*sin(t3)*cos(t2)*sin(t1)*sin(t0)-sin(t4)*sin(t3)*cos(t2)*sin(t1)*cos(t0)+... sin(t4)*sin(t3)*sin(t2)*sin(t1)*sin(t0)-sin(t4)*cos(t3)*sin(t2)*cos(t1)*sin(t0); h(7) = -cos(t4)*sin(t3)*cos(t2)*cos(t1)*sin(t0)+sin(t4)*sin(t3)*sin(t2)*cos(t1)*sin(t0)+... sin(t4)*cos(t3)*sin(t2)*sin(t1)*sin(t0)-sin(t4)*cos(t3)*cos(t2)*sin(t1)*cos(t0); h(8) = cos(t4)*sin(t3)*cos(t2)*cos(t1)*cos(t0)-sin(t4)*sin(t3)*sin(t2)*cos(t1)*cos(t0)-... sin(t4)*cos(t3)*sin(t2)*sin(t1)*cos(t0)-sin(t4)*cos(t3)*cos(t2)*sin(t1)*sin(t0); h(9) = -sin(t4)*cos(t3)*cos(t2)*cos(t1)*sin(t0); h(10) = sin(t4)*cos(t3)*cos(t2)*cos(t1)*cos(t0);