Точка безубыточности

СОДЕРЖАНИЕ

Введение…………………………………………………………………...……3

          1. Экономико-математическая модель………………………………….4

          1.1 Издержки производства, себестоимость, прибыль………………..4              

              1.2. Точка безубыточности, построение графика………………………6

              1.3. Методы математического программирования…………………… 8

              1.4. Аппроксимация……………………………………………………..10

          2. Программа…………………………………………………………….12

          2.1. Листинг программы………………………………………………..13

          2.2. Таблица с результатами……………………………………………22

          2.3. График безубыточности……………………………………………24

          3. Анализ результатов и выводы……………………………………….25

          Список используемой литературы…………………………………….26

ВВЕДЕНИЕ

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

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

1. ЭКОНОМИКА МАТЕМАТИЧЕСКОЙ МОДЕЛИ

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

1.1 Издержки производства, себестоимость, прибыль

ИЗДЕРЖКИ ПРОИЗВОДСТВА - полные издержки, затраты, непосредственно связанные с производством продукции и обусловленные им. Различают разные виды таких издержек. Постоянные издержки - затраты, имеющие место вне зависимости от объема производства, например затраты на содержание зданий, административного аппарата, на обслуживание. Переменные издержки - затраты, непосредственно связанные с объемом производства, изменяющиеся в зависимости от объема, например затраты на материалы, сырье, полуфабрикаты, сдельная оплата труда работников. Полные (общие, валовые) издержки - сумма постоянных и переменных издержек. Прямые издержки производства - издержки производства конкретной продукции, которые могут быть отнесены непосредственно на ее себестоимость. Издержки средние - средние величины издержек, приходящиеся на одно изделие, на единицу продукции за определенный промежуток времени, либо в партии товаров, либо по группе предприятий. Издержки эксплуатационные - расходы, связанные с эксплуатацией оборудования, машин, транспортных средств, использованием, применением разных видов средств производства и предметов хозяйственного обихода.

СЕБЕСТОИМОСТЬ — это стоимостная оценка используемых в процессе производства продукции (работ, услуг) природных ресурсов, сырья, материалов, топлива, энергии, основных фондов, трудовых ресурсов и других затрат на ее производство и реализацию. Себестоимость продукции является  не  только  важнейшей  экономической категорией,  но  и  качественным  показателем,  так  как  она  характеризует уровень использования всех ресурсов (переменного  и  постоянного  капитала), находящихся в распоряжении предприятия.

Различают следующие виды себестоимости;  цеховая,  производственная  и полная.

Цеховая себестоимость представляет собой  затраты  цеха,  связанные  с

производством продукции.

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

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

ПРИБЫЛЬ — превышение в денежном выражении доходов от продажи товаров и услуг над затратами на производство и сбыт этих товаров и услуг.

-валовая прибыль:
1) прибыль от реализации продукции 2) прибыль от реализации основных фондов 3)прибыль от внереализационных операций

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

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

1.2 Точка безубыточности

ТОЧКА БЕЗУБЫТОЧНОСТИ - минимальный объем производства и реализации продукции, при котором расходы будут компенсированы доходами, а при производстве и реализации каждой последующей единицы продукции предприятие начинает получать прибыль. Точку безубыточности можно определить в единицах продукции, в денежном выражении или с учётом ожидаемого размера прибыли.

Для расчета точки безубыточности надо разделить издержки на две составляющие:

1. Переменные затраты — возрастают пропорционально увеличению производства (объему реализации товаров).

2. Постоянные затраты — не зависят от количества произведенной продукции (реализованных товаров) и от того, растет или падает объем операций.

Рис. 1. Точка безубыточности.

Рис. 2. Предварительная точка безубыточности.

1.3. Методы математического программирования.

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

    Математическое   программирование   —    быстроразвивающийся    раздел

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

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

дефицитности производственных ресурсов и т. п.

ИНТЕРПОЛЯЦИЯ — в вычислительной математике способ нахождения промежуточных значений величины по имеющемуся дискретному набору известных значений.

Рис. 3. Интерполяция.

Простейшая задача интерполирования заключается в следую­щем. На отрезке [a,b] заданы n+1 точек x0, x1, …, xn, которые на­зываются узлами интерполирования, и значения функции f(x) в этих точках

f(x0) = y0, f(x1) = y1, …, f(xn) = yn.

Требуется построить функцию F(x) (интерполирующую функ­цию), принимающую в узлах интерполяции те же значения, что и f(x), т.е. такую, что

F(x0) = y0, F(x1) = y1, …, F(xn) = yn.

Геометрически это обозначает, что нужно найти кривую y=F(x), проходящую через заданную систему точек Mi(xi,yi). Полу­ченная интерполяционная функция используется для нахождения значений функции в точках, не являющихся узлами интерполяции. Такие точки могут находиться как внутри интервала [x0,xn], так и вне. В первом случае такие операции называются интерполирова­нием в узком смысле, во втором — экстраполированием.

1.4. Аппроксимация

АППРОКСИМАЦИЯ - это подбор эмпирических формул, позво­ляющих представить в аналитической форме данные статистиче­ских наблюдений, измерений и т.д., представленные в виде таблич­ных зависимостей.

Задача аппроксимации формулируется следующим образом: требуется подобрать функцию y=f(x), чтобы она, по возможности, наиболее точно отражала общую зависимость величин {yi} от {xi}. Решается данная задача в три этапа:

1)                 определение в общем виде возможных аппроксимирую­щих функций с точностью до постоянных коэффициентов;

2)                 определение величин коэффициентов таким образом, чтобы каждая функция как можно лучше отвечала данным измере­ний;

3)                 выбор из полученных аналитических зависимостей функ­ции лучшей.

4)                  

Рис. 4. Аппроксимация табличной зависимости линейной функцией.

Например, при аппроксимации табличной зависимости линей­ной функцией y=ax+b необходимо найти такие a и b , чтобы сумма  имела минимальное значение. Эти коэффици­енты можно определить, приравняв нулю частные производные данной суммы по a и b:

Решая эту систему относительно переменных a и b, получим численное определение данных коэффициентов. Такой подход используется и при аппроксимации другими видами функций.

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

2. ПРОГРАММА

Microsoft Excel имеет встроенный язык программирования - Visual Basic for Аpplications (VBA). Этот язык позволяет создавать приложения, выполняемые в среде Microsoft Office. Это могут быть разнообразные аналитические программы, финансовые системы, программы учета кадров, системы автоматического создания официальных писем/документов с помощью библиотеки готовых шаблонов и т.п. При этом интерфейс создаваемой программы может быть совершенно непохожим на интерфейс того приложения, в котором она написана.  

VBA сочетает в себе практически неограниченные возможности с простотой изучения и использования. Теперь большинство функций можно описать, не прибегая к программированию. В том случае, если возможностей языка недостаточно, можно обратиться к API-функциям Windows. Пожалуй, самое главное достоинство VBA в том, что этот язык является единым для всех офисных приложений Microsoft и поэтому позволяет связывать их между собой. Уже сейчас из программы, написанной в Excel, можно обращаться к объектам Word для Windows, а также Microsoft Project. Это открывает заманчивые перспективы. Представьте, что пользователь на конкретном рабочем месте должен на основе некоторых данных, извлекаемых из базы, делать их анализ, строить диаграммы и проектировать деятельность организации, а также автоматически выполнять рассылку этих обработанных данных по некоторым адресам вместе с сопроводительным письмом. Все это можно сделать средствами офисных продуктов Microsoft, однако при этом пользователь должен в совершенстве овладеть каждым из них. В случае если программа для решения этой задачи написана на VBA, пользователю придется изучить только ее.  

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

Одним из важнейших функциональных расширений программы, предназначенным для профессионалов, является встроенная в Excel Среда программирования Visual Basic (VBA) для решения прикладных задач. Благодаря VBA фирме Microsoft удалось не только расширить возможности языка макрокоманд Excel 4.0, но и ввести новый уровень прикладного программирования, поскольку VBA позволяет создавать полноценные прикладные пакеты, которые по своим функциям выходят далеко за рамки обработки электронных таблиц.  

2.1 Листинг программы

Sub Макрос1()

'задаем массив данных

Dim x(1 To 10) As Double   'х - объем производства, имеет 10 различных значений

    Dim y(1 To 10) As Double   'y - суммарные издержки, имеет 10 различных значений

    Dim Sx  As Double   'Sx - сумма значений х

    Dim Sy  As Double   'Sy - сумма значенй y

    Dim Sxy  As Double   'Sxy - сумма произведения xy

    Dim Sx2 As Double   'Sx2 - сумма x^2

    Dim Sk  As Double   'Sk - седнеквадратичное отклонение

    Dim a  As Double   'a - коэффициент

    Dim b  As Double    'b - коэффициент

    Dim a1  As Double   'a1 - коэффициент

    Dim b1  As Double   'b1 - коэффициент

    Dim a2  As Double   'a2 - коэффициент

    Dim b2  As Double   'b2 - коэффициент

'вводим данные

    Range("A1").Select   'выбираем ячейку А1

    ActiveCell.FormulaR1C1 = "Объем"    'вводим в ячейку А1 данные

    Range("A3").Select

    ActiveCell.FormulaR1C1 = "Переменные издержки"

    Range("A5").Select

    ActiveCell.FormulaR1C1 = "Постоянные издержки"

    Range("A7").Select

    ActiveCell.FormulaR1C1 = "Доход"

    Range("A9").Select

    ActiveCell.FormulaR1C1 = "Суммарные издержки"

'вводим значения объема производства

    Range("A2").Select

    ActiveCell.FormulaR1C1 = "0.5"

    Range("B2").Select

    ActiveCell.FormulaR1C1 = "1"

    Range("C2").Select

    ActiveCell.FormulaR1C1 = "1.5"

    Range("D2").Select

    ActiveCell.FormulaR1C1 = "2"

    Range("E2").Select

    ActiveCell.FormulaR1C1 = "2.5"

    Range("F2").Select

    ActiveCell.FormulaR1C1 = "3"

    Range("G2").Select

    ActiveCell.FormulaR1C1 = "3.5"

    Range("H2").Select

    ActiveCell.FormulaR1C1 = "4"

    Range("I2").Select

    ActiveCell.FormulaR1C1 = "4.5"

    Range("J2").Select

    ActiveCell.FormulaR1C1 = "5"

'вводим значения переменных издержек

    Range("A4").Select

    ActiveCell.FormulaR1C1 = "7"

    Range("B4").Select

    ActiveCell.FormulaR1C1 = "10"

    Range("C4").Select

    ActiveCell.FormulaR1C1 = "16"

    Range("D4").Select

    ActiveCell.FormulaR1C1 = "24"

    Range("E4").Select

    ActiveCell.FormulaR1C1 = "32"

    Range("F4").Select

    ActiveCell.FormulaR1C1 = "47"

    Range("G4").Select

    ActiveCell.FormulaR1C1 = "123"

    Range("H4").Select

    ActiveCell.FormulaR1C1 = "230"

    Range("I4").Select

    ActiveCell.FormulaR1C1 = "237"

    Range("J4").Select

    ActiveCell.FormulaR1C1 = "471"

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

    Range("A6").Select

    ActiveCell.FormulaR1C1 = "1005"

    Range("B6").Select

    ActiveCell.FormulaR1C1 = "1014"

    Range("C6").Select

    ActiveCell.FormulaR1C1 = "1016"

    Range("D6").Select

    ActiveCell.FormulaR1C1 = "1014"

    Range("E6").Select

    ActiveCell.FormulaR1C1 = "1004"

    Range("F6").Select

    ActiveCell.FormulaR1C1 = "1043"

    Range("G6").Select

    ActiveCell.FormulaR1C1 = "1037"

    Range("H6").Select

    ActiveCell.FormulaR1C1 = "1014"

    Range("I6").Select

    ActiveCell.FormulaR1C1 = "1036"

    Range("J6").Select

    ActiveCell.FormulaR1C1 = "1044"

    Range("A8").Select

    ActiveCell.FormulaR1C1 = "260"

    Range("B8").Select

    ActiveCell.FormulaR1C1 = "510"

    Range("C8").Select

    ActiveCell.FormulaR1C1 = "759"

    Range("D8").Select

    ActiveCell.FormulaR1C1 = "1008"

    Range("E8").Select

    ActiveCell.FormulaR1C1 = "1264"

    Range("F8").Select

    ActiveCell.FormulaR1C1 = "1496"

    Range("G8").Select

    ActiveCell.FormulaR1C1 = "1783"

    Range("H8").Select

    ActiveCell.FormulaR1C1 = "2005"

    Range("I8").Select

    ActiveCell.FormulaR1C1 = "2317"

    Range("J8").Select

    ActiveCell.FormulaR1C1 = "2515"

    Range("A10").Select

   ActiveCell.FormulaR1C1 = "=R[-4]C+R[-6]C"

   Range("A10").Select

   Selection.AutoFill Destination:=Range("A10:J10"), Type:=xlFillDetault

    Range("L11").Select

    Sk = 0

    For i = 1 To 10

    x(i) = Cells(2, 1 + i - 1)

    y(i) = Cells(10, 1 + i - 1)

    Next i

    GoSub Lin

    Range("A11").Select

    ActiveCell.FormulaR1C1 = "Линейная аппроксимация суммарных издержек"

    Range("A12").Select

    ActiveCell.FormulaR1C1 = "a="

    Range("B12").Select

    ActiveCell.FormulaR1C1 = a

    Range("C12").Select

    ActiveCell.FormulaR1C1 = "b="

    Range("D12").Select

    ActiveCell.FormulaR1C1 = b

    a1 = a

    b1 = b

    For i = 1 To 10

    Cells(13, 1 + i - 1).Value = a * x(i) + b

    Sk = Sk + (y(i) - a * x(i) - b) ^ 2

    Sk = Sk ^ 1 / 2

    Next i

    Range("A14").Select

    ActiveCell.FormulaR1C1 = "Среднеквадратичное отклонение"

    Range("G14").Select

    ActiveCell.FormulaR1C1 = Sqr(Sk / 10)

    With Range("A14:G14").Font

    .FontStyle = "Bold"

End With

    Sk = 0

    For i = 1 To 10

    x(i) = Cells(2, 1 + i - 1)

    y(i) = Cells(10, 1 + i - 1)

    Next i

    GoSub Step

    Range("A15").Select

    ActiveCell.FormulaR1C1 = "Степенная аппроксимация суммарных издержек"

    Range("A16").Select

    ActiveCell.FormulaR1C1 = "a="

    Range("B16").Select

    ActiveCell.FormulaR1C1 = a

    Range("C16").Select

    ActiveCell.FormulaR1C1 = "b="

    Range("D16").Select

    ActiveCell.FormulaR1C1 = b

    For i = 1 To 10

    Cells(17, 1 + i - 1).Value = a * (x(i) ^ b)

    Sk = Sk + (a * (x(i) ^ b) - y(i)) ^ 2

    Sk = Sk ^ 1 / 2

    Next i

    Range("A18").Select

    ActiveCell.FormulaR1C1 = "Среднеквадратичное отклонение"

    Range("G18").Select

    ActiveCell.FormulaR1C1 = Sqr(Sk / 10)

    With Range("A18:G18").Font

    .FontStyle = "Bold"

    End With

    Sk = 0

    For i = 1 To 10

    x(i) = Cells(2, 1 + i - 1)

    y(i) = Cells(10, 1 + i - 1)

    Next i

    GoSub Pokas

    Range("A19").Select

    ActiveCell.FormulaR1C1 = "Показательная аппроксимация суммарных издержек"

    Range("A20").Select

    ActiveCell.FormulaR1C1 = "a="

    Range("B20").Select

    ActiveCell.FormulaR1C1 = a

    Range("C20").Select

    ActiveCell.FormulaR1C1 = "b="

    Range("D20").Select

    ActiveCell.FormulaR1C1 = b

    For i = 1 To 10

    Cells(21, 1 + i - 1).Value = a * (b ^ x(i))

     Sk = Sk + ((a * (b ^ x(i))) - y(i)) ^ 2

    Sk = Sk ^ 1 / 2

    Next i

    Range("A22").Select

    ActiveCell.FormulaR1C1 = "Среднеквадратичное отклонение"

    Range("G22").Select

    ActiveCell.FormulaR1C1 = Sqr(Sk / 10)

    With Range("A22:G22").Font

    .FontStyle = "Bold"

    End With

    Sk = 0

    For i = 1 To 10

    x(i) = Cells(2, 1 + i - 1)

    y(i) = Cells(8, 1 + i - 1)

    Next i

    GoSub Lin

    Range("A23").Select

    ActiveCell.FormulaR1C1 = "Линейная аппроксимация дохода"

    Range("A24").Select

    ActiveCell.FormulaR1C1 = "a="

    Range("B24").Select

    ActiveCell.FormulaR1C1 = a

    Range("C24").Select

    ActiveCell.FormulaR1C1 = "b="

    Range("D24").Select

    ActiveCell.FormulaR1C1 = b

    a2 = a

    b2 = b

    For i = 1 To 10

    Cells(25, 1 + i - 1).Value = a * x(i) + b

    Sk = Sk + (y(i) - a * x(i) - b) ^ 2

    Sk = Sk ^ 1 / 2

    Next i

    Range("A26").Select

    ActiveCell.FormulaR1C1 = "Среднеквадратичное отклонение"

    Range("G26").Select

    ActiveCell.FormulaR1C1 = Sqr(Sk / 10)

    With Range("A26:G26").Font

    .FontStyle = "Bold"

    End With

    Sk = 0

    For i = 1 To 10

    x(i) = Cells(2, 1 + i - 1)

    y(i) = Cells(8, 1 + i - 1)

    Next i

    GoSub Step

    Range("A27").Select

    ActiveCell.FormulaR1C1 = "Степенная аппроксимация дохода"

    Range("A28").Select

    ActiveCell.FormulaR1C1 = "a="

    Range("B28").Select

    ActiveCell.FormulaR1C1 = a

    Range("C28").Select

    ActiveCell.FormulaR1C1 = "b="

    Range("D28").Select

    ActiveCell.FormulaR1C1 = b

    For i = 1 To 10

    Cells(29, 1 + i - 1).Value = a * x(i) ^ b

    Sk = Sk + (y(i) - a * x(i) ^ b) ^ 2

    Sk = Sk ^ 1 / 2

    Next i

    Range("A30").Select

    ActiveCell.FormulaR1C1 = "Среднеквадратичное отклонение"

    Range("G30").Select

    ActiveCell.FormulaR1C1 = Sqr(Sk / 10)

    With Range("A30:G30").Font

    .FontStyle = "Bold"

    End With

    Sk = 0

    For i = 1 To 10

    x(i) = Cells(2, 1 + i - 1)

    y(i) = Cells(8, 1 + i - 1)

    Next i

    GoSub Pokas

    Range("A31").Select

    ActiveCell.FormulaR1C1 = "Показательная аппроксимация дохода"

    Range("A32").Select

    ActiveCell.FormulaR1C1 = "a="

    Range("B32").Select

    ActiveCell.FormulaR1C1 = a

    Range("C32").Select

    ActiveCell.FormulaR1C1 = "b="

    Range("D32").Select

    ActiveCell.FormulaR1C1 = b

    For i = 1 To 10

    Cells(33, 1 + i - 1).Value = a * b ^ x(i)

    Sk = Sk + (y(i) - a * b ^ x(i)) ^ 2

    Sk = Sk ^ 1 / 2

    Next i

    Range("A34").Select

    ActiveCell.FormulaR1C1 = "Среднеквадратичное отклонение"

    Range("G34").Select

    ActiveCell.FormulaR1C1 = Sqr(Sk / 10)

    With Range("A34:G34").Font

    .FontStyle = "Bold"

    End With

    a1 = Cells(12, 2)

    b1 = Cells(12, 4)

    a2 = Cells(24, 2)

    b2 = Cells(24, 4)

    Range("A35").Select

    ActiveCell.FormulaR1C1 = "Точка безубыточности"

    Range("A36").Select

    ActiveCell.FormulaR1C1 = "y="

    Range("B36").Select

    ActiveCell.FormulaR1C1 = (a1 * b2 - a2 * b1) / (a1 - a2)

    Range("C36").Select

    ActiveCell.FormulaR1C1 = "x="

    Range("D36").Select

    ActiveCell.FormulaR1C1 = (b2 - b1) / (a1 - a2)

    With Range("A35:D36").Font

    .FontStyle = "Bold"

    End With

      Exit Sub

Lin:

    Sx = 0

    Sy = 0

    Sxy = 0

    Sx2 = 0

  For i = 1 To 10

  Sx = Sx + x(i)

  Sy = Sy + y(i)

  Sxy = Sxy + x(i) * y(i)

  Sx2 = Sx2 + x(i) ^ 2

  Next i

  a = (10 * Sxy - Sx * Sy) / (10 * Sx2 - Sx ^ 2)

  b = (Sy - a * Sx) / 10

Return

Step:

     Sx = 0

     Sy = 0

     Sx2 = 0

     Sxy = 0

     For i = 1 To 10

     Sx = Sx + Log(x(i))

     Sx2 = Log(x(i) ^ 2) + Sx2

     Sy = Sy + Log(y(i))

     Sxy = Sxy + Log(x(i) * y(i))

     Next i

     b = (10 * Sxy - Sx * Sy) / (9 * Sx2)

     a = (Sxy - b * Sx)

     Return

Return

Pokas:

Sx = 0

Sy = 0

Sxy = 0

Sx2 = 0

For i = 1 To 10

Sx = Sx + x(i)

Sy = Sy + (Log(y(i)) / Log(10))

Sxy = Sxy + (Log(x(i) * y(i)) / Log(10))

Sx2 = Sx2 + x(i) ^ 2

Next i

b1 = (Sxy - Sy) / (Sx2 - Sx)

a1 = (Sy - b1 * Sx) / 10

b = 10 ^ b1

a = 10 ^ a1

Return

End Sub

'Sub график()

' график Макрос

Range("A4:K5").Select                           Выбираем диапазон ячеек

ActiveSheet.Shapes.AddChart.Select Выбираем активный лист для создания диаграммы

ActiveChart.SetSourceData Source:=Range("Лист1!$A$4:$K$5") Для построения объекта (график) мы выбираем активный диапозон значений

ActiveChart.ChartType = xlLineMarkers   В активном объекте создаем оси и их значения

ActiveChart.SeriesCollection(1).XValues = "=Лист1!$B$1:$K$1"

End Sub

1

2.2 Таблица с результатами

1

2.3 График безубыточности

3. АНАЛИЗ РЕЗУЛЬТАТОВ И ВЫВОДЫ.

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

1

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. Игнатенко С.П,  Беленченко В.М.,  Основы вычислительных методов: Учебно-методическое пособие по курсу: «Информатика» / Н: ЮРГТУ, 2002

2. В.И.Павленко, Т.Г.Плеханова, Т.П.Коновалова; Учебно-методическое пособие по курсу «Информатика» Шахтинский ин-т (филиал) ЮРГТУ (НПИ). – Новочеркасск: ЮРГТУ, 2007

3. Гниденко И.Г, Соколовская С.А. «Информатика», изд. «Вектор»,2006

4. Зайдель. Х , Теммен.Р «Основы учения об экономике» М.: Дело ЛТД. 1994

5. Робинсон. Дж. «Экономическая теория» М. 1986

1

1