diff options
Diffstat (limited to 'src/algebra/fortpak.spad.pamphlet')
| -rw-r--r-- | src/algebra/fortpak.spad.pamphlet | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/algebra/fortpak.spad.pamphlet b/src/algebra/fortpak.spad.pamphlet index 5f3fb1e6..b3ae68a3 100644 --- a/src/algebra/fortpak.spad.pamphlet +++ b/src/algebra/fortpak.spad.pamphlet @@ -588,10 +588,6 @@ MultiVariableCalculusFunctions(S,F,FLAF,FLAS) : Exports == Implementation where for j in 1 .. (n-iw+1) repeat (_ setelt(bandM,iw,j,D(v,[xlist(j),xlist(j+iw-1)])) ) ) bandM - jacobian(vf,xflas) == - xlist:List(S) := parts(xflas) - i: PI - matrix([[D(vf(i),x) for x in xlist] for i in 1 .. maxIndex(vf)]) bandedJacobian(vf,xflas,kl,ku) == xlist:List(S) := parts(xflas) j,iw: PI |