“…Appendix A. Singular programs ring r=0,(x,y,z),dp; int i,j; poly P, q, q1, q2, l1, l2, l3; P=0; int points, lines; points = 0; lines = 0; list s1, s2, s2_0, s2_1, s2_2, s3, s4, s5, d; proc point_3_1(list l) {points=points+3; return(x^ (2*positive_part(values(l, list(0,1,7)))) +x^ (2*positive_part(values(l, list(1,0,7)))) +x^ (2*positive_part(values(l, list(7,1,0)))));}; proc point_6(list l) {points=points+6; return(x^ (2*positive_part(values(l, list(0,1,7)))) +x^ (2*positive_part(values(l, list(1,0,7)))) +x^ (2*positive_part(values(l, list(7,1,0)))) +x^ (2*positive_part(values(l, list(1,7,0)))) +x^ (2*positive_part(values(l, list(0,7,1)))) +x^ (2*positive_part(values(l, list(7, proc w1(list u, list v) {return(add (-v[1]-u [1],s1)+add (-v[1]-u [2],s1)+list (-v[1]-u [3],-v[1]-u [4]) +add (-v[2]-u [1],s2)+add (-v[2]-u [2],s2)+add (-v[2]-u [3],s1)+add (-v[2]-u [4],s1) +add (-v[3]-u [1],s2)+add (-v[3]-u [2],s2)+add (-v[3]-u [3],s1)+add (-v[3]-u [4],s1) +add (-v[4]-u [1],s2)+add (-v[4]-u [2],s2)+add (-v[4]-u [3],s1)+add (-v[4]-u[4],s1));}; proc g1(list u, list v) {return(add (-v[2]+v [1], s1) + list (-v[2]+v [2], -v [2]+v…”