From 307e4ad0a2676ef94b42121e79e71888f4778883 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 27 May 2010 22:31:23 +0000 Subject: cleanup --- src/input/fixed.input.pamphlet | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/input/fixed.input.pamphlet') 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]) -- cgit v1.2.3