Chart. Получить прямую, а не кривую

[LLIALLIJIbIK]

Прошу помощи. Вывожу на график массив и нужно, чтобы прямые линии строились по посчитанным значениям.

for j:=0 to min(4,High(Mass)) do begin
for k := 0 to 33 do begin
  if InRange(Frequency[k], 5, FF) then
    Resistance[j,k] := 2*pi*Frequency[k]*Mass[j]
  else if InRange(Frequency[k], FF, fp) then
    Resistance[j,k] := (power(fp,3)*Me)/power(Frequency[k],2)
  else if InRange(Frequency[k], fp, 1.6*fp) then
    Resistance[j,k] := fp*Me*power(Z3[j],5*(log10(Frequency[k])-log10(fp)))
  else if InRange(Frequency[k], 1.6*fp, fgr) then
    Resistance[j,k] := Z1[j]*power(Z2[j]/Z1[j],log10(Frequency[k]/(1.6*fp))/log10(fgr/(1.6*fp)))
  else if InRange(Frequency[k], fgr, 10000) then
    Resistance[j,k] := 2.3*VibroNum[j]*hpl*hpl*power(Ep*Pp,1/2);
end;
end;
for k:=0 to 33 do begin
for j:=0 to min(4,High(Mass)) do begin
Calculation.Chart1.AddSeries(TLineSeries.Create(self));
Calculation.Chart1.Series[j].AddXY(Frequency[k],Resistance[j,k]);
Calculation.Chart1.LeftAxis.SetMinMax(Calculation.Chart1.Series[j].MinYValue-100,Calculation.Chart1.Series[j].MaxYValue+100);
Force[j,k]:=(VibrationsLevels[j,k]/(2*pi*Frequency[k]))*Resistance[j,k];
end;
end;

А выводит так.

[s-andriano]

Вопрос первый: почему Вы считаете, что график строится как-то не так?

[LLIALLIJIbIK]

Потому что по идее график должен строиться так. Как раз по этим формулам.

[raxp]

...а формулы-то где? Не те, что в коде в вашей интерпретации, а оригинальные.

К тому же, масштаб на последней картинке не виден по вертикали, возможно логарифмический. А ежели картинка с учебника, то она может быть идеализированной.