function deltdeltF=func_deltdeltF(busNum,fsY11,Loadi,wV1r,wV1i,wI1r,wI1i)

deltdeltF=[
  %zeros(busNum*2,busNum*2+length(Loadi)*2);
  sparse(Loadi,Loadi,2./[wV1r.*wV1r],busNum,busNum*2+length(Loadi)*2);
  sparse(Loadi,busNum+Loadi,2./[wV1i.*wV1i],busNum,busNum*2+length(Loadi)*2);
  zeros(length(Loadi)*2,busNum*2),2*eye(length(Loadi)*2)*diag(1./[wI1r.^2;wI1i.^2]);
  %sparse(Loadi,busNum*2+Loadi,2,busNum,busNum*2+length(Loadi)*2);
];
end