function [ output_args ] = calIWi( Vr,Vi,sigmaP,sigmaQ )
dIrdP=(Vi./(Vr.^2+Vi.^2)).^2.*(sigmaP.^2);
dIrdQ=(Vr./(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