WCPHELP16.html

restart; 1; read

`assign`(d, 3); 1; `assign`(r, 2); 1

`assign`(d, 3)

`assign`(r, 2)

`assign`(poly, Matrix(%id = 165146576))

`assign`(poly, Matrix(%id = 165146576))

`assign`(poly, Matrix(%id = 165146576))

`assign`(poly, Matrix(%id = 165146576))

`assign`(poly, Matrix(%id = 165146576))

`assign`(poly, Matrix(%id = 165146576))

`assign`(poly, Matrix(%id = 165146576))

`assign`(Pa, D1Polyphase(poly, d, sqrt(d))); -1

simplify(Typesetting:-delayDotProduct(Pa, subs(z = `/`(1, `*`(z)), Transpose(Pa)))); 1

Matrix(%id = 192550148)

`assign`(U0, D1SymPolyphaseMat(poly, d)); 1

`assign`(U0, Matrix(%id = 151247564))

`assign`(Pa1, collect(simplify(Typesetting:-delayDotProduct(Pa, U0)), z)); -1

SYM(Pa1); 1

Matrix(%id = 193532164)

D1Support(Pa1); 1

Vector[column](%id = 184515188)

Pa1[1, 1 .. 6]; 1

Vector[row](%id = 153636008)

Vector[row](%id = 153636008)

Vector[row](%id = 153636008)

Vector[row](%id = 153636008)

Vector[row](%id = 153636008)

`assign`(D0, DiagonalMatrix([sqrt(3), `*`(sqrt(3), `*`(sqrt(2))), `*`(sqrt(3), `*`(sqrt(2))), sqrt(3), `*`(sqrt(3), `*`(sqrt(2))), `*`(sqrt(3), `*`(sqrt(2)))])); 1

`assign`(D0, DiagonalMatrix([sqrt(3), `*`(sqrt(3), `*`(sqrt(2))), `*`(sqrt(3), `*`(sqrt(2))), sqrt(3), `*`(sqrt(3), `*`(sqrt(2))), `*`(sqrt(3), `*`(sqrt(2)))])); 1

`assign`(D0, Matrix(%id = 153702060))

simplify(Typesetting:-delayDotProduct(Pa1, subs(z = `/`(1, `*`(z)), Transpose(Pa1)))); 1

Matrix(%id = 194596164)

`assign`(res, D1MatOrthExtMatQ(Pa1, D0)); -1

`assign`(U1, D1CoeffSimp(res[1])); -1; `assign`(D1, res[2]); -1

`assign`(Pa2, D1CoeffSimp(Typesetting:-delayDotProduct(Pa1, U1))); 1

`assign`(Pa2, Matrix(%id = 165606404))

`assign`(Pa3, Typesetting:-delayDotProduct(Pa2, U2)); 1

`assign`(Pa3, Matrix(%id = 168874412))

`assign`(Pe, D1CoeffSimp(subs(z = `/`(1, `*`(z)), Transpose(Typesetting:-delayDotProduct(Typesetting:-delayDotProduct(U0, U1), U2))))); -1

`assign`(filters, D1Polyphase2Mask(Pe, d, `/`(1, `*`(sqrt(d))))); -1

simplify(`+`(filters[1 .. 2, 1 .. 2], `-`(poly))); 1

Matrix(%id = 168872124)

`assign`(b1, D1CoeffSimp(filters[3 .. 4, 1 .. 2])); 1

`assign`(b1, Matrix(%id = 191085264))

`assign`(b1, Matrix(%id = 191085264))

`assign`(b1, Matrix(%id = 191085264))

`assign`(b1, Matrix(%id = 191085264))

`assign`(b1, Matrix(%id = 191085264))

`assign`(b1, Matrix(%id = 191085264))

`assign`(b1, Matrix(%id = 191085264))

`assign`(b2, D1CoeffSimp(filters[5 .. 6, 1 .. 2])); 1

`assign`(b2, Matrix(%id = 190904792))

`assign`(b2, Matrix(%id = 190904792))

`assign`(b2, Matrix(%id = 190904792))

`assign`(b2, Matrix(%id = 190904792))

`assign`(b2, Matrix(%id = 190904792))

`assign`(b2, Matrix(%id = 190904792))

`assign`(b2, Matrix(%id = 190904792))

`assign`(b2, Matrix(%id = 190904792))

`assign`(b2, Matrix(%id = 190904792))

`assign`(b2, Matrix(%id = 190904792))