Initial population.

1 files changed, 51 insertions, 0 deletions

diff --git a/src/input/e04gcf.input.pamphlet b/src/input/e04gcf.input.pamphlet
new file mode 100644
index 00000000..2bfb59fd
--- /dev/null
+++ b/src/input/e04gcf.input.pamphlet
@@ -0,0 +1,51 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/input e04gcf.input}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
+--Copyright The Numerical Algorithms Group Limited 1994.
+@
+<<*>>=
+<<license>>
+)clear all
+showArrayValues true
+showScalarValues true
+
+m:=15
+n:=3
+liw:=1
+lw:=177
+x:Matrix SF:=
+ [[0.5 ,1.0 ,1.5 ]]
+vef:Vector Expression Float:=vector
+ [(XC[3]+15*XC[2])**(-1)+XC[1]-0.14 ,_
+   2*(2*XC[3]+14*XC[2])**(-1)+XC[1]-0.18 ,_
+   3*(3*XC[3]+13*XC[2])**(-1)+XC[1]-0.22 ,_
+   4*(4*XC[3]+12*XC[2])**(-1)+XC[1]-0.25 ,_
+   5*(5*XC[3]+11*XC[2])**(-1)+XC[1]-0.29 ,_
+   6*(6*XC[3]+10*XC[2])**(-1)+XC[1]-0.32 ,_
+   7*(7*XC[3]+9*XC[2])**(-1)+XC[1]-0.35 ,_
+   8*(8*XC[3]+8*XC[2])**(-1)+XC[1]-0.39 ,_
+   9*(7*XC[3]+7*XC[2])**(-1)+XC[1]-0.37 ,_
+   10*(6*XC[3]+6*XC[2])**(-1)+XC[1]-0.58 ,_
+   11*(5*XC[3]+5*XC[2])**(-1)+XC[1]-0.73 ,_
+   12*(4*XC[3]+4*XC[2])**(-1)+XC[1]-0.96 ,_
+   13*(3*XC[3]+3*XC[2])**(-1)+XC[1]-1.34 ,_
+   14*(2*XC[3]+2*XC[2])**(-1)+XC[1]-2.1 ,_
+   15*(XC[3]+XC[2])**(-1)+XC[1]-4.39 ]
+lsfun2:Asp19(LSFUN2):= retract vef
+result:=e04gcf(m,n,liw,lw,x,-1,lsfun2)
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}