From ab8cc85adde879fb963c94d15675783f2cf4b183 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 14 Aug 2007 05:14:52 +0000 Subject: Initial population. --- src/input/c05pbf.input.pamphlet | 44 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 src/input/c05pbf.input.pamphlet (limited to 'src/input/c05pbf.input.pamphlet') diff --git a/src/input/c05pbf.input.pamphlet b/src/input/c05pbf.input.pamphlet new file mode 100644 index 00000000..44a33652 --- /dev/null +++ b/src/input/c05pbf.input.pamphlet @@ -0,0 +1,44 @@ +\documentclass{article} +\usepackage{axiom} +\begin{document} +\title{\$SPAD/src/input c05pbf.input} +\author{The Axiom Team} +\maketitle +\begin{abstract} +\end{abstract} +\eject +\tableofcontents +\eject +\section{License} +<>= +--Copyright The Numerical Algorithms Group Limited 1994. +@ +<<*>>= +<> +)clear all +showArrayValues true +showScalarValues true + +n:=9 +ldfjac:=n +lwa:=n*(n+13)/2 +xtol:SF:=1.0e-9 +x:Matrix SF:= + [[-1.0 ,-1.0 ,-1.0 ,-1.0 ,-1.0 ,-1.0 ,-1.0 ,-1.0 ,-1.0 ]] +fcn:ASP35(FCN):=retract vector[_ +3*X[1] - 2*X[1]**2 - 2*X[2] + 1,_ +-X[1] + 3*X[2] - 2*X[2]**2 - 2*X[3] + 1,_ +-X[2] + 3*X[3] - 2*X[3]**2 - 2*X[4] + 1,_ +-X[3] + 3*X[4] - 2*X[4]**2 - 2*X[5] + 1,_ +-X[4] + 3*X[5] - 2*X[5]**2 - 2*X[6] + 1,_ +-X[5] + 3*X[6] - 2*X[6]**2 - 2*X[7] + 1,_ +-X[6] + 3*X[7] - 2*X[7]**2 - 2*X[8] + 1,_ +-X[7] + 3*X[8] - 2*X[8]**2 - 2*X[9] + 1,_ +-X[8] + 3*X[9] - 2*X[9]**2 + 1] +result:=c05pbf(n,ldfjac,lwa,x,xtol,-1,fcn) +@ +\eject +\begin{thebibliography}{99} +\bibitem{1} nothing +\end{thebibliography} +\end{document} -- cgit v1.2.3