Suche jemanden der das Trapezverfahren in Basic au

Computer: Software & Programmierung Visual Basic
#1

Hier habe ich es schon für das Rechteckverfahren.
Interval von A bis B
N anzahlt der Rechtecke
U Fläche

Untersumme:

(B-A)/N -> H
sum(seq(H*Y1(A+K*H),K,0,N-1))-> U
disp U

Obersumme

(B-A)/N ->H
sum(seq(HY1(A+K*H),K,1,N))-> O
dips O

Hier habe ich eine Gute Erklärung des Trapezverfahren:
http://www.youtube.com/watch?v=DudvAURJDtg
Vielleicht hilft das weiter für das Programmieren.

Ich kriege das einfach nicht hin.

#2

(B-A)/N -> H

#3

die im video angedeutet summe muss lauten:

i=1 bis N-1; summe( f(a+i*(b-a)/N )

noch ein bischen umgeformt und man erhält:

(B-A)/N -> H
sum(seq(Y1(A+K*H),K,1,N-1)+(Y1(A)+Y1(B))/2)*H -> T
disp T