===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ecart.sm1,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- OpenXM/src/kan96xx/Doc/ecart.sm1	2003/08/22 23:55:21	1.9
+++ OpenXM/src/kan96xx/Doc/ecart.sm1	2003/08/23 02:28:40	1.10
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Doc/ecart.sm1,v 1.8 2003/08/21 12:28:58 takayama Exp $ 
+% $OpenXM: OpenXM/src/kan96xx/Doc/ecart.sm1,v 1.9 2003/08/22 23:55:21 takayama Exp $ 
 %[(parse) (hol.sm1) pushfile] extension
 %[(parse) (appell.sm1) pushfile] extension
 
@@ -171,9 +171,11 @@
   (  )
   $Example 3: [ [( (x Dx)^2 + (y Dy)^2 -1) (  x y Dx Dy -1)] (x,y) $
   $             [ [ (Dx) 1 (Dy) 1] ] ] ecart.gb pmat ; $
+  (   This example will cause an error on order.)
   (  )
   $Example 4: [[ [(x^2) (y+x)] [(x+y) (y^3)] [(2 x^2+x y) (y+x+x y^3)]] (x,y) $
   $             [ [ (x) -1 (y) -1] [(x) -1 (y) -1 (Dx) 1 (Dy) 1]] ] ecart.gb pmat ; $
+  (   This example will cause an error on order.)
   (  )
   $Example 5: [[ [(x^2) (y+x)] [(x+y) (y^3)] [(2 x^2+x y) (y+x+x y^3)]] (x,y) $
   $             [ [(Dx) 1 (Dy) 1] [(x) -1 (y) -1 (Dx) 1 (Dy) 1] ]  [[0 1] [-3 1] ] ] ecart.gb pmat ; $
@@ -352,7 +354,11 @@
       wv isInteger {
         /ans [gg gg {init} map] def
       }{
-        /ans [gg gg {wv 0 get weightv init} map] def
+       degreeShift isInteger {
+         /ans [gg gg {wv 0 get weightv init} map] def
+       } {
+         /ans [gg gg {[wv 0 get weightv degreeShift 0 get ] init} map] def
+       } ifelse
       }ifelse
 
       %% Postprocess : recover the matrix expression.
@@ -627,7 +633,11 @@
       wv isInteger {
         /ans [gg gg {init} map] def
       }{
-        /ans [gg gg {wv 0 get weightv init} map] def
+       degreeShift isInteger {
+         /ans [gg gg {wv 0 get weightv init} map] def
+       } {
+         /ans [gg gg {[wv 0 get weightv degreeShift 0 get ] init} map] def
+       } ifelse
       }ifelse
 
       %% Postprocess : recover the matrix expression.
@@ -802,7 +812,11 @@
       wv isInteger {
         /ans [gg gg {init} map] def
       }{
-        /ans [gg gg {wv 0 get weightv init} map] def
+       degreeShift isInteger {
+         /ans [gg gg {wv 0 get weightv init} map] def
+       } {
+         /ans [gg gg {[wv 0 get weightv degreeShift 0 get ] init} map] def
+       } ifelse
       }ifelse
 
       %% Postprocess : recover the matrix expression.