From 775f2c3cca11ab64df713afb7f35363afe5d4ce0 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 14 Aug 2011 03:30:48 +0000 Subject: * interp/compiler.boot (compRepeatOrCollect): Set $loopKind directly. (complainIfShadowing): Don't complain when collecting. * algebra/contfrac.spad.pamphlet: Remove capsule-level declaration of local variables. * algebra/cycles.spad.pamphlet: Likewise. * algebra/cyclotom.spad.pamphlet: Likewise. * algebra/ddfact.spad.pamphlet: Likewise. * algebra/fortpak.spad.pamphlet: Likewise. * algebra/lingrob.spad.pamphlet: Likewise. * algebra/numode.spad.pamphlet: Likewise. * algebra/numquad.spad.pamphlet: Likewise. * algebra/out.spad.pamphlet: Likewise. * algebra/perman.spad.pamphlet: Likewise. * algebra/view2D.spad.pamphlet: Likewise. --- src/algebra/fortpak.spad.pamphlet | 5 ----- 1 file changed, 5 deletions(-) (limited to 'src/algebra/fortpak.spad.pamphlet') diff --git a/src/algebra/fortpak.spad.pamphlet b/src/algebra/fortpak.spad.pamphlet index 911ed3d5..05d33441 100644 --- a/src/algebra/fortpak.spad.pamphlet +++ b/src/algebra/fortpak.spad.pamphlet @@ -535,7 +535,6 @@ MultiVariableCalculusFunctions(S,F,FLAF,FLAS) : Exports == Implementation where xlist:List(S) := parts(xflas) localGradient(v,xlist) localDivergence(vf:Vector(F),xlist:List(S)):F == - i: PI n: NNI ans: F -- Perhaps should report error if two args of min different @@ -545,7 +544,6 @@ MultiVariableCalculusFunctions(S,F,FLAF,FLAS) : Exports == Implementation where ans divergence(vf,xflas) == xlist:List(S) := parts(xflas) - i: PI n: NNI ans: F -- Perhaps should report error if two args of min different @@ -565,11 +563,9 @@ MultiVariableCalculusFunctions(S,F,FLAF,FLAS) : Exports == Implementation where -- matrix([[D(vf(i),x) for x in xlist] for i in 1 .. maxIndex(vf)]) 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)]) bandedHessian(v,xflas,k) == xlist:List(S) := parts(xflas) - j,iw: PI n: NNI bandM: Matrix F n:= #(xlist) @@ -581,7 +577,6 @@ MultiVariableCalculusFunctions(S,F,FLAF,FLAS) : Exports == Implementation where bandM bandedJacobian(vf,xflas,kl,ku) == xlist:List(S) := parts(xflas) - j,iw: PI n: NNI bandM: Matrix F n:= #(xlist) -- cgit v1.2.3