Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > comp.soft-sys.math.mathematica > #2037

Help Define a Constant I get from Mathematica

From Marvin Burns <marburns@umail.iu.edu>
Newsgroups comp.soft-sys.math.mathematica
Subject Help Define a Constant I get from Mathematica
Date 2011-05-02 10:53 +0000
Organization Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID <ipm2fm$59d$1@smc.vnet.net> (permalink)

Show all headers | View raw


Can you help define this constant I get from Mathematica?

Here is the code I use:

Table[{N[l = RandomReal[{0.044685172, 1}, WorkingPrecision -> 200]],

   Table[c = Convergents[l, 100];

    l = FromContinuedFraction[c], {n, 1, 50}];

   N[l, Floor[30]]}, {m, 1, 100}] // TableForm



I get c=0.55575310427804591244540586938..., and no other value, every time I
run it!

I know basically Mathematica is using the convergents of a real number in
the domain as terms to form a generalized continued fraction. Then it uses
the convergents of that generalized continued fraction as terms to form
another generalized continued fraction, and continues to repeat this process
until it gets to where I told it to stop. Strangely, initial
input<0.044685172 seems to have output that is extremely sensitive to
variations. For example, .04468513845124463  gives 3.2765033850144244631 but
.044685138451244635 gives  0.55575310427804591245, and then
.044685138451244635105 gives 3.276503385014424463 again.

There must be more rigorous way to define it.

Do you think it deserves a name? What would be a good name for it?

Marvin Ray Burns

Original investigator of the MRB constant (I didn't name that.)

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread


Thread

Help Define a Constant I get from Mathematica Marvin Burns <marburns@umail.iu.edu> - 2011-05-02 10:53 +0000

csiph-web