[:W600] nspired basic: Define centroid2(verts)= Func :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]:=poi…