From 701073966d9aba091a99aa3cbef48fe3df226dfe Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 13 Jun 2010 16:37:27 +0000 Subject: * algebra/array1.spad.pamphlet (IndexedFlexibleArray) [merge!]: Tidy. * algebra/intfact.spad.pamphlet (IntegerRoots) [perfectNthRoot]: Likewise. * algebra/numode.spad.pamphlet (NumericalOrdinaryDifferentialEquations) [rf4a]: Likewise. * algebra/solvelin.spad.pamphlet (LinearSystemMatrixPackage) [aSolution]: Likewise. --- src/algebra/array2.spad.pamphlet | 2 -- 1 file changed, 2 deletions(-) (limited to 'src/algebra/array2.spad.pamphlet') diff --git a/src/algebra/array2.spad.pamphlet b/src/algebra/array2.spad.pamphlet index eceb691a..0a89e53f 100644 --- a/src/algebra/array2.spad.pamphlet +++ b/src/algebra/array2.spad.pamphlet @@ -355,11 +355,9 @@ InnerIndexedTwoDimensionalArray(R,mnRow,mnCol,Row,Col):_ if R has SetCategory then latex(m : %) : String == s : String := "\left[ \begin{array}{" - j : Integer for j in minColIndex(m)..maxColIndex(m) repeat s := concat(s,"c")$String s := concat(s,"} ")$String - i : Integer for i in minRowIndex(m)..maxRowIndex(m) repeat for j in minColIndex(m)..maxColIndex(m) repeat s := concat(s, latex(qelt(m,i,j))$R)$String -- cgit v1.2.3