Advertisement
Guest User

Untitled

a guest
Aug 23rd, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. for N:=2 to 10 do
  2. G:=GL(2,IntegerRing(N));
  3. H:=SL(2,IntegerRing(N));
  4. Sub:=Subgroups(H);
  5. for R1,R2 in Sub do
  6. H1:=R1`subgroup;
  7. H2:=R2`subgroup;
  8. if H1 ne H2 then
  9. bool,g:=IsConjugate(G,H1,H2);
  10. if bool then print H1,H2,g; end if;
  11. end if;
  12. end for;
  13. end for;
  14.  
  15. MatrixGroup(2, IntegerRing(7)) of order 2^3
  16. Generators:
  17. [2 1]
  18. [2 5]
  19.  
  20. [6 4]
  21. [3 1]
  22.  
  23. [6 0]
  24. [0 6]
  25.  
  26. MatrixGroup(2, IntegerRing(7)) of order 2^3
  27. Generators:
  28. [1 1]
  29. [5 6]
  30.  
  31. [6 4]
  32. [3 1]
  33.  
  34. [6 0]
  35. [0 6]
  36. Conjugate by
  37. [3 0]
  38. [0 1]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement