Hello!

I am trying to solve a problem in mathematica with energy methods. I have used displacements for potential and velocity for kinetic energies and later i differentiated the energies..

For this problem i used small angles, i.e. sin(alpha)~alpha and cos(alpha)~1 etc. But due to multiplicaion involved, i am getting squares and multiples of angles i.e. (alpha)^2 , (beta)^2 or (alpha)(beta) etc...

I want to delete the terms by taking the multiples and squares equal to zero but i am not able to find any method to do it automatically.

Can anyone help me to do so?

Thanks

## How To

### Small angle approximation help

Page

**1**of**1**• [ 4 posts ]### Small angle approximation help

by » Wed Jun 23, 2010 9:51 am- sajidbutt
**Posts:**1**Joined:**Wed Jun 23, 2010 9:45 am

### Re: Small angle approximation help

by » Sun Jan 15, 2012 4:24 pmHi.

I need such a function too.

Can anybody help me?

I need an automated simplify function for this as I must not delete the angles manually.

I need such a function too.

Can anybody help me?

I need an automated simplify function for this as I must not delete the angles manually.

- lordofazeroth
**Posts:**2**Joined:**Sun Jan 15, 2012 4:22 pm

### Re: Small angle approximation help

by » Wed Jan 18, 2012 7:31 amAnswer:

FullSimplify[function,Cos[alpha]==0]

should work....

FullSimplify[function,Cos[alpha]==0]

should work....

- lordofazeroth
**Posts:**2**Joined:**Sun Jan 15, 2012 4:22 pm

### Re: Small angle approximation help

by » Wed Mar 06, 2013 4:37 amI was looking for exactly the same thing! http://mathematica.stackexchange.com/questions/15283/replacing-functions/20730#comment45169_15283 helped me a lot, so now I can remove sines:

and my trigonometric equation turns into an algebraic one:

or even second order:

- Code: Select all
`Sin[a + b] /. Sin -> Function[x, x]`

a + b

and my trigonometric equation turns into an algebraic one:

- Code: Select all
`-4 Cos[g] Sin[a + b] Sin[t] - 4 Cos[g] /. {Sin -> Function[x, x], Cos -> Function[x, 1]}`

-4 - 4 (a + b) t

or even second order:

- Code: Select all
`Series[Sin[x], {x, 0, 2}]`

-4Cos[g]Sin[a+b]Sin[t]-4Cos[g]/.{Sin->Function[x,x],Cos->Function[x, 1-x^2/2]}

-4 (1 - g^2/2) - 4 (a + b) (1 - g^2/2) t

- alexeymor
**Posts:**1**Joined:**Wed Mar 06, 2013 4:28 am

Page

**1**of**1**• [ 4 posts ]### Who is online

Users browsing this forum: Bing [Bot] and 3 guests