Initial population.

1 files changed, 84 insertions, 0 deletions

diff --git a/src/input/e04naf.input.pamphlet b/src/input/e04naf.input.pamphlet
new file mode 100644
index 00000000..f47a7c3d
--- /dev/null
+++ b/src/input/e04naf.input.pamphlet
@@ -0,0 +1,84 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/input e04naf.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
+
+itmax:=20
+msglvl:=-1
+n:=7
+nclin:=7
+nctotl:=14
+nrowa:=7
+nrowh:=7
+ncolh:=7
+bigbnd:=1.0e10
+a:Matrix SF:=
+ [[1 ,1 ,1 ,1 ,1 ,1 ,1 ],_
+  [0.15 ,0.04 ,0.02 ,0.04 ,0.02 ,0.01 ,0.03 ],_
+  [0.03 ,0.05 ,0.08 ,0.02 ,0.06 ,0.01 ,0 ],_
+  [0.02 ,0.04 ,0.01 ,0.02 ,0.02 ,0 ,0 ],_
+  [0.02 ,0.03 ,0 ,0 ,0.01 ,0 ,0 ],_
+  [0.7 ,0.75 ,0.8 ,0.75 ,0.8 ,0.97 ,0 ],_
+  [0.02 ,0.06 ,0.08 ,0.12 ,0.02 ,0.01 ,0.97 ]]
+bl:Matrix SF:=
+ [[-0.01 ,-0.1 ,-0.01 ,-0.04 ,-0.1 ,-0.01 ,-0.01 ,-0.13 ,_
+   -1.0e+21 ,-1.0e+21 ,-1.0e+21 ,-1.0e+21 ,-0.0992 ,-0.003 ]]
+bu:Matrix SF:=
+ [[0.01 ,0.15 ,0.03 ,0.02 ,0.05 ,1.0e+21 ,1.0e+21 ,-0.13 ,_
+  -0.0049 ,-0.0064 ,-0.0037 ,-0.0012 ,1.0e+21 ,0.002 ]]
+cvec:Matrix SF:=
+ [[-0.02 ,-0.2 ,-0.2 ,-0.2 ,-0.2 ,0.04 ,0.04 ]]
+featol:Matrix SF:=
+ [[0.1053e-7 ,0.1053e-7 ,0.1053e-7 ,0.1053e-7 ,0.1053e-7 ,_
+   0.1053e-7 ,0.1053e-7 ,0.1053e-7 ,0.1053e-7 ,0.1053e-7 ,_
+   0.1053e-7 ,0.1053e-7 ,0.1053e-7 ,0.1053e-7 ]]
+hess:Matrix SF :=
+ [[2 ,0 ,0 ,0 ,0 ,0 ,0 ],_
+  [0 ,2 ,0 ,0 ,0 ,0 ,0 ],_
+  [0 ,0 ,2 ,2 ,0 ,0 ,0 ],_
+  [0 ,0 ,2 ,2 ,0 ,0 ,0 ],_
+  [0 ,0 ,0 ,0 ,2 ,0 ,0 ],_
+  [0 ,0 ,0 ,0 ,0 ,-2 ,-2 ],_
+  [0 ,0 ,0 ,0 ,0 ,-2 ,-2 ]]
+cold:=true
+lpp:=false
+orthog:=true
+liwork:=14
+lwork:=238
+x:Matrix SF:=
+ [[-0.01 ,-0.03 ,0.0 ,-0.01 ,-0.1 ,0.02 ,0.01 ]]
+istate:Matrix Integer:=
+ [[0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ]]
+mei:Matrix Expression Integer:=
+ [[2 ,0 ,0 ,0 ,0 ,0 ,0 ],_
+  [0 ,2 ,0 ,0 ,0 ,0 ,0 ],_
+  [0 ,0 ,2 ,2 ,0 ,0 ,0 ],_
+  [0 ,0 ,2 ,2 ,0 ,0 ,0 ],_
+  [0 ,0 ,0 ,0 ,2 ,0 ,0 ],_
+  [0 ,0 ,0 ,0 ,0 ,-2 ,-2 ],_
+  [0 ,0 ,0 ,0 ,0 ,-2 ,-2 ]]
+qphess:Asp20(QPHESS):= retract mei
+result:=e04naf(itmax,msglvl,n,nclin,nctotl,nrowa,nrowh,ncolh,bigbnd,a,bl,bu,cvec,featol,_
+hess,cold,lpp,orthog,liwork,lwork,x,istate,-1,qphess)
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}