diff options
Diffstat (limited to 'src/input/e04gcf.input.pamphlet')
-rw-r--r-- | src/input/e04gcf.input.pamphlet | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/src/input/e04gcf.input.pamphlet b/src/input/e04gcf.input.pamphlet new file mode 100644 index 00000000..2bfb59fd --- /dev/null +++ b/src/input/e04gcf.input.pamphlet @@ -0,0 +1,51 @@ +\documentclass{article} +\usepackage{axiom} +\begin{document} +\title{\$SPAD/src/input e04gcf.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 + +m:=15 +n:=3 +liw:=1 +lw:=177 +x:Matrix SF:= + [[0.5 ,1.0 ,1.5 ]] +vef:Vector Expression Float:=vector + [(XC[3]+15*XC[2])**(-1)+XC[1]-0.14 ,_ + 2*(2*XC[3]+14*XC[2])**(-1)+XC[1]-0.18 ,_ + 3*(3*XC[3]+13*XC[2])**(-1)+XC[1]-0.22 ,_ + 4*(4*XC[3]+12*XC[2])**(-1)+XC[1]-0.25 ,_ + 5*(5*XC[3]+11*XC[2])**(-1)+XC[1]-0.29 ,_ + 6*(6*XC[3]+10*XC[2])**(-1)+XC[1]-0.32 ,_ + 7*(7*XC[3]+9*XC[2])**(-1)+XC[1]-0.35 ,_ + 8*(8*XC[3]+8*XC[2])**(-1)+XC[1]-0.39 ,_ + 9*(7*XC[3]+7*XC[2])**(-1)+XC[1]-0.37 ,_ + 10*(6*XC[3]+6*XC[2])**(-1)+XC[1]-0.58 ,_ + 11*(5*XC[3]+5*XC[2])**(-1)+XC[1]-0.73 ,_ + 12*(4*XC[3]+4*XC[2])**(-1)+XC[1]-0.96 ,_ + 13*(3*XC[3]+3*XC[2])**(-1)+XC[1]-1.34 ,_ + 14*(2*XC[3]+2*XC[2])**(-1)+XC[1]-2.1 ,_ + 15*(XC[3]+XC[2])**(-1)+XC[1]-4.39 ] +lsfun2:Asp19(LSFUN2):= retract vef +result:=e04gcf(m,n,liw,lw,x,-1,lsfun2) +@ +\eject +\begin{thebibliography}{99} +\bibitem{1} nothing +\end{thebibliography} +\end{document} |