$SPAD/src/input e04fdf.input

The Axiom Team December 3, 2016

Abstract

Contents

2

1 License

— license —

--Copyright The Numerical Algorithms Group Limited 1994.

———-

— * —

\getchunk{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)

———-

References^{[1] nothing}

4