(%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])$ |