Geum.ru

Разработка инвестиционного проекта ОАО "Завод по производству труб большого диаметра"

Дипломная работа - Экономика

Другие дипломы по предмету Экономика

а эффективности инвестиционных проектов. Теория и практика. М. Дело, 2001.

  • Недосекин О.А. Нечетко-множественный анализ рисков фондовых инвестиций. СПб.: Сезам, 2003.
  • Моделирование рисковых ситуаций в экономике и бизнесе / Дубров А.М., ЛагошаБ.А., Хрусталев Е.Ю. и др.; Под ред. Б.А.Лагоша; М.: Финансы и статистика, 2001.
  • Лапуста М.Г., Шаршукова Л.Г. Риски в предпринимательской деятельности. М.: Инфра, 1998.
  • Козинцев Т.О. Использование техники динамического моделирования в менеджменте процентных рисков. М.: Диалог-МГУ, 2000.
  • Заде Л. - Понятие лингвистической переменной и ее применение к принятию приближенных решений, М., Мир, 1976.
  • Беллман Р., Заде Л. Принятие решений в расплывчатых условиях // Вопросы анализа и процедуры принятия решения. М.: Мир, 1976.
  • Кофман А. Введение в теорию нечетких множеств. М.: Радио и связь, 1982.
  • Кофман А., Хил Алуха Х. - Введение теории нечетких множеств в управлении предприятиями, Минск, Вышэйшая школа, 1992.
  • Смирнов А.П., Якунин А.Г.. Модель управления операциями участка сталь-прокат в классе нечетких систем // Черная металлургия. 2001. - №3.
  • Прикладные нечеткие системы: пер. с япон. / К.Асаи, Д.Ватада, С.Иваи и др.; под. ред. Т.Тэрано, К.Асаи, М.Сугэно. М.: Мир, 1993.
  • Бабайцев И.В., Варенков А.Н., Потоцкий Е.П. Безопасность жизнедеятельности и экология в дипломной работе. Учебное пособие. М.: мисис, 1997.
  • ГОСТ 12.0.003-74. Опасные и вредные производственные факторы. Классификация. М.: Издательство стандартов, 1975.
  • СНиП 2.01.02-85. Противопожарные нормы. М.: Стройиздат, 1986.
  • НПБ 105-95. Определение категорий помещений и зданий по взрывопожарной и пожарной опасности. М.:МВД РФ. Государственная противопожарная служба, 1995.
  • ГОСТ 12.1.030-81. Электробезопасность. Защитное заземление. Зануление. - М.: Издательство стандартов, 1981.
  • СанПиН 2.2.542-96. Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы. М.: Госкомсанэпиднадзор России, 1996.
  • Учебное пособие по разделам Безопасность жизнедеятельности и Охрана окружающей природной среды в дипломной работе / под ред. проф. Б.С.Мастрюкова М.: мисис, 2000.

    • Приложение Б. Текст программы

    unit datamodul;

    interface

    uses

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

    Dialogs, Grids, StdCtrls, ExtCtrls, ComCtrls, Spin, Menus;

    type

    TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    Panel1: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    SpinEdit1: TSpinEdit;

    Label3: TLabel;

    Edit1: TEdit;

    StringGrid1: TStringGrid;

    Label4: TLabel;

    StringGrid2: TStringGrid;

    Label5: TLabel;

    StringGrid3: TStringGrid;

    CheckBox1: TCheckBox;

    StringGrid4: TStringGrid;

    Label6: TLabel;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    SaveDialog1: TSaveDialog;

    OpenDialog1: TOpenDialog;

    Label7: TLabel;

    Edit2: TEdit;

    N5: TMenuItem;

    N9: TMenuItem;

    GroupBox1: TGroupBox;

    Label8: TLabel;

    Edit3: TEdit;

    Label9: TLabel;

    Edit4: TEdit;

    Button1: TButton;

    procedure FormCreate(Sender: TObject);

    procedure SpinEdit1Change(Sender: TObject);

    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

    procedure StringGrid2KeyPress(Sender: TObject; var Key: Char);

    procedure StringGrid3KeyPress(Sender: TObject; var Key: Char);

    procedure StringGrid4KeyPress(Sender: TObject; var Key: Char);

    procedure CheckBox1Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

    procedure N5Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    private

    { Private declarations }

    public

    { Public declarations }

    end;

    var

    Form1: TForm1;

    i,j,n,nRt : integer; {циклич.пер-е, кол-во ПУП,кол-во ПУП для рассчета Rt}

    Ir,G : real; {соб.кап вложения для Rt, критерий эффективности}

    Ip : array[1..3] of real; {макс. и мин-е значение первонач.кап.вложений}

    RSvar,Rdvar,Vt : array[1..20] of real;{реальное значение Si и di для подсчета Rt, кр.риска}

    dvar : array[1..3,1..20] of real; {безриск.%ставка 1-я строка - мин, 2 - макс.}

    Svar,NPVvar,Rt : array[1..3,1..20] of real; {интервалы ден.потоков 1 строка - мин,2 - сред.зн.,3 - макс,NPV-массив,кр.ликвидности}

    At,Zt,Ct : array[1..2,1..20] of real; {соб,заем средства, кр.покрытия 1- мин, 2- макс}

    mCt,mVt,mRt : array[1..4,1..20] of real; {массивы функций принадлежностей к риску}

    kCt,kVt,kRt,kre : array[1..3] of real; {массивы верхних границ весов для оценки риска, 1- минимальный, 4 - недопустимый}

    implementation

     

    uses Rtmodul, Rezaltmodul, Formirmodul, mmodul, Rulermodul;

    {$R *.dfm}

    procedure TForm1.FormCreate(Sender: TObject);

    begin

    n:=SpinEdit1.Value;

    StringGrid1.ColCount:=n;

    StringGrid2.ColCount:=n;

    StringGrid3.ColCount:=n;

    StringGrid4.ColCount:=n;

    Checkbox1.Checked:=false;

    kCt[1]:=0.25;kCt[2]:=0.5;kCt[3]:=0.75;

    kRt[1]:=0.25;kRt[2]:=0.5;kRt[3]:=0.75;

    kVt[1]:=0.05;kVt[2]:=0.1;kVt[3]:=0.2;

    kre[1]:=0.25;kre[2]:=0.5;kre[3]:=0.75;

    for j:=0 to n-1 do begin

    StringGrid1.Cells[j,0]:=IntToStr(j+1);

    StringGrid2.Cells[j,0]:=IntToStr(j+1);

    StringGrid3.Cells[j,0]:=IntToStr(j+1);

    StringGrid4.Cells[j,0]:=IntToStr(j+1);

    RSvar[j+1]:=0;Rdvar[j+1]:=0;

    end;

    Rtkey:=false; Ir:=0;nRt:=0;

    end;

     

    procedure TForm1.SpinEdit1Change(Sender: TObject);

    begin

    n:=SpinEdit1.Value; CheckBox1.Checked:=false;

    Form4.StringGrid1.ColCount:=n+1; Form4.StringGrid2.ColCount:=n+1; Form2.SpinEdit1.Value:=n;

    Form3.StringGrid1.RowCount:=n+1; Form3.StringGrid2.RowCount:=n+1;

    StringGrid1.ColCount:=n; StringGrid2.ColCount:=n; StringGrid3.ColCount:=n; StringGrid4.ColCount:=n;

    for j:=0 to n-1 do begin

    StringGrid1.Cells[j,0]:=IntToStr(j+1); StringGrid2.Cells[j,0]:=IntToStr(j+1); StringGrid3.Cells[j,0]:=IntToStr(j+1);

    StringGrid4.Cells[j,0]:=IntToStr(j+1);

    Form3.StringGrid1.Cells[0,j+1]:=IntToStr(j+1);Form3.StringGrid2.Cells[0,j+1]:=IntToStr(j+1);