Iteration mit VBA über Newton Verfahren
15.03.2009 10:32:00
AS
Ich habe folgende Werte x,A,B,C und p0 ( ist const) und möchte iterativ die Temperatur T bestimmen in folgender Funktion f(T):
http://img79.imageshack.us/img79/3463/formel.jpg
http://img262.imageshack.us/my.php?image=tabelle.jpg
wenn ich alles schön einzeln deklariere funktioniert mein Code wunderbar,
nun möchte ich aber mit einer For-Schleife mir die Arbeit ersparen.
Leider funktioniert der Code so, wie ich es mir gedacht habe nicht.
Hier der Code:
Private Sub Test()
Dim x As Variant
Dim A As Variant
Dim B As Variant
Dim C As Variant
Dim i As Integer
Dim fT(1 To 1, 1 To 5) As Double
Dim dfT(1 To 1, 1 To 5) As Double
Dim p0 As Variant
x = Sheets("Tabelle1").Range("B5:B9")
A = Sheets("Tabelle1").Range("C5:C9")
B = Sheets("Tabelle1").Range("D5:D9")
C = Sheets("Tabelle1").Range("E5:E9")
p0 = Sheets("Tabelle1").Range("H5")
e = 2.718281828459
'Startwert T
T = 273.15
Do
For i = 1 To 5
fT(1, i) = fT(1, i) + x(i, 1) * e ^ (A(i, 1) - (B(i, 1)) / (T + C(i, 1))) - p0
'Abbruchbedingung
If Abs(fT(1, i))
Wäre über jede Hilfe dankbar !