July ,

 P4

 syms p1 p2 p3

 phi(:,) = /*p1.*(*p1-).*(*p1-).*(*p1-);

 phi(:,) = /*p2.*(*p2-).*(*p2-).*(*p2-);

 phi(:,) = /*p3.*(*p3-).*(*p3-).*(*p3-);

 phi(:,) = *p1.*p2.*p3.*(*p1-);

 phi(:,) = *p1.*p2.*p3.*(*p2-);

 phi(:,) = *p1.*p2.*p3.*(*p3-);

 phi(:,) = /*p1.*p2.*(*p1-).*(*p1-);

 phi(:,) = *p1.*p2.*(*p1-).*(*p2-);

 phi(:,) = /*p1.*p2.*(*p2-).*(*p2-);

 phi(:,) = /*p1.*p3*(*p1-).*(*p1-);

 phi(:,) = *p1.*p3.*(*p1-).*(*p3-);

 phi(:,) = /*p1.*p3.*(*p3-).*(*p3-);

 phi(:,) = /*p2.*p3.*(*p2-).*(*p2-);

 phi(:,) = *p2.*p3.*(*p2-).*(*p3-);

 phi(:,) = /*p2.*p3.*(*p3-).*(*p3-);

 July ,

 P4

 syms p1 p2 p3

 phi(:,) = /*p1.*(*p1-).*(*p1-).*(*p1-);

 phi(:,) = /*p2.*(*p2-).*(*p2-).*(*p2-);

 phi(:,) = /*p3.*(*p3-).*(*p3-).*(*p3-);

 phi(:,) = /*p2.*p3.*(*p2-).*(*p2-);

 phi(:,) = /*p1.*p3.*(*p3-).*(*p3-);

 phi(:,) = /*p1.*p2.*(*p1-).*(*p1-);

 phi(:,) =  *p2.*p3.*(*p2-).*(*p3-);

 phi(:,) =  *p1.*p3.*(*p1-).*(*p3-);

 phi(:,) =  *p1.*p2.*(*p1-).*(*p2-);

 phi(:,) = /*p2.*p3.*(*p3-).*(*p3-);

 phi(:,) = /*p1.*p3.*(*p1-).*(*p1-);

 phi(:,) = /*p1.*p2.*(*p2-).*(*p2-);

 phi(:,) = *p1.*p2.*p3.*(*p1-);

 phi(:,) = *p1.*p2.*p3.*(*p2-);

 phi(:,) = *p1.*p2.*p3.*(*p3-);