- риск недостижения заданных параметров проекта;

- конструкционный риск;

- производственные риски;

- управленческие риски;

- маркетинговый риск;

- финансовые риски;

- административные риски;

- региональные (страновые) риски;

- юридические риски;

- риски форс-мажорных обстоятельств;

- риски утраты обеспечения.

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

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

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

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

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

Выделяют следующие виды производственных рисков: технический, риск поставщиков, транспортный, геологический, экологический. Производственные риски присутствуют на производственной фазе проекта и могут выражаться в увеличении текущих затрат, невыходе на проектную мощность, нарушение ритмичности производства, остановке производства, снижению качества продукции. Риск может выражаться также в необходимости осуществления чрезвычайных затрат, например, на устранение последствий нанесения ущерба окружающей среде. Большая часть производственных рисков может быть оценена только качественно (экспертная оценка вероятности). Для минимизации риска следует избегать использования неапробированных технологий; отбирать надежных поставщиков; прорабатывать, где это возможно и необходимо, ключевые контракты производственной фазы проекта; страховать риски; предусматривать инвестиционные затраты, направленные на снижение вредных выбросов и на снижение опасности аварий; основываться только на доказанных запасах полезных ископаемых; использовать в расчетах осторожные прогнозы текущих затрат. Риск снижается, если имеется богатый опыт производственной деятельности и проект не предполагает производства новой для предприятия продукции.

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

Для обозначения маркетинговых рисков также используются наименования: сбытовые, конкурентные, деловые, коммерческие, рыночные, ценовые риски, риски конъюнктуры, риски клиентов. Маркетинговый риск заключается в недостижении заданных объемов реализации продукции, заданных цен реализации, задержке с выходом на рынок, низкой платежной дисциплиной. Риск особенно велик при выпуске новой продукции, особенно ориентированной на конечного потребителя, при необходимости завоевания новых высококонкурентных рынков, при отсутствии действующего производства. Риск велик в отраслях с высокой долей расчетов в неденежной форме. Способами минимизации данного риска являются: заключение контрактов на сбыт продукции, отказ от финансирования проекта до проведения грамотного маркетингового исследования рынка, разработки стратегии и плана маркетинга - руководитель проекта должен привести убедительные аргументы в пользу того, что продукция проекта будет реализована на условиях, закладываемых в расчеты.

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

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

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

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

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

Риски утраты обеспечения зависят от вида обеспечения. Если обеспечение представляет собой гарантию или поручительства, то риск можно уменьшить в основном за счет надлежащего выбора гаранта/поручителя, оценкой лимита риска на него; дополнительной мерой является заключение дополнительного соглашения о праве списания средств со счетов поручителя.

4.2 Количественная оценка рисков инвестиционных проектов

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

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

Рассмотрим процесс количественной оценки рисков реализации инвестиционных проектов на следующем примере. Предлагается реализовать портфель из трёх инвестиционных проектов, взаимосвязанных между собой (взаимосвязь выражается в возможности передачи инвестиций из одного проекта в другой при возникновении в последнем дефицита финансирования). Коэффициенты вариации всех параметров проектов (максимально возможные прогнозируемые отклонения параметров от плановых значений) принимаются за 0,15. Плановые значения инвестиций и доходов от каждого проекта представлены в таблице 4.1:

Таблица 4.1 - Плановые показатели инвестиционных проектов

Для построения модели формирования реальных финансовых потоков используются следующие модели:

Влияние внешних случайных факторовмоделируется с помощью случайных чисел, распределённых по нормальному закону (формулы 1.5, 1.6 и 1.7).

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

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

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

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

4.2.1 Риски инвестора при реализации проектов

Основной задачей инвестора при реализации инвестиционного проекта является получение установленного объёма прибыли в оговоренные сроки за счёт вложения некоторого объёма средств. В связи с этим можно выделить следующие основные риски реализации инвестиционных проектов, которые несёт инвестор [25]:

Риск недостижения плановых значений прибыльности. Планируя инвестиционный проект и оценивая целесообразность вложения средств, инвестор рассчитывает несколько основных показателей проекта, одним из которых является индекс рентабельности, или индекс прибыльности проекта. Индекс прибыльности показывает, сколько прибыли принесёт каждая единица вложенных средств, и рассчитывается как отношение суммы дисконтированных доходов проекта к сумме дисконтированных инвестиций. Общим критерием принятия или отклонения является значение индекса прибыльности по отношению к единице: если индекс прибыльности больше единицы, то проект является прибыльным и его следует принять. Однако на практике инвесторы часто требуют, чтобы проект не просто окупился, но и принёс некоторую норму прибыли, то есть задают значение индекса прибыльности на определённом уровне. С помощью модели, описанной выше, можно рассчитать статистическое значение вероятности недостижения заданного значения индекса прибыльности.

Зададим требуемое значение индекса прибыльности 1,3 (при таком значении проект окупится и принесёт прибыль в размере 30% от инвестированных средств) и оценим риск того, что индекс доходности каждого из трёх рассматриваемых проектов окажется ниже требуемого. Для этого необходимо организовать численный эксперимент с накоплением статистических значений индекса прибыльности инвестиционного проекта и затем найти значение функции нормального распределения в точке 1,3 с параметрами математического ожидания и среднеквадратического отклонения, определёнными по накопленной выборке статистических данных. Это значение и будет искомой статистической вероятностью, то есть оценочным значением риска.

Для проектов, плановые параметры которых представлены в таблице 1, риск получения прибыльности меньше требуемой составляет: 0,56 для проекта №1, 0,029 для проекта №2 и 0,002 для проекта №3. Исходя из полученных значений, инвестору следует сделать вывод о том, что риск недополучения прибыли от проектов 2 и 3 достаточно низок, чего нельзя сказать о проекте 1. Основываясь на полученных данных, инвестор может либо отказаться от реализации проекта 1 и выбрать другой способ инвестирования, либо снизить данный риск, например, с помощью страхования.

Риск увеличения общей стоимости проекта. При планировании инвестиционных проектов инвестору следует учитывать возможность возникновения необходимости в дополнительном инвестировании сверх плановых значений. Такая необходимость может возникнуть как под воздействием внешних факторов (политических или экономических, например, увеличение стоимости сырья и материалов или увеличение налоговых ставок), так и в результате действия внутренних факторов в проекте (например, ошибки в расчётах строительных проектах, повлекшие необходимость изменения конструкции и, как следствие, привлечение дополнительных ресурсов). В этом случае инвестор может оценить вероятность превышения плановых инвестиций и, основываясь на полученном значении, принять решение о том, следует ли вкладывать средства в такой проект.

При рассмотрении портфеля взаимосвязанных проектов риск увеличения стоимости портфеля снижается за счёт возможности перераспределения инвестиций между проектами. Этот риск можно рассчитать, применяя механизм статистического имитационного моделирования к значениям суммарных инвестиций. Для портфеля проектов, представленных в таблице 1, значение статистической вероятности превышения планового объёма инвестиций составляет 0,337. Данное значение можно расценивать как приемлемый уровень риска. Однако инвестор может снизить рассматриваемый риск, например, с помощью заключения соглашений или указания в договоре уровня возможного превышения общего объёма инвестирования или применения штрафов за привлечение дополнительных инвестиций.

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

Для проектов, плановые параметры которых представлены в таблице 1, риск превышения плановых сроков окупаемости составляет: 0,387 для проекта №1, 0,008 для проекта №2 и 0,007 для проекта №3. Полученные значения позволяют сделать вывод о том, что для проектов 2 и 3 превышение плановых сроков окупаемости маловероятно, и доходы от этих проектов будут получены в срок; для проекта 1 превышение плановых сроков окупаемости более вероятно, поэтому инвестору следует уделить повышенное внимание данному проекту. Одним из способов снижения риска в такой ситуации является запрет на передачу инвестиций из более рискового проекта в менее рисковые.

4.2.2 Риски предприятия при реализации проектов

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

Риск недофинансирования проекта. Как было сказано выше, недофинансирование проекта является событием, противоположным увеличению суммарного объёма инвестирования. Согласно основным положениям теории вероятности, сумма вероятностей случайных событий, составляющих полную группу, равна единице; следовательно, вероятность получения общего объёма инвестиций меньше запланированного равна

P(I<I_пл)=1 - P(I>I_пл), (4.1)

где I - сумма реальных инвестиций,

I_пл - сумма плановых значений инвестиций.

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

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

Предприятие, реализующее портфель проектов, представленных в таблице 1, допускает снижение общего объёма прибыли от реализации данного портфеля на 10%. Чтобы определить вероятность получения общего объёма доходов, сниженного по сравнению с плановым уровнем более чем на 10%, необходимо определить значение функции нормального распределения с параметрами выборки значений реальных доходов проекта в точке, соответствующей 90 процентам планового объёма суммарных доходов. В ходе численного эксперимента было получено значение статистической вероятности 0,358. Это означает, что с вероятностью 0,358 предприятие получит сумму доходов от портфеля проектов, сниженную по сравнению с плановой более чем на 10%. Такое значение риска является достаточно высоким, и предприятию требуется принять меры для снижения данного риска (например, застраховать риск недополучения доходов или усовершенствовать технологический процесс).

Выводы. Инвестиционное проектирование - сложный процесс, неотъемлемой частью которого является определение уровня безопасности реализации инвестиционных проектов с помощью качественной и количественной оценки рисков. Использование статистического имитационного моделирования для оценки безопасности реализации инвестиционных проектов позволяет количественно оценить меру риска, присущую тому или иному проекту или группе проектов, ещё на стадии планирования, и тем самым помогает избежать вложения в слишком ненадёжные проекты, а также определить «слабые места» проектов, на которые инвестору следует обратить повышенное внимание.



Заключение

В представленном дипломном проекте была рассмотрена инвестиционная деятельность ООО «Валест». Приоритетным направлением исследования стало применение статистического имитационного моделирования в планировании и оптимизации инвестиционных проектов предприятия. Были разработаны механизмы коррекции финансовых потоков в соответствии с текущим состоянием инвестиционного процесса, а также предложены модели выбора оптимальных механизмов коррекции по различным критериям качества, таким, как минимизация определённых рисков реализации инвестиционных проектов или максимизация чистой приведённой стоимости портфеля проектов. Применение оптимальных механизмов коррекции позволяет увеличить чистую приведённую стоимость рассматриваемого портфеля проектов на 19,72 тыс. руб. по сравнению с моделью, не использующей механизмы коррекции финансовых потоков, и на 21,31 тыс. руб. по сравнению с плановым значением. Помимо системы применения механизмов коррекции финансовых потоков, в дипломном проекте была предложена модель взаимодействия инвестиционных проектов, позволяющая передавать излишки инвестиций, возникающие в проекте в результате действия случайных факторов, в другие проекты портфеля, а также разработана система начисления штрафов за межпроектное перераспределение инвестиций. Для автоматизации процесса моделирования инвестиционных мультипроектов было разработано программное обеспечение, позволяющее инвестору производить моделирование, оценку рисков и оптимизацию любого количества взаимосвязанных инвестиционных проектов. Программное обеспечение создано в среде MATLAB и является достаточно удобным и простым в использовании, но при этом универсальным и эффективным инструментом моделирования инвестиционных проектов.



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

1. Горбунов М.А. Методы моделирования и факторы эффективности инвестиционных проектов // Вестник Сибирского государственного аэрокосмического университета им. академика М.Ф. Решетнева. №4. - Красноярск: изд-во Сиб. гос. аэрокосм. ун-та, 2009. - с. 75-79.

2. Гераськин М.И., Кузнецова О.А.Инвестиционный менеджмент: модели и методы: учеб.пособие. - Самара: изд-во Самар. гос. аэрокосм. ун-та, 2007. - 74 с.

3. Бабина О.И. Сравнительный анализ имитационных и аналитических моделей // Имитационное моделирование. Теория и практика. Сборник докладов IV Всерос. науч.-практ. конф. по имитационному моделированию и его применению в науке и промышленности. Т.1. - СПб.: Центр технологии судостроения и судоремонта, 2009. - с. 73-77.

4. Волков А.С. Инвестиционные проекты: от моделирования до реализации - М.: Вершина, 2006. - 256 с.

5. Бочаров П.П., Касимов Ю.Ф. Финансовая математика- М.: Физматлит, 2005. - 576 с.

6. Четыркин Е.М. Методы финансовых и коммерческих расчетов - М.: Дело, 2005. - 195 с.

7. Шабалин А.Н. Инвестиционное проектирование:учебно-методический комплекс - М.: Изд. центр ЕАОИ, 2008. - 184 с.

8. Непомнящий Е.Г. Инвестиционное проектирование: учебное пособие - Таганрог: Изд-во ТРТУ, 2003. - 262 с.

9. Мур Дж., Уэдерфорд Л. и др. Экономическое моделирование в MicrosoftExcel- М.: Издательский дом «Вильямс», 2004. - 1024 с.

10. Дуплякин В.М. Статистическое имитационное моделирование риска реализации инвестиционного проекта: методические указания - Самара: Изд-во Самар. гос. аэрокосм. ун-та, 2009. - 34 с.

11. Савицкая Г.В. Теория анализа хозяйственной деятельности - М.: ИНФРА-М, 2007. - 288 с.

12. КовалевВ.В. Финансовый анализ: методы и процедуры- М.: Финансы и статистика, 2003. - 560 с.

13. Крейнина М.Н. Финансовый менеджмент: учеб.пособие. - М.: Дело и сервис, 2004. - 400 с.

14. Веснин В.Р. Менеджмент - М.: Проспект, 2004. - 176с.

15. Тронин Ю.Н. Анализ финансовой деятельности предприятия - М.: Издательство «Альфа-Пресс», 2006. - 208 с.

16. Дуплякин В.М. Анализ финансового состояния:учебное пособие. - Самара: изд-во Самар. гос. аэрокосм. ун-та, 2009. - 76 с.

17. Донцова Л.В., Никифорова Н.А. Комплексный анализ бухгалтерской отчетности - М.: Издательство «Дело и Сервис», 2001. - 304с.

18. Бердникова Т.Б. Анализ и диагностика финансово-хозяйственной деятельности предприятия:учебное пособие - М.: ИНФРА-М, 2007. - 215 с.

19. Сайт федеральной службы государственной статистики www.gks.ru

20. Уткин Э.А., Фролов Д.А. Управление рисками предприятия - М.: ТЕИС, 2003. -247 с.

21. Ануфриев И.Е. Самоучитель MatLab5.3/6.х. - СПб.: БХВ-Петербург, 2002. - 736 с.

22. Горлач А.Ю., Дуплякин В.М. Управление риском возможной потери прибыльности инвестиционных проектов // Материалы VIII международной научно-практической конференции «Современные возможности науки - 2012». Т. 5. Экономические науки. - Чехия, Прага. Изд-во «Education and Science». С. 20 - 26.

23. Рыхтикова Н.А. Анализ и управление рисками организации - М.: Форум, 2008. - 239 с.

24. Политика интегрированного управления рисками ОАО «Сбербанк России» - М., 2012 г. - 28 с.

25. Москвин В.А. Основы теории риска для реализации инвестиционных проектов // Инвестиции в России. - 2001. - № 8.C. 33-37.



Приложение А

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

В данном приложении приведён листинг программы, разработанной в среде MATLAB. Подробное описание программы и взаимосвязь её структурных блоков приведены в главе 3 дипломного проекта.

Основные блоки программы

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

Главное диалоговое окно

functionDiplom

clc;

formatcompact

disp('Использоватьтестовыеданные?');

a=input('1 - да, 2 - нет: ');

if a==1

Data

else Data_Input

end

disp('___________________________');

disp('ВЫБЕРИТЕ ДЕЙСТВИЕ ИЗ СПИСКА:');

Choice=char('1 Изменение исходных данных', '2 Расчёт плановых показателей эффективности проектов', '3 Расчёт штрафов и показателей эффективности при заданных механизмах управления, ограничения и коррекции;'...

,' оценка рисков реализации проектов', '4 Оптимизация выбора механизмов управления для минимизации функции штрафов', '5 Оптимизация выбора механизмов управления, ограничения и коррекции для минимизации риска','6 Оптимизация выбора механизмов для максимизации чистой приведённой стоимости портфеля проектов','0 Выход');

disp(Choice);

choice=input('Выбор: ');

while choice~=0

switch choice

case 1

disp('Использовать тестовые данные? 1 - да, 2 - нет');

a=input('1 - да, 2 - нет: ');

if a==1

Data

else Data_Input

end

case 2

Plan_Parameters

case 3

Multiproject_Modelling

case 4

Fine_Optimizing

case 5

Risk_Optimizing

case 6

NPV_Optimizing

otherwise

end

disp('___________________________');

disp('ВЫБЕРИТЕ ДЕЙСТВИЕ ИЗ СПИСКА:');

disp(Choice);

choice=input('Выбор: ');

end

Вводисходныхданных

function Data_Input

global n Iplan CFplan Lmax Transfer CVI CVCF CVINF inflation Rsis rmin W E H Aa

disp('____________________');

disp('ВВОД ИСХОДНЫХ ДАННЫХ');

Lmax=0;

Iplan=[];

CFplan=[];

Transfer=[];

CVI=[];

CVCF=[];

n=input('Введите число проектов (1,2,..n)_');

[N,M]=size(n);

Rsis=zeros(n,1);

while(N~=1)||(M~=1) %Проверка правильности ввода числа проектов

disp('Ошибка ввода!');

n=input('Введите число проектов (1,2,..n)_');

[N,M]=size(n);

end

for i=1:n %Ввод плановых инвестиций, разрешений на передачу инвестиций и плановых доходов

si=num2str(i);

str=strcat('Введите время начала проекта №',si,' (0,1,..t)_');

t=input(str);

[Nt,Mt]=size(t);

while(Nt~=1)||(Mt~=1) %Проверка правильности ввода параметра t

disp('Ошибка ввода!');

str=strcat('Введите время начала проекта №',si,' (0,1,..t)_');

t=input(str);

[Nt,Mt]=size(t);

end

str=strcat('Введите значения инвестиций в проект №',si,' в каждом периоде ([I1 I2 ...It])_');

Ip=input(str);

NIp=size(Ip,1);

while NIp~=1 %Проверка правильности ввода инвестиций

disp('Ошибкаввода!');

Ip=input(str);

NIp=size(Ip,1);

end

L=length(Ip);

str=strcat('Задайте разрешение на передачу инвестиций из проекта №',si,' в каждом периоде ([0/1])_');

T=input(str);

a=(L==length(T));

b=(sum(T)==sum(T==1));

while(a~=true)||(b~=true) %Проверка правильности ввода разрешений

disp('Ошибкаввода!');

T=input(str);

a=(L==length(T));

b=(sum(T)==sum(T==1));

end

str=strcat('Введите плановые значения доходов от проекта №',si,' в каждом периоде ([CF1 CF2 ...CFt])_');

CFp=input(str);

Nc=size(CFp,1);

a=(length(Ip)==length(CFp));

while (Nc~=1)||(a~=true) %Проверка правильности ввода доходов

disp('Ошибка ввода!');

CFp=input(str);

Nc=size(CFp,1);

a=(L==length(CFp));

end

str=strcat('Коэффициент вариации инвестиций проекта №',si,' линейно изменяется от_');

cvi1=input(str);

[Ni,Mi]=size(cvi1);

while(Ni~=1)||(Mi~=1) %Проверка правильности ввода

disp('Ошибкаввода!');

cvi1=input(str);

[Ni,Mi]=size(cvi1);

end

cvi2=input('до ');

[Ni,Mi]=size(cvi2);

while(Ni~=1)||(Mi~=1) %Проверка правильности ввода

disp('Ошибка ввода!');

cvi2=input('до ');

[Ni,Mi]=size(cvi2);

end

CvI=cvi1:(cvi2-cvi1)/(L-1):cvi2;

str=strcat('Коэффициент вариации доходов проекта №',si,' линейно изменяется от_');

cvcf1=input(str);

[Ni,Mi]=size(cvcf1);

while(Ni~=1)||(Mi~=1) %Проверка правильности ввода

disp('Ошибка ввода!');

cvcf1=input(str);

[Ni,Mi]=size(cvcf1);

end

cvcf2=input('до ');

[Ni,Mi]=size(cvcf2);

while(Ni~=1)||(Mi~=1) %Проверкаправильностиввода

disp('Ошибкаввода!');

cvcf2=input('до ');

[Ni,Mi]=size(cvcf2);

end

CvCF=cvcf1:(cvcf2-cvcf1)/(L-1):cvcf2;

%Создание матриц инвестиций, разрешений, доходов и к-тов вариации

Ip=[zeros(1,t) Ip]

T=[zeros(1,t) T]

CFp=[zeros(1,t) CFp]

CvI=[zeros(1,t) CvI]

CvCF=[zeros(1,t) CvCF]

L=length(Ip);

if L>Lmax

Iplan=[Iplan zeros(i-1,L-Lmax);Ip];

Transfer=[Transfer zeros(i-1,L-Lmax);T];

CFplan=[CFplan zeros(i-1,L-Lmax);CFp];

CVI=[CVI zeros(i-1,L-Lmax);CvI];

CVCF=[CVCF zeros(i-1,L-Lmax);CvCF];

Lmax=L;

else Iplan=[Iplan; Ip zeros(1,Lmax-L)];

Transfer=[Transfer; T zeros(1,Lmax-L)];

CFplan=[CFplan; CFp zeros(1,Lmax-L)];

CVI=[CVI; CvI zeros(1,Lmax-L)];

CVCF=[CVCF; CvCF zeros(1,Lmax-L)];

end

str=strcat('Введите ставку системного риска проекта №',si,'_');

rsis=input(str);

[Nr,Mr]=size(rsis,1);

while (Nr~=1)||(Mr~=1) %Проверка правильности ввода доходов

disp('Ошибкаввода!');

rsis=input(str);

[Nr,Mr]=size(rsis,1);

end

Rsis(i,1)=rsis;

end

disp('Задайте инфляцию в виде кусочно-линейной функции');

disp('Начальнаяточка');

t=0;

st=num2str(t);

str=strcat('Время:_',st);

disp(str);

inf(1,1)=t;

inf(1,2)=input('Уровеньинфляции: ');

disp('Конечная точка');

t=Lmax;

st=num2str(t);

str=strcat('Время:_',st);

disp(str);

inf(2,1)=t;

inf(2,2)=input('Уровеньинфляции: ');

disp('Добавить точку? 1 - да, 2 - нет');

a=input('');

l=2;

for e=3:Lmax

if a==1

E=num2str(e);

str=strcat('Точка №',E);

disp(str);

t=input('Время: ');

[Nt,Mt]=size(t);

while(Nt~=1)||(Mt~=1)||(t>Lmax) %Проверкаправильностивводавремени

disp('Ошибкаввода!');

t=input('Время: ');

[Nt,Mt]=size(t);

end

inf(e,1)=t;

ii=input('Уровень инфляции: ');

[Nii,Mii]=size(ii);

while(Nii~=1)||(Mii~=1) %Проверка правильности ввода параметра

disp('Ошибка ввода!');

ii=input('Уровень инфляции: ');

[Nii,Mii]=size(ii);

end

inf(e,2)=ii;

disp('Добавить точку? 1 - да, 2 - нет');

a=input('');

l=l+1;

end

end

[INF,NUM]=sort(inf);

for k=1:l

INF(k,2)=inf(NUM(k,1),2);

end

k=2;

inflation=zeros(1,Lmax);

inflation(1,1)=INF(1,2);

for h=2:Lmax

if h>INF(k,1)

k=k+1;

end

inflation(1,h)=INF(k-1,2)+(INF(k,2)-INF(k-1,2))*(h-INF(k-1,1))/(INF(k,1)-INF(k-1,1));

end

str=strcat('Коэффициент вариации инфляции линейно изменяется от_');

cvinf1=input(str);

[Ni,Mi]=size(cvinf1);

while(Ni~=1)||(Mi~=1) %Проверка правильности ввода коэффициента вариации

disp('Ошибка ввода!');

cvinf1=input(str);

[Ni,Mi]=size(cvinf1);

end

cvinf2=input('до ');

[Ni,Mi]=size(cvinf2);

while(Ni~=1)||(Mi~=1) %Проверка правильности ввода коэффициента вариации

disp('Ошибка ввода!');

cvinf2=input('до ');

[Ni,Mi]=size(cvinf2);

end

CVINF=cvinf1:(cvinf2-cvinf1)/(L-1):cvinf2;

rmin=input('Задайте ставку доходности по безрисковым вложениям: ');

[Nr,Mr]=size(rmin);

while(Nr~=1)||(Mr~=1) %Проверка правильности ввода ставки дисконтирования

disp('Ошибка ввода!');

rmin=input('Задайте ставку доходности по безрисковым вложениям: ');

[Nr,Mr]=size(rmin);

end

clc;

disp('ИСХОДНЫЕ ДАННЫЕ:');

disp('Плановые инвестиции:');

disp(Iplan);

disp('Разрешения на передачу инвестиций:');

disp(Transfer);

disp('Плановыедоходы:');

disp(CFplan);

disp('Коэффициентывариацииинвестиций:');

disp(CVI);

disp('Коэффициенты вариации доходов:');

disp(CVCF);

disp('Инфляция:');

disp(inflation);

disp('Коэффициентывариацииинфляции:');

disp(CVINF);

disp('Коэффициенты системного риска:');

disp(Rsis);

disp('Ставка доходности по безрисковым вложениям:');

disp(rmin);

disp('Оптимизировать параметры механизмов управления?');

o=input('1 - да, 2 - нет ');

if o==1

W=input('Задайте нижнюю границу поиска оптимальных значений параметра:');

E=input('Задайте верхнюю границу поиска: ');

H=input('Задайте шаг поиска: ');

disp('Оптимизация......');

Models_Optimizing

elseAa=[0 0 0;0 0 0;-1 -1 -1;0 0 0;-1.4 0 -1.5; -2 -2 -2; -1.8 0 0; 0 0 0];

end

Оптимизация параметров механизмов управления

function Models_Optimizing

function Models_Optimizing_2

global n Iplan Lmax CVI MNG Aamin Aamax Ivar LIM B inflation CVINF INFvar E W H

B=0.5*ones(1,n);

sim=100;

Mngmax=8;

Limmax=8;

amax=E;

amin=W;

h=H;

LIMIT=zeros(sim,n);

Aamin=zeros(Mngmax,n);

Aamax=zeros(Mngmax,n);

Aaminopt=zeros(Mngmax,n);

Aamaxopt=zeros(Mngmax,n);

Lopt=Inf*ones(1,n);

for mng=1:Mngmax

if (mng~=1)&&(mng~=2)&&(mng~=4)&&(mng~=8)

MNG=mng*ones(1,n);

aMax=amax;

while aMax>=amin

Amax=aMax*ones(1,n);

Aamax(mng,:)=Amax;

aMin=amin;

while aMin<=aMax

Amin=aMin*ones(1,n);

Aamin(mng,:)=Amin;

for s=1:sim

Ivar=Iplan.*(1+CVI.*randn(n,Lmax));

INFvar=inflation.*(1+CVINF.*randn(1,Lmax));

Management

Transaction %Перераспределениеинвестиций

Itr=Ivar;

Limit=zeros(Limmax,n);

for lim=1:Limmax

LIM=lim*ones(1,n);

Limitation %Ограничение

limit=sum((Iplan-Ivar),2);

Limit(lim,:)=limit;

end

Limit=sum(Limit); %Определение значения функции штрафов

LIMIT(s,:)=Limit;

end

L=mean(LIMIT);

for i=1:n

if L(1,i)<Lopt(1,i)

Lopt(1,i)=L(1,i);

Aaminopt(mng,i)=Amin(1,i);

Aamaxopt(mng,i)=Amax(1,i);

end

end

aMin=aMin+h;

end

aMax=aMax-h;

end

end

end

Aamin=Aaminopt

Aamax=Aamaxopt

Расчёт плановых показателей инвестиционных проектов

function Plan_Parameters

global Iplan CFplan Ivar CFvar INFvar inflation npv pi %pp

disp('___________________________________________');

disp('ПЛАНОВЫЕ ПОКАЗАТЕЛИ ИНВЕСТИЦИОННЫХ ПРОЕКТОВ');

Ivar=Iplan;

CFvar=CFplan;

INFvar=inflation;

Discount

NPVplan=npv;

PIplan=pi;

PPplan=pp;

disp('Плановые значения чистой приведённой стоимости:');

disp(NPVplan);

disp('Плановые значения индекса рентабельности:');

disp(PIplan);

disp('Плановые значения срока окупаемости:');

disp(PPplan);

Моделирование реализации инвестиционного мультипроекта, расчёт рисков

function Multiproject_Modelling

global Mng MNG Lim LIM Cor COR B n Iplan CFplan Lmax CVI CVCF Ivar INFvar CFvar inflation CVINF npv pi pp

disp('______________________________________________________________');

disp('МОДЕЛИРОВАНИЕ РЕАЛИЗАЦИИ МУЛЬТИПРОЕКТА С ЗАДАННЫМИ МЕХАНИЗМАМИ,');

disp('РАСЧЁТ СРЕДНИХ ХАРАКТЕРИСТИК ПРОЕКТОВ.РАСЧЁТ РИСКОВ');

sim=input('Задайте количество имитаций: ');

[Ns,Ms]=size(sim);

while(Ns~=1)||(Ms~=1)||(sim<1) %Проверка правильности ввода кол-ва имитаций

disp('Ошибка ввода!');

sim=input('Задайте количество имитаций: ');

[Ns,Ms]=size(sim);

end

FINE=zeros(1,sim);

NPV=zeros(n,sim);

PI=zeros(n,sim);

PP=zeros(n,sim);

for s=1:sim

Ivar=Iplan.*(1+CVI.*randn(n,Lmax));

CFvar=CFplan.*(1+CVCF.*randn(n,Lmax));

INFvar=inflation.*(1+CVINF.*randn(1,Lmax));

if s==1

disp(' ');

disp('Выбор механизмов управления текущим объёмом инвестирования');

Mng=char(' 1 Инвестирование с учётом отклонения инфляции предшествующего периода от планового значения', ' 2 Обратное взаимодействие с уровнем инвестирования предыдущего периода', ' 3 Обратное динамическое взаимодействие с уровнем инвестирования, отражающим случайное внешнее воздействие', ' 4 Обратное влияние накопленного объёма инвестирования', ' 5 Обратное степенное взаимодействие с уровнем инвестирования предыдущего периода',' 6 Обратное степенное взаимодействие с уровнем инвестирования, отражающим случайное внешнее воздействие',' 7 Обратное степенное влияние накопленного объёма инвестирования',' 8 Отсутствие управления');

disp(Mng);

MNG=zeros(1,n);

for i=1:n %Выбор механизма управления

si=num2str(i);

str=strcat('Выберите механизм управления для проекта №',si,'_');

mng=input(str);

[Nmng,Mmng]=size(mng);

while(Nmng~=1)||(Mmng~=1)||(mng>size(Mng,1))||(mng<1) %Проверка правильности ввода номера механизма управления

disp('Ошибкаввода!');

mng=input(str);

[Nmng,Mmng]=size(mng);

end

MNG(1,i)=mng;

end

disp(' ');

fine=input('Задайте ставку штрафов за перераспределение инвестиций:');

[Nfine,Mfine]=size(fine);

while(Nfine~=1)||(Mfine~=1) %Проверка правильности ввода ставки

disp('Ошибка ввода!');

fine=input('Задайте ставку штрафов за перераспределение инвестиций');

[Nfine,Mfine]=size(fine);

end

disp(' ');

disp('Выбор механизмов ограничения максимального объёма инвестирования');

Lim=char(' 1 Фиксированное максимальное относительное перевыполнение планового задания', ' 2 Жёсткое абсолютное ограничение непревышения плановых заданий по инвестированию', ' 3 Коррекция планового уровня с учётом отклонения фактического уровня инфляции предшествующего периода от планового значения', ' 4 Обратное влияние текущей реализации инвестирования в предшествующий период', ' 5 Непосредственное влияние текущей реализации инвестирования в предшествующий период', ' 6 Обратное влияние накопленного объёма инвестирования в предшествующий период',' 7 Обратное влияние динамики инвестирования в предшествующий период',' 8 Отсутствие ограничения');

disp(Lim);

LIM=zeros(1,n);

B=zeros(1,n);

for i=1:n %Выбор механизма ограничения

si=num2str(i);

str=strcat('Выберите механизм ограничения для проекта №',si,'_');

lim=input(str);

[Nlim,Mlim]=size(lim);

while(Nlim~=1)||(Mlim~=1)||(lim>size(Lim,1))||(lim<1) %Проверка правильности ввода номера механизма ограничения

disp('Ошибкаввода!');

lim=input(str);

[Nlim,Mlim]=size(lim);

end

if lim==1

str=strcat('Задайте ограничение на перевыполнение планового задания в проекте №',si,'_');

b=input(str);

[Nb,Mb]=size(b);

while(Nb~=1)||(Mb~=1) %Проверка правильности ввода

disp('Ошибкаввода!');

b=input(str);

[Nb,Mb]=size(b);

end

B(1,i)=b;

end

LIM(1,i)=lim;

end

disp(' ');

disp('Выбор механизмов коррекции текущих значений доходов');

Cor=char(' 1 Непосредственное влияние текущего уровня инвестирования', ' 2 Влияние накопленного объёма инвестирования', ' 3 Динамическое взаимодействие с уровнем инвестирования', ' 4 Последействие предшествующего результата', ' 5 Последействие динамики предшествующего результата',' 6 Обратное динамическое взаимодействие с уровнем инфляции',' 7 Степенное взаимодействие с текущим уровнем инвестирования',' 8 Отсутствие коррекции');

disp(Cor);

COR=zeros(1,n);

for i=1:n %Выбор механизма коррекции

si=num2str(i);

str=strcat('Выберите механизм коррекции значений доходов для проекта №',si,'_');

cor=input(str);

[Nc,Mc]=size(cor);

while(Nc~=1)||(Mc~=1)||(cor>size(Cor,1))||(cor<1) %Проверка правильности ввода номера механизма коррекции

disp('Ошибкаввода!');

cor=input(str);

[Nc,Mc]=size(cor);

end

COR(1,i)=cor;

end

end

Management %Управление текущим инвестированием

Imng=Ivar;

Transaction %Перераспределение инвестиций

Fine=fine*sum(sum((Ivar-Imng).*((Ivar-Imng)>0))); %Расчётштрафов

FINE(1,s)=Fine; %Сохранение полученного значения функции штрафов

Limitation %Ограничение максимального объёма инвестирования

Correction %Применение выбранного механизма коррекции

Discount %Дисконтирование, определение параметров

NPV(:,s)=npv;

PI(:,s)=pi;

PP(:,s)=pp;

end

npv=mean(NPV,2);

pi=mean(PI,2);

pp=mean(PP,2);

fine=mean(FINE);

disp('--------------------------------');

disp('Среднее значение функции штрафов:');

disp(fine);

disp('Средние значения чистой приведённой стоимости:');

disp(npv);

disp('Средние значения индекса рентабельности:');

disp(pi);

disp('Средние значения срока окупаемости:');

disp(pp);

rchoice=3;

while rchoice~=0 %Расчётрисков

disp('________________________');

disp('Выберите риск для оценки:');

RChoice=char('1 Риск превышения задаваемого значения', '2 Риск недостижения задаваемого значения','0 Не рассчитывать риски');

disp(RChoice);

rchoice=input('Выбор: ');

while (rchoice~=0)&&(rchoice~=1)&&(rchoice~=2) %Проверкаввода

disp('Ошибкаввода!');

rchoice=input('Выбор: ');

end

if rchoice~=0

disp('Выберите показатель для оценки:');

Rpar=char('1 Чистая приведённая стоимость', '2 Рентабельность инвестиций', '3 Сроки окупаемости проектов','4 Функция штрафов');

disp(Rpar);

rpar=input('Номер показателя: ');

while (rpar~=1)&&(rpar~=2)&&(rpar~=3)&&(rpar~=4) %Проверка ввода

disp('Ошибка ввода!');

rpar=input('Номер показателя: ');

end

if rpar~=4

i=input('Номерпроекта: ');

[Ni,Mi]=size(i);

while(Ni~=1)||(Mi~=1)||(i>n)||(i<1) %Проверкаввода

disp('Ошибка ввода!');

i=input('Номер проекта: ');

[Ni,Mi]=size(i);

end

end

rval=input('Значение показателя: ');

[Nr,Mr]=size(rval);

while(Nr~=1)||(Mr~=1) %Проверка правильности ввода

disp('Ошибка ввода!');

rval=input('Значение показателя: ');

[Nr,Mr]=size(rval);

end

switch rpar

case 1

R=NPV(i,:);

case 2

R=PI(i,:);

case 3

R=PP(i,:);

otherwise

R=FINE;

end

if rchoice==1

risk=1-normcdf(rval,mean(R.'),std(R.'));

else risk=normcdf(rval,mean(R.'),std(R.'));

end

disp('------------------------');

disp('Расчётное значение риска:');

disp(risk);

end

end

Оптимизация выбора механизмов управления для минимизации функции штрафов

function Fine_Optimizing

global n Iplan Lmax CVI Mng MNG Ivar INFvar inflation CVINF

disp('________________________________________________________________');

disp('ОПТИМИЗАЦИЯ ВЫБОРА МЕХАНИЗМОВ УПРАВЛЕНИЯ ДЛЯ МИНИМИЗАЦИИ ШТРАФОВ');

sim=input('Задайте количество имитаций: ');

[Ns,Ms]=size(sim);

while(Ns~=1)||(Ms~=1)||(sim<1) %Проверка правильности ввода имитаций

disp('Ошибка ввода!');

sim=input('Задайте количество имитаций: ');

[Ns,Ms]=size(sim);

end

f=input('Задайте ставку штрафов за перераспределение инвестиций: ');

[Nf,Mf]=size(f);

while(Nf~=1)||(Mf~=1) %Проверка правильности ввода ставки штрафов

disp('Ошибка ввода!');

f=input('Задайте ставку штрафов за перераспределение инвестиций: ');

[Nf,Mf]=size(f);

end

Mmax=8;

FINE=zeros(sim,1);

MNG=ones(1,n);

for t=1:(Mmax^n)

for s=1:sim %Расчётзначенияштрафов

Ivar=Iplan.*(1+CVI.*randn(n,Lmax));

INFvar=inflation.*(1+CVINF.*randn(1,Lmax));

Management

Imng=Ivar;

Transaction %Перераспределениеинвестиций

Fine=f*sum(sum((Ivar-Imng).*((Ivar-Imng)>0)));%Расчётштрафов

FINE(s,1)=Fine;

end

F=mean(FINE);

if (t==1)||F<Fopt

Fopt=F;

Mopt=MNG;

end

if MNG(1,1)==Mmax

for k=2:n

if MNG(1,k)<Mmax

MNG(1,k)=MNG(1,k)+1;

for z=1:k-1

MNG(1,z)=1;

end

break

end

end

else MNG(1,1)=MNG(1,1)+1;

end

end

disp('-------------------------------------');

disp('Минимально возможное значение штрафов:');

disp(Fopt);

disp('Оптимальные механизмы управления в проектах:');

for i=1:n

si=num2str(i);

str=strcat('№',si,'_',Mng(Mopt(1,i),:));

disp(str);

end

Оптимизация выбора механизмов управления, ограничения и коррекции для минимизации определённого риска

function Risk_Optimizing

global B Mng MNG Lim LIM Cor COR n Iplan Ivar CFplan CFvar Lmax CVI CVCF inflation INFvar CVINF npv pi %pp

disp('___________________________________________________');

disp('ОПТИМИЗАЦИЯ ВЫБОРА МЕХАНИЗМОВ ДЛЯ МИНИМИЗАЦИИ РИСКА');

sim=input('Задайте количество имитаций: ');

[Ns,Ms]=size(sim);

while(Ns~=1)||(Ms~=1)||(sim<1) %Проверка правильности ввода имитаций

disp('Ошибка ввода!');

sim=input('Задайте количество имитаций: ');

[Ns,Ms]=size(sim);

end

f=input('Задайте ставку штрафов за перераспределение инвестиций: ');

[Nf,Mf]=size(f);

while(Nf~=1)||(Mf~=1) %Проверка правильности ввода ставки штрафов

disp('Ошибка ввода!');

f=input('Задайте ставку штрафов за перераспределение инвестиций: ');

[Nf,Mf]=size(f);

end

b=input('Задайте ограничение на перевыполнение планового задания по инвестированию: ');

[Nb,Mb]=size(b);

while(Nb~=1)||(Mb~=1) %Проверка правильности ввода ограничения

disp('Ошибка ввода!');

b=input('Задайте ограничение на перевыполнение планового задания по инвестированию: ');

[Nb,Mb]=size(b);

end

B=b*ones(1,n);

disp(' ');

disp('Выберите риск для минимизации:');

RChoice=char('1 Вероятность превышения задаваемого значения', '2 Вероятность недостижения задаваемого значения');

disp(RChoice);

rchoice=input('Выбор: ');

while (rchoice~=1)&&(rchoice~=2) %Проверка правильности ввода

disp('Ошибкаввода!');

rchoice=input('Выбор: ');

end

disp('Выберите показатель для оценки:');

Rpar=char('1 Чистая приведённая стоимость', '2 Рентабельность инвестиций', '3 Сроки окупаемости проектов');

disp(Rpar);

rpar=input('Номер показателя: ');

while (rpar~=1)&&(rpar~=2)&&(rpar~=3) %Проверка правильности ввода

disp('Ошибка ввода!');

rpar=input('Номер показателя: ');

end

rval=zeros(n,1);

for i=1:n

si=num2str(i);

str=strcat('Значение показателя в проекте №',si,'_');

rv=input(str);

[Nrv,Mrv]=size(rv);

while(Nrv~=1)||(Mrv~=1) %Проверка правильности ввода значения

disp('Ошибкаввода!');

rv=input(str);

[Nrv,Mrv]=size(rv);

end

rval(i,1)=rv;

end

Mmax=8;

Limmax=8;

Cmax=8;

R=zeros(sim,1);

MNG=ones(1,n);

LIM=ones(1,n);

COR=ones(1,n);

NPV=zeros(n,sim);

PI=zeros(n,sim);

PP=zeros(n,sim);

Ropt=ones(n,1);

Lopt=ones(1,n);

Copt=ones(1,n);

FINE=zeros(sim,1);

for t=1:(Mmax^n)

for L=1:Limmax

RiSK(L).L=L;

LIM=L*ones(1,n);

for C=1:Cmax

COR=C*ones(1,n);

for s=1:sim

Ivar=Iplan.*(1+CVI.*randn(n,Lmax));

CFvar=CFplan.*(1+CVCF.*randn(n,Lmax));

INFvar=inflation.*(1+CVINF.*randn(1,Lmax));

Management %Применение механизма управления

Imng=Ivar;

Transaction %Перераспределение инвестиций

Fine=f*sum(sum((Ivar-Imng).*((Ivar-Imng)>0))); %Определение значения функции штрафов

FINE(s,1)=Fine;

Limitation %Применение механизма ограничения

Correction %Применение механизма коррекции

Discount %Дисконтирование, вычисление параметров

NPV(:,s)=npv;

PI(:,s)=pi;

PP(:,s)=pp;

end

F=mean(FINE);

risk=ones(n,1);

for i=1:n

switch rpar

case 1

R=NPV(i,:);

case 2

R=PI(i,:);

case 3

R=PP(i,:);

end

if rchoice==1

risk(i,1)=1-normcdf(rval(i,1),mean(R.'),std(R.'));

else risk(i,1)=normcdf(rval(i,1),mean(R.'),std(R.'));

end

end

rmean=mean(risk);

if (t==1)||(rmean<rmeanopt)

rmeanopt=rmean;

Mopt=MNG;

end

for i=1:n

if (t==1)||(risk(i,1)<Ropt(i,1))

Ropt(i,1)=risk(i,1);

Lopt(1,i)=LIM(1,i);

Copt(1,i)=COR(1,i);

end

end

end

end

if MNG(1,1)==Mmax

for k=2:n

if MNG(1,k)<Mmax

MNG(1,k)=MNG(1,k)+1;

for z=1:k-1

MNG(1,z)=1;

end

break

end

end

else MNG(1,1)=MNG(1,1)+1;

end

end

fclose(file);

disp('-----------------------------------------------------');

disp('Минимально возможные значения вероятностей в проектах:');

for i=1:n

si=num2str(i);

r=num2str(Ropt(i,1));

str=strcat('№',si,'_',r);

disp(str);

end

disp(' ');

disp('Оптимальные механизмы управления текущим инвестированием в проектах:');

for i=1:n

si=num2str(i);

str=strcat('№',si,'_',Mng(Mopt(1,i),:));

disp(str);

end

disp(' ');

disp('Оптимальные механизмы ограничения максимального объёма инвестирования в проектах:');

for i=1:n

si=num2str(i);

str=strcat('№',si,'_',Lim(Lopt(1,i),:));

disp(str);

end

disp(' ');

disp('Оптимальные механизмы коррекции доходов в проектах:');

for i=1:n

si=num2str(i);

str=strcat('№',si,'_',Cor(Copt(1,i),:));

disp(str);

end

Оптимизация выбора механизмов управления, ограничения и коррекции для максимизации чистой приведённой стоимости

function NPV_Optimizing

global B Mng MNG Lim LIM Cor COR n Iplan Ivar CFplan CFvar Lmax CVI CVCF inflation INFvar CVINF npv

disp('____________________________________________________________________');

disp('ОПТИМИЗАЦИЯ ВЫБОРА МЕХАНИЗМОВ ДЛЯ МАКСИМИЗАЦИИ ЧИСТОЙ ПРИВЕДЁННОЙ СТОИМОСТИ');

sim=input('Задайте количество имитаций: ');

[Ns,Ms]=size(sim);

while(Ns~=1)||(Ms~=1)||(sim<1) %Проверка правильности ввода имитаций

disp('Ошибка ввода!');

sim=input('Задайте количество имитаций: ');

[Ns,Ms]=size(sim);

end

f=input('Задайте ставку штрафов за перераспределение инвестиций: ');

[Nf,Mf]=size(f);

while(Nf~=1)||(Mf~=1) %Проверка правильности ввода ставки штрафов

disp('Ошибка ввода!');

f=input('Задайте ставку штрафов за перераспределение инвестиций: ');

[Nf,Mf]=size(f);

end

b=input('Задайте ограничение на перевыполнение планового задания по инвестированию: ');

[Nb,Mb]=size(b);

while(Nb~=1)||(Mb~=1) %Проверка правильности ввода ограничения

disp('Ошибка ввода!');

b=input('Задайте ограничение на перевыполнение планового задания по инвестированию: ');

[Nb,Mb]=size(b);

end

B=b*ones(1,n);

Mmax=8;

Limmax=8;

Cmax=8;

NPVopt=zeros(n,1);

Lopt=ones(1,n);

Copt=ones(1,n);

MNG=ones(1,n);

LIM=ones(1,n);

COR=ones(1,n);

FINE=zeros(sim,1);

for t=1:(Mmax^n)

for L=1:Limmax

NpV(L).L=L;

LIM=L*ones(1,n);

for C=1:Cmax

COR=C*ones(1,n);

NPV=zeros(n,sim);

for s=1:sim

Ivar=Iplan.*(1+CVI.*randn(n,Lmax));