
$GlobalScript=
$Caption=KSI
$TabType=1
$GraphType=1
$ColCount=3
$RowCount=7
$MatrixName=M
$Script=initialization
$Script={
$Script=Таблица коэффициента сопротивления KSI как функция
$Script=приведенного расхода Gпр и приведенной частоты вращения Wпр
$Script=
$Script=X - Gпр = G[т/ч];
$Script=Y - Wпр = W/Wном[-]
$Script=Z - KSIпр = (Pin-Pou)*2*S^2/Vпр/G^2 [-], где
$Script=S - [м^2] - площадь проходного сечения, при котором рассчитывается значение KSIпр в таблице
$Script=Vпр [м^3/кг]  - удельный объем, при котором рассчитывается значение KSIпр в таблице
$Script=Pin,Pou [Па] - давление на входе и выходе
$Script=Для использования таблицы в программе необходимо вычислить нормировочные коэффициенты,
$Script=преобразующие приведенные характеристики в абсолютные с учетом того, что программа работает в системе СИ
$Script=}
$Script=V    = 0.0011287034;         // удельный объем, при котором рассчитывается значение KSIпр в таблице
$Script=D    = 0.28;                 // диаметр трубы
$Script=S    = pi*D*D/4;             // площадь проходного сечения, при котором рассчитывается значение KSIпр в таблице
$Script=Kx_H = 3.6;                  // коэффициент перевода G[кг/с] в Gпр
$Script=Ky_H = 1/120;                // коэффициент перевода W[Гц] в Wпр
$Script=Kz_H = V/(S*S);              // коэффициент перевода KSIпр в KSI
$Script=
$Script=const w = [0.0,0.2,0.4,0.6,0.8,1.0,1.2];
$Script=const G = [483.9];
$Script=
$Script=const Pin = [211.1];
$Script=const Pou = [32.0];
$Script=
$Script=const Nx = 3, Ny = 7;
$Script=var X[Nx], Y[Ny], M[Ny,Nx];
$Script=
$Script=for (i = 2, Nx-1) begin
$Script=	X[i] = G[i-1];
$Script=	for (j = 1, Ny) begin
$Script=	  
$Script=		M[j, i] = (Pin[i-1]-Pou[i-1])*1e5*2*S*S/V*(Kx_H/X[i])^2;//*w[j]*w[j];
$Script=		Y[j]    = W[j]
$Script=	end;
$Script=end;
$Script=
$Script=X[1]  = 0;
$Script=X[Nx] = 1.1*X[Nx-1];
$Script=for(j = 1, Ny) begin
$Script=	M[j, 1]  = 1.01*M[j, 2];
$Script=	M[j, Nx] = 0.85*M[j, Nx-1];
$Script=end;
$Script=
$Script=end;
$Script=

	0	483.9	532.29
0	6726.2463	6659.6498	5660.7023
0.2	6726.2463	6659.6498	5660.7023
0.4	6726.2463	6659.6498	5660.7023
0.6	6726.2463	6659.6498	5660.7023
0.8	6726.2463	6659.6498	5660.7023
1	6726.2463	6659.6498	5660.7023
1.2	6726.2463	6659.6498	5660.7023
#####################################
$Caption=КПД
$TabType=1
$GraphType=0
$ColCount=2
$RowCount=7
$MatrixName=M
$Script=initialization
$Script={
$Script=Таблица приведенного КПД как функция приведенного расхода и приведенной частоты вращения Wпр
$Script=В данном случае задано относительное изменение энтальпии на ступени
$Script=X - Gпр = G[т/ч];
$Script=Y - Wпр = W/Wном[-]
$Script=Z - КПДпр = (Hin-Hou)/Hin[-], где
$Script=Hin - энтальпия на входе
$Script=Hou - энтальпия на выходе
$Script=}
$Script=Kx_KPD = 3.6;             // коэффициент перевода G[кг/с] в Gпр
$Script=Ky_KPD = 1/120;           // коэффициент перевода W[Гц] в Wпр
$Script=Kz_KPD = 1;               // коэффициент перевода КПДпр в КПД
$Script=

	0	483.9
0	0.7	0.7
0.2	0.7	0.7
0.4	0.7	0.7
0.6	0.7	0.7
0.8	0.7	0.7
1	0.7	0.7
1.2	0.9	0.9
#####################################
$Caption=Мощность
$TabType=1
$GraphType=0
$ColCount=1
$RowCount=1
$MatrixName=M
$Script={Таблица мощности - в турбинах не используется
$Script=}
$Script=

	0
0	0
#####################################
$Caption=Нормировка таблиц
$TabType=1
$GraphType=0
$ColCount=3
$RowCount=6
$MatrixName=M
$Script={
$Script=Здесь приводятся нормировочные параметры каждой из таблиц.
$Script=По вертикали - номер параметра, каждый столбец - описание одной таблицы
$Script=Номера параметров:
$Script=1 - Тип приведенного аргумента X в таблице
$Script=2 - Коэффициент пересчета значения в модели (СИ) в приведенный аргумент X
$Script=3 - Тип приведенного аргумента Y в таблице
$Script=4 - Коэффициент пересчета значения в модели (СИ) в приведенный аргумент Y
$Script=5 - Тип приведенной функции Z в таблице
$Script=6 - Коэффициент пересчета значения в модели (СИ) в приведенную функцию Z
$Script=
$Script=---------ТАБЛИЦА 1 - Коэффициент сопротивления как функция приведенной частоты вращения и приведенного расхода------------
$Script=Возможные значения параметров для таблицы 1 (Расход):
$Script=
$Script=Тип аргумента X - приведенный расход Gпр.
$Script=1 - Gпр = Kg*G
$Script=2 - Gпр = Kg*G*Tin^0.5/Pin
$Script=Коэффициент перевода Kg - из кг/с в другие единицы
$Script=Пример - если Gпр в таблице - в т/ч, то Kg = 3.6
$Script=
$Script=Тип аргумента Y - приведенная частота вращения Wпр.
$Script=1 - Wпр = Kw*W
$Script=2 - Wпр = Kw*W/Tin^0.5
$Script=3 - Wпр = Kw*W/dTад^0.5
$Script=Коэффициент перевода Kw - из Гц в другие единицы
$Script=Пример - если Wпр = pi*D*n, то Kw = pi*D/60
$Script=
$Script=Тип функции Z - приведенный коэффициент сопротивления KSI = 2*Rho*S^2*(Pin-Pou)/G^2.
$Script=1 - KSIпр = Ke*KSI
$Script=Коэффициент перевода Ke - перевод единиц в формуле для KSI в СИ
$Script=Если Rho - в кг/м^3, S = 1;Р - в кгс/см^2, G - в т/ч, то Ke=3.6^2*98100;
$Script=
$Script=---------ТАБЛИЦА 2 - КПД как функция X и Y--------------------------
$Script=Возможные значения параметров для таблицы 2 (КПД):
$Script=
$Script=Тип аргумента X - приведенная степень расширения Eпр или расход Gпр.
$Script=1 - Gпр = Kg*G
$Script=2 - Gпр = Kg*G*Tin^0.5/Pin
$Script=3 - Eпр = Ke*Pin/Pou              - газовые турбины
$Script=4 - Eпр = SQRT(Ke*[Pin^2-Pou^2])  - конденсационные турбины
$Script=
$Script=Тип аргумента Y - приведенная частота вращения Wпр или расход Gпр .
$Script=1 - Wпр = Kw*W
$Script=2 - Wпр = Kw*W/Tin^0.5
$Script=3 - Wпр = Kw*W/dTад^0.5
$Script=4 - Gпр = Kg*G
$Script=5 - Gпр = Kg*G*Tin^0.5/Pin
$Script=
$Script=Тип функции Z
$Script=1 - КПД
$Script=2 - КПДпр = (Hin-Hou)/Hi[-] - относительное изменение энтальпии на ступени
$Script=Коэффициент перевода Kкпд - из отн.ед. в другие
$Script=Пример - если КПД в таблице - в %, то Kкпд = 0.01
$Script=}

	1	2	3
1	1	1	1
2	3.6	3.6	1
3	1	1	1
4	0.00833333333	0.00833333333	1
5	1	1	1
6	0.29769254	1	1
