i1 : X = specialGushelMukaiFourfold "quintic del Pezzo surface"; o1 : ProjectiveVariety, GM fourfold containing a surface of degree 5 and sectional genus 1 |
i2 : singularLocus grassmannianHull X o2 = empty subscheme of PP^8 o2 : ProjectiveVariety, empty subscheme of PP^8 |
i3 : time X' = < X; -- used 3.52353 seconds o3 : ProjectiveVariety, GM fourfold containing a surface of degree 5 and sectional genus 1 |
i4 : decompose singularLocus grassmannianHull X' o4 = {point of coordinates [1, 0, 0, 0, 0, 0, 0, 0, 0]} o4 : List |