Define polycenter(verts)= Prgm :Local k,numverts,points,xg,yg,x,y,xc,yc,s,st :numverts:=((dim(verts))/(2)) :points:=exact(augment(verts,{verts[1],verts[2]})) :For k,1,((dim(points))/(2)) :x[k]:=points[2*k-1] :y[k]:=points[2*k] :EndFor :xc:…