Commit 75e38208 authored by Kristian Soltesz's avatar Kristian Soltesz
Browse files

nomenclature change

parent 58e6827e
......@@ -101,7 +101,7 @@ K = minreal(K(p));
Sw = fr(S(p));
Sm = abs(Sw);
cS = Sm-Ms;
Sm_p = -mdot(Sm,real(mdot(Sw.*Pw,K_pw(p))));
cS_p = -mdot(Sm,real(mdot(Sw.*Pw,K_pw(p))));
else
cS = [];
Sm_p = [];
......@@ -112,7 +112,7 @@ K = minreal(K(p));
Tw = 1-Sw;
Tm = abs(Tw);
cT = Tm-Mt;
Tm_p = mdot(Tm,real(mdot(Sw.^2.*Pw./Tw,K_pw(p))));
cT_p = mdot(Tm,real(mdot(Sw.^2.*Pw./Tw,K_pw(p))));
else
cT = [];
Tm_p = [];
......@@ -124,18 +124,18 @@ K = minreal(K(p));
Km = abs(Kw);
KSm = Km.*Sm*c0; % Undo regularization
cKS = KSm-Mks;
KSm_p = mdot(Sm./Km,real(mdot(conj(Kw).*Sw,K_pw(p))));
cKS_p = mdot(Sm./Km,real(mdot(conj(Kw).*Sw,K_pw(p))));
else
cKS = [];
KSm_p = [];
end
% Constraints
c = [cS cT cKS];
c = [cS;cT;cKS];
cEq = [];
% Gradients
c_p = [Sm_p;Tm_p;KSm_p].';
c_p = [cS_p;cT_p;cKS_p].';
cEq_p = [];
end
end
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment