function [ output_args ] = calIWi( Vr,Vi,sigmaP,sigmaQ ,P,Q)
dIrdP=(Vi./(Vr.^2+Vi.^2)).^2.*(sigmaP.^2);
dIrdQ=(Vr./(Vr.^2+Vi.^2)).^2.*(sigmaQ.^2);
dIrdVr=-(Q.*(Vr.^2+Vi.^2)-2*(Q.*Vr-P.*Vi).*Vr)./(Vr.^2+Vi.^2);
dIrdVi=-(P.*(Vr.^2+Vi.^2)-2*(Q.*Vr-P.*Vi).*Vi)./(Vr.^2+Vi.^2);
% dIrdVr=(dIrdVr).^2*0.1;
% dIrdVi=(dIrdVi).^2*0.1;
dIrdVr=zeros(size(dIrdVr));
dIrdVi=zeros(size(dIrdVi));
output_args=max(abs([dIrdP,dIrdQ,dIrdVr,dIrdVi]),[],2);
end