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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
\documentclass{article}
\usepackage{axiom}
\begin{document}
\title{\$SPAD/src/input e04ucf.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:=9
nclin:=4
ncnln:=14
nrowa:=4
nrowj:=14
nrowr:=9
a:Matrix SF:=
[[-1.0 ,1.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ],_
[0.0 ,-1.0 ,1.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ],_
[0.0 ,0.0 ,1.0 ,-1.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ],_
[0.0 ,0.0 ,0.0 ,1.0 ,-1.0 ,0.0 ,0.0 ,0.0 ,0.0 ]]
bl:Matrix SF:=
[[0.0 ,-1.0e15 ,-1.0 ,-1.0e15 ,0.0 ,0.0 ,0.0 ,-1.0e15 ,_
-1.0e15 ,0.0 ,0.0 ,0.0 ,0.0 ,-1.0e15 ,-1.0e15 ,-1.0e15 ,_
-1.0e15 ,-1.0e15 ,-1.0e15 ,-1.0e15 ,-1.0e15 ,-1.0e15 ,_
-1.0e15 ,-1.0e15 ,-1.0e15 ,-1.0e15 ,-1.0e15 ]]
bu:Matrix SF:=
[[1.0e15 ,1.0e15 ,1.0 ,1.0e15 ,1.0e15 ,1.0e15 ,1.0e15 ,_
0.0 ,0.0 ,1.0e15 ,1.0e15 ,1.0e15 ,1.0e15 ,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 ]]
liwork:=59
lwork:=968
sta:=false
cra:= 0.01
der:=3
fea:=0.1053671201E-7
fun:=0.4373903510E-14
hes:= true
infb:= 1.00E+15
infs:= 1.00E+15
linf:= 0.1053671201E-7
lint:= 0.9
list:= true
maji:= 30
majp:= 1
mini:= 81
minp:= 0
mon:= -1
nonf:= 1.05E-08
opt:= 3.26E-08
ste:= 2.0
stao:= 1
stac:= 1
stoo:= 9
stoc:= 9
ve:= 3
istate:Matrix Integer:=new(1,27,0)
cjac:Matrix SF:=new(14,9,0.0)
clamda:Matrix SF:=new(1,27,0.0)
r:Matrix SF:=new(9,9,0.0)
x:Matrix SF:=
[[0.1 ,0.125 ,0.666666 ,0.142857 ,0.111111 ,0.2 ,0.25 ,-0.2 ,-0.25 ]]
vef:Vector Expression Float:=vector
[X[1]**2 + X[6]**2 ,_
(X[2] - X[1])**2 + (X[7] - X[6])**2 ,_
(X[3] - X[1])**2 + X[6]*2 ,_
(X[1] - X[4])**2 + (X[6] - X[8])**2 ,_
(X[1] - X[5])**2 + (X[6] - X[9])**2 ,_
X[2]**2 + X[7]**2 ,_
(X[3] - X[2])**2 + X[7]**2 ,_
(X[4] - X[2])**2 + (X[8] - X[7])**2 ,_
(X[2] - X[5])**2 + (X[7] - X[9])**2 ,_
(X[4] - X[3])**2 + X[8]**2 ,_
(X[5] - X[3])**2 + X[9]**2 ,_
X[4]**2 + X[8]**2 ,_
(X[4] - X[5])**2 + (X[9] - X[8])**2 ,_
X[5]**2 + X[9]**2 ]
confun:Asp55(CONFUN):= retract vef
ef:Expression Float:=(-X[2]*X[6] + X[1]*X[7] - X[3]*X[7] - X[5]*X[8] + X[4]*X[9] + X[3]*X[8])::EXPR FLOAT
objfun:Asp49(OBJFUN):=retract ef
result:=e04ucf(n,nclin,ncnln,nrowa,nrowj,nrowr,a,bl,bu,liwork,lwork,_
sta,cra,der,fea,fun,hes,infb,infs,linf,lint,list,maji,majp,_
mini,minp,mon,nonf,opt,ste,stao,stac,stoo,stoc,ve,istate,_
cjac,clamda,r,x,-1,confun,objfun)
@
\eject
\begin{thebibliography}{99}
\bibitem{1} nothing
\end{thebibliography}
\end{document}
|
