A1=[a1,b1,c1] ; A2=[a2,b2,c2]  ;  A3=[a3,b3,c3]
 
LfacesPOL=
[[[a1,b1,c1],[1/2*a2*K+1/2*a1*K,1/2*b2*K+1/2*b1*K,1/2*c2*K+1/2*c1*K],[-a1*K/(K-4)-a2*K/(K-4)-a3*K/(K-4),-b1*K/(K-4)-b2*K/(K-4)-b3*K/(K-4),-c1*K/(K-4)-c2*K/(K-4)-c3*K/(K-4)],[1/2*a3*K+1/2*a1*K,1/2*b3*K+1/2*b1*K,1/2*c3*K+1/2*c1*K]],[[a2,b2,c2],[1/2*a2*K+1/2*a1*K,1/2*b2*K+1/2*b1*K,1/2*c2*K+1/2*c1*K],[-a1*K/(K-4)-a2*K/(K-4)-a3*K/(K-4),-b1*K/(K-4)-b2*K/(K-4)-b3*K/(K-4),-c1*K/(K-4)-c2*K/(K-4)-c3*K/(K-4)],[1/2*a2*K+1/2*a3*K,1/2*b2*K+1/2*b3*K,1/2*c2*K+1/2*c3*K]],[[a3,b3,c3],[1/2*a2*K+1/2*a3*K,1/2*b2*K+1/2*b3*K,1/2*c2*K+1/2*c3*K],[-a1*K/(K-4)-a2*K/(K-4)-a3*K/(K-4),-b1*K/(K-4)-b2*K/(K-4)-b3*K/(K-4),-c1*K/(K-4)-c2*K/(K-4)-c3*K/(K-4)],[1/2*a3*K+1/2*a1*K,1/2*b3*K+1/2*b1*K,1/2*c3*K+1/2*c1*K]]]: