43197

Решение системы линейных уравнений методом Гаусса

Курсовая

Информатика, кибернетика и программирование

Метод Гаусса— классический метод решения системы линейных алгебраических уравнений (СЛАУ). Это метод последовательного исключения переменных, когда с помощью элементарных преобразований система уравнений приводится к равносильной системе ступенчатого (или треугольного) вида, из которого последовательно, начиная с последних (по номеру) переменных, находятся все остальные переменные.

Русский

2013-11-06

723 KB

45 чел.

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ

ФИЛИАЛ ГОСУДАРСТВЕННОГО ОБРАЗОВАТЕЛЬНОГО УЧРЕЖДЕНИЯ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«МОСКОВСКИЙ ЭНЕРГЕТИЧЕСКИЙ ИНСТИТУТ

(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)» в г. Смоленске

Кафедра информатики

Расчетно – пояснительная записка

к расчетному заданию по курсу

«Информатика и программирование»

Группа      ПИЭ-09

Студент          Вахрамеева К. О.

Преподаватель:  Нестеров А. П.

Вариант                4

Дата сдачи

Смоленск, 2010

  1.  Теоретическое введение.
    1.  Метод Гаусса.

Метод Гаусса— классический метод решения системы линейных алгебраических уравнений (СЛАУ). Это метод последовательного исключения переменных, когда с помощью элементарных преобразований система уравнений приводится к равносильной системе ступенчатого (или треугольного) вида, из которого последовательно, начиная с последних (по номеру) переменных, находятся все остальные переменные.

  1.  Многомодульное приложение.

Для решения различных задач часто необходимы весьма сложные расчеты и вычисления, отнимающие достаточно много времени, но сейчас существуют различные виды вычислительной техники, с помощью которой можно осуществлять, если не все, то многие математические расчеты. Одной из важных задач в расчетах является разработка многооконных приложений, в частности,  для работы с точечнозаданными функциями.

  1.  Техническое задание.
    1.  Задание 1.

Решить систему линейных уравнений методом Гаусса:

  1.  Задание 2.

Разработать многомодульное (многооконное) приложение, которое позволяет работать с 2-мя точечнозаданными функциями.

Приложение должно удовлетворять следующим требованиям:

  •  Должно быть 2 окна для редактирования таблиц значений 2 функций.
  •  Должно быть окно для отображения графиков 2 функций (компонент TChart).
  •  Предусмотреть ввод пользователем новых значений функций. (с обновлением графиков).
  •  Предусмотреть сохранение таблиц значений в типизированный файл (диалог сохранения).
  •  Предусмотреть загрузку таблиц значений из типизированного файла (диалог открытия файла).
  •  Предусмотреть возможность редактирования таблиц значений пользователем (добавление, редактирование, удаление значений) с обновлением графиков.
  •  Шаг значений аргумента может быть неравномерным.
  •  Максимальное количество точек каждого графика - 50.
  •  Предусмотреть форму "О программе", где указать сведения о разработанном программном продукте.
  •  Предусмотреть ввод 2-х таблиц значений стандартных функций.

Файл значений функции должен быть действительного типа. Значения в него сохраняются последовательно парами (X,Y).

  1.  Анализ технического задания.
    1.  Задание 1.

Метод Гаусса основан на приведении матрицы системы к треугольному виду: это достигаем последовательным исключением неизвестных из уравнений системы. Сначала с помощью первого уравнения исключаем x1 из всех последующих уравнений системы, затем с помощью второго уравнения исключаем x2 из третьего уравнения. Таким образом, приводим матрицу системы к треугольному виду. Затем последовательно вычисляем искомые неизвестные: решая последнее уравнение, находим единственное неизвестное x3. Далее, используя это значение, из второго уравнения вычисляем x2, последним находим x1 из первого уравнения.

  1.  Задание 2.

Для решения данной задачи в среде Delphi 7 нужно разработать алгоритм, по которому будет работать программа, и учесть простейшие ошибки: во-первых, некорректный ввод, во-вторых, ввод ограниченного количества точек (не больше 50).

Приложение будет состоять из четырех форм. Первые две формы абсолютно идентичные: 2 окна для редактирования таблиц значений 2 функций (рис. 3.1), третья форма: окно для отображения графиков 2 функций (рис. 3.2), четвертая форма: "О программе" (рис. 3.3).

Рис 3.1 - Окна для редактирования таблиц значений функций.

Рис 3.2 - Окно для отображения графиков функций.

Рис 3.2 -"О программе".

  1.  Проектирование алгоритма.
    1.  

Блок-схема программы 1.

Рис. 4.1 – Программа 1.

n=3 – const;

perv – первый член системы;

x[i] – искомые переменные;

A[i,j] – матрица коэффициентов системы;

B[i] – матрица свободных членов;

i – номер строки;

j – номер столбца.

  1.  Блок-схема программы 2.
    1.  

Блок-схема процедуры sortirov.

Рис. 4.2 – Процедура sortirov.

  1.  

Блок-схема процедуры grafik.

Рис. 4.3 – Процедура grafik.

  1.  

Блок-схема загрузки.

Рис. 4.3 – Кнопка «Загрузить».

  1.  

Блок-схема сохранения.

Рис. 4.4 – Кнопка «Сохранить».

  1.  

Блок-схема функции.

Рис. 4.5 – Кнопка «Функция».

  1.  

Блок-схема добавления.

Рис. 4.6 – Кнопка «Добавить».

  1.  

Блок-схема удаления.

Рис. 4.7 – Кнопка «Удалить».

  1.  Модульная структура.
    1.  

Программа 1.

Рис 5.1 – Модульная структура программы 1.

  1.  

Программа 2.

Рис 5.2 – Модульная структура программы 2.

  1.  Спецификация на программные модули.

Программа 1.

Имя модуля - Button1Click.

Имя вызываемого модуля - Unit.

Выполняемые функции – поиск корней системы уравнений.

Входные данные – A[i,j], B[i].

Выхoдные данные – x[i].

Особенности, ограничения – нет.

Программа 2.

Загрузка.

Имя модуля – Button1Click.

Имя вызываемого модуля – Unit.

Выполняемые функции – загрузка сохраненных данных.

Входные данные – x, y.

Выходные данные – x, y.

Особенности, ограничения – нет.

Сохранение.

Имя модуля – Button2Click.

Имя вызываемого модуля – Unit.

Выполняемые функции – сохранение данных.

     Входные данные – x, y.

     Выходные данные – нет.

Особенности, ограничения – нет.

Функция.

Имя модуля – Button3Click.

Имя вызываемого модуля – Unit.

Выполняемые функции – построение графика.

Входные данные – x, y.

Выходные данные – x, y.

Особенности, ограничения – нет.

Добавление.

Имя модуля – Button4Click.

Имя вызываемого модуля – Unit.

Выполняемые функции – добавление элемента.

Входные данные – x, y.

Выходные данные – x, y.

Особенности, ограничения – нет

Удаление.

Имя модуля – Button5Click.

Имя вызываемого модуля – Unit.

Выполняемые функции – удаление элемента.

     Входные данные – j.

Выходные данные – нет.

Особенности, ограничения – нет.

Процедура sortirov.

Имя модуля - sortirov.

Имя вызываемого модуля – Button4Click.

Выполняемые функции – удаление элемента.

Входные данные – x, y.

Выходные данные – x, y.

Особенности, ограничения – нет.

Процедура grafik.

Имя модуля - grafik.

Имя вызываемого модуля – Button3(4,5)Click.

Выполняемые функции – построение графика.

Входные данные – x, y.

Выходные данные – x, y.

Особенности, ограничения – нет.

Функция schet.

Имя модуля - schet.

Имя вызываемого модуля – Button5Click.

Выполняемые функции – задание функции.

Входные данные – x.

Выходные данные – нет.

Особенности, ограничения – нет.

  1.  Тестирование.
    1.  Программа 1.

Рис. 7.1. Тестирование программы 1.

Рис. 7.2. Результат программы 1.

  1.  Программа 2.

Рис. 7.3. Тестирование программы 2 (добавление/удаление элемента).

Рис. 7.4. Тестирование программы 2 (построение графиков).

  1.  Заключение.

В результате выполнения расчетного задания в среде визуального программирования Delphi 7 было произведено вычисление корней системы уравнений методом Гаусса, а также разработано многомодульное (многооконное) приложение, которое позволяет работать с двумя точечными функциями.

  1.  Приложение 1.
    1.  Текст программы 1.

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, Grids, XPMan;

type

 TForm1 = class(TForm)

   StringGrid1: TStringGrid;

   StringGrid2: TStringGrid;

   Label1: TLabel;

   Label2: TLabel;

   StringGrid3: TStringGrid;

   Label3: TLabel;

   Button1: TButton;

   Edit1: TEdit;

   StringGrid4: TStringGrid;

   XPManifest1: TXPManifest;

   Label4: TLabel;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

const n=3;

procedure TForm1.Button1Click(Sender: TObject);

var A:array [1..n,1..n] of real;

   B:array [1..n] of real;

   x:array [1..n] of real;

   i,j,k,q,g:Integer;

   m,perv,t,s:real;

begin

 for i:=1 to n do {задание матрицы коэфициентов}

 for j:=1 to n do

 begin

   A[i,j]:=StrToFloat(StringGrid1.Cells[j-1,i-1]);

 end;

 for i:=1 to n do {задание матрицы свободных членов}

 begin

   B[i]:=StrToFloat(StringGrid2.Cells[0,i-1]);

 end;

 for k:=1 to n do

 begin

   perv:=abs(A[k,1]);

   q:=k;

   for i:=k+1 to n do

   If abs(A[i,1])>perv then

   begin

     perv:=abs(A[i,1]);

     q:=i;

   end;

   for j:=1 to n do

   begin

     t:=A[k,j];

     A[k,j]:=A[q,j];

     A[q,j]:=t;

   end;

  t:=B[k];

  B[k]:=B[q];

  B[q]:=t;

  for i:=k+1 to n do

  begin

    m:=A[i,k]/A[k,k];

    for j:=k to n do

    A[i,j]:=A[i,j]-m*A[k,j];

    B[i]:=B[i]-m*B[k];

  end;

 end;

 If A[n,n]=0 then {поиск корней}

 If B[n]=0 then Edit1.Text:='Бесконечно много решений'

 else Edit1.Text:='Решений нет'

 else

 begin

   x[3]:=B[3]/A[3,3];

   for i:=3 downto 1 do

   begin

     s:=0;

     for j:=i+1 to n do

     s:=s+A[i,j]*x[j];

     x[i]:=(b[i]-s)/a[i,i];

     StringGrid3.Cells[0,i-1]:=FloatToStr(x[i]);

   end;

   for i:=1 to n do {вывод треугольной матрицы}

   for j:=1 to n do

   begin

     Stringgrid4.Cells[j-1,i-1]:=FloatToStr(A[i,j]);

   end;

 end;

end;

end.

  1.  Текст программы 2.

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, Grids, XPMan;

type

 Tmy=record

 arg:real;

 func:real;

 end;

 massmy=Array[1..50] of Tmy;

 TForm1 = class(TForm)

   StringGrid1: TStringGrid;

   Button1: TButton;

   Button2: TButton;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   Label4: TLabel;

   Edit3: TEdit;

   Button3: TButton;

   Button4: TButton;

   Button5: TButton;

   Button6: TButton;

   XPManifest1: TXPManifest;

   procedure FormCreate(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure Button5Click(Sender: TObject);

   procedure Button6Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 k:Tmy;

 a:massmy;

 f:file of Tmy;

 kod,n,i:integer;

 Form1: TForm1;

implementation

uses Unit3, Unit2, Unit4;

{$R *.dfm}

procedure sortirov(n:integer;var a:massmy); {процедура сортировки прямого включения}

var i,j:integer;

   x:tmy;

begin

    for i:=2 to n do

      begin

        x:=a[i];

        for j:=i downto 2 do

          if a[j-1].arg>x.arg then

                               begin

                                a[j]:=a[j-1];

                                a[j-1]:=x;

                               end;

      end;

end;

procedure grafik(a:massmy; n:integer);  { процедура построения графика}

var i:integer;

begin

 form3.Series1.Clear;

 for i:=1 to n do

 Form3.Series1.AddXY(a[i].arg,a[i].func,'',clyellow);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 i:=1;

 Button1.Visible:=true;

 assignfile(f,'a.txt');

 StringGrid1.Cells[0,0]:='';

 StringGrid1.Cells[1,0]:='X';

 StringGrid1.Cells[2,0]:='Y';

end;

function schet(x:real):real;  {данная функция}

begin

result:=(exp(3*ln(x)))/10000-10;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 StringGrid1.Visible:=true;

 reset(f);

 i:=1;

 while not(eof(f)) do

 begin

   read(f,a[i]);

   StringGrid1.Cells[0,i]:=inttostr(i);

   StringGrid1.Cells[1,i]:=floattostr(a[i].arg);

   StringGrid1.Cells[2,i]:=floattostr(a[i].func);

   i:=i+1;

   StringGrid1.RowCount:=i+1;

 end;

 closefile(f);

 grafik(a,i-1);

 button2.Visible:=true;

 button3.Visible:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 rewrite(f);

 for i:=1 to stringgrid1.RowCount-2 do

 begin

   a[i].arg:=strtofloat(StringGrid1.Cells[1,i]);

   a[i].func:=strtofloat(StringGrid1.Cells[2,i]);

   write(f,a[i]);

 end;

 closefile(f);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

 Form3.Series1.Clear;

 StringGrid1.RowCount:=2;

 for i:=1 to 50 do

 begin

   a[i].arg:=i;

   a[i].func:=schet(i);

   StringGrid1.Cells[0,i]:=inttostr(i);

   StringGrid1.Cells[1,i]:=floattostr(a[i].arg);

   StringGrid1.Cells[2,i]:=floattostr(a[i].func);

   StringGrid1.RowCount:=StringGrid1.RowCount+1;

 end;

 grafik(a,50);

end;

procedure TForm1.Button4Click(Sender: TObject);

var s:string;

begin

 i:=i+1;

 if i>50 then

         begin

          ShowMessage('Больше не надо!!!');

          exit;

         end;

 n:=i-1;

 s:=Edit1.Text;

 val(s,k.arg,kod);

 if kod<>0 then

            begin

             showmessage('Ошибка-x');

             exit;

            end;

 s:=Edit2.Text;

 val(s,k.func,kod);

 if kod<>0 then

            begin

             showmessage('Ошибка-y');

             exit;

            end;

 a[n]:=k;

 sortirov(n,a);

 StringGrid1.RowCount:=2;

 for i:=1 to n do

 begin

   StringGrid1.Cells[0,i]:=inttostr(i);

   StringGrid1.Cells[1,i]:=floattostr(a[i].arg);

   StringGrid1.Cells[2,i]:=Floattostr(a[i].func);

   StringGrid1.RowCount:=StringGrid1.RowCount+1;

 end;

 grafik(a,n);

 Edit1.Text:='';

 Edit2.Text:='';

end;

procedure TForm1.Button5Click(Sender: TObject);

var j:integer;

begin

 val(edit3.text,n,kod);

 if kod<>0 then

            begin

             showmessage('Ошибка-#');

             exit;

            end;

 for i:=n to StringGrid1.RowCount-1 do

 begin

   for j:=1 to 2 do

   begin

     StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i+1];

   end;

   if i<StringGrid1.RowCount-1 then a[i]:=a[i+1]

                              else

                                 a[i]:=a[i];

 end;

 grafik(a,stringgrid1.RowCount-2);

 StringGrid1.RowCount:=StringGrid1.RowCount-1;

 StringGrid1.Cells[0,StringGrid1.RowCount-1]:='';

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

 Form2.Show;

 Form3.Show;

 Form4.Show;

end;

end.

unit Unit2;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, Grids, XPMan;

type

 Tmy=record

       arg:real;

       func:real;

      end;

 massmy=array [1..50] of tmy;

 TForm2 = class(TForm)

   StringGrid1: TStringGrid;

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   Label4: TLabel;

   Edit3: TEdit;

   Button5: TButton;

   Button4: TButton;

   XPManifest1: TXPManifest;

   procedure FormCreate(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure Button5Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 k:Tmy;

 a:massmy;

 f:file of tmy;

 kod,n,i:integer;

 Form2: TForm2;

implementation

uses Unit1, Unit3, Unit4;

{$R *.dfm}

procedure sortirov(n:integer;var a:massmy);  {ïðîöåäóðà ñîðòèðîâêè ïðÿìîãî âêëþ÷åíèÿ}

var i,s,l,r:integer;

   t:Tmy;

begin

  s:=1;

  l:=1;

  r:=n-1;

  while s<>0 do

    begin

      s:=0;

      for i:=1 to r do

        if a[i].arg>a[i+1].arg then

                                begin

                                 t:=a[i];

                                 a[i]:=a[i+1];

                                 a[i+1]:=t;

                                 s:=i;

                                end;

      r:=s;

      for i:=r downto l do

       if a[i].arg>a[i+1].arg then

                               begin

                                t:=a[i];

                                a[i]:=a[i+1];

                                a[i+1]:=t;

                                s:=i;

                               end;

      l:=s;

    end;

end;

procedure grafik(a:massmy; n:integer); {ïðîöåäóðà ïîñòðîåíèÿ ãðàôèêà}

var i:integer;

begin

 for i:=1 to n do

 Form3.Series2.AddXY(a[i].arg,a[i].func,'',clMaroon);

 Form3.Series2.AddXY(a[i].arg,a[i].func,'',clyellow);

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

 i:=1;

 Button1.Visible:=true;

 assignfile(f,'a1.txt');

 StringGrid1.Cells[0,0]:='¹';

 StringGrid1.Cells[1,0]:='X';

 StringGrid1.Cells[2,0]:='Y';

end;

function schet(x:real):real; {ôóíêöèÿ}

begin

 result:=-(exp(3*ln(x)))/10000+10;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

 StringGrid1.Visible:=true;

 Form3.Show;

 reset(f);

 i:=1;

 while not(eof(f)) do

 begin

   read(f,a[i]);

   StringGrid1.Cells[0,i]:=inttostr(i);

    StringGrid1.Cells[1,i]:=floattostr(a[i].arg);

   StringGrid1.Cells[2,i]:=floattostr(a[i].func);

   i:=i+1;

   StringGrid1.RowCount:=i+1;

 end;

 closefile(f);

 grafik(a,i-1);

 button2.Visible:=true;

 button3.Visible:=true;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

 rewrite(f);

 for i:=1 to stringgrid1.RowCount-2 do

 begin

   a[i].arg:=strtofloat(StringGrid1.Cells[1,i]);

   a[i].func:=strtofloat(StringGrid1.Cells[2,i]);

   write(f,a[i]);

 end;

  closefile(f);

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

 Form3.Series2.Clear;

 StringGrid1.RowCount:=2;

 for i:=1 to 50 do

 begin

   a[i].arg:=i;

   a[i].func:=schet(i);

   StringGrid1.Cells[0,i]:=inttostr(i);

   StringGrid1.Cells[1,i]:=floattostr(a[i].arg);

   StringGrid1.Cells[2,i]:=floattostr(a[i].func);

   StringGrid1.RowCount:=StringGrid1.RowCount+1;

 end;

 grafik(a,50);

end;

procedure TForm2.Button4Click(Sender: TObject);

var s:string;

begin

 i:=i+1;

 if i>50 then

         begin

          ShowMessage('Áîëüøå íå íàäî!!!');

          exit;

         end;

 n:=i-1;

 s:=Edit1.Text;

 val(s,k.arg,kod);

 if kod<>0 then

            begin

             showmessage('Îøèáêà-x');

             exit;

            end;

 s:=Edit2.Text;

 val(s,k.func,kod);

 if kod<>0 then

            begin

             showmessage('Îøèáêà-y');

             exit;

            end;

 a[n]:=k;

 sortirov(n,a);

 StringGrid1.RowCount:=2;

 for i:=1 to n do

 begin

   StringGrid1.Cells[0,i]:=inttostr(i);

   StringGrid1.Cells[1,i]:=floattostr(a[i].arg);

   StringGrid1.Cells[2,i]:=Floattostr(a[i].func);

   StringGrid1.RowCount:=StringGrid1.RowCount+1;

 end;

 grafik(a,n);

 Edit1.Text:='';

 Edit2.Text:='';

end;

procedure TForm2.Button5Click(Sender: TObject);

var j:integer;

begin

 val(edit3.text,n,kod);

 if kod<>0 then

            begin

             showmessage('Îøèáêà-#');

             exit;

            end;

 for i:=n to StringGrid1.RowCount-1 do

 begin

   for j:=1 to 2 do

   begin

    StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i+1];

   end;

   if i<StringGrid1.RowCount-1 then a[i]:=a[i+1]

                              else

                                 a[i]:=a[i];

 end;

 grafik(a,stringgrid1.RowCount-2);

 StringGrid1.RowCount:=StringGrid1.RowCount-1;

 StringGrid1.Cells[0,StringGrid1.RowCount-1]:='';

end;

end.

unit Unit3;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type

 TForm3 = class(TForm)

   Chart1: TChart;

   Series1: TPointSeries;

   Series2: TPointSeries;

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form3: TForm3;

implementation

uses Unit1, Unit2, Unit4;

{$R *.dfm}

end.

unit Unit4;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls;

type

 TForm4 = class(TForm)

   Memo1: TMemo;

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form4: TForm4;

implementation

uses Unit1, Unit2, Unit3;

{$R *.dfm}

end.

  1.  Приложение 2.
    1.  Форма программы 1.

Рис. 10.1. Форма программы 1.

  1.  Форма программы 2.

Рис. 10.2. Форма программы 2.


 

А также другие работы, которые могут Вас заинтересовать

49212. Інструменти податкового регулювання 90.94 KB
  В економічній літературі багато уваги приділяється проблемам оподаткування. Значний внесок у розробку теоретичних та прикладних основ оподаткування внесли Азаров М. Податкове регулювання це заходи впливу на економіку та соціальні процеси через зміну податків податкових ставок податкових пільг зниження чи підвищення загального рівня оподаткування тощо. Хоча податки та механізм оподаткування будуються на певному фундаменті правових відносин однак сторони не скріплюють ці відносини у формі певного договору контракту [3 c.
49213. Авторська розробка дитячого майданчику на тему «Поклик джунглів» 139.54 KB
  У своїй курсовій роботі я буду намагатися створити дитячий ігровий комплекс Поклик джунглів для дітей віком від 6 до 12 років. Врахую всі вимоги до забудови цього комплексу і вікової характеристики дітей. Необхідно на плані виділити умовні території зони для найменших і їх батьків і для дітей які вже гуляють без родичів старші дошкільнята та молодші школярі. Благоустрій територій житловими районами міста дитячими комплексами користується високої популярністю Типи дитячих ігрових майданчиків Дитячі ігрові майданчики повинні...
49214. Виртуальная модель вертолета в среде MatLab 265.65 KB
  Математическое моделирование движителя вертолета. Создание виртуальной модели вертолета в среде VRBuilder. Особенностью моделируемого вертолета является то что используется движитель роль которого выполняет двигатель постоянного тока ДПТ.
49215. Разработка системы управления механизма передвижения тележки (мехатронного объекта) по схеме ТП-ДПТ 11.99 MB
  Целью данного курсового проекта является задача проектирования электромеханической системы (ЭМС) мехатронного модуля подъема мостового крана. Смысловая её реализации заключается в создании универсальных, надёжных и долговечных устройств, которые тем или иным образом помогали бы человеку решать поставленные перед ним задачи
49216. Разработка микропроцессорной системы управления подачей фурмы в конвертере 36.85 KB
  Разработать микропроцессорную систему управления подачей фурмы в конвертере. Разработать цифровое устройство управления подачей фурмы в конвертере. Например система управления положением кислородной фурмы осуществляет измерение и регулирование положения кислородной фурмы в соответствие с уставкой по положению фурмы над уровнем спокойной ванны с автоматической коррекцией на разгар футеровки и выдачей команды на отсечной клапан. Положение фурмы в разные этапы плавки: Первый период – наведение шлака.
49217. Принципы функционирования плазменных телевизоров 904.34 KB
  В развитых странах телевизоры есть практически в каждом доме. Если в доме есть необходимые антенны и уж по крайней мере трудно не согласиться что антенна самый большой и заметный элемент приемной системы телезрители могут принимать несколько десятков каналов предающих массу программ от мыльных опер до фильмов о природе и дискуссий о политических событиях. Некоторые думают что выбирать телевизионный приемник лучше всего по цене то есть если цена большая то и все характеристики в норме. Есть еще телевизоры с разрешением экрана...
49218. Проектирование транзисторных широкодиапазонных передатчиков 348.55 KB
  Задачей курсового расчета является проектирование транзисторного широкодиапазонного радиопередающего устройства обеспечивающего формирование радиосигналов заданном рабочем диапазоне частот и заданную мощность выделяемую на нагрузке в состав которого входят следующие каскады: ОКГ опорный кварцевый генератор являющийся источником высокостабильных колебаний необходимо произвести расчет принципиальной схемы автогенератора с кварцевым резонатором в цепи обратной связи; ССЧ синтезатор сетки частот формирующий из опорной частоты...
49219. Комплексное исследование системы мотивации производственного персонала в Восточно-Сибирской Региональной Дирекции железнодорожных вокзалов, вокзал станции Черемхово 147.36 KB
  Разработка и практическое применение новых мотивационных систем непосредственно на самих предприятиях позволяют привлекать новых высококвалифицированных специалистов, способных на деле управлять как малыми, так и большими коллективами, ориентируясь преимущественно при этом на индивидуальное мотивирование в соответствии с количеством и качеством труда, затраченного индивидом.
49220. Разработать микропроцессорную систему и цифровое устройство управления подачей добавок в ДСП 637.56 KB
  Задание на курсовую работу: Разработать микропроцессорную систему управления подачей добавок в ДСП. Разработать цифровое устройство управления подачей добавок в ДСП. В настоящее время имеется достаточно большое количество вариантов оснащения ДСП различными устройства подачей добавок. При этом стоит задача управления отдельными локальными потоками подачи в печь добавок.