Во первых:
Код:
function TStage.eta;
begin
if key=1 then eta:=power(et0/MultK,1/n)
else eta:=K_eta*et1;
end;
Как вы описали функцию в класе, так она должна быть и описана при исполнении тоесть правельно будет так:
Код:
function TStage.eta(key,n:byte; MultK,et0,et1:single):single;
begin
if key=1 then eta:=power(et0/MultK,1/n)
else eta:=K_eta*et1;
end;
И тогда в функцию передадутца вот эти параметры key,n:byte; MultK,et0,et1:single
Во вторых:
Код:
xi_t:=(1-eta)/((1+alpha_k)*Kt);
Какие параметры вы передаете функции eta? Так как я видел ее в описании класа, она емеет 5 параметров.
Возможно вы неправельно описали функцию в класе, потому она и не работает. Если ето так то описание класа будет выглядеть:
Код:
Type TStage=class
...
function eta:single;
function xi_t:single;