function [I,nC] = ssCapacitor(x,p)
%[Ic,nC] = ssCapacitor(x,p)
%p = [C nCT]
%z = [nC nCq]
%x = [QT V2R V2I]

C = p(1);

Q = x(1);
V2R = x(2); 
V2I = x(3);

V2s = V2R^2 + V2I^2;
nC = -Q/V2s/C;

V2 = V2R + V2I*1i;

A = 1i*C*nC;
I = [real(V2*A) imag(V2*A)];
