Производственная функция Кобба-Дугласа

     где 

.

     При малом объеме выборки используется скорректированный коэффициент  множественной детерминации

     

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

                                       Блок-схема 

        
 

        

        
 
 

      

      

                                   

                                     

        

        

                                                                               производится

        

        

                                                                                 вычисление 

        

        

        

 

 
 

 

 
 

Листинг программы 

unit Unit1; 

interface 

uses

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

  Dialogs, StdCtrls; 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    Edit3: TEdit;

    Label4: TLabel;

    Label5: TLabel;

    Edit4: TEdit;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Edit5: TEdit;

    Edit6: TEdit;

    Button1: TButton;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c,d,k,l,y1,y2,p,p1,p2: real;

begin

memo1.Clear;

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

c:=strtofloat(edit3.Text);

d:=strtofloat(edit4.Text);

k:=strtofloat(edit5.Text);

l:=strtofloat(edit6.Text); 

y1:=a/(d*2);

y2:=a/(l*2);

p:=a+(b/(y1+y2));

p1:=p*y1-(c+(d*y1*y1));

p2:=p*y2-(k+(l*y2*y2));

memo1.SelText:=('y1*='+floattostr(y1));

memo1.Lines.Add('y2*='+floattostr(y2));

memo1.Lines.Add('y*='+floattostr(y1+y2));

memo1.Lines.Add('p*='+floattostr(p));

memo1.Lines.Add('П1*='+floattostr(p1));

memo1.Lines.Add('П2*='+floattostr(p2)); 

end; 

procedure TForm1.FormCreate(Sender: TObject);

begin

memo1.Clear;

end; 

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Заключение 

  Теперь можно сделать вывод:

   Поставленные цели и задачи  в данной курсовой работе  были  достигнуты. Дано описание производственной функции Кобба-Дугласа. Рассмотрены Закон убывающей отдачи, Эффект Масштаба и Эластичность функции. А так же проведён экономический анализ.Написана работоспособная программа в среде разработки Delphi , которая находит оптимум решения фирмы в условиях совершенной конкуренции. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

      1.Ашманов  С.А. Введение в математическую  экономику. –      М.:Наука,1984

      2. Замков О. О., Толстопятенко А. В., Черемных Ю. Н.     Математические методы в экономике: Учебник .2-е изд./Московский государственный университет. - М.: ДИС, 1999.

      3.Интернет  ресурс-http://ru.wikipedia.org/wiki/Функция_Кобба-Дугласа

      4.Интернет ресурс- http://abc.vvsu.ru/Books/mat_ekonom/page0001.asp

      5.      Доугерти К. Введение в эконометрику: Пер. с англ. – М.: Инфра-    М, 2001.

      6.      Кремер Н.Ш., Путко Б.А. Эконометрика: Учебник для вузов / Под ред.

      проф. Н.Ш. Кремера. – М.: Юнити-Дана, 2003.

      7.      Ресурс Интернет – http://allmath.ru/appliedmath/micro/labs/micro-

      labs1.htm.

      8.      Ресурс Интернет – http://nit.miem.edu.ru/cgi-bin/article?id=122.

      9.      Фурманн В., Султанов А. Общеэкономический рынок труда (Der

      gesamtwirtschaftliche Arbeitsmarkt) – ресурс Интернет http://ek-

      lit.agava.ru/mul/mul003.htm.