k = 0.1007;
rZ = 12.6518;
Rs = 0.164;
Cmax = 7.0e-11;
W = 1.704e8;
iZ = 14.5273;
Ls = 1.1e-7;
a1 = (k/1000)^2*(rZ-Rs);
a2 = (Cmax/100*W)^2*(rZ-Rs);
a3 = -k/1000;
b1 = k^2*(iZ-W*Ls);
b2 = k^2*W*Ls/200;
b3 = W*Ls/200*(Cmax*W)^2;
b4 = (Cmax*W)^2*(iZ-W*Ls);
A = (a2*b1-b2*a3+a1*b4)/(a1*b1);
B = (-a3*b3+a2*b4)/(a1*b1);
disk = A^2/4-B;
if disk >=0
x21squared = -A/2+sqrt(disk);
x22squared = -A/2-sqrt(disk);
end
solx1 = zeros(4,1);
solx2 = zeros(4,1);
iflag1 = 0;
if x21squared >= 0
iflag1 = 1;
solx2(1) = sqrt(x21squared);
solx2(2) = -sqrt(x21squared);
end
iflag2 = 0;
if x22squared >= 0
iflag2 = 1;
solx2(3) = sqrt(x22squared);
solx2(4) = -sqrt(x22squared);
end
solx1 = zeros(4,1);
if iflag1 == 1
solx1(1) = -a3/(a1*solx2(1)^2+a2);
solx1(2) = -a3/(a1*solx2(2)^2+a2);
end
if iflag2 == 1
solx1(3) = -a3/(a1*solx2(3)^2+a2);
solx1(4) = -a3/(a1*solx2(4)^2+a2);
end
if iflag1 == 1
solx1(1)
solx2(1)
solx1(2)
solx2(2)
a1*solx1(1)*solx2(1)^2+a2*solx1(1)+a3
b1*solx2(1)^2+b2*solx1(1)*solx2(1)^2+b3*solx1(1)+b4
a1*solx1(2)*solx2(2)^2+a2*solx1(2)+a3
b1*solx2(2)^2+b2*solx1(2)*solx2(2)^2+b3*solx1(2)+b4
end
if iflag2 == 1
solx1(3)
solx2(3)
solx1(4)
solx2(4)
a1*solx1(3)*solx2(3)^2+a2*solx1(3)+a3
b1*solx2(3)^2+b2*solx1(3)*solx2(3)^2+b3*solx1(3)+b4
a1*solx1(4)*solx2(4)^2+a2*solx1(4)+a3
b1*solx2(4)^2+b2*solx1(4)*solx2(4)^2+b3*solx1(4)+b4
end
Best Answer