//SINGULAR ExampleA.8.15


LIB"sing.lib";
ring r = 0,(x,y),ds;
ideal f = x3-y2;
mult(std(f));                  //the multiplicity of f at 0

tangentcone(f);                //the tangent cone of f at 0

ideal Lo = random(1,100)*x + random(1,100)*y; 
                               //a general line through 0
vdim(std(f+Lo));               //intersection multiplicity of

ideal L1 = y;                  //the special line y=0
vdim(std(f+L1));                //intersection multiplicity of