Marvin Ray Burns

Ask a Question

Create a Post

14 Badges

Member for: 19 years, 252 days

Website: http://marvinrayburns.com

Contact Marvin Ray Burns

I've been using Maple since 1997 or so.

MaplePrimes Activity

These are Posts that have been published by Marvin Ray Burns

MRB constant Z...

Posted: Marvin Ray Burns 550 Product: Maple

May 26 2012

0 6

The MRB constant Z will probably have several parts.

The following example is from the Maple help pages
> with(GraphTheory);
> with(SpecialGraphs);
> H := HypercubeGraph(3);

DrawGraph(H)

What I would like to do in the MRB constant z, MRB constant z part2, and etc. is to draw a series of graphs that show the some of the geometry of the MRB constant.

See http://math-blog.com/2010/11/21/the-geometry-of-the-mrb-constant/. I would like to draw a tesseract of 4 units^4, a penteract of 5 units^5, etc and take an edge from each and line the edges up as in Diagram 3:

As usual I'm asking for your help.

Download May262012.mw

MRB constant N part 3...

Posted: Marvin Ray Burns 550 Product: Maple

May 21 2012

1 4

This post can be downloaded here: Download May202012.mw

Below we have approximations involving the MRB constant. The MRB constant plus a fraction is saved as P while a combination of another constant is saved as Q. We then subtract Q from P and always have a very small result!

MRB Constant Y...

Posted: Marvin Ray Burns 550 Product: Maple

April 28 2012

0 3

MRB Constant X...

Posted: Marvin Ray Burns 550 Product: Maple

April 21 2012

0 4

MRB Constant W...

Posted: Marvin Ray Burns 550

April 14 2012

0 1

proc (x) options operator, arrow; sum((-1)^n*(n^(1/n)-1), n = x .. infinity) end proc

(1)

What are the quotients ot the continued fration of the sum of

Here are the quotients of some partial sums.

$cfrac(evalf(sum(f(x), x = 1 .. 2)), 'quotients')$

(2)

$cfrac(evalf(sum(f(x), x = 1 .. 3)), 'quotients')$

(3)

$cfrac(evalf(sum(f(x), x = 1 .. 4)), 'quotients')$

(4)

$cfrac(evalf(sum(f(x), x = 1 .. 5)), 'quotients')$

(5)

$cfrac(evalf(sum(f(x), x = 1 .. 6)), 'quotients')$

(6)

$cfrac(evalf(sum(f(x), x = 1 .. 7)), 'quotients')$

(7)

$cfrac(evalf(sum(f(x), x = 1 .. 8)), 'quotients')$

(8)

$cfrac(evalf(sum(f(x), x = 1 .. 9)), 'quotients')$

(9)

$cfrac(evalf(sum(f(x), x = 1 .. 100)), 'quotients')$

(10)

$cfrac(evalf(sum(f(x), x = 1 .. 200)), 'quotients')$

(11)

$cfrac(evalf(sum(f(x), x = 1 .. 400)), 'quotients')$

(12)

$cfrac(evalf(sum(f(x), x = 1 .. 800)), 'quotients')$

(13)

$cfrac(evalf(sum(f(x), x = 1 .. 1600)), 'quotients')$

(14)

Here are the quotients of the continued fration of the sum.

$cfrac(evalf(sum(f(x), x = 1 .. infinity)), 'quotients')$

(15)

With the exception of the leading 0, that is close to the integer squence of pi.

(16)

The exponents of 2 that sum the numerator and denominator, in the following way, of that multiple of pi give rise to the integer sequences {0,1,2,3,8,16},numbers such that floor[a(n)^2 / 7] is a square, and {0,2,3,4,8,16},{0,3} union powers of 2.

evalf((2^16-2^8-2^5-2^2-2-2^0)*Pi/(2^16-2^8-2^4-2^3-2^2-2^0))

(17)

We can do the same thing for the first 20 quotients giving rise to the integer sequences {0,1,2,5,6,8,10,13,17,19,22,23,24,28,31} and {0,4,6,9,12, 14,15,16,18,22, 23,24,28,31}. What can be said of these sequences?

$cfrac(evalf(sum(f(x), x = 1 .. infinity), 20), 20, 'quotients')$

(18)

(19)

evalf((2^31-2^28-2^24-2^23-2^22-2^19-2^17-2^13-2^10-2^8-2^6-2^5-2^2-2-2^0)*Pi/(2^31-2^28-2^24-2^23-2^22-2^18-2^16-2^15-2^14-2^12-2^9-2^6-2^4-2^0), 20)