Математическая модель и метод анализа

Размещено на http://www.allbest.ru/

Введение

Данная курсовая работа выполняется в приложении Visual Basic .Visual Basic развился из первоначального языка Basic и в настоящее время содержит несколько сотен команд, функций и ключевых слов, многие из которых связаны непосредственно с графическим интерфейсом пользователя GUI (Graphical User Interface) операционной системы Windows.

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

Интегрированная среда разработки приложений Microsoft Visual Basic (в дальнейшем изложении Visual Basic), обладая простыми в обращении средствами визуального проектирования, позволяет в полной мере использовать преимущества графической среды. Windows и быстро конструировать эффективные приложения. Visual Basic - один из первых языков, поддерживающих событийно-управляемое программирование (event-driven programming). Этот стиль хорошо согласуется со стандартом графического пользовательского интерфейса.

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

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

- создание интерфейса пользователя с использованием средств визуального программирования, в процессе которого на формах размещаются необходимые объекты из набора стандартных элементов интерфейса Windows;

- установка свойств для формы и размещенных на ней объектов (размеры, цвет, надписи и др.);

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

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

Целью курсовой работы является разработка программы для получения функций спроса и предложения и определения равновесной цены методом Секущих. Актуальность решаемой задачи состоит в том, чтобы изучить основные параметры рынка тем самым получить глубокое представление о функционировании всей экономической системы в целом. Выполняя курсовую работу необходимо разобраться, в чём заключается метод секущих, как его можно реализовать на VBA. Необходимо овладеть навыками построения графиков в Microsoft Excel, а также научиться понятно и доступно описывать экономические объекты, исследовать их и получать необходимые результаты для достижения поставленной цели в соответствии с задачей, которую необходимо реализовать.

1. Описание экономического объекта и постановка задачи

1.1 Спрос и факторы, его определяющие

Совокупный спрос (AD) представляет собой сумму всех расходов на конечные товары и услуги, произведенные в экономике. Он отражает связь между объемом совокупного выпуска, на который предъявлен спрос экономическими агентами, и общим уровнем цен в экономике.

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

В структуре совокупного спроса можно выделить:

спрос на потребительские товары и услуги;

спрос на инвестиционные товары;

спрос на товары и услуги со стороны государства;

спрос на наш экспорт со стороны иностранцев (или спрос на чистый экспорт, если спрос на импорт входит в первые три компонента совокупного спроса).

Кривая совокупного спроса описывается тем же уравнением, что и ВВП:

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

Кривая совокупного спроса AD (от английского aggregate demand) -- показывает количество товаров и услуг, которое потребители готовы приобрести при каждом возможном уровне цен. Она дает такие комбинации объема выпуска и общего уровня цен в экономике, при которых товарный и денежный рынки находятся в равновесии. Движение вдоль кривой AD отражает изменение совокупного спроса в зависимости от динамики общего уровня цен.

Рисунок 1.1 Совокупный спрос

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

1.2 Предложение и факторы, его определяющие

Совокупное предложение (AS) - это объем национального производства, реализуемый на рынке при определенном уровне цен. Зачастую под этим понятием понимают валовой внутренний продукт (ВВП). Объем выпуска описывается производственной функцией:

Кривая совокупного предложения -- AS (от английского aggregate supply) -- показывает, какой объем совокупного выпуска может быть предложен на рынок производителями при разных значениях общего уровня цен в экономике.

Рисунок 1.2 Совокупное предложение

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

Форма кривой AS интерпретируется по-разному в классической и кейнсианской школах. Изменения величины совокупного предложения под влиянием одного и того же фактора, скажем, совокупного спроса, могут оказаться разными. Это зависит от того, учитываем ли мы изменения совокупного спроса за короткий отрезок времени или же нас интересуют долгосрочные последствия воздействия данного фактора.

Различие между краткосрочным (обычно до 2--3 лет) и долгосрочным периодами в макроэкономике связывают главным образом с поведением номинальных и реальных переменных. В краткосрочном периоде номинальные величины (цены, номинальная заработная плата, номинальная ставка процента) под воздействием рыночных колебаний изменяются медленно, обычно говорят об их относительной «жесткости». Реальные величины (объем выпуска, уровень занятости, реальная ставка процента) -- более подвижные, «гибкие». В долгосрочном периоде, наоборот, номинальные величины в итоге изменяются достаточно сильно, их считают «гибкими», а реальные меняются крайне медленно, так что для удобства анализа их часто рассматривают как постоянные.

1.3 Макроэкономическое рыночное равновесие

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

Рисунок 1.3 Рыночное равновесие

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

Функция ѓ(x) ,являющаяся разностью функций спроса и предложения, где D(x)-функция спроса,а S(x)-функция предложения то ѓ(x)=D(x)-S(x).Требуется найти корень уравнения-являющегося равновесной ценой.

2. Математическая модель и метод анализа

Пусть задана функция действительного переменного. Требуется найти корни уравнения

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

Изложение метода

Метод секущих получается из метода касательных заменой разностным приближением:

В результате получим формулу итерационного процесса:

Метод секущих является двухшаговым, то есть новое приближение определяется двумя предыдущими итерациями и В методе необходимо задавать два начальных приближения и

Скорость сходимости метода будет линейной:

Геометрическая интерпретация

Метод секущих

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

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

Рисунок 2.1 Метод секущих

Критерий останова

Как правило, берут один из следующих критериев останова:

-- значение функции на данной итерации стало меньше заданого е.

-- изменение хk в результате итерации стало меньше заданого е.

Ошибки округления

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

Алгоритм применения метода секущих:

1) Выбираем интервал , на котором расположены корни функции y=f(x)

2) высчитываем

3) проверяем (х(к+1) - х (к)) < e если да , то выводим результат x(k+1) иначе пункт 2

3. Разработка входных и выходных форм

Начиная проектировать программу, необходимо рассмотреть её составную часть: пользовательский интерфейс. На данном этапе проектирования программ разрабатываются окна при помощи форм и элементов управления Visual Basic. Набор элементов (TextBox, Label, CommandButton) позволяет отображать информацию. При работе с элементами управления к ним можно обращаться как к переменным, присваивая значения определенным свойствам или считывая их. Элементы управления представляют собой объекты. К свойствам объектов обеспечивается доступ таким же образом, как и к полям структуры. Свойства определяют внешний вид и особенности функционирования элементов управления.

Рисунок 3.1 - Пользовательская форма

На рисунке 3.1 приведен вид пользовательской формы, созданной для функционирования спроектированной программы. Из рисунка видно, что для ввода и отображения данных используются элементы управления TextBox. Использование этих элементов необходимо для ввода погрешности и интервала, на котором расположен корень уравнения. Также для ввода данных используется лист Microsoft Excel. (рис. 3.2). Необходимость введения данных на лист обусловлено тем, что для построения графика равновесной цены необходимо знать цену, спрос и предложение, исходя из которых строится график.

Рисунок 3.2 - Лист Microsoft Excel

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

Элементы управления TextBox:

txtDa, txtDb, txtDc-коэффициенты уравнения спроса

txtSa, txtSb, txtSc- коэффициенты уравнения предложения

txtX1, txtX2- интервал на котором расположена искомая равновесная цена

txtEps-погрешность

txtEquilibriumPrice -равновесная цена

4. Структура данных и программного обеспечения

Структура программы строится на основе модульного принципа программирования, который заключается в разделении программы на функционально-самостоятельные части (модули).

Преимущества использования модульного принципа программирования состоит в следующем:

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

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

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

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

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

Представим схему разработанного программного обеспечения:

Рисунок 4.1 - Схема программы

На рисунке 4.1 изображена схема разработанного программного обеспечения. Имеется 6 подпрограмм:

· btnResult_Click() - предназначена для нахождения точки равновесия методом Секущих;

· btnExit_Click() - закрытие формы;

· btnClearForm_Click() - очистка пользовательской формы UserFormMetodSec, т.е. удаление всех веденных пользователем данных и результатов вычисления программы;

· btnConstructionGraph_Click() - построение графика, отражающего взаимодействие спроса и предложения.

· btnCoefficients_Click() - запись коэффициентов, полученных при построении графика, на пользовательскую форму.

5. Разработка алгоритмов

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

Алгоритмы в явной или неявной форме содержат следующий ряд общих требований:

· Дискретность -- алгоритм должен представлять процесс решения задачи как последовательное выполнение некоторых простых шагов.

· Детерминированность -- определённость.

· Понятность -- алгоритм для исполнителя должен включать только те команды, которые ему (исполнителю) доступны, которые входят в его систему команд.

· Завершаемость (конечность) -- при корректно заданных исходных данных алгоритм должен завершать работу и выдавать результат за конечное число шагов.

· Массовость -- алгоритм должен быть применим к разным наборам исходных данных.

· Результативность -- завершение алгоритма определёнными результатами.

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

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

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

Для разработки алгоритмов, т.е. для преобразования условия задачи в алгоритм ее решения, существует множество методик. Наиболее известная и широко применяемая носит название пошагового расширения или пошаговой детализации. Суть этой методики состоит в том, что разработка алгоритма, представляет собой итерационный процесс, каждый шаг которого включает в себя разложение функции модули или всей задачи на подфункции. В конечном итоге эти подфункции превращаются в шаги нужной программы. Первый шаг связан с общим описанием функции. Разложение первого общего шага в последовательность шагов второго или более низшего уровня заставляет более точно определять логику модуля. Это и есть детализация предыдущей формулировки задачи. Таким образом, модуль расширяется по мере добавления и уточнения деталей.

Приведем схему алгоритма, показывающую последовательность определения точки равновесия методом Секущих:

Рисунок 5.1 - Схема алгоритма нахождения точки равновесия методом Секущих

Рисунок 5.2 - Схема алгоритма вычисления уравнения

Рисунок 5.3 - Схема макроса построения графика

Рисунок 5.4 - Схема макроса вычислений коэффициентов

При реализации данного алгоритма, описывающего нахождение точки равновесия методом Секущих, на языке программирования Visual Basic For Application выполняются следующие действия:

1. По данным находящимся на листе Excel строиться график

2. Считываются исходные данные (коэффициенты, погрешность, интервал).

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

4. Вывод полученных результатов через окно MsgBox.

6. Тестирование и отладка программного обеспечения

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

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

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

Тестирование - это процесс исполнения программы с целью обнаружения ошибок.

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

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

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

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

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

Протестируем программу, высчитав точку пересечения кривой спроса и предложения вручную.

Вводим произвольные значения цены, предложения и спроса (рис.6.1).

Рисунок 6.1 - Исходные данные

По исходным значениям строим график, используя пункт меню «Диаграмма». К полученному графику добавляем линию тренда и определяем уравнения, описывающие кривые спроса и предложения (рис.6.2).

Рисунок 6.2 - Спрос и предложение

Уравнение спроса: y = 0,2857x2 + 1,7143x - 0,5714

Уравнение предложения: y = 0,119x2 - 3,381x + 23,857

Приравняв уравнения спроса и предложения, получим значения объёма товара, одно из которых удовлетворяет условию равновесия.

0,2857x2 + 1,7143x - 0,5714 = 0,119x2 - 3,381x + 23,857

0,1667х2 + 5,0953х - 24,4284 = 0

х1 ? 4,2 х2 ? -34,8.

Так как х2 не попадает в интервал цен, корнем является значение х1.

Сравниваем полученные данные с результатом, полученным при использовании метода Секущих для определения точки равновесия (рис. 6.3 и рис. 6.4).

Рисунок 6.3 - График. Результат вычислений программы

Рисунок 6.4 - Пользовательская форма. Результат вычислений программы

Таким образом равновесие на рынке товаров наблюдается при равновесной цене, примерно равной 4,2.

Заключение

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

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

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

Литература

1. Зубко Н.М., Зубко А.Н., Экономическая теория - Мн., «ТетраСиситемс»,

2002

2. Тур А.Н., Курс экономической теории - Мн.,ООО «Мисанта», 1988

3. Мышкис А.Д., Лекции по высшей математике, Издательство «Наука», М.,

1964

4. Гальперин В.М., том 1, Микроэкономика, Высшая школа, С.- П., 2000

Приложение А

Dim dA As Double, dB As Double, dC As Double, sA As Double, sB As Double, sC As Double 'коэффициенты

Private Sub btnClearForm_Click() 'очистка формы

txtDa.Text = ""

txtDb.Text = ""

txtDc.Text = ""

txtSa.Text = ""

txtSb.Text = ""

txtSc.Text = ""

txtEquilibriumPrice.Text = ""

txtX1.Text = ""

txtX2.Text = ""

txtEps.Text = ""

txtDa.SetFocus

End Sub

Private Sub btnCoefficients_Click() ' запись коэффициентов на форму

dA = Round(Cells(3, 11), 4)

dB = Round(Cells(3, 12), 4)

dC = Round(Cells(3, 13), 4)

sA = Round(Cells(6, 11), 4)

sB = Round(Cells(6, 12), 4)

sC = Round(Cells(6, 13), 4)

txtDa.Value = dA

txtDb.Value = dB

txtDc.Value = dC

txtSa.Value = sA

txtSb.Value = sB

txtSc.Value = sC

End Sub

Private Sub btnConstructionGraph_Click() 'построение графика

With Worksheets(1)

Range("A2:C8").Select

'добавить диаграмму в коллекцию Charts

Charts.Add

'указывает тип графика (график с маркерами)

ActiveChart.ChartType = xlLineMarkers

'указывает источник данных для построения диаграммы (в данном случае ячейки A2:C8 на листе 1)

ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A2:C8"), PlotBy:= _

xlColumns

ActiveChart.SeriesCollection(3).Delete

'подписи по оси X

ActiveChart.SeriesCollection(1).XValues = "=Лист1!R2C3:R8C3"

ActiveChart.SeriesCollection(2).XValues = "=Лист1!R2C3:R8C3"

'указывает где будет расположена диаграмма. расположить диаграмму на листе 1

ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

ActiveChart.SeriesCollection(1).Select

'добавление линии тренда

ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=2 _

, Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:= _

False).Select

ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select

Selection.Left = 317

Selection.Top = 20

ActiveChart.SeriesCollection(2).Select

'добавление линии тренда

ActiveChart.SeriesCollection(2).Trendlines.Add(Type:=xlPolynomial, Order:=2 _

, Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:= _

False).Select

ActiveChart.SeriesCollection(2).Trendlines(1).DataLabel.Select

Selection.Left = 307

Selection.Top = 236

End With

End Sub

Private Sub btnExit_Click() ' закрытие формы

UserFormMetodSec.Hide

End Sub

Function F(x) As Double

F = dA * x ^ 2 + dB * x + dC - (sA * x ^ 2 + sB * x + sC)

End Function

Private Sub btnResult_Click() ' вычисление равновесной цены методом секущих

Dim x1 As Double, x2 As Double, x As Double

Dim F1 As Double, F2 As Double

Dim e As Double

x1 = txtX1.Value

x2 = txtX2.Value

e = txtEps.Value

While x2 - x1 > e

F1 = F(x1)

F2 = F(x2)

x = x2 - (x2 - x1) / (F2 - F1) * F2

x1 = x2

x2 = x

Wend

MsgBox ("Равновесная цена = " & x2)

txtEquilibriumPrice.Text = x2

End Sub

Размещено на Allbest.ru

...