===================================================================
RCS file: /home/cvs/OpenXM/src/asir-contrib/packages/doc/sm1/sm1.oxw,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/asir-contrib/packages/doc/sm1/sm1.oxw	2005/04/13 23:50:17	1.1
+++ OpenXM/src/asir-contrib/packages/doc/sm1/sm1.oxw	2008/06/04 01:46:52	1.2
@@ -1,4 +1,4 @@
-/*$OpenXM$ */
+/*$OpenXM: OpenXM/src/asir-contrib/packages/doc/sm1/sm1.oxw,v 1.1 2005/04/13 23:50:17 takayama Exp $ */
 
 /*&C
 @c DO NOT EDIT THIS FILE   
@@ -102,6 +102,7 @@ Grobner Deformations of Hypergeometric Differential Eq
 * sm1.mul::
 * sm1.distraction::
 * sm1.gkz::
+* sm1.mgkz::
 * sm1.appell1::
 * sm1.appell4::
 * sm1.rank::
@@ -1653,6 +1654,70 @@ List
  -dx1*dx4+dx2*dx3,-dx2^2*dx4+dx1*dx3^2,dx1^2*dx3-dx2^3,-dx2*dx4^2+dx3^3],
  [x1,x2,x3,x4]]
 
+@end example
+
+*/
+
+/*&en
+@node sm1.mgkz,,, SM1 Functions
+@subsection @code{sm1.mgkz}
+@findex sm1.mgkz
+@table @t
+@item sm1.mgkz([@var{A},@var{W},@var{B}]|proc=@var{p})
+::  Returns the modified GKZ system (A-hypergeometric system) associated to the matrix 
+@var{A} and the weight @var{w} with the parameter vector @var{B}.
+@end table
+
+@table @var
+@item return
+List
+@item p
+Number
+@item A, W, B
+List
+@end table
+
+@itemize @bullet
+@item Returns the modified GKZ hypergeometric system 
+(A-hypergeometric system) associated to the matrix 
+@item http://arxiv.org/abs/0707.0043
+@end itemize
+*/
+
+/*&ja
+@node sm1.mgkz,,, SM1 Functions
+@subsection @code{sm1.mgkz}
+@findex sm1.mgkz
+@table @t
+@item sm1.mgkz([@var{A},@var{W},@var{B}]|proc=@var{p})
+::  行列 @var{A}, weight @var{W} とパラメータ @var{B} に付随した modified GKZ 系 (A-hypergeometric system) をもどす.
+@end table
+
+@table @var
+@item return
+リスト
+@item p
+数
+@item A, W, B
+リスト
+@end table
+
+@itemize @bullet
+@item  行列 @var{A}, weight vector @var{W} とパラメータ @var{B} に付随した modified GKZ 系 (A-hypergeometric system) をもどす.
+@item http://arxiv.org/abs/0707.0043
+@end itemize
+*/
+
+/*&C
+
+@example
+
+[280] sm1.mgkz([ [[1,2,3]], [1,2,1], [a/2]]);
+[[6*x3*dx3+4*x2*dx2+2*x1*dx1-a,-x4*dx4+x3*dx3+2*x2*dx2+x1*dx1,
+  -dx2+dx1^2,-x4^2*dx3+dx1*dx2],[x1,x2,x3,x4]]
+
+Modified A-hypergeometric system for 
+A=(1,2,3), w=(1,2,1), beta=(a/2).
 @end example
 
 */