Schneller ja, nur hat das doch nichts mit der Berechnung zu tun, die du in deiner ersten Mail angegeben hast.Zitat:
Zitat von Tryan
Schau dir mal an, wie Jaecko das umgesetzt hat, das stimmt (bis auf Tippfehler bei E-9).
Schnell und richtig wäre etwa so:
Braucht für 1000...7000 1,8sec bei 16MHzCode:$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
Gruß
Rolf
