$SPAD/src/input c06fuf.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
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)

———-

References^{[1] nothing}

4