%[Xm_ZAB,Xm_ZBC,Xm_ZCA,Xm_ZAG,Xm_ZBG,Xm_ZCG]=... % PDist(Vxa,Vxb,Vxc,Ixma,Ixmb,Ixmc,Ixm0,k); function[ZAB,ZBC,ZCA,ZAG,ZBG,ZCG]=PDist(Va,Vb,Vc,Ia,Ib,Ic,I0,k); ZAB=(Va-Vb)/(Ia-Ib); ZBC=(Vb-Vc)/(Ib-Ic); ZCA=(Vc-Va)/(Ic-Ia); ZAG=Va/(Ia+k*3*I0); ZBG=Vb/(Ib+k*3*I0); ZCG=Vc/(Ic+k*3*I0);