Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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