removed old coxeter group implementation
This commit is contained in:
		
							
								
								
									
										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;
 | 
				
			||||||
 | 
					}
 | 
				
			||||||
		Reference in New Issue
	
	Block a user