Re: How can I solve this equation with Solve or Reduce or whatever for
- To: mathgroup at smc.vnet.net
- Subject: [mg128562] Re: How can I solve this equation with Solve or Reduce or whatever for
- From: Dana DeLouis <dana01 at me.com>
- Date: Sun, 4 Nov 2012 00:44:01 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
> ArcTan[Tan[Degree*(180 - 1.5267134447254718*(18.43494882292201 +
> 360*NoOf360Rotations))]] == 0.23101849674392247
> Only want Integer return of NoOf360Rotations AND to equal 108
Hi. Another way might be to move everything to the left-hand side of the equation.
ArcTan[Tan[Degree*(180-1.5267134447254718*(18.43494882292201+360*x))]] - 0.23101849674392247
f=FullSimplify[%]
-0.231018+ArcTan[Tan[2.65037 -9.59262 x]]
Now:
Minimize[{Abs[f],0<x<200},x,Integers]
{2.77556*10^-17,{x->108}}
The value of 2.77*10^-17 is pretty close to zero, and will trigger True if compared at machine precision.
Here's another idea if another problem in the future was not as close to zero.
Table[ f->x, {x,105,110}]
{0.503537->105,
0.335691->106,
0.167846->107,
2.77556*10^-17->108,
-0.167846->109,
-0.335691->110}
Nearest[%,0]
{108}
= = = = = = = = = =
HTH :>)
Dana DeLouis
Mac & Mathematica 8
= = = = = = = = = =
On Friday, November 2, 2012 1:13:06 AM UTC-4, Lea Rebanks wrote:
> Hi All,
>
> Given that the following equation is true.
>
>
> Clear[NoOf360Rotations]
>
> NoOf360Rotations = 108
>
>
> ArcTan[Tan[Degree*(180 - 1.5267134447254718*(18.43494882292201 +
>
> 360*NoOf360Rotations))]] == 0.23101849674392247
>
> TRUE
>
>
> How can I solve this equation with Solve or Reduce or whatever for the
>
> required value NoOf360Rotations = 108
>
> Only want Integer return of NoOf360Rotations AND to equal 108
>
> Any help or advice gratefully received.
>
> Best regards,
> Lea=85