i1 : Y = random(3,0_(PP_(ZZ/333331)^6)), q = point Y, j = parametrize tangentSpace(Y,q); |
i2 : (X, p) = (j^* Y, j^* q); |
i3 : C = tangentCone(X,p); o3 : ProjectiveVariety, hypersurface in PP^5 |
i4 : describe C
o4 = ambient:.............. PP^5
dim:.................. 4
codim:................ 1
degree:............... 2
generators:........... 2^1
purity:............... true
dim sing. l.:......... 0
gens sing. l.:........ 1^5
|
i5 : assert(isSubset(C,tangentSpace(X,p)) and coneOfLines(C,p) == C) |