CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutSign UpSign In

Real-time collaboration for Jupyter Notebooks, Linux Terminals, LaTeX, VS Code, R IDE, and more,
all in one place.

| Download

GAP 4.8.9 installation with standard packages -- copy to your CoCalc project to get it

Views: 418346
Tweet
Share
Share
1
#include"typedef.h"

2


3


4
main (int argc, char *argv[])

5
{

6


7
	matrix_TYP **x, **S;

8
        bravais_TYP *G;

9
        int anz;

10


11
        extern char **FILENAMES;

12
        extern int FILEANZ;

13


14
        extern matrix_TYP **mget_mat();

15
        extern bravais_TYP *hyperbolic_stabilizer();

16


17
        read_header(argc, argv);

18
        if(FILEANZ != 2)

19
        {

20
           printf("usage:  hypstab 'file1' 'file2 ,\n");

21
           printf("where 'file1' contains an 1 by n matrix X.\n");

22
           printf("and   'file2' contains a set of n by n matrix S.\n");

23
           printf("of sylvester Typ (-1, n-1) s.t. xSx^{tr} < 0\n");

24
           if (is_option('h')){

25
              exit(0);

26
           }

27
           else{

28
              exit(31);

29
           }

30
        }

31
        x = mget_mat(FILENAMES[0], &anz);

32
        S = mget_mat(FILENAMES[1], &anz);

33
        G = hyperbolic_stabilizer(x[0], S[0]);

34
        put_bravais(G, NULL, "hyperbolic stabilizer");

35


36


37
   exit(0);

38
}

39


40