Initial population.

1 files changed, 53 insertions, 0 deletions

diff --git a/src/input/d02raf.input.pamphlet b/src/input/d02raf.input.pamphlet
new file mode 100644
index 00000000..be82a48c
--- /dev/null
+++ b/src/input/d02raf.input.pamphlet
@@ -0,0 +1,53 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/input d02raf.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
+
+n:=3
+mnp:=40
+numbeg:=2
+nummix:=0
+tol:=1.0e-4
+init:=0
+iy:=3
+ijac:=1
+lwork:=1925
+liwork:=283
+np:=17
+x:Matrix SF:=
+ [[0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,_
+   0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,10.0 ,0.0 ,0.0 ,0.0 ,_
+   0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,_
+   0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ]]
+y:Matrix SF:=new(3,40,0.0)
+deleps:=0.1
+ifail:=11
+vef:Vector Expression Float:=
+ [Y[2] ,Y[3] ,-Y[1]*Y[3] - 2*EPS*(1-Y[2]*Y[2]) ]
+fcn:Asp41(FCN,JACOBF,JACEPS):= retract vef
+vei:Vector Expression Integer:=
+ [YA[1] ,YA[2] ,YB[2] -1 ]
+g:Asp42(G,JACOBG,JACGEP):=retract vei
+result:=d02raf(n,mnp,numbeg,nummix,tol,init,iy,ijac,lwork,liwork,np,x,y,deleps,ifail,fcn,g)
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}