43197

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

Курсовая

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

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

Русский

2017-10-05

723 KB

48 чел.

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

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

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

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

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

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

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

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

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

Группа      ПИЭ-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.


 

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

28161. Специфика деятельности оператора и тенденции развития современного производства. Основные этапы деятельности оператора 36 KB
  Специфика деятельности оператора и тенденции развития современного производства. Основные этапы деятельности оператора. Специфику деятельности оператора определяют: 1 тенденции развития современной техники 2 режим работы 1 Выделяют следующие особенности труда операторов в современных условиях: 1 С развитием техники увеличивается число объектов параметров которыми надо управлять. Поэтому деятельность оператора характеризуется нервнопсихической напряженностью.
28162. Основные направления и этапы развития человека как субъекта труда. (Е.А. Климов) 209 KB
  Развитие в период выбора профессии проектирования профессионального старта и жизненного пути 4. Приблизительность связана с тем что некоторые дети уже с 15 лет приступают к профессиональному обучению переходят на основе неполного общего образования в систему среднего специального профтехнического профессионального образования а некоторые делают это после окончания полной средней школы; впрочем в последнем случае учебная деятельность уже в старших классах приобретает смысл подготовки к будущей профессии и становится своего рода...
28163. Профессиональные деформации 32 KB
  Многолетнее выполнение любой профессиональной деятельности приводит к образованию деформаций личности снижающих продуктивность осуществления трудовых функций а иногда и затрудняющих этот процесс. Все многообразие факторов детерминирующих профессиональные деструкции можно разделить на три группы: объективные связанные с социальнопрофессиональной средой: социальноэкономической ситуацией имиджем и характером профессии профессиональнопространственной средой; субъективные обусловленные особенностями личности и характером профессиональных...
28165. Корпускулярно-волновой дуализм. Гипотеза Луи де-Бройля. Опыты по дифракции микрочастиц и их интерпретация 109 KB
  Гипотеза Луи деБройля. Такие волны получили название фазовых волн волн вещества или волн де Бройля. Так как частица и волна де Бройля являются различными аспектами одного и того же физического объекта то между ними должна существовать однозначная связь; релятивистски инвариантным соотношением между 4векторами характеризующими частицу и соответствующую ей волну де Бройля является формула 2 или ; . 3 Выражения 3...
28166. ПОНЯТИЕ КВАНТОВОГО СОСТОЯНИЯ ВОЛНОВАЯ ФУНКЦИЯ. СООТНОШЕНИЕ НЕОПРЕДЕЛЕННОСТИ 100.5 KB
  Так функцией состояния свободной частицы является плоская монохроматическая волна де Бройля . 1 Для частицы подверженной внешнему воздействию например для электрона в поле ядра это волновое поле может иметь весьма сложный вид. Волновая функция зависит от параметров микрочастицы и от тех физических условий в которых частица находится. Согласно статистической интерпретации волн де Бройля вероятность локализации частицы определяется интенсивностью волны де Бройля так что...
28167. УРАВНЕНИЕ ШРЁДИНГЕРА. ПРЯМОУГОЛЬНАЯ ПОТЕНЦИАЛЬНАЯ ЯМА. ГАРМОНИЧЕСКИЙ ОСЦИЛЛЯТОР. ТУННЕЛЬНЫЙ ЭФФЕКТ 216 KB
  Решением стационарного УШ является функция состояния частицы . Потенциальная яма это область пространства в которой потенциальная энергия частицы меньше чем за ее пределами. Рассмотрим решение стационарного УШ для частицы находящейся в бесконечно глубокой одномерной потенциальной яме. Найдем функции состояния и значения энергии отвечающие возможным состояниям частицы в этом потенциальном поле.
28168. Магнитные свойства атомов. Опыты Штерна и Герлаха. Спин электрона. Спектроскопические проявления спина электрона 145 KB
  Спин электрона. Спектроскопические проявления спина электрона Природа магнетизма явления известного еще с начала XIX века была понята только после создания квантовой механики. Орбитальное движение электрона движение относительно ядра атома характеризуется магнитным моментом . 1 Здесь ‒ гиромагнитное отношение 2 где m масса электрона е модуль заряда электрона момент импульса электрона модуль которого квантуется по правилу .