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

MathGroup Archive 2012

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

Search the Archive

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
>
>



  • Prev by Date: Re: Abs in the denominator
  • Next by Date: Re: FDTD method to solve Maxwell equations
  • Previous by thread: How can I solve this equation with Solve or Reduce or whatever for
  • Next by thread: Re: How can I solve this equation with Solve or Reduce or whatever for