removed old coxeter group implementation
This commit is contained in:
parent
c1477c0317
commit
e3606dbc8f
41
old/test.c
Normal file
41
old/test.c
Normal file
@ -0,0 +1,41 @@
|
||||
#include <stdio.h>
|
||||
|
||||
#include "weyl.h"
|
||||
|
||||
static void print_element(weylgroup_element_t *e)
|
||||
{
|
||||
if(e->wordlength == 0)
|
||||
printf("1");
|
||||
else
|
||||
for(int j = 0; j < e->wordlength; j++)
|
||||
printf("%c", e->word[j] + 'a');
|
||||
}
|
||||
|
||||
int main()
|
||||
{
|
||||
semisimple_type_t type;
|
||||
simple_type_t t;
|
||||
type.n = 1;
|
||||
type.factors = &t;
|
||||
t.series = 'A';
|
||||
t.rank = 3;
|
||||
|
||||
int order = weyl_order(type);
|
||||
doublequotient_t *dq = weyl_generate_bruhat(type, 0x02, 0x03);
|
||||
|
||||
for(int i = 0; i < dq->count; i++) {
|
||||
print_element(dq->cosets[i].min);
|
||||
printf(" -> ");
|
||||
for(doublecoset_list_t *current = dq->cosets[i].bruhat_lower; current; current = current->next) {
|
||||
print_element(current->to->min);
|
||||
printf(" ");
|
||||
}
|
||||
printf("| ");
|
||||
print_element(dq->cosets[i].opposite->min);
|
||||
printf("\n");
|
||||
}
|
||||
|
||||
weyl_destroy_bruhat(dq);
|
||||
|
||||
return 0;
|
||||
}
|
Loading…
Reference in New Issue
Block a user