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

Методы экономического анализа находят свое практическое отображение в конкретных приемах или инструментах. Среди них можно выделить традиционные приемы, которые широко применяются и в других дисциплинах для обработки и изучения информации, и нетрадиционные (специальные) приемы экономического анализа.

К традиционным приемам относятся:

сравнение (сопоставление изучаемых данных и фактов хозяйственной жизни);

относительные (проценты, удельные веса, коэффициенты, индексы) и средние статистические величины;

способ группировки (используется для исследования зависимости в сложных явлениях, характеристика которых отражается однородными показателями и разными значениями);

балансовый метод (соизмерение двух комплексов показателей, стремящихся к определенному равновесию);

графический способ (построение масштабных изображений показателей и их зависимости с помощью геометрических фигур).

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

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

способ абсолютных разниц (изменение результативного признака определяется как произведение отклонения изучаемого фактора на базисное или отчетное значение другого фактора);

процентных, или относительных, разниц (применяется для измерения влияния факторов на прирост результативного показателя);

сокращенных подстановок (используются подстановки промежуточных произведений факторов);

метод выявления изолированного влияния факторов (основан на вычитании результирующего признака при единственном изменяющемся факторе);

интегральный метод (основан на логарифмическом законе перераспределения факторных нагрузок).

 

 

5 Описание программы

 

Для откорма кроликов используется 5 видов кормов Kl, К2, КЗ, К4 и К5, в которые входят питательные вещества В1, В2, ВЗ и В4. Содержание количеств единиц питательных веществ в одном килограмме каждого корма, стоимость одного килограмма корма и норма содержания питательных веществ в дневном рационе животного представлены в таблице. Составьте рацион при условии минимальной стоимости

 

5.1 Блок схема

 

 

 

5.2 Текст программы

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics,

  Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, jpeg;

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    StringGrid1: TStringGrid;

    StringGrid2: TStringGrid;

    Label1: TLabel;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(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

  Form1: TForm1;

 

implementation

 

uses Unit2, Unit3;

 

{$R *.dfm}

 

const maxn = 5;

Var

    prices: array[1 .. maxn] of extended;

    cen: array[1 .. maxn] of extended;

    ws:array[1..4]of integer;

    prs:array[1..5]of real;

    cp:array[1..5]of real;

procedure TForm1.Button1Click(Sender: TObject);

var i,ii:integer;

    mn:real;

    mni:integer;

begin

FillChar(prs, sizeof(prs),0);

for ii := 1 to 5 do for I := 1 to 4 do StringGrid2.Cells[ii,i]:='0';

for I := 1 to 4 do

  TryStrToInt(StringGrid1.Cells[6,i], ws[i]);

for I := 1 to 5 do

  TryStrToFloat(StringGrid1.Cells[i,5], prices[i]);

 

for ii:=1 to 4 do

begin

  for I := 1 to 5 do

    begin

      TryStrToFloat(StringGrid1.Cells[i,ii], cen[i]);

      cp[i]:=cen[i]/prices[i];

    end;

  mn:=cp[1];mni:=1;

  for I := 2 to 5 do

    if mn<cp[i] then

      begin

        mn:=cp[i];

        mni:=i;

      end;

StringGrid2.Cells[mni,ii] := format('%f кг.', [ws[ii]/cen[mni]]);

prs[mni] := prs[mni] + ws[ii]/cen[mni]*prices[mni];

StringGrid2.Cells[6,ii] := FloatToStr(ws[ii]{/cen[mni]*cen[mni]});

end;

for I := 1 to 5 do

    StringGrid2.Cells[i,5] := format('%f р.', [prs[i]]);

Label1.Caption :='Итого: ' + format('%f р.',[prs[1]+prs[2]+prs[3]+prs[4]+prs[5]]);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  FormCreate(self);

//  Button1Click(self);

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

  Close;

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

form2.show;

end;

 

procedure TForm1.Button5Click(Sender: TObject);

begin

form3.show;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

var i,ii:integer;

begin

  for I := 1 to 6 do

    for ii := 1 to 5 do

      StringGrid2.Cells[i,ii] :='';

  Label1.Caption :='';

 

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

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

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

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

  StringGrid1.Cells[0,5] :='Стоимость';

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

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

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

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

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

  StringGrid1.Cells[6,0] :='Норма';

 

  StringGrid1.Cells[1,1] :='3';

  StringGrid1.Cells[2,1] :='4';

  StringGrid1.Cells[3,1] :='2';

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

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

  StringGrid1.Cells[6,1] :='42';

 

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

  StringGrid1.Cells[2,2] :='3';

  StringGrid1.Cells[3,2] :='6';

  StringGrid1.Cells[4,2] :='7';

  StringGrid1.Cells[5,2] :='6';

  StringGrid1.Cells[6,2] :='32';

 

  StringGrid1.Cells[1,3] :='3';

  StringGrid1.Cells[2,3] :='4';

  StringGrid1.Cells[3,3] :='2';

  StringGrid1.Cells[4,3] :='3';

  StringGrid1.Cells[5,3] :='2';

  StringGrid1.Cells[6,3] :='26';

 

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

  StringGrid1.Cells[2,4] :='1';

  StringGrid1.Cells[3,4] :='8';

  StringGrid1.Cells[4,4] :='5';

  StringGrid1.Cells[5,4] :='7';

  StringGrid1.Cells[6,4] :='47';

 

  StringGrid1.Cells[1,5] :='32';

  StringGrid1.Cells[2,5] :='23';

  StringGrid1.Cells[3,5] :='42';

  StringGrid1.Cells[4,5] :='14';

  StringGrid1.Cells[5,5] :='37';

 

  StringGrid2.Cells[0,1] :='B1';

  StringGrid2.Cells[0,2] :='B2';

  StringGrid2.Cells[0,3] :='B3';

  StringGrid2.Cells[0,4] :='B4';

  StringGrid2.Cells[0,5] :='Стоимость';

  StringGrid2.Cells[1,0] :='K1';

  StringGrid2.Cells[2,0] :='K2';

  StringGrid2.Cells[3,0] :='K3';

  StringGrid2.Cells[4,0] :='K4';

  StringGrid2.Cells[5,0] :='K5';

  StringGrid2.Cells[6,0] :='Норма';

end;

end.

 

5.3 Работа с  программой

 

На главном окне программы расположены:

1. поле StringGrid1 предназначено для ввода данных;
2. поле StringGrid2 отображает рацион и его стоимость;

 

 

Рисунок 1 - Поля StringGrid1 и StringGrid2

 

3. пять кнопок для работы с программой

 

 

Рисунок 2 - Кнопки для работы с программой

 

Каждая кнопка выполняет определенное действие:

1. кнопка «Рассчитать производит расчет значений;
2. кнопка «Сброс» очищает поле StringGrid 2;
3. кнопка «Разработчик» открывает окно с данными о разработчике программы;
4. кнопка «Задание» открывает окно с заданием программы;
5. кнопка «Выход» производит выход из программы.

 

Рисунок 3 –  Окно с данными о разработчике

 

Рисунок 4 –  Окно с заданием

 

5.4 Результат работы  с программой

 

При нажатии кнопки «Рассчитать» программа вычисляет минимальную стоимость.

 

 

Рисунок 5 – Результат работы с программой

 

Заключение

 

 

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

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

Теория математического анализа  моделей развилась в особую ветвь  современной математики - математическую экономику. Модели, изучаемые в рамках математической экономики, теряют непосредственную связь с экономической реальностью; они имеют дело с исключительно идеализированными экономическими объектами и ситуациями. При построении таких моделей главным принципом является не столько приближение к реальности, сколько получение возможно большего числа аналитических результатов посредством математических доказательств. Ценность этих моделей для экономической теории и практики состоит в том, что они служат теоретической базой для моделей прикладного типа.

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

 

Список использованных источников

 

 

1 Четвергов  К.В. Информатика. Часть 3. Учебное  пособие для студентов специальности "Промышленная электроника" дистанционной формы обучения. - Томск: ТУСУР, 1998.-55с.                     

2 Могилев А.В., Пак Н.И., Хеннер Е.К. «Информатика» Москва.  «Академия» 2001 г.          

3 Муравьев  А.И. Информатика. Часть 1. Конспект  лекций. Для студентов специальности "Промышленная электроника" заочной формы обучения.- Томск, Ротапринт ТУСУР, 1997.      

4 Муравьев  А.И. Информатика. Часть 2. Конспект лекций. Для студентов специальности "Промышленная электроника" заочной формы обучения.- Томск, Ротапринт ТУСУР, 1997. 

5  Шахмаев Н.М. Физика-10. – М.: Просвещение, 1992, § 50, 51.

6 Чандаев С.А. Физика и человек. – М.: АО Аспект-Пресс, 1994