Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
Download

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

563580 views
Tweet
Share
Share
1
#ifdef __cplusplus

2
extern "C" {

3
#endif

4


5


6


7
#include"gmp.h"

8


9
#ifndef _BASE_H_

10
#define _BASE_H_

11


12
#ifdef __STDC__

13


14
/*************************************************************************

15
@ FILE: base.c

16
**************************************************************************/

17
extern void free_tree(struct tree *p);

18


19
extern int hash_mat(struct tree *p,matrix_TYP **v,matrix_TYP *x,int pos);

20


21
extern void init_bahn(bahn *a);

22


23
extern void free_bahn(bahn *a);

24


25
extern bahn **strong_generators(matrix_TYP **base,bravais_TYP *U,int OPT);

26


27
extern matrix_TYP **get_base(bravais_TYP *U);

28


29
extern int is_element(matrix_TYP *x,bravais_TYP *G,bahn **strong,int **w);

30


31
extern matrix_TYP **normalizer_in_N(bravais_TYP *U,bravais_TYP *N,int *anz,

32
                                    int finite_flag);

33


34
extern int size(bahn **a);

35


36
extern void extend_bahn(bahn **a);

37


38
extern matrix_TYP **get_base(bravais_TYP *U);

39


40
extern int red_gen(bravais_TYP *G,matrix_TYP **base,bahn ***strong,int i);

41


42
matrix_TYP *conjugated(bravais_TYP *G,bravais_TYP *H,

43
                       matrix_TYP **N,int Nanz,bahn **strong);

44


45
/*************************************************************************

46
@ FILE: base2.c

47
**************************************************************************/

48
int strong_generators_2(matrix_TYP **base,bravais_TYP *U,matrix_TYP ***K,

49
                        int *anz,MP_INT *mp);

50


51
#else

52


53
/*************************************************************************

54
@ FILE: base.c

55
**************************************************************************/

56
extern void free_tree();

57


58
extern int hash_mat();

59


60
extern void init_bahn();

61


62
extern void free_bahn();

63


64
extern bahn **strong_generators();

65


66
extern matrix_TYP **get_base();

67


68
extern int is_element();

69


70
extern matrix_TYP **normalizer_in_N();

71


72
extern int size();

73


74
extern void extend_bahn();

75


76
extern matrix_TYP **get_base();

77


78
extern int red_gen();

79


80
matrix_TYP *conjugated();

81


82
/*************************************************************************

83
@ FILE: base2.c

84
**************************************************************************/

85
int strong_generators_2();

86


87
#endif

88
#endif

89


90
#ifdef __cplusplus

91
}

92
#endif

93


94


95


96