small changes in Coupling.g

PackageInfo.g

@@ -27,7 +27,7 @@ Subtitle := "A homalg based package for D-modules",
 ##  See '?Extending: Version Numbers' in GAP help for an explanation
 ##  of valid version numbers. For an automatic package distribution update
 ##  you must provide a new version number even after small changes.
-Version := "2014.07.04",
+Version := "2014.07.05",
 ##  Please adjust also the VERSION file in the package directory when
 ##  changing this.
 

examples/Coupling.g

@@ -20,11 +20,17 @@ Dz  \
 M := DiagMat( [ M1, M2, M3 ] );
 M := ShallowCopy( M );	## copy M before setting entries
 SetIsMutableMatrix( M, true );
-SetMatElm( M, 1, 2, "1" );
-SetMatElm( M, 2, 3, "1" );
-SetMatElm( M, 3, 3, "1" );
+SetMatElm( M, 1, 2, "-1" );
+SetMatElm( M, 2, 3, "-1" );
+SetMatElm( M, 3, 3, "-1" );
 MakeImmutable( M );
 
+tau0 := HomalgMatrix( "[ \
+1, 0, 0, \
+0,-1, 0, \
+0, 0, 1  \
+]", 3, 3, A3 );
+
 tau1 := HomalgMatrix( "[ \
 1, Dx, Dz, \
 0,  0,  1, \
@@ -43,7 +49,7 @@ tau3 := HomalgMatrix( "[ \
 0, -1, 1  \
 ]", 3, 3, A3 );
 
-tau := tau1 * tau2 * tau3;
+tau := tau0 * tau1 * tau2 * tau3;
 
 LoadPackage( "Modules" );