
$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.0207093;             // удельный объем, при котором рассчитывается значение KSIпр в таблице
$Script=S   = 1;                     // площадь проходного сечения,при котором рассчитывается значение KSIпр в таблице
$Script=Kx_H = 3.6;                  // коэффициент перевода G в Gпр
$Script=Ky_H = 0.02;                 // коэффициент перевода W[об/с] в Wпр
$Script=Kz_H = Vпр/S/S;              // коэффициент перевода KSIпр в KSI
$Script=
$Script=const w =  [0,0.2,0.4,0.6,0.8,1.0,1.2];
$Script=const Nel =[1290.4];
$Script=const G =  [3097.0];
$Script=const Got7=[111.4];
$Script=const Got8=[130.9];
$Script=const Got9=[149.0];
$Script=
$Script=const Pin =[0.276];
$Script=const Pou =[0.062];
$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]-Got7[i-1]-Got8[i-1]-Got9[i-1])/3;
$Script=  for(j=1,Ny) begin
$Script=   M[j,i]=(Pin[i-1]-Pou[i-1])*1e5*2*S^2/Vпр*(3.6/X[i])^2;
$Script=	 Y[j]=W[j]
$Script=  end;
$Script= end;
$Script=
$Script= for(j=1,Ny) begin
$Script= 	 X[1]=0;
$Script=   M[j,1]=2*M[j,2];
$Script= 	 X[Nx]=1.1*X[Nx-1];
$Script=   M[j,Nx]=0.9*M[j,Nx-1];
$Script= end;
$Script=
$Script=end;
$Script=

	0	901.9	992.09
0	65.856186	32.928093	29.635284
0.2	65.856186	32.928093	29.635284
0.4	65.856186	32.928093	29.635284
0.6	65.856186	32.928093	29.635284
0.8	65.856186	32.928093	29.635284
1	65.856186	32.928093	29.635284
1.2	65.856186	32.928093	29.635284
#####################################
$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 = 0.02;            // коэффициент перевода W[об/с] в Wпр
$Script=Kz_KPD = 1;               // коэффициент перевода КПДпр в КПД
$Script=
$Script=const w =  [0,0.2,0.4,0.6,0.8,1.0,1.2];
$Script=const Nel =[1290.4];
$Script=const G =  [3097.0];
$Script=const Got7=[111.4];
$Script=const Got8=[130.9];
$Script=const Got9=[149.0];
$Script=
$Script=const Hin =[591.9];
$Script=const Hou =[557.2];
$Script=
$Script=const Nx = 2,Ny=7;
$Script=var X[Nx],Y[Ny],M[Ny,Nx];
$Script=
$Script= for (i=2,Nx) begin
$Script=  X[i]=(G[i-1]-Got7[i-1]-Got8[i-1]-Got9[i-1])/3;
$Script=  for(j=1,Ny) begin
$Script=   M[j,i]=(Hin[i-1]-Hou[i-1])/Hin[i-1];
$Script=	 Y[j]=W[j]
$Script=  end;
$Script= end;
$Script=
$Script= for(j=1,Ny) begin
$Script= 	 X[1]=0;
$Script=   M[j,1]=0.99*M[j,2];
$Script= end;
$Script=
$Script=end;

	0	901.9
0	0.05803852	0.058624768
0.2	0.05803852	0.058624768
0.4	0.05803852	0.058624768
0.6	0.05803852	0.058624768
0.8	0.05803852	0.058624768
1	0.05803852	0.058624768
1.2	0.05803852	0.058624768
#####################################
$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.02	0.02	1
5	1	2	1
6	0.0207093	1	1
