![]() Volume 9, Issue 2 Articles Tricks of the Trade In and Out Trott's Corner New Products New Publications Calendar News Bulletins New Resources Classifieds Download This Issue Editorial Policy Staff Submissions Subscriptions Advertising Back Issues Contact Information |
Trott's Corner
Exact Values In conclusion let us take a quick look at another fascinating facet of the Rogers-Ramanujan continued fractions. Ramanujan observed that, interestingly,
Using Recognize, we readily find and check that
It is again straightforward to automate the search for an algebraic number. The function findAlgebraicValue does this. We first find a polynomial of maximal degree
Next, we calculate the algebraic value of
Unfortunately, Mathematica cannot find a radical expression of the root although it exists. No advanced Galois techniques are currently available.
Again using the previous modular equations, we can easily calculate (without time-consuming calls to Recognize) exact values for
These are the degrees of the resulting root-objects (this is sequence A082682 of the On-Line Encyclopedia of Integer Sequences).
On a logarithmic scale, the coefficients of the polynomials seem to approach a limit distribution. The right graphic shows the zeros of the defining polynomials in the complex plane.
This concludes our discussion on new modular identities; however, we will come back to the Rogers-Ramanujan continued fraction at a later date.
|
||||||||
About Mathematica | Download Mathematica Player Copyright © 2004 Wolfram Media, Inc. All rights reserved. |