Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    — Сам записывает клиентов и напоминает им о визите;
    — Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    — Увеличивает доходимость и помогает больше зарабатывать;
    Начать пользоваться сервисом

    • Приложение 1.

    Технические данные электродвигателей с фазным ротором, ПВ = 40%, 380 В, 50 Гц

    Тип Число полюсов Мощность, кВт Частота вращения, об/мин Ток статора, А cos Ток ротора, А Напряжение ротора, В Максимальный момент, Н·м
    4MTF(H)112L4 4MTF(H)112LB4 4MTF(H)132L4 4MTF(H)132LB4 4MTF(H)112L6 4MTF(H)112LB6 4MTF(H)132L6 4MTF(H)132LB6 4MTF(H)160L6 4MTF(H)160LB6 4MTF(H)200L6 4MTF(H)200LB6 4MTF(H)225M6 4MTH225L6 4MTH280S6 4MTH280M6 4MTF(H)160L8 4MTF(H)160LB8 4MTF(H)200L8 4MTH200LB8 4MTH225M8 4MTH225L8 4MTH280S8 4MTH280M8 4MTH280L8 4MTH355S8 4MTH335M8 4MTH355L8 4MTH280S10 4MTH280M10 4MTH280L10 4MTH355S10 4MTH355M10 4MTH355L10   3, 7 5, 5 7, 5 2, 2 3, 7 5, 5 7, 5 7, 5   10, 5 7, 2 11, 2 14, 8 18, 2 74, 6 87, 4 0, 82 0, 81 0, 84 0, 86 0, 76 0, 79 0, 74 0, 77 0, 76 0, 77 0, 79 0, 78 0, 818 0, 90 0, 89 0, 89 0, 73 0, 74 0, 71 0, 70 0, 72 0, 74 0, 84 0, 82 0, 84 0, 85 0, 87 0, 86 0, 76 0, 76 0, 77 0, 70 0, 68 0, 61 - - - - 13, 8 18, 3 20, 7 48, 8 - - - - - - - - - - - - -

     


     

    ПРИЛОЖЕНИЕ 2.

    Обмоточные данные электродвигателей серии 4МТ.

    Тип (4МТКF, 4MTKH, 4MTF, 4MTH) Число полюсов Число пазов Всего проводов в пазу Число параллельных цепей в пазу Число параллельных цепей на фазу Число витков в катушке Диаметр провода, мм Сопротивление фазы r1, при 20 0С , Ом
    Обмотки статора фазных и коротко замкнутых
      112L6 112LB6 132L6 132LB6 160L6 160LB6 200L6 200LB6 225M6 225L6 280S6 280M6 160L8 160LB8 200L8 200LB8 225M8 225L8 280S10 280M10 280L10 355S10 355M10 355L10               - - - - -     - - - - - -         1, 25 1, 18 1, 25 1, 25 1, 3 1, 12 1, 32 1, 4 1, 32 1, 32 1, 18 1, 25 1, 3 1, 12 1, 25 1, 4 1, 4 1, 3 1, 5 2, 5x3, 75 2, 8x4 1, 8x3, 75   2, 97 1, 55 1, 07 0, 68 0, 35 0, 236 0, 235 0, 132 0, 1 0, 035 0, 041 0, 025 0, 48 0, 265 0, 235 0, 14 0, 14 0, 1 0, 06 0, 047 0, 031 0, 019 0, 014 0, 012
    Обмотки ротора фазных двигателей
      112L6 112LB6 132L6 132LB6 160L6 160LB6 200L6 200LB6 225M6 225L6 280S6 280M6 160L8 160LB8 200L8 200LB8 225M8 225L8 280S10 280M10 280L10 335S10 335M10 335L10         - - - -   - - - - - - -   - - - - - - - -     1, 4 1, 12 1, 25 1, 12 1, 25 1, 32 1, 5 1, 4 1, 4 1, 5 2, 8x10 2, 8x10 1, 12 1, 18 1, 3 1, 45 1, 4 1, 5 2, 8x10 2, 8x10 2, 8x10 3, 05x16, 8 3, 05x16, 8 3, 05x16, 8     0, 565 0, 462 0, 306 0, 3 0, 072 0, 073 0, 054 0, 04 0, 048 0, 026 0, 019 0, 024 0, 095 0, 096 0, 082 0, 068 0, 051 0, 049 0, 017 0, 021 0, 024 0, 012 0, 014 0, 015  

     


    ПРИЛОЖЕНИЕ 3. Расчётные данные электродвигателей 4МТ с фазным ротором, 380 В, 50 Гц
    Тип (4МТF, 4MTH) IO, A cos 0 x1, Oм 1 x ¢ ¢ 2, Oм Коэффициент приведения сопротивления
      112L6 112LB6 132L6 132LB6 160L6 160LB6 200L6 200LB6 225M6 225L6 280S6 280M6 160L8 160LB8 200L8 200LB8 225M8 225L8 280S10 280M10 280L10 355S10 355M10 355L10     5, 51 7, 70 8, 96 11, 10 23, 50 25, 60 39, 70 37, 30 37, 20 55, 90 51, 10 70, 00 19, 20 29, 90 29, 80 37, 30 46, 70 52, 30 57, 80 70, 60 89, 50 155, 00 183, 00 247, 00   0, 135 0, 125 0, 130 0, 110 0, 120 0, 100 0, 080 0, 077 0, 069 0, 070 0, 052 0, 050 0, 118 0, 101 0, 083 0, 080 0, 070 0, 080 0, 080 0, 060 0, 060 0, 042 0, 044 0, 042   3, 110 1, 950 1, 300 0, 980 0, 590 0, 420 0, 270 0, 330 0, 230 0, 140 0, 130 0, 080 1, 080 0, 670 0, 510 0, 310 0, 230 0, 170 0, 210 0, 150 0, 110 0, 078 0, 064 0, 048   1, 084 1, 073 1, 056 1, 053 1, 087 1, 051 1, 052 1, 049 1, 076 1, 084 1, 071 1, 076 1, 100 1, 100 1, 074 1, 076 1, 052 1, 040 1, 060 1, 060 1, 060 1, 060 1, 060 1, 060   3, 950 3, 200 2, 100 1, 440 1, 010 0, 670 0, 550 0, 340 0, 310 0, 197 0, 125 0, 083 1, 530 1, 020 0, 725 0, 470 0, 420 0, 310 0, 240 0, 190 0, 146 0, 134 0, 110 0, 085   5, 90 3, 84 2, 82 2, 22 4, 31 2, 89 2, 37 1, 96 1, 45 1, 21 1, 38 1, 00 2, 37 3, 50 2, 96 2, 03 1, 65 1, 42 3, 72 2, 10 1, 26 1, 74 1, 21 0, 78

     

     

    ПРИЛОЖЕНИЕ 4.

    Основные размеры, мм, и масса электродвигателей серии 4МТ

     

    Тип b10 b11 d1 h h31 l1 l10 l30 фазный l30 корот- козам- кнутый l31 Масса, кг Момент инерции, кг·м2
    2р=6 2р=8 2р=10
      1121L 112LB 132L 132LB 160L 160LB 200L 200LB 225M 225L 280S 280M 280L 355S 355M 355L                         - - - - - -       0, 035 0, 045 0, 09 0, 11 0, 23 0, 28 0, 57 0, 68 0, 9 1, 02 3, 3 4, 1 5, 1 - - - - - - - 0, 23 0, 29 0, 62 0, 74 1, 07 1, 43 4, 3 5, 2 6, 3 10, 2 12, 8

    ПРИЛОЖЕНИЕ 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

     

    Забиваем Сайты В ТОП КУВАЛДОЙ - Уникальные возможности от SeoHammer
    Каждая ссылка анализируется по трем пакетам оценки: SEO, Трафик и SMM. SeoHammer делает продвижение сайта прозрачным и простым занятием. Ссылки, вечные ссылки, статьи, упоминания, пресс-релизы - используйте по максимуму потенциал SeoHammer для продвижения вашего сайта.
    Что умеет делать SeoHammer
    — Продвижение в один клик, интеллектуальный подбор запросов, покупка самых лучших ссылок с высокой степенью качества у лучших бирж ссылок.
    — Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
    — Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
    — SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
    SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней.
    Зарегистрироваться и Начать продвижение

    {$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);

    Сервис онлайн-записи на собственном Telegram-боте
    Попробуйте сервис онлайн-записи VisitTime на основе вашего собственного Telegram-бота:
    — Разгрузит мастера, специалиста или компанию;
    — Позволит гибко управлять расписанием и загрузкой;
    — Разошлет оповещения о новых услугах или акциях;
    — Позволит принять оплату на карту/кошелек/счет;
    — Позволит записываться на групповые и персональные посещения;
    — Поможет получить от клиента отзывы о визите к вам;
    — Включает в себя сервис чаевых.

    Для новых пользователей первый месяц бесплатно.
    Зарегистрироваться в сервисе

    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.

     

     

    <== предыдущая лекция | следующая лекция ==>
    Одномерный массив. | Двумерный массив.




    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.