Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
💸 Как сделать бизнес проще, а карман толще?
Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже.
Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал.
Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее. ✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать». Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами! Приложение 1.
Технические данные электродвигателей с фазным ротором, ПВ = 40%, 380 В, 50 Гц
ПРИЛОЖЕНИЕ 2. Обмоточные данные электродвигателей серии 4МТ.
ПРИЛОЖЕНИЕ 4. Основные размеры, мм, и масса электродвигателей серии 4МТ
ПРИЛОЖЕНИЕ 5. Текст основного модуля программы, выполняющей расчёты по проектированию электрического привода, написанной на языке Object Pascal в среде разработки Delphi.
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, TabNotBk, Grids, Unit2, TeEngine, Series, ExtCtrls, TeeProcs, Chart, jpeg;
type TForm1 = class(TForm) BtnClose: TButton; TabNtbookMain: TTabbedNotebook; StrGrShZam: TStringGrid; StTxt: TStaticText; BtnSaveGraf: TButton; BtnCalc: TButton; ChI1: TChart; Series1: TLineSeries; ChM: TChart; LineSeries1: TLineSeries; ChN2: TChart; Series4: TLineSeries; Image1: TImage; ChMehHar: TChart; Series5: TLineSeries; ChMehHarStart: TChart; Series2: TLineSeries; BtnPerPr: TButton; Button1: TButton; ChaNagrM: TChart; Series3: TLineSeries; ChW: TChart; Series7: TLineSeries; ChNagrPoln: TChart; Series6: TLineSeries; Series8: TLineSeries; Series9: TLineSeries; Series10: TLineSeries; Series11: TLineSeries; Series12: TLineSeries; Series13: TLineSeries; Series14: TLineSeries; Series15: TLineSeries; Series16: TLineSeries; ChMdin: TChart; Series17: TLineSeries; Series18: TLineSeries; Series19: TLineSeries; procedure BtnCloseClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BtnCalcClick(Sender: TObject); procedure BtnSaveGrafClick(Sender: TObject); procedure BtnPerPrClick(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BtnCloseClick(Sender: TObject); begin Close; end;
procedure TForm1.FormCreate(Sender: TObject); var AsDv: TAsDv; begin Form1.ChMehHar.Series[0].XValues.Order: =loNone; Form1.ChMehHar.Series[0].YValues.Order: = loNone; //---Формирование таблицы-------------------------------------------------- StrGrShZam.Cells[0, 0]: ='Наименование параметра'; StrGrShZam.Cells[1, 0]: ='Значение'; StrGrShZam.Cells[0, 1]: ='Напряжение питания U1, В'; StrGrShZam.Cells[0, 2]: ='Число пар полюсов p'; StrGrShZam.Cells[0, 3]: ='Частота напряжения сети, Гц'; StrGrShZam.Cells[0, 4]: ='Активное сопротивление обмотки статора R1, Ом'; StrGrShZam.Cells[0, 5]: ='Сопрот. рассеивения обмотки статора X1, Ом'; StrGrShZam.Cells[0, 6]: ='Активное сопротивление обмотки ротора (прив.) R`2, Ом'; StrGrShZam.Cells[0, 7]: ='Сопрот. рассеивения обмотки ротора (прив.) X`2, Ом'; StrGrShZam.Cells[0, 8]: ='Активное сопротивление ветви намагн. R0, Ом'; StrGrShZam.Cells[0, 9]: ='Реактивн. сопрот. ветви намагн. X0, Ом'; //----Инициализация данных------------------------------------------------- InitPar(AsDv); //----Вывод данных на экран------------------------------------------------ StrGrShZam.Cells[1, 1]: =FloatToStr(AsDv.U); StrGrShZam.Cells[1, 2]: =IntToStr(AsDv.p); StrGrShZam.Cells[1, 3]: =FloatToStr(AsDv.f); StrGrShZam.Cells[1, 4]: =FloatToStr(AsDv.R1); StrGrShZam.Cells[1, 5]: =FloatToStr(AsDv.X1); StrGrShZam.Cells[1, 6]: =FloatToStr(AsDv.R2p); StrGrShZam.Cells[1, 7]: =FloatToStr(AsDv.X2p); StrGrShZam.Cells[1, 8]: =FloatToStr(AsDv.R0); StrGrShZam.Cells[1, 9]: =FloatToStr(AsDv.X0); end;
procedure TForm1.BtnCalcClick(Sender: TObject); const ds=0.0001; var
s, skr: MReal; begin //----Ввод данных---------------------------------------------------------- AsDv.U: =StrToFloat(StrGrShZam.Cells[1, 1]); AsDv.p: =StrToInt(StrGrShZam.Cells[1, 2]); AsDv.f: =StrToFloat(StrGrShZam.Cells[1, 3]); AsDv.R1: =StrToFloat(StrGrShZam.Cells[1, 4]); AsDv.X1: =StrToFloat(StrGrShZam.Cells[1, 5]); AsDv.R2p: =StrToFloat(StrGrShZam.Cells[1, 6]); AsDv.X2p: =StrToFloat(StrGrShZam.Cells[1, 7]); AsDv.R0: =StrToFloat(StrGrShZam.Cells[1, 8]); AsDv.X0: =StrToFloat(StrGrShZam.Cells[1, 9]); AsDv.m1: =3; //----Выполнение расчётов и построения графиков---------------------------- { AsDv.E1.Zm: =AsDv.U; AsDv.E1.fi: =0; DoinReIm(0, AsDv.E1); s: =0; skr: =0.04; repeat CalcIdv(s, AsDv); if s< =skr then begin ChI1.Series[0].AddXY(AsDv.P2, AsDv.I1.Zm, '', clBlack); ChM.Series[0].AddXY(AsDv.P2, AsDv.M, '', clBlack); ChN2.Series[0].AddXY(AsDv.P2, (AsDv.w2*30/Pi), '', clBlack); end; ChMehHar.Series[0].AddXY(AsDv.M, (AsDv.w2*30/Pi), '', clBlack); s: =s+ds; until s> =1; } end;
procedure TForm1.BtnSaveGrafClick(Sender: TObject); begin ChMehHar.SaveToMetafile('Grafic/ChMehHar.wmf'); ChMehHarStart.SaveToMetafile('Grafic/ChMehHarStart.wmf'); ChI1.SaveToMetafile('Grafic/ChI1.wmf'); // jpeg wmf jpeg ChM.SaveToMetafile('Grafic/ChM.wmf'); ChN2.SaveToMetafile('Grafic/ChN2.wmf'); ChaNagrM.SaveToMetafile('Grafic/ChaNagrM.wmf'); ChW.SaveToMetafile('Grafic/ChW.wmf'); ChNagrPoln.SaveToMetafile('Grafic/ChNagrPoln.wmf'); ChMdin.SaveToMetafile('Grafic/ChMdin.wmf'); end;
procedure TForm1.BtnPerPrClick(Sender: TObject); var i: byte; A, B: MReal; w, T, tglob, tloc, dt: MReal; exp1, Istat, Mrot, Mend: MReal; skr, wkr: MReal; s, ds, M: MReal; begin InitPar(AsDv); InitPar1(MehNagr); dt: =0.001; //------Определение скорости переключения и конечного значения скорости---- i: =0; MehNagr.w1[0]: =0; MehNagr.w11[0]: =0; ParLine(0, AsDv.w0, AsDv.Mmax, 0, A, B); MehNagr.w11[i+1]: =A*MehNagr.Mprom+B; MehNagr.w1[i+1]: =A*MehNagr.MehM[0].Mp+B; i: =1; repeat ParLine(0, AsDv.w0, AsDv.Mmax, MehNagr.w11[i], A, B); MehNagr.w11[i+1]: =A*MehNagr.Mprom+B; MehNagr.w1[i+1]: =A*MehNagr.MehM[0].Mp+B; inc(i); until i=NStartSt; //-------Определение добавочных сопротивлений------------------------------ {i: =0; skr: =AsDv.R2p/sqrt(sqr(AsDv.R1)+sqr(AsDv.X1+AsDv.X2p)); wkr: =AsDv.w0*(1-skr); repeat AsDv.Rstart[i]: =(AsDv.R2p/sqr(AsDv.kpr))*(MehNagr.w11[i+1]-MehNagr.w11[i])/(AsDv.w0-wkr); //!!!!!!!! inc(i); until i=NStartSt; } //--------формирование начального и конечного значений для граыика тока---- {i: =0; repeat skr: =AsDv.Urot*((AsDv.w0-MehNagr.w11[i])/AsDv.w0)/(sqrt(3)*sqrt()) MehNagr.I1[i]: = inc(i); until i=NStartSt; } //----------Формирования графика для пусковых ступеней--------------------- s: =0; ds: =0.01; repeat if s=0 then begin s: =s+ds; continue; end; M: =AsDv.m1*sqr(AsDv.U)*AsDv.R2p/(AsDv.w0*s*(sqr(AsDv.R1+AsDv.R2p/s)+sqr(AsDv.X1+AsDv.X2p))); AsDv.w2: =AsDv.w0*(1-s); ChMehHarStart.Series[0].AddXY(M, AsDv.w2, '', clBlack); s: =s+ds; until s> 0.1; i: =1; repeat ChMehHarStart.Series[i].AddXY(0, AsDv.w0, '', clBlack); ChMehHarStart.Series[i].AddXY(AsDv.Mmax, MehNagr.w11[i-1], '', clBlack); inc(i); until i=(NStartSt); ChMehHarStart.Series[i].AddXY(AsDv.Mmax, 0, '', clBlack); ChMehHarStart.Series[i].AddXY(AsDv.Mmax, (AsDv.w0*1.04), '', clBlack); ChMehHarStart.Series[i+1].AddXY(MehNagr.Mprom, 0, '', clBlack); ChMehHarStart.Series[i+1].AddXY(MehNagr.Mprom, (AsDv.w0*1.04), '', clBlack); ChMehHarStart.Series[i+2].AddXY(MehNagr.MehM[0].Mp, 0, '', clBlack); ChMehHarStart.Series[i+2].AddXY(MehNagr.MehM[0].Mp, (AsDv.w0*1.04), '', clBlack); ChMehHarStart.Series[i+3].AddXY((AsDv.Mmax*1.04), 0, '', clBlack); ChMehHarStart.Series[i+3].AddXY((AsDv.Mmax*1.04), (AsDv.w0*1.04), '', clBlack); //------------------------------------------------------------------------- tglob: =0; i: =0; Mend: =MehNagr.Mprom; repeat tloc: =0; repeat if (i=(NStartSt-1)) then Mend: =1.0001*MehNagr.MehM[0].Mp; T: =MehNagr.J*(AsDv.w0-MehNagr.w1[i+1])/MehNagr.MehM[0].Mp; exp1: =exp(-tloc/T); // Istat: =; Mrot: =(AsDv.Mmax-MehNagr.MehM[0].Mp)*exp1+MehNagr.MehM[0].Mp; w: =(MehNagr.w11[i]-MehNagr.w1[i+1])*exp1+MehNagr.w1[i+1]; ChM.Series[0].AddXY((tglob+tloc), Mrot, '', clBlack); ChI1.Series[0].AddXY((tglob+tloc), Mrot, '', clBlack); // Istat ChN2.Series[0].AddXY((tglob+tloc), (w), '', clBlack); tloc: =tloc+dt; until Mrot< Mend; //MehNagr.w11[i+1]: =w; tglob: =tglob+(tloc-dt); inc(i); until i=NStartSt; end;
procedure TForm1.Button1Click(Sender: TObject); const dT=15; var i: byte; t, Tmax: MReal; s, ds, M: MReal; begin InitPar(AsDv); InitPar1(MehNagr); i: =0; repeat ChaNagrM.Series[i].Clear; inc(i); until i=ChaNagrM.SeriesCount; i: =0; repeat ChW.Series[i].Clear; inc(i); until i=ChW.SeriesCount; //------Вывод графика нагрузочной характеристики--------------------------- Tmax: =0; i: =0; repeat Tmax: =Tmax+MehNagr.MehM[i].tp+MehNagr.MehM[i].t+MehNagr.MehM[i].tt+dT; inc(i); until i=4; t: =0; i: =0; repeat ChaNagrM.Series[0].AddXY(t, 0, '', clBlack); ChaNagrM.Series[0].AddXY(t, MehNagr.MehM[i].M, '', clBlack); t: =t+MehNagr.MehM[i].tp+MehNagr.MehM[i].t+MehNagr.MehM[i].tt; ChaNagrM.Series[0].AddXY(t, MehNagr.MehM[i].M, '', clBlack); ChaNagrM.Series[0].AddXY(t, 0, '', clBlack); inc(i); t: =t+dT; until i=4; ChaNagrM.Series[0].AddXY(t, 0, '', clBlack); // t: =0; i: =0; repeat ChW.Series[0].AddXY(t, 0, '', clRed); t: =t+MehNagr.MehM[i].tp; ChW.Series[0].AddXY(t, MehNagr.MehM[i].wust, '', clRed); t: =t+MehNagr.MehM[i].t; ChW.Series[0].AddXY(t, MehNagr.MehM[i].wust, '', clRed); t: =t+MehNagr.MehM[i].tt; ChW.Series[0].AddXY(t, 0, '', clRed); t: =t+dT; inc(i); until i=4; ChW.Series[0].AddXY(t, 0, '', clRed); // ChNagrPoln t: =0; i: =0; repeat ChNagrPoln.Series[0].AddXY(t, 0, '', clBlack); ChNagrPoln.Series[0].AddXY(t, MehNagr.MehM[i].Mp, '', clBlack); t: =t+MehNagr.MehM[i].tp; ChNagrPoln.Series[0].AddXY(t, MehNagr.MehM[i].Mp, '', clBlack); ChNagrPoln.Series[0].AddXY(t, MehNagr.MehM[i].M, '', clBlack); t: =t+MehNagr.MehM[i].t; ChNagrPoln.Series[0].AddXY(t, MehNagr.MehM[i].M, '', clBlack); ChNagrPoln.Series[0].AddXY(t, MehNagr.MehM[i].Mt, '', clBlack); t: =t+MehNagr.MehM[i].tt; ChNagrPoln.Series[0].AddXY(t, MehNagr.MehM[i].Mt, '', clBlack); ChNagrPoln.Series[0].AddXY(t, 0, '', clBlack); t: =t+dT; inc(i); until i=4; ChNagrPoln.Series[0].AddXY(t, 0, '', clBlack); //ChMdin t: =0; i: =0; repeat ChMdin.Series[0].AddXY(t, 0, '', clBlack); ChMdin.Series[0].AddXY(t, MehNagr.MehM[i].Mpd, '', clBlack); t: =t+MehNagr.MehM[i].tp; ChMdin.Series[0].AddXY(t, MehNagr.MehM[i].Mpd, '', clBlack); ChMdin.Series[0].AddXY(t, 0, '', clBlack); t: =t+MehNagr.MehM[i].t; ChMdin.Series[0].AddXY(t, 0, '', clBlack); ChMdin.Series[0].AddXY(t, -MehNagr.MehM[i].Mtd, '', clBlack); t: =t+MehNagr.MehM[i].tt; ChMdin.Series[0].AddXY(t, -MehNagr.MehM[i].Mtd, '', clBlack); ChMdin.Series[0].AddXY(t, 0, '', clBlack); t: =t+dT; inc(i); until i=4; ChNagrPoln.Series[0].AddXY(t, 0, '', clBlack); //ChMehHar s: =-2; ds: =0.01; repeat if s=0 then begin s: =s+ds; continue; end; M: =AsDv.m1*sqr(AsDv.U)*AsDv.R2p/(AsDv.w0*s*(sqr(AsDv.R1+AsDv.R2p/s)+sqr(AsDv.X1+AsDv.X2p))); AsDv.w2: =AsDv.w0*(1-s); ChMehHar.Series[0].AddXY(M, AsDv.w2, '', clBlack); //ChMehHar.Series[0].AddXY((-M), (-AsDv.w2), '', clBlack); s: =s+ds; until s> 2; end;
end.
СПИСОК ЛИТЕРАТУРЫ
1. Москаленко В. В. Системы автоматизированного управления электропривода / В. В. Москаленко. – М: Инфра-М. – 2013. 2. Москаленко В. В. Системы автоматизированного управления электропривода / В. В. Москаленко. – М: Инфра-М. – 2010. 3. Невраев В. Ю. Системы автоматизированного электропривода переменного тока / В. Ю. Невраев. – М: Книга по требованию. – 2012. 4. Свириденко П.А., Шмелев А.Н. Основы автоматизированного электропривода / П.А. Свириденко, А.Н. Шмелев. М: Книга по требованию. – 2012. 5. Гульков Г., Петренко Ю., Раткевич Е., Симоненкова О. Системы автоматизированного управления электроприводами / Г. Гульков, Ю.Петренко, Е. Раткевич, О. Симоненкова. – М: Новое знание. – 2007. 6. Белов М.П., Новиков В.А., Рассудов Л.Н. Автоматизированный электропривод типовых производственных механизмов и технологических комплексов / М. П. Белов, В. А. Новиков, Л. Н. Рассудов. – М: Академия. – 2007.
|