# This file is in Maple format # Numerical approximation : sol:={u[1,2] = .2672143841+1.269221918*I, u[1,3] = .3411639019+.5909132118*I, u[1,4] = .8411639019+.7544438813*I, u[2,1] = .2672143841-1.269221918*I, u[2,3] = .8411639019-.7544438813*I, u[2,4] = .3411639019-.5909132118*I, u[3,1] = .3411639019+.5909132118*I, u[3,2] = .8411639019+.7544438813*I, u[3,4] = .2672143841+1.269221918*I, u[4,1] = .8411639019-.7544438813*I, u[4,2] = .3411639019-.5909132118*I, u[4,3] = .2672143841-1.269221918*I, v[1,2] = .2972072380-.5147780366*I, v[1,3] = .9260504821-.6783087060*I, v[1,4] = .1588360981-1.456938616*I, v[2,1] = .2972072380-.5147780366*I, v[2,3] = .1588360981-1.456938616*I, v[2,4] = .9260504821-.6783087060*I, v[3,1] = .9260504821+.6783087060*I, v[3,2] = .1588360981+1.456938616*I, v[3,4] = .2972072380+.5147780366*I, v[4,1] = .1588360981+1.456938616*I, v[4,2] = .9260504821+.6783087060*I, v[4,3] = .2972072380+.5147780366*I, w[1,2] = .2672143841-1.269221918*I, w[1,3] = .3411639019-.5909132118*I, w[1,4] = .8411639019-.7544438813*I, w[2,1] = .2672143841+1.269221918*I, w[2,3] = .8411639019+.7544438813*I, w[2,4] = .3411639019+.5909132118*I, w[3,1] = .3411639019-.5909132118*I, w[3,2] = .8411639019-.7544438813*I, w[3,4] = .2672143841-1.269221918*I, w[4,1] = .8411639019+.7544438813*I, w[4,2] = .3411639019+.5909132118*I, w[4,3] = .2672143841+1.269221918*I}: # 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)=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.147899036+.1516090389e-9*I,(3, 1)=.4355783779+.7544438813*I,(3, 2)=0.,(2, 2)=-.5000000001+.8660254039*I,(3, 3)=0.,(1, 1)=1.573949518+.9941097259*I,(1, 2)=.8488658057e-1+.4031965140*I,(2, 1)=-.3411639019+.1115815225*I,(2, 3)=0.]), array(1 .. 3, 1 .. 3,[(1, 3)=-.5739495180-.9941097260*I,(3, 1)=.8711567562-.5851881161e-10*I,(3, 2)=.7327856160+.2396658445*I,(2, 2)=.1588360981-.2751121922*I,(3, 3)=-.3411639020+.5909132118*I,(1, 1)=-.5739495177+.9941097263*I,(1, 2)=-1.147899036-.7037098603e-10*I,(2, 1)=-.5000000001-.8660254040*I,(2, 3)=.6588360980+.5909132119*I]), array(1 .. 3, 1 .. 3,[(1, 3)=-.9655712317-1.672418432*I,(3, 1)=-.7327856159+1.269221918*I,(3, 2)=-1.465571232+.4251621878e-9*I,(2, 2)=.8571929452-1.860135131*I,(3, 3)=-.7327856163-1.269221918*I,(1, 1)=-2.357192945+1.544334111*I,(1, 2)=-2.981600276+.4628288905*I,(2, 1)=-.6823278044-2.538443837*I,(2, 3)=1.539520749+.6783087060*I]), array(1 .. 3, 1 .. 3,[(1, 3)=-.3916217146-1.860135132*I,(3, 1)=-2.677891893+.7235645569*I,(3, 2)=-2.931142466-.4793316876*I,(2, 2)=2.698356845-.6263595637*I,(3, 3)=-.3916217146-1.860135132*I,(1, 1)=-4.295798078+1.029556076*I,(1, 2)=-3.772306373+.2751121966*I,(2, 1)=2.583477415-2.486494692*I,(2, 3)=.3916217146+1.860135132*I])]: # Boundary Holonomy : lMb:=[array(1 .. 3, 1 .. 3,[(1, 3)=0.,(3, 1)=-.2972072435-.5147780397*I,(3, 2)=.1588360963+.7544438809*I,(2, 2)=1.,(3, 3)=.9999999993+.1194916340e-9*I,(1, 1)=1.000000001+.7372645250e-10*I,(1, 2)=0.,(2, 1)=-.5739495191-.5147780366*I,(2, 3)=0.]), array(1 .. 3, 1 .. 3,[(1, 3)=0.,(3, 1)=3.191855704-1.105691247*I,(3, 2)=.4655712299+2.211382496*I,(2, 2)=1.,(3, 3)=1.000000000-.1087913328e-9*I,(1, 1)=1.000000000-.1087913328e-9*I,(1, 2)=0.,(2, 1)=-1.682327804-1.508887762*I,(2, 3)=0.])]: # 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)=-.5000000000-.8660254038*I,(1, 2)=0.,(2, 1)=0.,(2, 3)=0.]):