put trig expression in form sin(k*x) WAS: Is there a way to do this in one step?

Trigrat is what I was hoping for, I wanted to do it using a single Maxima function but did not know if one existed for this.

Thanks,

Rich




------------Original Message------------
From: "Stavros Macrakis" <macrakis at alum.mit.edu>
To: "Richard Hennessy" <rvh2007 at comcast.net>
Cc: "Maxima List" <maxima at math.utexas.edu>
Date: Sun, Aug-31-2008 9:51 PM
Subject: put trig expression in form sin(k*x) WAS: Is there a way to do this in one step?
On Sun, Aug 31, 2008 at 9:42 PM, Richard Hennessy <rvh2007 at comcast.net> wrote:

I have suppressed some outputs for brevity
(%i1) trigexpand(sin(61*x));
(%i2) trigreduce(%);
(%i3) trigsimp(%);
(%o3) sin(61*x)

Title was: [Maxima] Is there a way to do this in one step?

I assume the one step you want is %o2 -> %o3.  Try trigrat.

           trigrat(trigexpand(sin(61*x))) => sin(61*x)

Is that what you had in mind?

But then, you could also do it in the one step trigsimp(trigreduce(%o1)) :-) .

          -s