[Date Index]
[Thread Index]
[Author Index]
Re: Extensive replacement of trigonometric functions
*To*: mathgroup at smc.vnet.net
*Subject*: [mg125100] Re: Extensive replacement of trigonometric functions
*From*: Mauro <pippo at hotmail.com>
*Date*: Tue, 21 Feb 2012 06:15:30 -0500 (EST)
*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com
*References*: <jhldmn$ouo$1@smc.vnet.net> <jho299$5u6$1@smc.vnet.net>
Thank you, Andr=E9s.
Your suggestion is undoubtfully useful for my immediate need of formula
visualization, but -more generally- I was looking for a way to direct
Mathematica transformations toward some specific desired functions. For
example, in this case I would like that simplification process produces
Cos functions rather than Sin functions in order to recognize
similarities with other expressions. In this case, whenever I try to
elaborate an expression such Cos[\[Theta] + \[Alpha]] with \[Alpha]
number strictly greater than \[Pi]/4, it will convert to
Sin[\[Pi]/2-\[Alpha] - \[Theta]], and I want to avoid this.
Anyway, your suggestion is useful, so thank you indeed.
Mauro
Il 18/02/2012 12:32, andres ha scritto:
> So, you don't want Mathematica to evaluate the expression -Cos[\
> [Theta] + (2 \[Pi])/3]?
> Since -Cos[\[Theta] + (2 \[Pi])/3] = Sin[\[Theta] + \[Pi]/6], I assume
> you want to format the output for visualization purposes, because both
> expressions will give the same results. If this is the case, I would
> take two approaches: either apply a Hold to the rhs of the rule, or
> I'd use a rule of the type Sin[\[Theta]_ + \[Pi]/6] :> -cos[\[Theta] +
> (2 \[Pi])/3], so that the inexistent function "cos" keeps unevaluated.
> If then you want to evaluate the expression you can release the Hold
> or define cos[\[Theta]_] := Cos[\[Theta]].
> Hope it helps.
> Andr=E9s
>
>
>
> On Feb 17, 6:29 am, Mauro<pi... at hotmail.com> wrote:
>> Hello to everybody.
>>
>> I have this problem: I would like to replace in a long expression all
>> the occurrences of:
>>
>> Sin[\[Theta]_ + \[Pi]/6] and Sin[\[Theta]_ - \[Pi]/6]
>>
>> with respectively:
>>
>> -Cos[\[Theta] + (2 \[Pi])/3] and Cos[\[Theta] - (2 \[Pi])/3]
>>
>> (which actually are the same thing).
>> Regretfully, the application of the rules:
>>
>> Sin[\[Theta]_ + \[Pi]/6] -> -Cos[\[Theta] + (2 \[Pi])/3]
>> Sin[\[Theta]_ - \[Pi]/6] -> Cos[\[Theta] - (2 \[Pi])/3]
>>
>> results in a flop, since sine functions stubbornly appear again!
>>
>> Can you help me?
>>
>> Thank you in advance
>>
>> Mauro
>
>
Prev by Date:
**How add a menu item with a menu key using an init.m**
Next by Date:
**Re: How best to implement a hash table in Mathematica**
Previous by thread:
**Re: Extensive replacement of trigonometric functions**
Next by thread:
**Re: Extensive replacement of trigonometric functions**
| |