Расчет турбины Т -14/17-3,4 для привода электрогенератора и отпуска тепла для нужд производств и отопления, страница 3

7.15 Выбор рабочей решётки.

Рабочая решетка () – тип А, , , значит она имеет следующее обозначение: Р-90-25 Б. [4]

Примем

Тогда, шаг

7.17 Определение коэффициента скорости для решётки рабочих лопаток, расчёт относительной, абсолютной скоростей.

7.19 Расчёт удельной работы ступени и относительного лопаточного КПД.

7.20. Расчёт удельной работы ступени.

7.21. Нахождение дополнительных потерь.

потери на трение xтр

потери от влажности xвл

потери от утечек xут

7.22. Определение относительного внутреннего КПД.

8.Код программы

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls,math,Buttons, TeEngine, Series, ExtCtrls,

  TeeProcs, Chart;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button6: TButton;

    Button5: TButton;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Chart1: TChart;

    Button7: TButton;

    Button8: TButton;

    Series1: TLineSeries;

    function rachet():double;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

 private

    { Private declarations }

  public

    { Public declarations }

  end;

const

  //Входные данные

 vxdnames:array[1..24]of string=

      ('Начальное давление, МПа',

       'Начальная температура, С',

       'Конечное давлении, кПа',

       'Расход пара в турбине прототипе, кг/с',

       'Мощность, МВт',

       'Число оборотов, 1/с',

       'Диаметр, м',

       'Коэф. скорости с.л. для регулирующей ступени',

       'Угол выхода из с.л.',

       'Степень реактивности раб.л.',

       'Коэф расхода с.л',

       'Коэф расхода 1 раб.л',

       'Коэф. скорости с.л. для второй ступени',

       'Степень реактивности раб.л.',

       'Коэф расхода с.л',

       'Коэф расхода 1 раб.л',

       'Диаметр, м',

       'Коэф. скорости с.л. для последней ступени',

       'Степень реактивности раб.л.',

       'Коэф расхода с.л',

       'Коэф расхода 1 раб.л',

       'Диаметр последней ступени, м',

       'Длина рабочей лопатки, м',

       'Угол выхода из с.л.');

  //выходные данные

  vixnames:array[1..10]of string=

      ('Начальная энтальпия, Дж/кг',

       'Начальная энтропия, Дж/кг*К',

       'Располагаемый теплоперепад турбины, Дж/кг',

       'Давление за стопарным клпаном, МПа',

       'Температура за стопарным клпаном, С',

       'Энтропия за стопарным клпаном, Дж/кг*К',

       'Располагаемый теплоперепад проточной части турбины, Дж/кг',

       'Использованный теплоперепад в ступени, Дж/кг',

       'Внутренняя мощность, Вт',

       'Расход пара в турбине, кг/с');

  //таблица по отборам

     //давление отбора

  otborPnames:array[1..11]of string=

      (' 1.ПВД№7 за 8 ступеью',

       ' 2.ПВД№6 за 11 ступенью',

       ' 3.ПВД№5 за 14 ступенью',

       ' 4.ДА за 14 ступенью      ',

       ' 5.П за 14 ступенью       ',

       ' 6.ПВД№4 за 18 ступенью',

       ' 7.ПВД№3 за 22 ступенью',

       ' 8.Б2 за 22 ступенью ',

       ' 9.ПВД№2 за 24 ступенью',

       ' 10.Б1 за 24 ступенью ',

       ' 11.ПВД№1 за 26 ступенью');

     //температура отбора

  //otborTnames:array[1..11]of string=

     //отобранный пар