$$ J(X^{(k)}) \Delta X^{(k)} = -F(X^{(k)}) \quad \Rightarrow \quad X^{(k+1)} = X^{(k)} + \Delta X^{(k)} $$
Leer X0, Tol, MaxIter
X = X0
Para k desde 1 hasta MaxIter Hacer:
F_val = EvaluarSistema(X)
J = EvaluarJacobiano(X)
DetJ = J[1,1]*J[2,2] - J[1,2]*J[2,1]
Si (|DetJ| < 1e-12) Entonces Error("Jacobiano Singular")
// Solución directa del sistema lineal: J * DX = -F
DX[1] = (-F_val[1]*J[2,2] + F_val[2]*J[1,2]) / DetJ
DX[2] = (-J[1,1]*F_val[2] + J[2,1]*F_val[1]) / DetJ
X_nuevo = X + DX
NormaError = MaximoAbsolute(DX)
Si (NormaError < Tol) Entonces Salir Ciclo
X = X_nuevo
Fin Para
Mostrar X