Hier VB code voor de voorgestelde Riemann-som methode:
code:
1
2
3
4
5
6
7
8
9
10
11
12
| Function func(x)
func = x * x
End Function
Function myFunction(b, e, steps)
Dim stepsize As Double
Dim i As Integer
stepsize = (e - b) / steps
For i% = 1 To steps
myFunction = myFunction + (func(i * stepsize) * stepsize)
Next i%
End Function |
In func heb ik de functie die geintegreerd moet worden gedeclareerd. Als je nu in een cel zet =myFunction(0,1,1000), dan wordt func(x) van 0 tot 1 geintegreerd (met stepsize 1/1000).
Plak dit in de VB-editor die je kunt bereiken via Tools -> Macro -> VB editor. En doe dan alt+q.
Dit is de eerste keer dat ik iets in VB heb geschreven... het werkt geloof ik wel en verdient vast geen schoonheidsprijs...
edit: VB code ingekort
[
Voor 7% gewijzigd door
Verwijderd op 10-10-2005 18:42
]