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/f04jgf.input.pamphlet | 44 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 src/input/f04jgf.input.pamphlet (limited to 'src/input/f04jgf.input.pamphlet') diff --git a/src/input/f04jgf.input.pamphlet b/src/input/f04jgf.input.pamphlet new file mode 100644 index 00000000..9b10c52e --- /dev/null +++ b/src/input/f04jgf.input.pamphlet @@ -0,0 +1,44 @@ +\documentclass{article} +\usepackage{axiom} +\begin{document} +\title{\$SPAD/src/input f04jgf.input} +\author{The Axiom Team} +\maketitle +\begin{abstract} +\end{abstract} +\eject +\tableofcontents +\eject +\section{License} +<>= +--Copyright The Numerical Algorithms Group Limited 1994. +@ +<<*>>= +<> +)cl all +showArrayValues true +showScalarValues true + +m:=6 +n:=4 +nra:=8 +tol:= 5.0e-4 +lwork:=32 +a:Matrix SF:= + [[0.05 ,0.05 ,0.25 ,-0.25 ],_ + [0.25 ,0.25 ,0.05 ,-0.05 ],_ + [0.35 ,0.35 ,1.75 ,-1.75 ],_ + [1.75 ,1.75 ,0.35 ,-0.35 ],_ + [0.30 ,-0.30 ,0.30 ,0.30 ],_ + [0.40 ,-0.40 ,0.40 ,0.40 ],_ + [0.0 ,0.0 ,0.0 ,0.0 ],_ + [0.0 ,0.0 ,0.0 ,0.0 ]] +b:Matrix SF:= + [[1 ,2 ,3 ,4 ,5 ,6 ]] +result:=f04jgf(m,n,nra,tol,lwork,a,b,-1) +@ +\eject +\begin{thebibliography}{99} +\bibitem{1} nothing +\end{thebibliography} +\end{document} -- cgit v1.2.3