Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: How can I solve this equation with Solve or Reduce or

• To: mathgroup at smc.vnet.net
• Subject: [mg128556] Re: How can I solve this equation with Solve or Reduce or
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Fri, 2 Nov 2012 23:52:39 -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
• References: <20121102044226.32863683E@smc.vnet.net>

Use brute force

eqn[NoOf360Rotations_] = ArcTan[Tan[
      Degree*(180 - 1.5267134447254718*
          (18.43494882292201 + 360*NoOf360Rotations))]] ==
    0.23101849674392247 // Simplify;

Select[
 Table[NoOf360Rotations -> n, {n, 0, 1000}],
 eqn[#[[-1]]] &]

{NoOf360Rotations -> 108}


Bob Hanlon


On Fri, Nov 2, 2012 at 12:42 AM, Lea Rebanks <lrebanks at gmail.com> 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
>
>

• References:
  • How can I solve this equation with Solve or Reduce or whatever for
    • From: Lea Rebanks <lrebanks@gmail.com>