Внутренние (хозрасчётные) цены. Определение всех вершин допустимого многогранника - области возможных изменений внутренних цен. Программная реализация метода в визуальной среде программирования 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]:='Дилер' ;...
После офорления заказа Вам будут доступны содержание, введение, список литературы*
*- если автор дал согласие и выложил это описание.