Initial population.

1 files changed, 56 insertions, 0 deletions

diff --git a/src/input/e04mbf.input.pamphlet b/src/input/e04mbf.input.pamphlet
new file mode 100644
index 00000000..ce578e0a
--- /dev/null
+++ b/src/input/e04mbf.input.pamphlet
@@ -0,0 +1,56 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/input e04mbf.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
+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 ]]
+linobj:=true
+liwork:=14
+lwork:=182
+x:Matrix SF:=
+ [[-0.01 ,-0.03 ,0.0 ,-0.01 ,-0.1 ,0.02 ,0.01 ]]
+result:=e04mbf(itmax,msglvl,n,nclin,nctotl,nrowa,a,bl,bu,cvec,linobj,liwork,lwork,x,-1)
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}