Revision 024c9750ac3f39428818576cba043d57e6a7f2c1 authored by Mohamed Barakat on 09 July 2015, 13:37:30 UTC, committed by Mohamed Barakat on 09 July 2015, 16:29:51 UTC
1 parent cea8169
Raw File
ProjectiveSpacesViaFans.g
LoadPackage( "ToricVarieties" );

P1:=Fan([[[1]],[[-1]]]);
P2:=Fan([[[1,0],[-1,-1]],[[0,1],[-1,-1]],[[1,0],[0,1]]]);

P1 := ToricVariety(P1);
P2 := ToricVariety(P2);
P1P1 := P1*P1;
P1P2 := P1*P2;

ClassGroup( P1 );
ClassGroup( P2 );
ClassGroup( P1P1 );
ClassGroup( P1P2 );
back to top