ify">}
Розрахунок витрат. У функцію передається витрата газу, тиск газу, температура газу по шайбі, тиск газу по шайбі, температура газу. Результат роботи даної функції є основним.rashod_G () {= Vg * (pow (((Pg + 1) * (tgsh + K))/((Pgsh + 1) * (tg + K)), 0.5)); rashod ;
}
Розрахунок паропродуктивності котла. У функцію передається паропродуктивність котла, питома обсяг пари, питомий тиск пари. Результат роботи даної функції є основним.proisvod_par () {= D * (pow ((Upsh/Uf), 0.5)) + alpha_pp; par;
}
Розрахунок температури котельної води насичення. У функцію передається тиск пари. Результат роботи даної функції є основним.t_kv_nas () {
t = TP (Pb); t;
}
Модуль OutValue відповідає за виведення результатів розрахунків у форму. Друк результатів. У функцію передається номер стовпчика і номер рядка. p align="justify"> float TForm3 :: outValue () {(int i = 0; i <14; i + +) {(int j = 1; j <= 2; j + +) {-> StringGrid2- > Cells [i] [j] = Co2 [i];
}
}
}
Модуль Graph відповідає за побудову графіка.
Визначення координат для побудови графіка. Координати для побудови зберігаються в структурі. p align="justify"> coord TForm2 :: translate () {z;. x = ceil (x * (PaintBox1-> Width) * (delta (x0)) + 2);. y = ceil (PaintBox1- > Height-2 + y * (-320));
return z;
}
Побудова точок графіка.
void TForm2 :: paint () {(int x = 0; x <= PaintBox1-> Width; x + = 1)
{pixelValue = delta (x0)/PaintBox1-> Width; y = f (x * pixelValue); c = translate (x, y); -> Canvas-> Pixels [cx ] [cy] = clRed;
}
}
Побудова графіка по розрахованим даними.
void __ fastcall TForm2 :: PaintBox1Paint ()
{-> Canvas-> MoveTo (2, 0); -> Canvas-> LineTo (2, PaintBox1-> Height); -> Canvas-> MoveTo ( 0, PaintBox1-> Height-2); -> Canvas-> LineTo (PaintBox1-> Width, PaintBox1-> Height-2); delenie_x; smesh_del_x = ((double) (PaintBox1-> Width - 2) * delta (x0)); shkala = ((double) (PaintBox1-> Width - 2)/5); delenie_y; smesh_del_y = (PaintBox1-> Height -2)/10; (int i = 1; i <= 9; i + +) {delenie_y = 2 + i * smesh_del_y; -> Canvas-> MoveTo (0, PaintBox1-> Height - delenie_y); -> Canvas-> LineTo (5, PaintBox1- > Height - delenie_y); -> Canvas-> TextOutA (10, PaintBox1-> Height - delenie_y - 4, "0," + FloatToStr (i));
} (int i = 1; i <= 3; i + +) {delenie_x = 2 + i * smesh_del_x * shkala; -> Canvas-> MoveTo (delenie_x, PaintBox1-> Height ); -> Canvas-> LineTo (delenie_x, PaintBox1-> Height - 5); -> Canvas-> TextOutA (dele...
