기본적인 적분 코드 (visual basic, Excel VBA)

기본적인 적분 코드 (visual basic, Excel VBA)

 

121023_강승원_간단한 적분계산.hwp

Visual basic에서는 적분 계산이 기본으로 제공되지 않습니다.
엑셀에 내장된 vba에서 활용하기 위해 간단한 적분을 코드로 작성해 보았습니다.

 

 

아래의 코드는 0.01씩 5.00까지 총 500개를 쪼개어 각 각의 값을 구한 뒤 총 합을 더하는 내용입니다.

계산기(Texas instruments사의 Ti-89) 와 비슷한 값을 얻기 위해서는
5,000,000 회 정도로 쪼개면 비슷해 지는 것을 확인하였습니다.

쪼갬 횟수가 늘어날수록 프로그램의 속도가 늦어지는 단점이 있습니다.
이를 해결하기 위해서는 적분 알고리즘을 이용한 코드작성이 필요하다는 것을 느꼈습니다.
고맙습니다.

======================================================
코드

Option Explicit

Private Sub integral()

    Dim i As Long
    Dim Sum As Double

    '=======================================
    'Constant setting
    Const Max As Long = 500 '횟수 설정
       
    '========================================
    'start
   
    For i = 1 To Max

         Sum = Sum + ((i * 0.01) ^ 2 + 2 * (i * 0.01)) * 0.01

    Next i

    MsgBox Sum

End Sub

사용언어 visual basic

===================================