diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-27 22:31:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-27 22:31:23 +0000 |
| commit | 307e4ad0a2676ef94b42121e79e71888f4778883 (patch) | |
| tree | 15cc67e1c57f7b0efd639bd14472bf3e559c08e3 /src/input/fixed.input.pamphlet | |
| parent | 8f5399e77de0741651b0d058b1aa7f57f43aedb0 (diff) | |
| download | open-axiom-307e4ad0a2676ef94b42121e79e71888f4778883.tar.gz | |
cleanup
Diffstat (limited to 'src/input/fixed.input.pamphlet')
| -rw-r--r-- | src/input/fixed.input.pamphlet | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/input/fixed.input.pamphlet b/src/input/fixed.input.pamphlet index e4ff69da..f72d1903 100644 --- a/src/input/fixed.input.pamphlet +++ b/src/input/fixed.input.pamphlet @@ -373,10 +373,10 @@ factor % )clear all -- Do this in a virgin system )set expose add constructor SquareMatrix -S2:= SquareMatrix(2,FRAC POLY INT); -V2: S2 := matrix([[v,-v],[-v,v]]); -I2: S2 := 1; -m:=5; +S2:= SquareMatrix(2,FRAC POLY INT) +V2: S2 := matrix([[v,-v],[-v,v]]) +I2: S2 := 1 +m:=5 l: List(S2) := append(cons(V2+h*I2,_ [(V2+2*h*I2) for i in 2 .. (m-1)]),_ [V2+h*I2]) |