Zitat Zitat von Tryan
so läuft das um Welten schneller ab.
Schneller ja, nur hat das doch nichts mit der Berechnung zu tun, die du in deiner ersten Mail angegeben hast.
Schau dir mal an, wie Jaecko das umgesetzt hat, das stimmt (bis auf Tippfehler bei E-9).
Schnell und richtig wäre etwa so:

Code:
$crystal = 16000000
$regfile = "m128def.dat"
Dim X As Word , X1 As Long
Dim Y As Single , Y1 As Single , Y2 As Single , Y3 As Single , Z As Single
X = 1000
Do
   Y = 0.00506 * X                                          'X^1
   Y = Y + 0.01499
   X1 = X * X                                               'X1 = X^2
   Y1 = 0.0000018892 * X1
   Y2 = -0.00000000014249 * X1
   Y2 = Y2 * X                                              'X1 = X^3
   Y3 = -0.000000000000020465 * X1
   Y3 = Y3 * X1                                             'X1 = X^4
   Y = Y + Y1
   Y = Y + Y2
   Y = Y + Y3
   X = X + 1
Loop Until X = 1100
End
Braucht für 1000...7000 1,8sec bei 16MHz

Gruß

Rolf