Lazarus

[roza_236]

Помогите пожалуйста переделать программку в Lazarus

function r1 (w: Real; d: tmass; epsilon: tmass):Real;
var
k:integer;
r:Complex;
Begin
k0:=w/30000000000;
m[1,1]:=1;
m[1,2]:=0;
m[2,1]:=0;
m[2,2]:=1;
For k:=1 To 3 Do
Begin
mu:=1;
p:=complex.sqrt(epsilon[k]/mu);
mi[1,1]:=complex.cos(k0*complex.sqrt(epsil on[k]*mu)*d[k]);
mi[1,2]:=-1*i*p*complex.sin(k0*complex.sqrt(e psilon[k]*mu)*d[k]);
mi[2,1]:=-1*i/p*complex.sin(k0*complex.sqrt(epsil on[k]*mu)*d[k]);
mi[2,2]:=complex.cos(k0*complex.sqrt(epsil on[k]*mu)*d[k]);
mtemp[1,1]:=m[1,1]*mi[1,1]+m[1,2]*mi[2,1];
mtemp[1,2]:=m[1,1]*mi[1,2]+m[1,2]*mi[2,2];
mtemp[2,1]:=m[2,1]*mi[1,1]+m[2,2]*mi[2,1];
mtemp[2,2]:=m[2,1]*mi[1,2]+m[2,2]*mi[2,2];
m:=mtemp;
End;
r:=((m[1,1]+m[1,2]*pl)*p1-(m[2,1]+m[2,2]*pl))/((m[1,1]+m[1,2]*pl)*p1+(m[2,1]+m[2,2]*pl));
r1:=complex.abs(r)*complex.abs(r);
End;

[Аватар]

Предлагаю вместо всего вставить r1:=0;
Такая переделка устроит?