| (%i1) | trigreduce(sin(x)^2 ); |

| (%i3) | wxplot2d([(%o1),sin(x)], [x,-5,5])$ |

| (%i4) | trigreduce(sin(x)^3 ); |

| (%i5) | wxplot2d([(%o4),sin(x)], [x,-5,5])$ |

| (%i6) | trigreduce(sin(x)^4 ); |

| (%i7) | wxplot2d([(%o6),sin(x)], [x,-5,5])$ |

| (%i11) | wxplot2d([sin(x)+0.1*(sin(x)^2)+0.05*(sin(x)^3)+0.025*(sin(x)^4) ,sin(x)], [x,-5,5])$ |
