From ab8cc85adde879fb963c94d15675783f2cf4b183 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 14 Aug 2007 05:14:52 +0000
Subject: Initial population.

---
 src/input/contfrc.input.pamphlet | 43 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 src/input/contfrc.input.pamphlet

(limited to 'src/input/contfrc.input.pamphlet')

diff --git a/src/input/contfrc.input.pamphlet b/src/input/contfrc.input.pamphlet
new file mode 100644
index 00000000..0effab29
--- /dev/null
+++ b/src/input/contfrc.input.pamphlet
@@ -0,0 +1,43 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/input CONTFRAC.input}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+<<*>>=
+-- Input generated from ContinuedFractionXmpPage
+)clear all
+
+c := continuedFraction(314159/100000)
+partialQuotients c
+convergents c
+approximants c
+pq := partialQuotients(1/c)
+continuedFraction(first pq,repeating [1],rest pq)
+z:=continuedFraction(3,repeating [1],repeating [3,6])
+dens:Stream Integer := cons(1,generate((x+->x+4),6))
+cf := continuedFraction(0,repeating [1],dens)
+ccf := convergents cf
+eConvergents := [2*e + 1 for e in ccf]
+eConvergents :: Stream Float
+exp 1.0
+cf := continuedFraction(1,[(2*i+1)**2 for i in 0..],repeating [2])
+ccf := convergents cf
+piConvergents := [4/p for p in ccf]
+piConvergents :: Stream Float
+continuedFraction((- 122 + 597*%i)/(4 - 4*%i))
+r : Fraction UnivariatePolynomial(x,Fraction Integer)
+r := ((x - 1) * (x - 2)) / ((x-3) * (x-4))
+continuedFraction r
+[i*i for i in convergents(z) :: Stream Float]
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
-- 
cgit v1.2.3