Plot solution of second order equation in MATLAB

2019-07-26 21:16发布

问题:

Could you please help me with the following question: I want to solve a second order equation with two unknowns and use the results to plot an ellipse. Here is my function:

fun = @(x) [x(1) x(2)]*V*[x(1) x(2)]'-c

V is 2x2 symmetric matrix, c is a positive constant and there are two unknowns, x1 and x2. If I solve the equation using fsolve, I notice that the solution is very sensitive to the initial values

fsolve(fun, [1 1])

Is it possible to get the solution to this equation without providing an exact starting value, but rather a range? For example, I would like to see the possible combinations for x1, x2 \in (-4,4)

Using ezplot I obtain the desired graphical output, but not the solution of the equation.

fh= @(x1,x2) [x1 x2]*V*[x1 x2]'-c;
ezplot(fh)
axis equal

Is there a way to have both? Thanks a lot!

回答1:

you can take the XData and YData from ezplot:

c = rand;
V = rand(2);
V = V + V';
fh= @(x1,x2) [x1 x2]*V*[x1 x2]'-c;
h = ezplot(fh,[-4,4,-4,4]); % plot in range
axis equal
fun = @(x) [x(1) x(2)]*V*[x(1) x(2)]'-c;
X = fsolve(fun, [1 1]); % specific solution
hold on;
plot(x(1),x(2),'or');
% possible solutions in range
x1 = h.XData;
x2 = h.YData;

or you can use vector input to fsolve:

c = rand;
V = rand(2);
V = V + V';
x1 = linspace(-4,4,100)';
fun2 = @(x2) sum(([x1 x2]*V).*[x1 x2],2)-c;
x2 = fsolve(fun2, ones(size(x1))); 
% remove invalid values
tol = 1e-2;
x2(abs(fun2(x2)) > tol) = nan;

plot(x1,x2,'.b')

However, the easiest and most straight forward approach is to rearrange the ellipse matrix form in a quadratic equation form:

k = rand;
V = rand(2);
V = V + V';
a = V(1,1);
b = V(1,2);
c = V(2,2);
% rearange terms in the form of quadratic equation:
%     a*x1^2 + (2*b*x2)*x1 + (c*x2^2) = k;
%     a*x1^2 + (2*b*x2)*x1 + (c*x2^2 - k) = 0;
x2 = linspace(-4,4,1000);
A = a;
B = (2*b*x2);
C = (c*x2.^2 - k);
% solve regular quadratic equation
dicriminant = B.^2 - 4*A.*C;
x1_1 = (-B - sqrt(dicriminant))./(2*A);
x1_2 = (-B + sqrt(dicriminant))./(2*A);
x1_1(dicriminant < 0) = nan;
x1_2(dicriminant < 0) = nan;
% plot
plot(x1_1,x2,'.b')
hold on
plot(x1_2,x2,'.g')
hold off