Dear all,
Would you tell me a way to apply the identity relationship in Maple, to rewrite 'subexp' below to 'subexp2'?
> |
subexp := M__a*sin(omega*t + alpha)*I__a*sin(omega*t + phi);
|

|
(1) |
> |
subexp2 := M__a * I__a * (-1/2*(cos(2*omega*t + alpha + phi)-cos(alpha - phi)));
|

|
(2) |

|
(3) |
|
Download Q20200901.mw