Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

mA.Free; mB.Free; mABKp.Free; mInCond.Free; mKp.Free; mSolutionValues.Free; end; end;

procedure ShowChart(NumberOfChart: Byte); var

Order, Serie: TOrder;

NumReturn, Point: Word; mSolutionValues: TMatrix;

procedure SetAdm; const

Divisor = 3.4E+38; var i, j: LongInt;

Greatest, Least: Float; begin

Greatest := mSolutionValues[1, 1];

Least := Greatest; for j := 1 to Order do for i := 1 to NumReturn do begin if mSolutionValues[j, i] > Greatest then Greatest := mSolutionValues[j, i]; if mSolutionValues[j, i] < Least then Least := mSolutionValues[j, i]; end;

Form_Main.ChartFX.Adm[CSA_MAX] := Greatest;

Form_Main.ChartFX.Adm[CSA_MIN] := Least;

Form_Main.ChartFX.Title[CHART_TOPTIT] := 'Y = Y '' * '; end;

begin with Form_Main do begin

Order := SpinEdit_Dim.Value;

NumReturn := Form_Options.SpinEdit2.Value; mSolutionValues := TMatrix.Create(1, 1);

ComputeFromPage1; case NumberOfChart of

1 :begin

LoadMatrixSolveFromStrGrd(mSolutionValues,
StringGrid_Solve1);

SetAdm;

ChartFX.OpenDataEx(Cod_Values, Order, Pred(NumReturn)); for Serie := 1 to Order do begin

ChartFX.SerLeg[Pred(Serie)] := 'X ' + IntToStr(Serie);

ChartFX.ThisSerie := Pred(Serie); for Point := 0 to Pred(NumReturn) do

ChartFX.Value[Point] := mSolutionValues[Serie,
Succ(Point)]; end;

ChartFX.CloseData(Cod_Values);

{

Рекомендуем скачать другие рефераты по теме: виленкин математика 6 класс решебник, шпора на пятке лечение, дипломная работа формирование.



Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки