Script Reference
weyltosemisimple.at
Definitions
| Name | Signature | Description |
|---|---|---|
| shift_by_minus_1 | S)=for j in S do j-1 od | |
| Kac_coordinates | rd, ratvec v)= | |
| union | S,[int] T)=sort_u(S##T) | |
| reverse_pairs | data)=[([int],int)]: let n=#(data.pairs) in | |
| torus_element | rd,[int] S,int k)=ratvec: {in X_*(T)_Q} | in X_*(T)_Q |
| torus_element | data,bool shift_flag)= | |
| report | list)=void: | |
| coxeter_data | rd)=(rd,[(for i:ss_rank(rd) do i od,2)],coxeter_number(rd)) | |
| P)=void: |