aboutsummaryrefslogtreecommitdiff
path: root/src/input/e04gcf.input.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/input/e04gcf.input.pamphlet')
-rw-r--r--src/input/e04gcf.input.pamphlet51
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}