1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
\documentclass{article}
\usepackage{axiom}
\begin{document}
\title{\$SPAD/src/input e04fdf.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:=171
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 ]
lsfun1:ASP50(LSFUN1):= retract vef
result:=e04fdf(m,n,liw,lw,x,-1,lsfun1)
@
\eject
\begin{thebibliography}{99}
\bibitem{1} nothing
\end{thebibliography}
\end{document}
|
