+50% 27% 66% 75% 77% 80% 2,00% 4,00% 6,90% 7,00% 7,10%
3. Аналогічно для. br/>
-50% -25% 0% +25% +50% 93% 87% 75% 56% 20% 11,00% 9,00% 6,90% 4,00% 0,50%
4. По зведених таблицях побудуємо графіки чутливості і до параметрів об'єкта. br/>В В
. Висновки з аналізу чутливості:
Параметр має зворотну залежність с і не впливає на.
Параметр має пряму залежність і з і с.
Параметр має зворотну залежність і с і с.
4. Програмний модуль
.1 Лістинг
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Grids, Series; = class (TForm): TStringGrid;: TChart; : TButton;: TButton;: TButton;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TLineSeries;: TEdit;: TLabel;: TEdit;: TLabel; Button1Click (Sender: TObject); FormActivate (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;, cs: integer;, ynom, time: real;
{$ R *. dfm} TForm1.Button1Click (Sender: TObject);;; TForm1.FormActivate (Sender: TObject);
// Перехідна (Cs <= steps) do
begin
// Збільшення кол-ва рядків
Form1.StringGrid1.RowCount: = cs +1;
// Збільшення l.StringGrid1.Cells [0, cs]: = IntToStr (StrToInt (Form1.StringGrid1.Cells [0, cs-1]) +1);
// Розрахунок t.StringGrid1.Cells [1, cs]: = FloatToStr (dT * StrToFloat (Form1.StringGrid1.Cells [0, cs]));
// Розрахунок -0,99 y (l-2) cs <3
// Розрахунок
// Розрахунок 0,00086 V (l-5) cs <6
// Розрахунок V (l). StringGrid1.Cells [6, cs]: = Form1.Edit3.Text;
// Розрахунок
// Розрахунок
// Внесення даних на
// Наступний крок
cs: = cs +1;
end;
end; TForm1.Button3Click (Sender: TObject);
// Імпульсна (Cs <= steps) do
begin
// Збільшення кол-ва рядків
Form1.StringGrid1.RowCount: = cs +1;
// Збільшення l.StringGrid1.Cells [0, cs]: = IntToStr (StrToInt (Form1.StringGrid1.Cells [0, cs-1]) +1);
// Розрахунок t.StringGrid1.Cells [1, cs]: = FloatToStr (dT * StrToFloat (Form1.StringGrid1.Cells [0, cs]));
// Розрахуно...
