*
*


CAPTCHA Image   Reload Image
X

Внутренние (хозрасчётные) цены. Определение всех вершин допустимого многогранника - области возможных изменений внутренних цен. Программная реализация метода в визуальной среде программирования Delphi.

курсовые работы, Математические методы экономики

Объем работы:

Год сдачи: 2009

Стоимость: 1000 руб.

Просмотров: 622

 

Не подходит работа?
Узнай цену на написание.

Введение
Заключение
Заказать работу
Максимизация общей равной собственной нормы прибыли.

(реализация метода в визуальной среде программирования Delphi)

Рассмотрим n предприятий, связанных между собой линейной технологией производства конечной продукции. Пусть собственные затраты i-того участника равны Сi , а стоимость покупаемых на стороне компонент С0i .

Схема взаимодействия участников:




Потребуем равенства и максимизации нормы прибыли не по полным затратам Si, а по собственным затратам Сi .

Обозначим через δi «собственную рентабельность» i-того предприятия-участника:



Тогда получаем:

При Pi >A (предприятие в целом рентабельно) выравнивание « собственной рентабельности возможно», причём δ=δmax не зависит от выбора внутренних цен.

Возможны два способа :

1) цены основных участников договора Pi (кроме последнего предприятия) формируются по себестоимости, т.е. Pi =Si Δi>0 (кроме последнего предприятия)

2) «добавки » Δi (i=1,…,n) равняются нулю.

В первом случае собственные прибыли участников равны нулю, а «дележи» определяются выравниванием δ=δi.

Во втором способе выравнивание δ=δi происходит только за счёт назначения внутренних цен:



Внутренние цены при этом не влияют ни на «собственную рентабельность», ни на величину прибыли .

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



Для случая n=3 область выглядит так:





Комментарии к программе.

Работа с программой начинается с установления следующих параметров системы предприятий:

1.Количество предприятий-участников
код программы:

unit olimp_;

interface

uses

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

Grids, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Tabl: TStringGrid;

Button2: TButton;

PaintBox1: TPaintBox;

Label2: TLabel;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

Label3: TLabel;

Label4: TLabel;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Button3: TButton;

Panel4: TPanel;

Label5: TLabel;

Button4: TButton;

Edit2: TEdit;

Panel5: TPanel;

Label6: TLabel;

StringGrid1: TStringGrid;

Button5: TButton;

Edit3: TEdit;

Label7: TLabel;

procedure FormActivate(Sender: TObject);



procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

Cnumber:integer;

minX,minY,maxX,maxY:real;

Procedure perevod (x,y: Real; var xRes, yRes: Integer);

procedure print(x1: Real; y1: Real; x2: Real; y2: Real);

procedure max(S: array of real;k:integer;var max: Real);

end;



var

Form1: TForm1;

Cnumber:integer;

implementation



{$R *.DFM}





procedure TForm1.FormActivate(Sender: TObject);

begin

Cnumber:=StrToInt(edit1.text);

tabl.Cells[0,0]:='№Предприятия';

tabl.Cells[1,0]:='Внешн.затраты';

tabl.Cells[2,0]:='Собств.затраты';

tabl.Cells[3,0]:='Внутр.Цена';

tabl.Cells[4,0]:='Затраты';

tabl.Cells[5,0]:='Прибыль';

tabl.Cells[6,0]:='Добавка';

tabl.Cells[7,0]:='Сбал.прибыль';

tabl.Cells[8,0]:='Норма собств.прибыли дельта';

tabl.Cells[9,0]:='Норма прибыли ро';

tabl.Cells[0,1]:='Конструкторское бюро';

tabl.Cells[0,2]:='Завод';

Tabl.Cells[0,3]:='Дилер' ;...

После офорления заказа Вам будут доступны содержание, введение, список литературы*
*- если автор дал согласие и выложил это описание.

Работу высылаем в течении суток после поступления денег на счет
ФИО*


E-mail для получения работы *


Телефон


ICQ


Дополнительная информация, вопросы, комментарии:



CAPTCHA Image
Сусловиямиприбретения работы согласен.

 
Добавить страницу в закладки
Отправить ссылку другу