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
|
\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}
<<license>>=
--Copyright The Numerical Algorithms Group Limited 1994.
@
<<*>>=
<<license>>
)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}
|
