// The simple zero-dimensional singularity An and all non-free // indecomposable MCM modules LIB "conn.lib"; int n = 100; if (n mod 2 == 0) { int p = n/2; } if (n mod 2 == 1) { int p = (n-1)/2; } ring s = 0, (x), dp; ideal i = x^n; qring a = std(i); int l; list MCM, sMCM; for (l=1;l<=p;l++) { matrix M[1][1] = x^l; matrix sM[1][1] = x^(n-1); MCM[l] = M; sMCM[l] = sM; } print("Zero-dimensional An:"); print("-------"); int i; for(i=1;i<=size(MCM);i++) { print("Module:"); print("-------"); print(MCM[i]); print("-------"); print("Obstructions:"); print("-------"); print(KSKernel(MCM[i])); print(LClass(MCM[i])); print("-------"); }