/* -*- mode: C -*- */ /* $Id$ */ /* Horn's G2 */ load("yang_D.rr")$ V=[x,y]$ yang.define_ring(V)$ L1 = yang.mul(dx,dx-dy-b1) + x*yang.mul(dx+a1,dx-dy+b2)$ L2 = yang.mul(dy,dy-dx-b2) + y*yang.mul(dy+a2,dy-dx+b1)$ L = [L1,L2]$ Gr=yang.gr(L); Base=[1,dx,dy]$ Pf = yang.pf(Base,Gr)$ vtol(map(matrix_matrix_to_list,Pf)); /* print(Pf[0])$ print("")$ print(Pf[1])$ */ end$