/usr/share/axiom-20170501/src/algebra/NAGC02.spad is in axiom-source 20170501-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | )abbrev package NAGC02 NagPolynomialRootsPackage
++ Author: Godfrey Nolan and Mike Dewar
++ Date Created: Jan 1994
++ Date Last Updated: Thu May 12 17:44:27 1994
++ Description:
++ This package uses the NAG Library to compute the zeros of a
++ polynomial with real or complex coefficients.
NagPolynomialRootsPackage() : SIG == CODE where
S ==> Symbol
FOP ==> FortranOutputStackPackage
SIG ==> with
c02aff : (Matrix DoubleFloat,Integer,Boolean,Integer) -> Result
++ c02aff(a,n,scale,ifail)
++ finds all the roots of a complex polynomial equation,
++ using a variant of Laguerre's Method.
++ See \downlink{Manual Page}{manpageXXc02aff}.
c02agf : (Matrix DoubleFloat,Integer,Boolean,Integer) -> Result
++ c02agf(a,n,scale,ifail)
++ finds all the roots of a real polynomial equation, using a
++ variant of Laguerre's Method.
++ See \downlink{Manual Page}{manpageXXc02agf}.
CODE ==> add
import Lisp
import DoubleFloat
import Matrix DoubleFloat
import Any
import Record
import Integer
import Boolean
import NAGLinkSupportPackage
import AnyFunctions1(Matrix DoubleFloat)
import AnyFunctions1(Integer)
import AnyFunctions1(Boolean)
c02aff(aArg:Matrix DoubleFloat,nArg:Integer,scaleArg:Boolean,_
ifailArg:Integer): Result ==
[(invokeNagman(NIL$Lisp,_
"c02aff",_
["n"::S,"scale"::S,"ifail"::S,"a"::S,"z"::S,"w"::S]$Lisp,_
["z"::S,"w"::S]$Lisp,_
[["double"::S,["a"::S,2$Lisp,["+"::S,"n"::S,1$Lisp]$Lisp]$Lisp_
,["z"::S,2$Lisp,"n"::S]$Lisp,["w"::S,["*"::S,_
["+"::S,"n"::S,1$Lisp]$Lisp,4$Lisp]$Lisp]$Lisp]$Lisp_
,["integer"::S,"n"::S,"ifail"::S]$Lisp_
,["logical"::S,"scale"::S]$Lisp_
]$Lisp,_
["z"::S,"ifail"::S]$Lisp,_
[([nArg::Any,scaleArg::Any,ifailArg::Any,aArg::Any ])_
@List Any]$Lisp)$Lisp)_
pretend List (Record(key:Symbol,entry:Any))]$Result
c02agf(aArg:Matrix DoubleFloat,nArg:Integer,scaleArg:Boolean,_
ifailArg:Integer): Result ==
[(invokeNagman(NIL$Lisp,_
"c02agf",_
["n"::S,"scale"::S,"ifail"::S,"a"::S,"z"::S,"w"::S]$Lisp,_
["z"::S,"w"::S]$Lisp,_
[["double"::S,["a"::S,["+"::S,"n"::S,1$Lisp]$Lisp]$Lisp_
,["z"::S,2$Lisp,"n"::S]$Lisp,["w"::S,["*"::S,_
["+"::S,"n"::S,1$Lisp]$Lisp,2$Lisp]$Lisp]$Lisp]$Lisp_
,["integer"::S,"n"::S,"ifail"::S]$Lisp_
,["logical"::S,"scale"::S]$Lisp_
]$Lisp,_
["z"::S,"ifail"::S]$Lisp,_
[([nArg::Any,scaleArg::Any,ifailArg::Any,aArg::Any ])_
@List Any]$Lisp)$Lisp)_
pretend List (Record(key:Symbol,entry:Any))]$Result
|