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/c06fuf.input.pamphlet | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 src/input/c06fuf.input.pamphlet (limited to 'src/input/c06fuf.input.pamphlet') diff --git a/src/input/c06fuf.input.pamphlet b/src/input/c06fuf.input.pamphlet new file mode 100644 index 00000000..c3bca823 --- /dev/null +++ b/src/input/c06fuf.input.pamphlet @@ -0,0 +1,41 @@ +\documentclass{article} +\usepackage{axiom} +\begin{document} +\title{\$SPAD/src/input c06fuf.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 + +x:Matrix SF:= + [[1.000,0.999,0.987,0.936,0.802],_ + [0.994,0.989,0.963,0.891,0.731],_ + [0.903,0.885,0.823,0.694,0.467]] +y:Matrix SF:= + [[0.000,-0.040,-0.159,-0.352,-0.597],_ + [-0.111,-0.151,-0.268,-0.454,-0.682],_ + [-0.430,-0.466,-0.568,-0.720,-0.884]] +n:=ncols x +m:=nrows x +trigm:Matrix SF:=new(1,2*m,0.0@SF) +trign:Matrix SF:=new(1,2*n,0.0@SF) +init:="i" +result:=c06fuf(m,n,init,x,y,trigm,trign,-1) +@ +\eject +\begin{thebibliography}{99} +\bibitem{1} nothing +\end{thebibliography} +\end{document} -- cgit v1.2.3