function [ output_args ] = calIWr(Vr,Vi,sigmaP,sigmaQ )
%计算电流实部的方差
dIrdP=(Vr./(Vr.^2+Vi.^2)).^2.*(sigmaP.^2);
dIrdQ=(Vi./(Vr.^2+Vi.^2)).^2.*(sigmaQ.^2);
%dIrdVr=(P.*(Vr.^2+Vi.^2)-2*(P.*Vr+Q.*Vi).*Vr)./(Vr.^2+Vi.^2);
%dIrdVr=(Q.*(Vr.^2+Vi.^2)-2*(P.*Vr+Q.*Vi).*Vi)./(Vr.^2+Vi.^2);
output_args=max(abs([dIrdP,dIrdQ]),[],2);
end