Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: real world solutions for a fractional permutation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg77021] Re: [mg76994] real world solutions for a fractional permutation
  • From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
  • Date: Thu, 31 May 2007 05:31:55 -0400 (EDT)
  • References: <200705310728.DAA05594@smc.vnet.net>

On 31 May 2007, at 16:28, Roger Bagula wrote:

> This type of solution comes up in algebra theory for symmetric type  
> groups:
> Solve[(4+q)!-40==0,q]
> Solve[Gamma[5+q]-40==0,q]
> The Mathematica output refuses to give a number.
> I worked at it a little.
> Factorial:
> (4+q)!=40
> gives:
> 0.331291631797621
> Gamma[5+q]=40
> 0.3312924244499
> They stop agreeing at the 6th place in Mathematica.
> I don't have a good program for either of them and essentually did  
> them
> by hand
> one digit at a time.
>
> Something is wrong with how I'm calculating them for sure.
>

Yes, you are certianly about that.


FindRoot[Gamma[5 + q] - 40 == 0, {q, 0}, WorkingPrecision -> 20]
{q -> 0.33129242449971346584}
FindRoot[(4 + q)! - 40 == 0, {q, 0}, WorkingPrecision -> 20]
{q -> 0.33129242449971346584}

Andrzej Kozlowski



  • Prev by Date: Re: v6: cursor behaviour with arrow keys
  • Next by Date: Re: Clear, Remove variables
  • Previous by thread: real world solutions for a fractional permutation
  • Next by thread: Analogue of MousePosition[] for the state of keyboard keys