 |
Исследование влияния жидкости на изменение концентрации механических примесей
|
|
|
|
Рис 4.1 График изменения концентрации примесей в от расхода жидкости (1- в трубопроводе, 2- в баке)
На графиках видно, что для того чтобы примеси не оседали в трубопроводе необходима увеличивать расход жидкости, что влияет на осаждение примесей в баке. От изменения расхода можно перейти к изменению скорости потока, поэтому можно не увеличивать расход, а увеличивать скорость, что в свою очередь возможно при уменьшении диаметра трубопровода пока скорость в нем не достигнет 4,716 м/с, хотя уменьшится процент осаждения примесей в баке, что ведет к увеличению шероховатости, значит нужно изменять параметры бака. На данном этапе эти исследования еще не проведены.
Получена зависимость изменения шероховатости изделия от расхода жидкости в системе применения (рис 4.3). Исследование проводилось для системы состоящей из трубопровода диаметром 0,3 м; бака 8х2,5х5 м3; фильтра; обработка производилась кругом 24А16С17К5.
На графике видно, что при увеличении расхода жидкости, шероховатость ухудшается вследствие того, что в баке оседает меньше примесей, поэтому можно дать рекомендацию по увеличению объема бака.
Исследование влияния высоты нейтрального слоя в баке на изменение концентрации механических примесей в СОЖ
Рис 4.3 График изменения концентрации примесей в баке от высоты нейтрального слоя бака
По результатам проведенного эксперимента можно сделать следующий вывод: оптимальная высота нейтрального слоя бака (для данных конкретных значений L =8 м, B = 5м, H = 2м) равна 1,4 м.
Исследование влияния высоты проточной части бака на изменение концентрации механических примесей в СОЖ
Рис 4.4 График изменения концентрации примесей в баке от высоты проточной части бака
|
|
|
По результатам проведенного эксперимента можно сделать следующий вывод: оптимальная высота проточной части бака (для данных конкретных значений L =8 м, B = 5м) равна 1,8 м.
Выводы
Получены оптимальные значения скорости жидкости в трубопроводе, высота нейтрального слоя и проточной части в баке, а также графически получены зависимости изменения концентрации механических примесей от параметров системы применения и зависимость шероховатости от расхода жидкости. В дальнейшем планируется получить зависимости практически от всех параметров системы и выдать рекомендации по оптимальному использованию элементов системы применения СОЖ.
ЗАКЛЮЧЕНИЕ
В данной работе решалась проблема автоматизации проектирования систем применения СОЖ, что возможно с помощью ЭВМ. Применение ЭВМ для обеспечения надежной и стабильной работы подсистемы СОЖ в ГПС позволяет решать на новом уровне задачи обеспечения качества СОЖ в процессе эксплуатации. ЭВМ, по данным измерительных приборов, может прогнозировать ресурс работоспособности СОЖ на каждом гибком автоматизированном модуле, отдельном станке или во всей централизованной системе, а также обеспечивать контроль и управление для следующих параметров:
· расхода СОЖ;
· напора СОЖ в трубопроводах;
· степени загрязненности СОЖ (наличие масла утечки, мелкодисперсных частиц стружки, посторонних примесей и т.д.), а так же некоторых физико-химических показателей СОЖ:
ЭВМ способна осуществлять обратную связь с техническими средствами применения СОЖ, поддерживая путем коррекции на заданном уровне параметры системы подачи, регенерации и очистки СОЖ. По командам ЭВМ могут отключаться или включаться насосы, регулируя расход СОЖ. По данным автоматического контроля в циркулирующую в замкнутом контуре СОЖ можно вводить взамен сработанных присадки, предотвращающие преждевременный выход СОЖ из строя.
|
|
|
Автоматизация контроля качества СОЖ необходима для обеспечения управления технологическим процессом в ГПС и повышения надежности ее работы и предусматривает замену периодического аналитического контроля на непрерывный или дискретный контроль, осуществляемый автоматизированной информационно-измерительной системой (ЛИС) контроля, в состав которой входят функционально объединенные измерительные средства, автоматические анализаторы, устройства для преобразования информации с целью ее ввода в ЭВМ.
Проектирование систем применения СОЖ на машиностроительных предприятиях представляет собой комплексную проблему, охватывающую вопросы выбора оптимальных составов, оборудования и технологических схем, а также систем диагностики, регулирования и управления на всех стадиях эксплуатации СОЖ. Решение этой проблемы базируется на анализе механохимических явлений при обработке металлов с использованием СОЖ, а также физико-химических н химико-технологических основ процессов и аппаратов в системах применения СОЖ.
Анализ существующих методов проектирования показал, что недостаточно широкое распространение автоматизированных методов и систем эксплуатации СОЖ сдерживается использованием традиционных, ручных методов проектирования, позволяющих выбирать лишь ограниченное число вариантов схем и оборудования. отсутствием соответствующего серийного оборудования, недостаточной научной проработкой вопросов использования ЭВМ для СОЖ.
Повышение научно-технического уровня и ускорение проектных работ для создавая эффективных систем применения СОЖ связано с использованием автоматизированных методов проектирования, базирующихся на математических моделях, т.е. с использованием САПР и соответствующего ПМО для СОЖ. Методические подходы для автоматизированного проектирования систем применения СОЖ основываются на анализе иерархической структуры функционирования СОЖ в качестве отдельного подразделения, входящего наряду с другими службами в общую структуру завода.
Выводы по проделанной работе:
.Проанализированы существующие критерии и сформулирован обобщенный критерий эффективности системы применения СОЖ.
|
|
|
.Разработана функциональная структура САПР-СОЖ как подсистема общей системы проектирования процессов механической обработки.
.Построены математические модели элементов системы применения СОЖ (особо подробно рассмотрены модели бака-отстойника и трубопровода).
.По построенным моделям проведены исследования и получены результаты.
.Выданы рекомендации на параметры элементов системы применения СОЖ.
Особенно актуально использование САПР-СОЖ в качестве одной из подсистем в САПР ГПС, что отвечает принципу системности при проектировании основных и вспомогательные служб. Разработка методов автоматизированного проектирования ГАПС-СОЖ позволяет учесть этот принцип при эксплуатации СОЖ в условиях гибкой технологии и автоматизации основных механообрабатывающих производств. По результатам работы опубликованы тезисы.
ЛИТЕРАТУРА
9 Смазочно-охлаждающие жидкости для обработки металлов резанием. Рекомендации по применеию, -М., 1979.109с.
10Седов Л.И. Механика сплошной среды, 2Т, -М., 1976.273с.
11Полянсков Ю.В. Повышение эффективности операций шлифования путем стабилизации свойств СОЖ. Диссертация на соискание ученой степени доктора технических наук, Ульяновск, 1982.308с.
12Гульнов Е.П. Исследование механизма взаимодействия твердых частиц, содержащихся в СОЖ, с рабочей поверхностью шлифовального круга и поверхностью детали. Диссертация на соискание ученой степени кандидата технических наук, Ульяновск, 1979.298с.
13Смазочно-охлаждающие жидкости и их применение при производстве режущего инструмента. Методические рекомендации, -М., 1986.60с.
14Чулок А.И. Математические модели автоматизированного проектирования систем применения СОЖ / Автоматизированные системы проектирования и управления, выпуск 5, -М, 1986.70с.
15Галлагер Р. Метод конечных элементов, ‘Мир’,-М.,1984.195с.
16Бурман З.И. Программное обеспечение матричных алгоритмов и метода конечных элементов в инженерных расчетах, ‘Машиностроение’,-М.,1988.110с.
|
|
|
17Сегерлинд Л.Д. Применение метода конечных элементов, ‘Мир’,-М.,1979.250с.
18Воропаев Г.А., Птуха Ю.А. Моделирование турбулентных сложных течений,Киев 1991.123с.
19Методы гидрофизических исследований. Турбулентность и микроструктура. Материалы III всесоюзной школы, Н.Новгород,1990.145с.
20Научные основы турбулентных явлений: Сборник научных трудов.
21Христов Х.И., Нартов В.П. Точечные случайные функции и крупномасштабная турбулентность, ‘Наука’,-M.,1992.250с.
22Этюды о турбулентности, ‘Наука’,
-М.,1994.180с.
23Чемпен С., Каулинг Т. Математическая теория неоднородных газов, -М.,1960.179с.
24Турбулентность: принципы и применения, под ред. Фроста У., ‘Мир’,-М.,80.356с.
25Монин А.С., Яглом А.М. Статистическая гидромеханика. Теория турбулентности, ‘Гидрометеоиздат’, 1992.360с.
ПРИЛОЖЕНИЯ
Приложение 1
Таблица П1 Технические данные насосов [1]
| Тип насоса | Производительность, л/мин |
| ПА-22 | 22 |
| ПА-180 | 45 |
| НЦВ | 50-400 |
| Х14-2 | 12-200 |
| Г11-2 | 12-70 |
| Г12-2 | 5-200 |
| К и КМ | 75-6000 |
| ЗЦ | 300-630 |
| КНП | 270-20000 |
| Пд и Пс | 420-6000 |
| РЗ | 18-630 |
| МВН | 360-1500 |
| П-90 | 90 |
| П-180 | 180 |
Таблица П2 Устройства для очистки СОЖ, изготовляемые централизованно [1]
| Наименование | Тип(ОСТ или ТУ) | Пропускная способность, л/мин | Точность очистки, мкм | Степень очистки, % | Вид очищаемой СОЖ |
| Фильтры приемные сетчатые | С41-2 ОСТ2С41-1-74 | 2-60 | 80-160 | 50-80 | Водные и масляные СОЖ |
| Фильтры магнитные сетчатые | ФМС 12М ФМС 13М | 8 16 | 5-10 (магнитные частицы) 40-80 (немагнитные) | 60-80 | То же |
| Фильтры - транспортеры с бумажной лентой | МХ 44-2 (ТУ2-053-454-73) | 25-200 | 20-30 | 98 | Водные СОЖ |
| Фильтры многоярусные автоматические | ФМБ-5 ФМБ-10 ФМБ-20 | 800 1600-2500 500 | 20-30 | Не менее 98 | Водные СОЖ |
| Фильтр полосовой | ФП-4 | До 3000 | До 20-40 | До 95 | То же |
| Фильтр намывной | ФН-160 | 3000 | До 5 | До 98 | Масляные СОЖ |
| Фильтры магнитные | ФМ1-ФМ8 | 8-400 | 5-10 | 50-80 | Водные и масляные СОЖ |
| Патрон магнитный | Г42-1 | - | Общая масса задерживаемых частиц 0,03-0,4 кг | Радиус действия 25-65 мм | Водные и масляные СОЖ |
| Гидроциклоны | ХМ45-2 (ТУ2-053-089-75) Х45-3 | 50 50-100 | 10-15 5 | 60-90 98 | Водные и масляные СОЖ |
| Сепараторы магнитные | СМ-2МА СМ-3МА (ТУ2-053-040-70) СМ-4МА СМ-5МА СМ-7 | 25 50 100 200 630 | До 2000 До 200 | До 90 До 90 До 90 До 85 | Водные и масляные СОЖ |
| Комплектная установка для подачи и очистки СОЖ на базе гидроциклонов ХМ45-2 | Х35-15 | 200 | - | - | Водные СОЖ |
Таблица П3 Физико-химические свойства СОЖ [5]
| Марка СОЖ, ТУ | Вязкость кинематическая при 50°С, сСт | Плотность при 20°С г/см3 |
| МР-1У ТУ 38 101731-80 | 18-24 | 0,80-0,93 |
| МР-4 ТУ 38 101481-76 | 4-10 | 1,05 |
| МР-99 ТУ 38 101877-87 | 25-40 | 0,88-0,95 |
| ОСМ-1 ТУ 38 УССР 201-228-80 | 7,5 | 0,85-0,89 |
| ОСМ-3 ТУ 38 УССР 2-01-152-75 | 6-8 | 0,85-0,91 |
| Укринол-14 ТУ 38 4.01.28-74 | 16-23 | 0,80-0,93 |
| Укринол-1 ТУ 38 101197-82 | 30-60 | 0,90-0,98 |
| Аквол-2 ТУ 38 4.01.10-73 | 38-65 | 0,90-0,99 |
| Аквол-6 ТУ 38.4.01-1-79 | 70 | 0,90-1,10 |
| Аквол-10М ТУ 38.101931-83 | 8-15 | 1,0-1,1 |
| Аквол-14 ТУ 38.101971-84 | 3-7 | 1,0-1,2 |
| Аквол-11 ТУ 38.101932-83 | 40 | 1,00-1,08 |
|
|
|
Приложение 2
Листинг программных модулей
Модуль MainF.pas
unit MainF;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, StdCtrls, Buttons, ExtCtrls, ComCtrls;= class:string;,v:Real;,vf:Real;,C5,C8,C25,C100:Real;,Tp2,Tp5,Tp8,Tp25,Tp100:Real;,T,De,Ci:Real;:Word;;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TBitBtn;: TListBox;: TLabel;: TLabel;: TMenuItem;: TBitBtn;: TListBox;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel;: TLabel;: TListBox;: TMenuItem;CloseBtnClick(Sender: TObject);NasosItemClick(Sender: TObject);FilterItemClick(Sender: TObject);BakItemClick(Sender: TObject);DelItemClick(Sender: TObject);ParamItemClick(Sender: TObject);FormCreate(Sender: TObject);TpItemClick(Sender: TObject);BaksItemClick(Sender: TObject);ExecuteBtnClick(Sender: TObject);ListBox1Click(Sender: TObject);N1Click(Sender: TObject);ResulItemClick(Sender: TObject);
{ Private declarations }
{ Public declarations }InsM(N,A:Integer;B,C,D,E,F:Real);DelM(N:Integer);NomBak:Word;filterdo(N:Integer);bakdo(N:Integer);zonado;trubdo;Rado;left(A,B:Real):Real;left1(A,B:Real):Real;;TMass=array[1..10,1..5] of Real;: TMainForm;:Integer;:Word;:array[1..20,1..6] of Real;:TMass;:TParametr;,C5,C8,C25,C100:Real;:Real;:Integer;:TextFile;NasosF, FilterF, BakF, ParametrF, AnsysF, AnsysF1, ChartF;
{$R *.DFM}TMainForm.NomBak:Word;:Integer;:=0;:=I+1;(Bak[I][1]=-1);:=I;;TMainForm.left(A,B:Real):Real;:=A+B-A*B/100;;TMainForm.left1(A,B:Real):Real;:=A-A*B/100;;TMainForm.zonado;:=left(C2,Param.C2);:=left(C5,Param.C5);:=left(C8,Param.C8);:=left(C25,Param.C25);:=left(C100,Param.C100);TMainForm.filterdo(N:Integer);:=left1(C2,M[N][2]);:=left1(C5,M[N][3]);:=left1(C8,M[N][4]);:=left1(C25,M[N][5]);:=left1(C100,M[N][6]);TMainForm.bakdo(N:Integer);:=left1(C2,Bak[Round(M[N][1])][1]);:=left1(C5,Bak[Round(M[N][1])][2]);:=left1(C8,Bak[Round(M[N][1])][3]);:=left1(C25,Bak[Round(M[N][1])][4]);:=left1(C100,Bak[Round(M[N][1])][5]);TMainForm.trubdo;:=left1(C2,Param.Tp2);:=left1(C5,Param.Tp5);:=left1(C8,Param.Tp8);:=left1(C25,Param.Tp25);:=left1(C100,Param.Tp100);TMainForm.Rado;((C2+C5+C8+C25+C100)=0) or (Param.Ce=0) or
(Param.T=0) or (Param.Ci=0)Ra:=0Ra:=0.2*exp(ln(C2+C5+C8+C25+C100)*0.05+
*ln(Param.Ce)+ 0.17*ln(Param.T)-0.47*ln(Param.De)+
*ln(Param.Ci));;TMainForm.InsM(N,A:Integer;B,C,D,E,F:Real);:Integer;N<=All+1 thenI:=All downto N do[I+1]:=M[I];[N][1]:=A;[N][2]:=B;[N][3]:=C;[N][4]:=D;[N][5]:=E;[N][6]:=F;:=All+1;;;TMainForm.DelM(N:Integer);:Integer;N<=All thenI:=N to All-1 do[I]:=M[I+1];:=All-1;;;TMainForm.CloseBtnClick(Sender: TObject);N1.Enabled then CloseFile(F);;;TMainForm.NasosItemClick(Sender: TObject);:TS;:=TNasosForm.Create(Self);NasosForm.ShowModal=mrOk then:=TS.Create;.GetData(St);(St.N>0) and (St.N<=All+1) then:=Nasos+1;.Enabled:=True;.Enabled:=True;.Q:=St.p;.InsM(St.N,-1,St.P,0,0,0,0);.Items.Insert(St.N,St.s);;;.Free;;;TMainForm.FilterItemClick(Sender: TObject);:TNomberFilter;:=TFilterForm.Create(Self);FilterForm.ShowModal=mrOk then:=TNomberFilter.Create;.FilterGetData(Nomber);(Nomber.N>0) and (Nomber.N<=All+1) then.InsM(Nomber.N,-2,Nomber.C2,.C5,Nomber.C8,Nomber.C25,Nomber.C100);.Items.Insert(Nomber.N,Nomber.S);;;.Free;;;TMainForm.BakItemClick(Sender: TObject);:TBakNomber;:string;:=TBakForm.Create(Self);.BakQEdit.Text:=FloatToStr(Param.Q*0.06);BakForm.ShowModal=mrOk then:=TBakNomber.Create;.BakGetData(Nomber);(Nomber.N>0) and (Nomber.N<=All+1) then.InsM(Nomber.N,NomBak,Nomber.L,Nomber.H,.B,Nomber.Hn,Nomber.Hb);:='Бак '+FloatToStr(Nomber.L)+'x'+FloatToStr(Nomber.H)+'x'
+FloatToStr(Nomber.B);.Items.Insert(Nomber.N,S);;;.Free;;;TMainForm.DelItemClick(Sender: TObject);MainListBox.ItemIndex<>0 then(M[MainListBox.ItemIndex][1]=-1) then:=Nasos-1;(Nasos=0) then.Enabled:=False;.Enabled:=False;;(M[MainListBox.ItemIndex][1]<>-2) then[MainListBox.ItemIndex][1]:=-1;.DelM(MainListBox.ItemIndex);.Items.Delete(MainListBox.ItemIndex);;;TMainForm.ParamItemClick(Sender: TObject);,S2:string;:=TParametrForm.Create(Self);ParametrForm.ShowModal=mrOk then.ParamGetData(Param);.MainFormLabel.Caption:='Сож - '+Param.S;(Param.v:6:3,S1);(Param.p:6:3,S2);.MainFormLabel1.Caption:=' ('+S1+' / '+S2+')';;.Free;;;TMainForm.FormCreate(Sender: TObject);:Integer;I:=1 to 10 do[I][1]:=-1;:=0;:=0;:=TParametr.Create;.Q:=1;.Ts:=1;:=1;.Items.Add('Зона резания');;TMainForm.TpItemClick(Sender: TObject);:=TAnsysForm.Create(Self);AnsysForm.ShowModal=mrOk thenAnsysForm do.Tp2:=StrToFloat(AnsysTEdit1.Text);.Tp5:=StrToFloat(AnsysTEdit2.Text);.Tp8:=StrToFloat(AnsysTEdit3.Text);.Tp25:=StrToFloat(AnsysTEdit4.Text);.Tp100:=StrToFloat(AnsysTEdit5.Text);;.Free;;;TMainForm.BaksItemClick(Sender: TObject);,J:Integer;:=MainListBox.ItemIndex;:=Round(M[I][1]);:=TAnsysForm1.Create(Self);(J>-1) and (I<>0) thenAnsysForm1.ShowModal=mrOk thenAnsysForm1 do[J][1]:=StrToFloat(AnsysBEdit1.Text);[J][2]:=StrToFloat(AnsysBEdit2.Text);[J][3]:=StrToFloat(AnsysBEdit3.Text);[J][4]:=StrToFloat(AnsysBEdit4.Text);[J][5]:=StrToFloat(AnsysBEdit5.Text);;.Free;;;TMainForm.ExecuteBtnClick(Sender: TObject);,J:Integer;not(N1.Enabled) then(F,'Result');(F);;.Enabled:=True;:=Param.C2;:=Param.C5;:=Param.C8;:=Param.C25;:=Param.C100;.Clear;.Clear;.Items.Add('Q');.Items.Add('D');I:=1 to All doM[I][1]>-1 then.Items.Add('L'+IntToStr(I));.Items.Add('H'+IntToStr(I));.Items.Add('B'+IntToStr(I));.Items.Add('Нн'+IntToStr(I));.Items.Add('Нб'+IntToStr(I));;I:=1 to Param.N do;J:=1 to All do;M[J][1]=-2 then filterdo(J)if M[J][1]>-1 then bakdo(J);;;;.Items.Add(FloatToStr(Ra));;;TMainForm.ListBox1Click(Sender: TObject);.Caption:=IntToStr(ListBox1.ItemIndex+1);;TMainForm.N1Click(Sender: TObject);:Real;,N:Integer;:string;:=MainListBoxP.ItemIndex;:=MainListBoxP.Items.Strings[I];:=Length(S);I of
:R:=Param.Q;
:R:=Param.Ts;:=StrToInt(S[L]);L=2 then S:=S[1] else S:=S[1]+S[2];S='L' then I:=2if S='H' then:=3 else if S='B' then:=4 else if S='Нн' then:=5 else I:=6;:=M[N][I];;;(F,Ra,' ',R);;TMainForm.ResulItemClick(Sender: TObject);(F);.Enabled:=False;:=TFormChart.Create(Self);.ShowModal.Free;;;.
Модуль AnsysF.pas
unit AnsysF;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Buttons,MainF;= class(TForm): TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TBitBtn;FormCreate(Sender: TObject);
{ Private declarations }
{ Public declarations };: TAnsysForm;
{$R *.DFM}TAnsysForm.FormCreate(Sender: TObject);,S2:string;.vf:=4*Param.Q*0.001/(60*Pi*Param.Ts*Param.Ts);(Param.vf:6:3,S1);(Param.Ts:6:3,S2);.Caption:='D = '+S2+' м v = '+S1+' м/с';.Text:=FloatToStr(Param.Tp2);.Text:=FloatToStr(Param.Tp5);.Text:=FloatToStr(Param.Tp8);.Text:=FloatToStr(Param.Tp25);.Text:=FloatToStr(Param.Tp100);;.
Модуль BakF.pas
unit BakF;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Buttons, ExtCtrls;= class{(TObject)}:Integer;,H,B,Hn,Hb:Real;;= class(TForm): TBitBtn;: TBitBtn;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TBitBtn;: TBitBtn;: TBitBtn;: TEdit;: TLabel;: TEdit;: TLabel;: TBevel;: TBevel;: TBevel;BakLBitBtnClick(Sender: TObject);BakHBitBtnClick(Sender: TObject);BakVfBtnClick(Sender: TObject);
{ Private declarations }BakGetData(Dat:TBakNomber);
{ Public declarations };: TBakForm;MainF;
{$R *.DFM}:Real;TBakForm.BakLBitBtnClick(Sender: TObject);,W,R:Real;:=StrToFloat(BakVrEdit.Text);:=StrToFloat(BakWEdit.Text);:=StrToFloat(BakHEdit.Text);:=2*Vr*H/W;.Text:=FloatToStr(R);;TBakForm.BakHBitBtnClick(Sender: TObject);,Hn,Hb:Real;:=StrToFloat(BakHnEdit.Text);:=StrToFloat(BakHbEdit.Text);:=Hn+Hb+H;.Text:=FloatToStr(R);;TBakForm.BakVfBtnClick(Sender: TObject);,B:Real;:=StrToFloat(BakQEdit.Text);:=StrToFloat(BakBEdit.Text);.Text:=FloatToStr(Q/(36*H*B));;TBakForm.BakGetData(Dat:TBakNomber);.N:=StrToInt(BakNomberEdit.Text);.L:=StrToFloat(BakLEdit.Text);.B:=StrToFloat(BakBEdit.Text);.H:=StrToFloat(BakHEdit.Text);.Hn:=StrToFloat(BakHnEdit.Text);.Hb:=StrToFloat(BakHbEdit.Text);;.
Модуль ChartF.pas
unit ChartF;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Series, ExtCtrls, TeeProcs, Chart, ArrowCha, TeeShape,, Buttons;= class(TForm): TChart;: TFastLineSeries;: TBitBtn;FormCreate(Sender: TObject);BitBtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TFormChart;
{$R *.DFM}TFormChart.FormCreate(Sender: TObject);:TextFile;,Y:Real;(F,'Result');(F);not(EOF(F)) do(F,Y,X);.SeriesList[0].AddXY(X,Y,'',clTeeColor);;(F);;TFormChart.BitBtn1Click(Sender: TObject);;;.
Модуль NasosF.pas
unit NasosF;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Buttons, ExtCtrls;= class{(TObject)}:string;:Integer;:Real;;= class(TForm): TBitBtn;: TBitBtn;: TEdit;: TLabel;: TComboBox;: TLabel;: TEdit;: TLabel;FormCreate(Sender: TObject);
{ Private declarations }
{ Public declarations }GetData(St:TS);;: TNasosForm;
{$R *.DFM}TNasosForm.GetData(St:TS);.s:=NasosComboBox.Text;.N:=StrToInt(NasosEdit.Text);.P:=StrToFloat(NasosEdit1.Text);;TNasosForm.FormCreate(Sender: TObject);.ItemIndex:=1;;.
Модуль ParametrF.pas
unit ParametrF;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Buttons, ExtCtrls,MainF;= class(TForm): TBitBtn;: TBitBtn;: TComboBox;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TBevel;: TBevel;: TLabel;: TLabel;: TEdit;: TBevel;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TLabel;FormCreate(Sender: TObject);
{ Private declarations }
{ Public declarations }ParamGetData(Par:TParametr);;: TParametrForm;
{$R *.DFM}TParametrForm.FormCreate(Sender: TObject);.ItemIndex:=I;.Text:=FloatToStr(Param.p);.Text:=FloatToStr(Param.v);.Text:=FloatToStr(Param.C2);.Text:=FloatToStr(Param.C5);.Text:=FloatToStr(Param.C8);.Text:=FloatToStr(Param.C25);.Text:=FloatToStr(Param.C100);.Text:=FloatToStr(Param.Ts);.Text:=FloatToStr(Param.Ce);.Text:=FloatToStr(Param.De);.Text:=FloatToStr(Param.T);.Text:=FloatToStr(Param.Ci);.Text:=FloatToStr(Param.N);;TParametrForm.ParamGetData(Par:TParametr);.p:=StrToFloat(ParametrForm.ParamPlEdit.Text);.v:=StrToFloat(ParametrForm.ParamVzEdit.Text);.C2:=StrToFloat(ParametrForm.ParamTonkEdit2.Text);.C5:=StrToFloat(ParametrForm.ParamTonkEdit5.Text);.C8:=StrToFloat(ParametrForm.ParamTonkEdit8.Text);.C25:=StrToFloat(ParametrForm.ParamTonkEdit25.Text);.C100:=StrToFloat(ParametrForm.ParamTonkEdit100.Text);.S:=ParametrForm.ParamComboBox.Text;.Ts:=StrToFloat(ParametrForm.ParamTsEdit.Text);.Ce:=StrToFloat(ParametrForm.ParamCeEdit.Text);.De:=StrToFloat(ParametrForm.ParamDeEdit.Text);.T:=StrToFloat(ParametrForm.ParamTeEdit.Text);.Ci:=StrToFloat(ParametrForm.ParamCiEdit.Text);.N:=StrToInt(ParametrForm.ParamCikEdit.Text);:=ParamComboBox.ItemIndex;.
|
|
|
