LoadPackage( "ToricVarieties" );
C4 := Cone( [ [1,0,0,0],[0,1,0,0], [0,0,1,0], [0,0,0,1 ] ] );
C4B := StarSubdivisionOfIthMaximalCone( C4, 1 );
C4B := ToricVariety( C4B );
ClassGroup( C4B );
IsSmooth( C4B );
PicardGroup( C4B );
LoadPackage( "ToricVarieties" );
C4 := Cone( [ [1,0,0,0],[0,1,0,0], [0,0,1,0], [0,0,0,1 ] ] );
C4B := StarSubdivisionOfIthMaximalCone( C4, 1 );
C4B := ToricVariety( C4B );
ClassGroup( C4B );
IsSmooth( C4B );
PicardGroup( C4B );