Initial population.

1 files changed, 46 insertions, 0 deletions

diff --git a/src/input/images6.input.pamphlet b/src/input/images6.input.pamphlet
new file mode 100644
index 00000000..6d362774
--- /dev/null
+++ b/src/input/images6.input.pamphlet
@@ -0,0 +1,46 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/input images6.input}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
+--Copyright The Numerical Algorithms Group Limited 1994.
+@
+<<*>>=
+<<license>>
+-- Color gallery page 6
+
+-- 3-d surface whose height is the real part of the Gamma function,
+-- and whose color is the argument of the Gamma function
+gam(x,y) == 
+  g := Gamma complex(x,y)
+  point [x,y,max(min(real g, 4), -4), argument g]
+
+draw(gam, -%pi..%pi, -%pi..%pi, title == "Gamma(x + %i*y)", 
+     var1Steps == 100, var2Steps == 100)
+
+-- The Beta function
+
+b(x,y) == Beta(x,y)
+draw(b, -3.1..3, -3.1 .. 3, title == "Beta(x,y)")
+
+-- The complex arc tangent function
+atf(x,y) == 
+  a := atan complex(x,y)
+  point [x,y,real a, argument a]
+
+draw(atf, -3.0..%pi, -3.0..%pi)
+
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}