# This file is in Maple format # Numerical approximation : sol:={u[1,2] = 1.819172513, u[1,3] = -1.220744085, u[1,4] = .4502995221, u[2,1] = 1.819172513, u[2,3] = .4502995221, u[2,4] = -1.220744085, u[3,1] = -1.220744085, u[3,2] = .4502995221, u[3,4] = 1.819172513, u[4,1] = .4502995221, u[4,2] = -1.220744085, u[4,3] = 1.819172513, v[1,2] = 1.819172513, v[1,3] = -1.220744085, v[1,4] = .4502995221, v[2,1] = 1.819172513, v[2,3] = .4502995221, v[2,4] = -1.220744085, v[3,1] = -1.220744085, v[3,2] = .4502995221, v[3,4] = 1.819172513, v[4,1] = .4502995221, v[4,2] = -1.220744085, v[4,3] = 1.819172513, w[1,2] = .4502995221, w[1,3] = 1.819172513, w[1,4] = -1.220744085, w[2,1] = .4502995221, w[2,3] = -1.220744085, w[2,4] = 1.819172513, w[3,1] = 1.819172513, w[3,2] = -1.220744085, w[3,4] = .4502995221, w[4,1] = -1.220744085, w[4,2] = 1.819172513, w[4,3] = .4502995221}: # Matrix Generators : lM:=[array(1 .. 3, 1 .. 3,[(1, 3)=0.,(3, 1)=0.,(3, 2)=0.,(2, 2)=1.,(3, 3)=1.,(1, 1)=1.,(1, 2)=0.,(2, 1)=0.,(2, 3)=0.]), array(1 .. 3, 1 .. 3,[(1, 3)=1.819172513,(3, 1)=.5948435798e-1,(3, 2)=.6579127879,(2, 2)=1.161259725,(3, 3)=1.819172513,(1, 1)=1.220744083,(1, 2)=-2.980432238,(2, 1)=.2694720360,(2, 3)=-1.819172513]), array(1 .. 3, 1 .. 3,[(1, 3)=-1.490216121,(3, 1)=-.6710436062,(3, 2)=0.,(2, 2)=1.000000000,(3, 3)=0.,(1, 1)=-.6710436062,(1, 2)=-2.000000000,(2, 1)=.6710436062,(2, 3)=0.]), array(1 .. 3, 1 .. 3,[(1, 3)=0.,(3, 1)=0.,(3, 2)=0.,(2, 2)=1.,(3, 3)=1.,(1, 1)=1.,(1, 2)=0.,(2, 1)=0.,(2, 3)=0.]), array(1 .. 3, 1 .. 3,[(1, 3)=-.4872795083e-1,(3, 1)=-.2027696596,(3, 2)=-.9005990442,(2, 2)=-.6491014339,(3, 3)=-1.000000000,(1, 1)=-.3021706154,(1, 2)=-.2426862620,(2, 1)=-.2475298625,(2, 3)=-.2207440846]), array(1 .. 3, 1 .. 3,[(1, 3)=-1.490216121,(3, 1)=-.6710436062,(3, 2)=-1.638345026,(2, 2)=1.549700478,(3, 3)=-1.,(1, 1)=-.3021706156,(1, 2)=-1.342087213,(2, 1)=.4502995221,(2, 3)=1.220744085])]: # Boundary Holonomy : lMb:=[array(1 .. 3, 1 .. 3,[(1, 3)=.2403118444,(3, 1)=.2403118434,(3, 2)=1.461055927,(2, 2)=.5193763121,(3, 3)=2.220744083,(1, 1)=.2598796061,(1, 2)=-.4998085498,(2, 1)=.2499042755,(2, 3)=-.7305279630]), array(1 .. 3, 1 .. 3,[(1, 3)=.3581165848,(3, 1)=.3581165835,(3, 2)=-.4806236883,(2, 2)=.2837668303,(3, 3)=.1612597263,(1, 1)=2.554973443,(1, 2)=1.913090029,(2, 1)=-.9565450131,(2, 3)=.2403118448])]: # Basis Change fo PU(2,1) : A:=array(1 .. 3, 1 .. 3,[(1, 3)=0.,(3, 1)=0.,(3, 2)=0.,(2, 2)=-1.,(3, 3)=1.,(1, 1)=-2.000000000,(1, 2)=0.,(2, 1)=0.,(2, 3)=0.]):