Главная Коллекция "Otherreferats" Экономико-математическое моделирование Уравнение производительности труда рабочего

Уравнение производительности труда рабочего

Построение однофакторного уравнения линейной регрессии зависимости производительности труда рабочего (y) от стажа работы x. Определение коэффициента эластичности. Экономическая интерпретация коэффициента регрессии и коэффициента эластичности труда.

Рубрика Экономико-математическое моделирование
Вид контрольная работа
Язык русский
Дата добавления 21.12.2019
Размер файла 2,9 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

2

Размещено на http://www.allbest.ru/

1

Уравнение производительности труда рабочего

СОДЕРЖАНИЕ

ПОСТАНОВКА ЗАДАЧИ

1.Описание задачи

2.Цель

3.Формализация задачи

РАЗАРАБОТКА МОДЕЛИ

1.Информационная модель

3.Математическая модель

РАЗРАБОТКА АЛГОРИТМА

1.Модель последовательности действий. Алгоритм

ПРОГРАММИРОВАНИЕ

1.Модель последовательности действий. Программа

ТЕСТИРОВАНИЕ И ОТЛАДКА

линейная регрессия эластичность производительность

ПОСТАНОВКА ЗАДАЧИ

1.Описание задачи

Построить однофакторное уравнение линейной регрессии зависимости производительности труда рабочего (y) от стажа работы x. Найти коэффициент эластичности (Э). Дать экономическую интерпретацию коэффициенту регрессии и коэффициенту эластичности Э. Сравнить расчетные значения ( с заданными (у).

2.Цель

Создать свою программу для расчета задачи.

3.Формализация задачи

Правила игры опишем в упрощенном виде.

Уточняющий вопрос

Ответ

Что моделируется?

Система объектов: числа, связанные между собой таблицей.

Как задаются значения?

Задается с клавиатуры пользователем в матрицу.

Что происходит после заполнения полей пользователем?

Расчет и вывод полученного результата на экран.

РАЗАРАБОТКА МОДЕЛИ

1.Информационная модель

Объект Моделирования

Параметры

реального объекта

Для среды программирования

Название

значение

Имя/

Значение

Переменная/

константа

Тип

Система: слово и буква

X1-X10

Ввод с клавиатуры

x1-x10

Переменная

Дробное число

Y1-Y10

Ввод с клавиатуры

y1-y10

Переменная

Дробное число

D1-D10

Результат расчета

d1-d10

Переменная

Дробное число

A1

Результат расчета

a1

Переменная

Дробное число

E

Результат

расчета

e

Переменная

Дробное число

Поле для ввода и вывода информации

Ввод с клавиатуры и результат

расчета

StringGrid1

Компонент

Дробное число

Пояснение

Ввод с клавиатуры

Label1

Компонент

Строка

Пояснение

Ввод с клавиатуры

Label2

Компонент

Строка

Пояснение

Ввод с клавиатуры

Label3

Компонент

Строка

Пояснение

Ввод с клавиатуры

Label4

Компонент

Строка

Пояснение

Ввод с клавиатуры

Label5

Компонент

Строка

Кнопка

Вычисления

Button1

Компонент

Кнопка

Выхода

BitBtn1

Компонент

3.Математическая модель

Введены числа пользователем. Необходимо вычислить коэффициент регрессии и коэффициент эластичности.

Обозначим неизвестные величины:

- Стаж работы х, года;

- Дневная выработка рабочего у, шт.;

-

a1 - коэффициент регрессии;

е - коэффициент эластичности.

10+55=72; 55+385=448.

Умножим первое уравнение на -5,5 и прибавим его ко второму для того, чтобы исключить переменную

Получим:

(-5,5*10+55)+(5,5*55+385)=-5,5*72+448; 82,5=52; =0,63.

Поставим полученное значение в первое уравнение:

10+55*0,63=72; =3,735.

Коэффициент регрессии показывает, что при увеличении стажа работы на год, дневная выручка рабочего увеличивается на 0.63 шт. в день.

Вычислим коэффициент эластичности

==.

Коэффициент эластичности показывает, что дневная выработка изменилась на 0.48% при увеличении на 1%.

РАЗРАБОТКА АЛГОРИТМА

1.Модель последовательности действий. Алгоритм

1. Ввести значения таблицу;

2. Нажать кнопку “Вычислить”;

3. Выполнить требуемый расчет:

Сумма x=x1+x2+x3+x4+x5+x6+x7+x8+x9+x10;

Сумма y=y1+y2+y3+y4+y5+y6+y7+y8+y9+y10;

=x1*x1; … =x10*x10;

Сумма =+ + + + + + + + ;

=y1*y1; … =y10*y10;

Сумма =+ + + + + + + + ;

E= a1;

4. Вывод полученного результата в StringGrid1.

5. Вывод а1 в Label4;

6. Вывод е в Label5.

ПРОГРАММИРОВАНИЕ

1.Модель последовательности действий. Программа

unit Unit1; interface uses

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

Dialogs, StdCtrls, Buttons, Grids;

Type TForm1 = class(TForm) StringGrid1: TStringGrid; BitBtn1: TBitBtn;

Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel;

Label4: TLabel; Label5: TLabel; procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

var x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,

d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,a1,e: real;

Form1: TForm1; implementation {$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject); begin Close(); end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='№ п/п';

StringGrid1.Cells[1,0]:='Стаж работы х, годы.';

StringGrid1.Cells[2,0]:='Дневная выработка рабочего у, шт.'; end;

procedure TForm1.Button1Click(Sender: TObject);begin

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

StringGrid1.Cells[3,0]:='X^2'; StringGrid1.Cells[4,0]:='XY';

StringGrid1.Cells[5,0]:='(Yx)'; StringGrid1.Cells[6,0]:='(дельта = Y-(Yx)';

StringGrid1.Cells[7,0]:='Y^2'; x1:=StrToFloat(StringGrid1.Cells[1,1]);

x2:=StrToFloat(StringGrid1.Cells[1,2]);x3:=StrToFloat(StringGrid1.Cells[1,3]);

x4:=StrToFloat(StringGrid1.Cells[1,4]);x5:=StrToFloat(StringGrid1.Cells[1,5]);

x6:=StrToFloat(StringGrid1.Cells[1,6]);x7:=StrToFloat(StringGrid1.Cells[1,7]);

x8:=StrToFloat(StringGrid1.Cells[1,8]);x9:=StrToFloat(StringGrid1.Cells[1,9]);

x10:=StrToFloat(StringGrid1.Cells[1,10]);StringGrid1.Cells[0,11]:='Итого:';

StringGrid1.Cells[1,11]:=FloatToStr(x1+x2+x3+x4+x5+x6+x7+x8+x9+x10);

y1:=StrToFloat(StringGrid1.Cells[2,1]);y2:=StrToFloat(StringGrid1.Cells[2,2]);

y3:=StrToFloat(StringGrid1.Cells[2,3]);y4:=StrToFloat(StringGrid1.Cells[2,4]);

y5:=StrToFloat(StringGrid1.Cells[2,5]);y6:=StrToFloat(StringGrid1.Cells[2,6]);

y7:=StrToFloat(StringGrid1.Cells[2,7]);y8:=StrToFloat(StringGrid1.Cells[2,8]);

y9:=StrToFloat(StringGrid1.Cells[2,9]);

y10:=StrToFloat(StringGrid1.Cells[2,10]);

StringGrid1.Cells[2,11]:=FloatToStr(y1+y2+y3+y4+y5+y6+y7+y8+y9+y10);

StringGrid1.Cells[3,1]:=FloatToStr(x1*x1);

StringGrid1.Cells[3,2]:=FloatToStr(x2*x2);

StringGrid1.Cells[3,3]:=FloatToStr(x3*x3);

StringGrid1.Cells[3,4]:=FloatToStr(x4*x4);

StringGrid1.Cells[3,5]:=FloatToStr(x5*x5);

StringGrid1.Cells[3,6]:=FloatToStr(x6*x6);

StringGrid1.Cells[3,7]:=FloatToStr(x7*x7);

StringGrid1.Cells[3,8]:=FloatToStr(x8*x8);

StringGrid1.Cells[3,9]:=FloatToStr(x9*x9);

StringGrid1.Cells[3,10]:=FloatToStr(x10*x10);

StringGrid1.Cells[3,11]:=FloatToStr(x1*x1+x2*x2+x3*x3+x4*x4+x5*x5+x6*x6+x7*x7+x8*x8+x9*x9+x10*x10);

StringGrid1.Cells[4,1]:=FloatToStr(x1*y1);

StringGrid1.Cells[4,2]:=FloatToStr(x2*y2);

StringGrid1.Cells[4,3]:=FloatToStr(x3*y3);

StringGrid1.Cells[4,4]:=FloatToStr(x4*y4);

StringGrid1.Cells[4,5]:=FloatToStr(x5*y5);

StringGrid1.Cells[4,6]:=FloatToStr(x6*y6);

StringGrid1.Cells[4,7]:=FloatToStr(x7*y7);

StringGrid1.Cells[4,8]:=FloatToStr(x8*y8);

StringGrid1.Cells[4,9]:=FloatToStr(x9*y9);

StringGrid1.Cells[4,10]:=FloatToStr(x10*y10);

StringGrid1.Cells[1,11]:=FloatToStr(x1*y1+x2*y2+x3*y3+x4*y4+x5*y5+x6*y6+x7*y7+x8*y8+x9*y9+x10*y10);

StringGrid1.Cells[5,1]:='4,365'; d1:=4.365;

StringGrid1.Cells[5,2]:='4,995'; d2:=4.995;

StringGrid1.Cells[5,3]:='5,625'; d3:=5.625;

StringGrid1.Cells[5,4]:='6,255'; d4:=6.255;

StringGrid1.Cells[5,5]:='6,885'; d5:=6.885;

StringGrid1.Cells[5,6]:='7,515'; d6:=7.515;

StringGrid1.Cells[5,7]:='8,145'; d7:=8.145;

StringGrid1.Cells[5,8]:='8,775'; d8:=8.775;

StringGrid1.Cells[5,9]:='9,405'; d9:=9.405;

StringGrid1.Cells[5,10]:='10,035'; d10:=10.035;

StringGrid1.Cells[6,1]:=FloatToStr(y1-d1);

StringGrid1.Cells[6,2]:=FloatToStr(y2-d2);

StringGrid1.Cells[6,3]:=FloatToStr(y3-d3);

StringGrid1.Cells[6,4]:=FloatToStr(y4-d4);

StringGrid1.Cells[6,5]:=FloatToStr(y5-d5);

StringGrid1.Cells[6,6]:=FloatToStr(y6-d6);

StringGrid1.Cells[6,7]:=FloatToStr(y7-d7);

StringGrid1.Cells[6,8]:=FloatToStr(y8-d8);

StringGrid1.Cells[6,9]:=FloatToStr(y9-d9);

StringGrid1.Cells[6,10]:=FloatToStr(y10-d10);

StringGrid1.Cells[7,1]:=FloatToStr(y1*y1);

StringGrid1.Cells[7,2]:=FloatToStr(y2*y2);

StringGrid1.Cells[7,3]:=FloatToStr(y3*y3);

StringGrid1.Cells[7,4]:=FloatToStr(y4*y4);

StringGrid1.Cells[7,5]:=FloatToStr(y5*y5);

StringGrid1.Cells[7,6]:=FloatToStr(y6*y6);

StringGrid1.Cells[7,7]:=FloatToStr(y7*y7);

StringGrid1.Cells[7,8]:=FloatToStr(y8*y8);

StringGrid1.Cells[7,9]:=FloatToStr(y9*y9);

StringGrid1.Cells[7,10]:=FloatToStr(y10*y10);

StringGrid1.Cells[7,10]:=FloatToStr(y1*y1+y2*y2+y3*y3+y4*y4+y5*y5+y6*y6+y7*y7+y8*y8+y9*y9+y10*y10); a1:=0.63;

e:=a1*((x1+x2+x3+x4+x5+x6+x7+x8+x9+x10)/10)/((y1+y2+y3+y4+y5+y6+y7+y8+y9+y10)/10);

Label1.Visible:=False;

Label2.Caption:=('Коэффициент эластичности: ');

Label3.Caption:=('Коэффициент регрессии: ');

StringGrid1.Width:=829;

StringGrid1.Height:=309;

Label4.Caption:=FloatToStr(e);

Label5.Caption:=FloatToStr(a1,); end; end.

ТЕСТИРОВАНИЕ И ОТЛАДКА

Ввод пользователем значения.

Вывод полученного результата.

Тестирование.

Размещено на Allbest.ru


Подобные документы

  • Расчет коэффициента эластичности и показателей корреляции и детерминации

    Построение поля корреляции, расчет уравнений линейной парной регрессии, на основе данных о заработной плате и потребительских расходах в расчете на душу населения. Анализ коэффициента эластичности, имея уравнение регрессии себестоимости единицы продукции.

    контрольная работа [817,3 K], добавлен 01.04.2010

  • Экономическая интерпретация коэффициента регрессии

    Параметры уравнения линейной регрессии. Вычисление остаточной суммы квадратов, оценка дисперсии остатков. Осуществление проверки значимости параметров уравнения регрессии с помощью критерия Стьюдента. Расчет коэффициентов детерминации и эластичности.

    контрольная работа [248,4 K], добавлен 26.12.2010

  • Методы решения уравнений линейной регрессии

    Определение параметров уравнения линейной регрессии. Экономическая интерпретация коэффициента регрессии. Вычисление остатков, расчет остаточной суммы квадратов. Оценка дисперсии остатков и построение графика остатков. Проверка выполнения предпосылок МНК.

    контрольная работа [1,4 M], добавлен 25.06.2010

  • Уравнение линейной регрессии

    Расчет параметров уравнения линейной регрессии, экономическая интерпретация ее коэффициента. Проверка равенства математического ожидания уровней ряда остатков нулю. Построение степенной модели парной регрессии. Вариация объема выпуска продукции.

    контрольная работа [771,6 K], добавлен 28.04.2016

  • Эконометрика

    Построение доверительного интервала для коэффициента регрессии. Определение ошибки аппроксимации, индекса корреляции и F-критерия Фишера. Оценка эластичности изменения материалоемкости продукции. Построение линейного уравнения множественной регрессии.

    контрольная работа [250,5 K], добавлен 11.04.2015

  • Построение двухфакторной модели, моделей парной линейной прогрессии и множественной линейной регрессии

    Выбор факторных признаков для двухфакторной модели с помощью корреляционного анализа. Расчет коэффициентов регрессии, корреляции и эластичности. Построение модели линейной регрессии производительности труда от факторов фондо- и энерговооруженности.

    задача [142,0 K], добавлен 20.03.2010

  • Регрессивный анализ

    Нахождение коэффициента корреляции и параметров линии регрессии по заданным показателям y и х. Оценка адекватности принятой модели по критерию Фишера. Построение графика линии регрессии и ее доверительной зоны, а также коэффициента эластичности.

    контрольная работа [2,1 M], добавлен 09.07.2014

  • Расчет и анализ экономических показателей путем построения уравнения парной линейной регрессии

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

    контрольная работа [226,6 K], добавлен 11.08.2015

  • Уравнения регрессии

    Основные параметры уравнения регрессии, оценка их параметров и значимость. Интервальная оценка для коэффициента корреляции. Анализ точности определения оценок коэффициентов регрессии. Показатели качества уравнения регрессии, прогнозирование данных.

    контрольная работа [222,5 K], добавлен 08.05.2014

  • Уравнения линейной регрессии

    Нахождение уравнения линейной регрессии, парного коэффициента корреляции. Вычисление точечных оценок для математического ожидания, дисперсии, среднеквадратического отклонения показателей x и y. Построение точечного прогноза для случая расходов на рекламу.

    контрольная работа [216,6 K], добавлен 12.05.2010

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены