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)
|