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
|
\documentclass{article}
\usepackage{axiom}
\begin{document}
\title{\$SPAD/src/input e01sbf.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:=30
x:Matrix SF:=
[[11.16 ,12.85 ,19.85 ,19.72 ,15.91 , 0.00 ,20.87 ,_
3.45 ,14.26 ,17.43 ,22.80 ,7.58 ,25.00 , 0.00 ,_
9.66 , 5.22 ,17.25 ,25.00 ,12.13 ,22.23 ,11.52 ,_
15.20 , 7.54 ,17.32 , 2.14 , 0.51 ,22.69 , 5.47 ,21.67 ,3.31 ]]
y:Matrix SF:=
[[1.24 ,3.06 ,10.72 ,1.39 ,7.74 ,20.00 ,20.00 ,12.78 ,_
17.87 ,3.46 ,12.39 ,1.98 ,11.87 ,0.00 ,20.00 ,14.66 ,_
19.57 ,3.87 ,10.79 ,6.21 ,8.53 ,0.0 ,10.69 ,13.78 ,_
15.03 ,8.37 ,19.63 ,17.13 ,14.36 ,0.33 ]]
f:Matrix SF:=
[[22.15 ,22.11 ,7.97 ,16.83 ,15.30 ,34.60 ,5.74 ,41.24 ,_
10.74 ,18.60 ,5.47 ,29.87 ,4.40 ,58.20 ,4.73 ,40.36 ,_
6.43 ,8.74 ,13.71 ,10.25 ,15.74 ,21.60 ,19.31 ,12.11 ,_
53.10 ,49.43 ,3.25 ,28.63 ,5.52 ,44.08 ]]
resa:=e01saf(m,x,y,f,-1)
px:=7.71
py:=3.45
result:=resb:=e01sbf(m,x,y,f,resa."triang",resa."grads",px,py,-1)
resb."pf"
@
\eject
\begin{thebibliography}{99}
\bibitem{1} nothing
\end{thebibliography}
\end{document}
|
