问返回扩展数组

EN

function Calc_Er(
  n: Integer; 
  RadioGroup3.ItemIndex : Boolean; 
  K1, K2 : Extended;
  factor1, factor2, p, hh, ten, r : Array of Real; 
  Pa: extended ) : Array of Extended;
begin
    if RadioGroup3.ItemIndex = 0 then
      begin
        if hh[n] < factor1[n] then
          begin
            Er[n] := K2 * (K1 + p[n]);
          end
        else if (hh[n] < factor2[n]) and (hh[n] > factor1[n]) then
          begin
            Er_stack := K2 * (K1 + p[n]);
            Er[n] := (h / 100 + hh[n]) / ((h / 100 / Er_stack[n]) + hh[n] * (ten[n] * h / r[n] + Pa) / Sqr(p + ten[n] * h / r[n] + Pa));
          end
        else
          begin
            Er[n] := Sqr(p[n] + Pa + ten[n] * h / r[n]) / (ten[n] * h / r + Pa);
          end;
      end
    else
      begin
        Er[n] := K2 * (K1 + p[n]);
      end;
end;