Verfasst: 20.11.2006 14:31
ich hab mal versucht, einen Codeschnipsel zu schreiben, der den Einschwingvorgang darstellt.
Die Schleife 2 ist viel eher konstant, als die Schleife 2.
Nur vom Prinzip her, mein Original ist viel umfangreicher, rund 300 Zeilen Proc
Die Schleife 2 ist viel eher konstant, als die Schleife 2.
Nur vom Prinzip her, mein Original ist viel umfangreicher, rund 300 Zeilen Proc
Code: Alles auswählen
Dim t.f(10)
t(0) = 100
t(1) = 200
t(2) = 250
t(3) = 300
t(4) = 1500
t(5) = 0
t(6) = 200
t(7) = 300
t(8) = 0
t(9) = 100
Debug "Schleife 1"
For x = 0 To 10
For i = 0 To 9
a = t(i)*i*10000 - b
b = a * 0.9
Debug a
Next
Debug "------------"
Next
Debug "Schleife 2"
For x = 0 To 10
For i = 0 To 9
a = t(i)*i*10000 - d
c = b
b = a * 0.9
d = (c+d)/2
Debug a
Next
Debug "------------"
Next