efstruc.spad line 28 [edit on github]
Expands tangents of sums and scalar products.
tanAn(a, n) returns P(x) such that if a = tan(u) then P(tan(u/n)) = 0.
tanNa(a, n) returns f(a) such that if a = tan(u) then f(a) = tan(n * u).
tanSum([a1, ..., an]) returns f(a1, ..., an) such that if then ai = tan(ui)f(a1, ..., an) = tan(u1 + ... + un).