Помогите пожалуйста перевести в java?
Никак не получается верно переделать...(
------------------------------------------------------------------------------------------------------
const
n_max = 2; //число уравнений

type
TVec = array[1..n_max] of double;
TMat = array[1..n_max,1..n_max] of double;

//система уравнений
procedure F(n: integer; x: TVec; var y: TVec);
begin
y[1]:=x[1]-exp(-x[2]);
y[2]:=x[2]-exp(x[1]);
end;

//вычисление обратной матрицы Якоби
procedure G(n: integer; x: TVec; var a: TMat);
var
det: double;
i,j: integer;
begin
a[1,1]:=1; a[1,2]:=-exp(-x[2]);
a[2,1]:=exp(x[1]); a[2,2]:=1;
det:=1+exp(x[1])*exp(-x[2]);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=a[i,j]/det;
end;

//процедура решения системы методом Ньютона
procedure Newts(n: integer; var x: TVec; eps: double; var k: integer);
var
i,j: integer;
x0,y: TVec;
a: TMat;
cod: boolean;
begin
k:=0;
repeat
for i:=1 to n do x0[i]:=x[i];
F(n,x,y); G(n,x,a);
for i:=1 to n do
for j:=1 to n do
x[i]:=x[i]-a[i,j]*y[j];
cod:=true;
for i:=1 to n do
if abs(x[i]-x0[i]) > eps then cod:=false;
k:=k+1;
until cod;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x: TVec;
n,k: integer;
eps: double;
begin
n:=n_max; //число уравнений
eps:=0.001; //точность
x[1]:=0.5; x[2]:=0.5; //начальное приближение
Newts(n,x,eps,k); //решение системы
Memo1.Lines.Add('Решение системы:');
Memo1.Lines.Add('x[1]='+FloatToStr(x[1]));
Memo1.Lines.Add('x[2]='+FloatToStr(x[2]));
Memo1.Lines.Add('Число итераций: '+IntToStr(k));
end;