here is the actual code that I am working on
Code
Sub ROMBERG_INTEGRATION()
Dim x As Double
Dim l As Double
Dim u As Double
Dim fx As Double
Dim fl As Double
Dim fu As Double
Dim i As Integer
Dim sum As Double
Dim pi As Double
Dim R_1(20, 1)
Dim R_2(20, 20)
Dim ii As Integer
pi = 3.14159265358979
l = 1.3
u = 13.2
fl = (l) ^ 1.3 + 10 ''' CHANGE FUNCTION HERE '''
fu = (u) ^ 1.3 + 10 ''' CHANGE FUNCTION HERE '''
sum = 0
For i = 0 To 20
For x = l To u Step (u - l) / ((2) ^ i)
fx = (x) ^ 1.3 + 10 ''' CHANGE FUNCTION HERE '''
sum = sum + fx
Next
R_1(i, 1) = sum * 2
sum = 0
Next
For ii = 0 To 19
R_2(0, 0) = (fl + fu)
R_2(ii, 0) = (u - l) / ((2) ^ (ii + 1)) * (fl + fu + R_1(ii - 0, 1))
Next
Display More
and the code continues..