p2=Vi-Ip*(Rp+Zps+Zpr);
p3=(w*Mps*Ip)-Is*(Zsr+Rs+Zsl);
p4=(w*Msr*Is-w*Mpr*Ip)-Ir*(Zrl+Rr);
p5=(w*Mrl*Ir-w*Msl*Is)-Io*Ro;
p6=w*w*Mrl*Mrl-Zrl*Ro;
p7=w*w*Msr*Msr-Zsr*(Rr+Zrl);
p8=(w*w*Mps*Mps)-Zps*(Rs+Zsr);
p9=Io*Ro-V;
p10=w*w*Msl*Msl-Zsl*Ro;
p11=w*w*Mpr*Mpr-Zpr*(Rr+Zrl);
GroebnerBasis[{ p2, p3, p4, p5, p6, p7, p8, p9,p10,p11}, {Vi, Rp, w, Mps, Mrl , Rr, Rs,Ro, Msr, V,Mpr,Msl}, { Ip, Is, Ir, Io, Zrl, Zsr, Zps,Zsl,Zpr}]
p3=(w*Mps*Ip)-Is*(Zsr+Rs+Zsl);
p4=(w*Msr*Is-w*Mpr*Ip)-Ir*(Zrl+Rr);
p5=(w*Mrl*Ir-w*Msl*Is)-Io*Ro;
p6=w*w*Mrl*Mrl-Zrl*Ro;
p7=w*w*Msr*Msr-Zsr*(Rr+Zrl);
p8=(w*w*Mps*Mps)-Zps*(Rs+Zsr);
p9=Io*Ro-V;
p10=w*w*Msl*Msl-Zsl*Ro;
p11=w*w*Mpr*Mpr-Zpr*(Rr+Zrl);
GroebnerBasis[{ p2, p3, p4, p5, p6, p7, p8, p9,p10,p11}, {Vi, Rp, w, Mps, Mrl , Rr, Rs,Ro, Msr, V,Mpr,Msl}, { Ip, Is, Ir, Io, Zrl, Zsr, Zps,Zsl,Zpr}]

