AW: Fläche unter einer Sinus Kurve
Uwe
Sind hier in "letzter Minute" die Lösungen für Leisungskursaufgaben gesucht? ;-)
Ich vermute, dass mit Rechteckprinzip die Trapezformel gemeint ist:
dI = (sin(xi-1)-sin(xi))*dx/2
Als Grundgerüst kann dafür vielleicht diese Funktion dienen:
Option Explicit
Public
Function Isin(x0 As Double, x1 As Double, dx As Double) As Double
Dim si As Double, sj As Double
Dim xi As Double, xj As Double
Dim I0j As Double
xi = x0: si = Sin(xi)
While xj < x1
xj = xi + dx
If xj > x1 Then xj = x1
sj = Sin(xj)
I0j = I0j + (si + sj) * dx / 2
xi = xj
si = sj
Wend
Isin = I0j
End Function
Einzuarbeiten ist der Übergang vom positiven Bereich (0..pi) in den negativen Bereich (pi..2pi) und die Behandlung der Flächen im Bereich pi...2*pi.
Der Funktionsaufruf wird durch die Zellenformel
=Isin(Anfangswert in rad, Endwert in rad, Schrittweite in rad)
Erweiterungen dieses Ansatzes sind bestimmt in viele Richtung möglich (Eingabe nicht der Schrittweite, sonder der Anzahl der Abschnitte; Eingabe in Grad)
Gruß!