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/f01ref.input.pamphlet | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 src/input/f01ref.input.pamphlet (limited to 'src/input/f01ref.input.pamphlet') diff --git a/src/input/f01ref.input.pamphlet b/src/input/f01ref.input.pamphlet new file mode 100644 index 00000000..5a66fd53 --- /dev/null +++ b/src/input/f01ref.input.pamphlet @@ -0,0 +1,41 @@ +\documentclass{article} +\usepackage{axiom} +\begin{document} +\title{\$SPAD/src/input f01ref.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 + +wheret:="s" +m:=5 +n:=3 +ncolq:=2 +lda:=5 +theta:Matrix Complex SF:= + [[1 + 0.5*%i ,1.0954-0.3333*%i ,1.2649-1.1565*%i ]] +a:Matrix Complex SF := + [[ 1 , 1 +1 *%i , 1 + %i ],_ + [-0.2 - 0.4*%i ,-2 ,-1 - %i ],_ + [-0.32 - 0.16*%i,-0.3505 +0.2629*%i ,-3 ],_ + [-0.4 + 0.2*%i , 0.5477*%i , 0.0 ],_ + [-0.12 + 0.24*%i, 0.1972 +0.2629*%i , 0.6325 ]] +result:=f01ref(wheret,m,n,ncolq,lda,theta,a,-1) +@ +\eject +\begin{thebibliography}{99} +\bibitem{1} nothing +\end{thebibliography} +\end{document} -- cgit v1.2.3