source:
git/Tst/Manual/createTorsionFreeGroup.tst
@
c2f6bd
| Last change on this file since c2f6bd was 894057, checked in by , 13 years ago | |
|---|---|
|
|
| File size: 403 bytes | |
| Line | |
|---|---|
| 1 | LIB "tst.lib"; tst_init(); |
| 2 | LIB "multigrading.lib"; |
| 3 | // ----------- extreme case ------------ // |
| 4 | intmat S[1][3] = |
| 5 | 1, -1, 10; |
| 6 | // Torsion: |
| 7 | intmat L[1][1] = |
| 8 | 0; |
| 9 | // The free subgroup generated by elements of S within Z^1 |
| 10 | // can be constructed as follows: |
| 11 | // shortcut: |
| 12 | def G = createTorsionFreeGroup(S); |
| 13 | printGroup(G); |
| 14 | // the general way: |
| 15 | def GG = createGroup(S, L); // (S+L)/L |
| 16 | printGroup(GG); |
| 17 | tst_status(1);$ |
Note: See TracBrowser
for help on using the repository browser.
