Информационные технологиии в экономике

Автор работы: Пользователь скрыл имя, 08 Декабря 2011 в 17:19, курсовая работа

Краткое описание

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

Скачать целиком (106.69 Кб) Сколько стоит заказать работу?
Содержимое работы - 1 файл

Информационные технологии в экономике.doc

— 1.89 Мб (Скачать файл)

    .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 = Sk

    With Range("A26:G26").Font

    .FontStyle = "Bold"

    End With

    Sk = 0

    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 = Sk

    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

    a2 = a

    b2 = b

    For i = 1 To 10

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

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

    Sk = Sk ^ 1 / 2

    Next i

    Range("A34").Select

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

    Range("G34").Select

    ActiveCell.FormulaR1C1 = Sk

    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

    Sxy = 0

    Sx2 = 0

    For i = 1 To 10

    Sx = Sx + (Log(x(i)) / Log(10))

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

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

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

    Next i

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

   a = 10 ^ ((Sxy - b * Sx) / 10)

    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 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Анализ  результатов и  выводы 

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

     По  итогам проведения данной работы, в  которой был произведен  анализ безубыточности проектируемого предприятия  по статистическим данным и условно планируемым: постоянным и прямым затратам, совокупному доходу, в зависимости от объема производства; было рассчитано среднеквадратичное отклонение и найдена точка безубыточности, при издержках равных 1224,159 и объеме производства равном 3,217427, данная точка была получена в результате проведения линейной аппроксимации, так как среднеквадратичное отклонение наименьшее по издержкам равным 576259,61 и по линейной аппроксимации дохода равные 3913,6825. Для всех выше перечисленных вычислений был выбран метод наименьших квадратов, т.к МНК состоит в выборе параметров аппроксимирующей функции таким образом, чтобы расстояние между точками исходного множества данных и соответствующими точками аппроксимирующей функции было минимальным, а следовательно при нахождении точки безубыточности, погрешности также были  минимальными, в результате чего были получены точные данные. 
 
 
 
 
 
 
 
 
 
 
 
 

    Литература 

  1.  Экономика: Учебник под ред. Доц. А.С. Булатова . - М.: Издательство, БЕК 1995. – 632 с.
  2. Экономика: Учебник под ред. Ломакина В.К . – М.: ЮНИТИ – ДАНА, 2004. – 735 с.
  3. Лапин Н.И. Экономика предприятий // М.: Наука.2001.
  4. Осланов С.И Об объекте и предмете макроэкономики // М.: Издательство МГУ, 1994.
  5. Капитонов Э.А Экономика малых и больших предприятий // М.: ИНФРА – М 2004.
  6. Беленченко В.М., Игнатенко С.П. Основы вычислительных методов: Учебно-методическое пособие по курсу: «Информатика» / Н: ЮРГТУ, 2002, 36с.
  7. Уокенбах Дж. Профессиональное программирование на VBA в Excel 2002. – М. Диалектика, 2003.
  8. Кузьменко В.Г. VBA 2002. – М. Бином, 2002.
  9. Васильков Ю.В., Василькова Н.Н. Компьютерные технологии вычислений в математическом моделировании. – М. «Финансы и статистика», 2004.
  10. Кузьменко В.Г. VBA 2002. – М. Бином, 2002.
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Содержание:

Введение

  1. Издержки предприятия и прибыль………………………..5
  2. Рентабельность……………………………………………..8
  3. Аппроксимация. Метод наименьших квадратов……….11

    Листинг программы (распечатка макроса)………………..15

    Распечатка  результатов вычислений……………………...23

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

    Литература 

Информация о работе Информационные технологиии в экономике