Λύση συστήματος μη γραμμικών εξισώσεων στο Octave

Έστω το σύστημα εξισώσεων:

$$ \begin{align*} -2x_1^2 + 4x_2 - 3 = 0\\ x_1^2 - 2x_1 x_2^2 - 1 = 0 \end{align*} $$

clear;

function y = f (x)
  y(1) = -2*x(1)^2 + 4*x(2) - 3;
  y(2) =    x(1)^2 - 2*x(1)*x(2)^2 - 1 ;
end

x0 = [1 2]';
[x, fval, info] = fsolve ('f', x0);

if (info==1)
  x'
else
  disp  "Αδυναμία σύγκλισης σε λύση";
end

Συνδεθείτε για περισσότερες δυνατότητες αλληλεπίδρασης,
σχολιασμοί, εξωτερικοί σύνδεσμοι, βοήθεια, ψηφοφορίες, αρχεία, κτλ.

Εκπαιδευτικό υλικό από τον Αθανάσιο Σταυρακούδη σας παρέχετε κάτω από την άδεια Creative Commons Attribution-NonCommercial-ShareAlike 4.0 License.
Σας παρακαλώ να ενημερωθείτε για κάποιους επιπλέον περιορισμούς
http://stavrakoudis.econ.uoi.gr/stavrakoudis/?iid=401.